x_type
在 registry.var 中：
# BEGIN X_TYPE DEFINITION typedef x_type real u ijk - 1 X - typedef x_type real v ijk - 1 Y - typedef x_type real w ijk - 1 - - typedef x_type real t ijk - 1 - - typedef x_type real q ijk - 1 - - typedef x_type real p ijk - 1 - - typedef x_type real geoh ijk - 1 - - typedef x_type real rh ijk - 1 - - typedef x_type real rho ijk - 1 - - typedef x_type real wh ijk - 1 - - typedef x_type real grad_p_x ijk - 1 - - typedef x_type real grad_p_y ijk - 1 - - typedef x_type real qrn ijk - 1 - - typedef x_type real qcw ijk - 1 - - typedef x_type real qci ijk - 1 - - typedef x_type real qsn ijk - 1 - - typedef x_type real qgr ijk - 1 - - typedef x_type real qt ijk - 1 - - typedef x_type real tgrn ij - 1 - - typedef x_type real psfc ij - 1 - - typedef x_type real mu ij - 1 - - typedef x_type real u10 ij - 1 - - typedef x_type real v10 ij - 1 - - typedef x_type real t2 ij - 1 - - typedef x_type real q2 ij - 1 - - typedef x_type real ref ijk - 1 - - typedef x_type real ztd ij - 1 - - typedef x_type real tpw ij - 1 - - typedef x_type real speed ij - 1 - - typedef x_type real tb19v ij - 1 - - typedef x_type real tb19h ij - 1 - - typedef x_type real tb22v ij - 1 - - typedef x_type real tb37v ij - 1 - - typedef x_type real tb37h ij - 1 - - typedef x_type real tb85v ij - 1 - - typedef x_type real tb85h ij - 1 - - # END TYPE x_type
在编译过程中生成的文件 var/build/module_domain_type.f90 中，由 registry 自动生成代码：
TYPE x_type real ,DIMENSION(:,:,:) ,POINTER :: u real ,DIMENSION(:,:,:) ,POINTER :: v real ,DIMENSION(:,:,:) ,POINTER :: w real ,DIMENSION(:,:,:) ,POINTER :: t real ,DIMENSION(:,:,:) ,POINTER :: q real ,DIMENSION(:,:,:) ,POINTER :: p real ,DIMENSION(:,:,:) ,POINTER :: geoh real ,DIMENSION(:,:,:) ,POINTER :: rh real ,DIMENSION(:,:,:) ,POINTER :: rho real ,DIMENSION(:,:,:) ,POINTER :: wh real ,DIMENSION(:,:,:) ,POINTER :: grad_p_x real ,DIMENSION(:,:,:) ,POINTER :: grad_p_y real ,DIMENSION(:,:,:) ,POINTER :: qrn real ,DIMENSION(:,:,:) ,POINTER :: qcw real ,DIMENSION(:,:,:) ,POINTER :: qci real ,DIMENSION(:,:,:) ,POINTER :: qsn real ,DIMENSION(:,:,:) ,POINTER :: qgr real ,DIMENSION(:,:,:) ,POINTER :: qt real ,DIMENSION(:,:) ,POINTER :: tgrn real ,DIMENSION(:,:) ,POINTER :: psfc real ,DIMENSION(:,:) ,POINTER :: mu real ,DIMENSION(:,:) ,POINTER :: u10 real ,DIMENSION(:,:) ,POINTER :: v10 real ,DIMENSION(:,:) ,POINTER :: t2 real ,DIMENSION(:,:) ,POINTER :: q2 real ,DIMENSION(:,:,:) ,POINTER :: ref real ,DIMENSION(:,:) ,POINTER :: ztd real ,DIMENSION(:,:) ,POINTER :: tpw real ,DIMENSION(:,:) ,POINTER :: speed real ,DIMENSION(:,:) ,POINTER :: tb19v real ,DIMENSION(:,:) ,POINTER :: tb19h real ,DIMENSION(:,:) ,POINTER :: tb22v real ,DIMENSION(:,:) ,POINTER :: tb37v real ,DIMENSION(:,:) ,POINTER :: tb37h real ,DIMENSION(:,:) ,POINTER :: tb85v real ,DIMENSION(:,:) ,POINTER :: tb85h END TYPE x_type
相关的程序
da_zero_x.inc