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