"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(:,:,:) ! 温度の加熱散逸効果