!======================================= ! 2D cumulus model - kaminari ! - subroutine pi2prss ! ! Author : TAKAHASHI Koko ! Date : 2003/12/09 最終更新 ! 2003/11/01 新規作成 ! Note : 無次元圧力から圧力への変換 ! !======================================= !--------------------------------------- subroutine pi2prss(i,k,im,km,prss_sfc,rd,cp,pi,prss) implicit none integer(8), intent(in) :: i, k integer(8), intent(in) :: im, km real(8), intent(in) :: prss_sfc, rd, cp real(8), intent(in) :: pi(-2:im+2,-2:km+2) real(8), intent(out) :: prss(-2:im+2,-2:km+2) prss(i,k) = prss_sfc*pi(i,k)**(cp/rd) end subroutine pi2prss