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