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