!======================================= ! 2D cumulus model - kaminari ! - subroutine omgw ! ! Author : TAKAHASHI Koko ! Date : 2003/11/26 最終更新 ! 2003/11/04 新規作成 ! Note : 地形に沿った座標系での鉛直速度 omg ! !======================================= !--- 1行目入力変数, 2行目出力変数 subroutine omgw(i,k,im,km,g_sqrt_z,g13x,u,w, & & omg) implicit none integer(8), intent(in) :: im integer(8), intent(in) :: km integer(8), intent(in) :: i, k real(8), intent(in) :: g_sqrt_z(-2:im+1,-2:km+1) real(8), intent(in) :: g13x(-2:im+1,-2:km+1) real(8), intent(in) :: u(-2:im+1,-2:km+1) real(8), intent(in) :: w(-2:im+1,-2:km+1) real(8), intent(out) :: omg(-2:im+1,-2:km+1) omg(i,k) = g13x(i,k)*(u(i,k+1) + u(i,k))/2.0d0 & & + w(i,k)/g_sqrt_z(i,k) end subroutine omgw