!======================================= ! 2D cumulus model - kaminari ! - subroutine mxrt_satu ! ! Author : TAKAHASHI Koko ! Date : 2003/11/25 最終更新 ! 2003/11/05 新規作成 ! Note : 水蒸気の飽和混合比 ! !======================================= !--- 1行目入力変数, 2行目出力変数 subroutine mxrt_satu(i,k,im,km,prss_bs,pi_bs,ptemp, & & qvs) implicit none integer(8), intent(in) :: i, k integer(8), intent(in) :: im, km real(8), intent(in) :: prss_bs(-2:im+1,-2:km+1) real(8), intent(in) :: pi_bs(-2:im+1,-2:km+1) real(8), intent(in) :: ptemp(-2:im+1,-2:km+1) real(8), intent(out) :: qvs(-2:im+1,-2:km+1) qvs(i,k) = 3.8D0/prss_bs(i,k) & & *exp( & & 17.27D0*(pi_bs(i,k)*ptemp(i,k) - 273.0D0) & & /(pi_bs(i,k)*ptemp(i,k) - 36.0D0) & & ) end subroutine mxrt_satu