DCPAM Real, Integer, Character type.
use type_mod , only : REKIND, DBKIND, INTKIND, TOKEN, STRING, & & NMLARRAY use axis_type_mod, only : AXISINFO
private public :: REKIND, DBKIND, INTKIND, TOKEN, STRING, NMLARRAY ! derived types public :: DYCORE_VARS, DYCORE_DIMS ! derived types
計算すべき格子点データをひとまとめにした型。 3次元プリミティブ方程式用で、 メインルーチンにて 入力 → 物理過程 → 力学過程 → 出力 されるデータ群
type DYCORE_VARS real(DBKIND), pointer :: & & xyz_VelLon(:,:,:) , & ! 格子点データ(速度経度成分) & xyz_VelLat(:,:,:) , & ! 格子点データ(速度緯度成分) & xyz_Vor(:,:,:) , & ! 格子点データ(渦度) & xyz_Div(:,:,:) , & ! 格子点データ(発散) & xyz_Temp(:,:,:) , & ! 格子点データ(温度) & xyz_QVap(:,:,:) , & ! 格子点データ(比湿) & xy_Ps(:,:) , & ! 格子点データ(地表面気圧) & xy_TempS(:,:) ! 格子点データ(地表面温度) end type DYCORE_VARS
次元データをひとまとめにした量 (時間次元は除く)。 緯度経度座標 + 鉛直σ座標 で、 初期値データから入力され、出力の初期化の際に出力され、 その後、物理過程、力学過程に用いられる。
type DYCORE_DIMS type(AXISINFO) :: & & x_Lon , & ! 格子点座標(経度) & x_Lon_Weight , & ! 格子点座標(経度重み) & y_Lat , & ! 格子点座標(緯度) & y_Lat_Weight , & ! 格子点座標(緯度重み) & z_Sigma , & ! 格子点座標(σレベル(整数)) & r_Sigma ! 格子点座標(σレベル(半整数)) end type DYCORE_DIMS