"Held-Suarez" の乾燥大気 GCM ベンチマーク用の加熱と散逸を計算する。
use type_mod, only : STRING, DBKIND
private public:: physics_hs94forcing_init, physics_hs94forcing ! subroutines
加熱と散逸の結果は xyz_VelLon_Phy, xyz_VelLat_Phy, xyz_Temp_Phy として返る。
subroutine physics_hs94forcing( & & x_Lon , y_Lat , z_Sigma , z_SigmaHalf, & & xyz_VelLon , xyz_VelLat , xyz_Temp , xy_Ps , & & xyz_VelLon_Phy, xyz_VelLat_Phy, xyz_Temp_Phy )
use type_mod, only: INTKIND, STRING, TOKEN, REKIND, DBKIND use constants_mod, only: RAir, Cp, SecPerDay use grid_3d_mod , only: im, jm, km use dc_trace , only: DbgMessage, BeginSub, EndSub
real(DBKIND), intent(in) :: & & x_Lon(:) , & ! 経度座標 & y_Lat(:) , & ! 緯度座標 & z_Sigma(:) , & ! σレベル(整数)座標 & z_SigmaHalf(:) , & ! σレベル(半整数)座標 & & xyz_VelLon(:,:,:) , & ! 速度経度成分 (t) & xyz_VelLat(:,:,:) , & ! 速度緯度成分 (t) & xyz_Temp(:,:,:) , & ! 温度 (t) & xy_Ps(:,:) ! 地表面気圧 (t)
real(DBKIND), intent(out) :: & & xyz_VelLon_Phy(:,:,:) , & ! 速度経度成分の加熱散逸効果 & xyz_VelLat_Phy(:,:,:) , & ! 速度緯度成分の加熱散逸効果 & xyz_Temp_Phy(:,:,:) ! 温度の加熱散逸効果