xdata_state Derived Type

type, private :: xdata_state


Components

Type Visibility Attributes Name Initial
character(len=32), public :: cname = "XDATA"
integer, public :: diagnostic = 0
integer, public :: myid = -1
integer, public :: nx = 64
integer, public :: ny = 32
integer, public :: nz = 4
integer, public :: outid = 0
integer, public :: verbosity = 0
logical, public :: write_final = .true.
real(kind=ESMF_KIND_R8), public :: maxx = -64.000_ESMF_KIND_R8
real(kind=ESMF_KIND_R8), public :: maxy = 50.000_ESMF_KIND_R8
real(kind=ESMF_KIND_R8), public :: minx = -126.000_ESMF_KIND_R8
real(kind=ESMF_KIND_R8), public :: miny = 22.000_ESMF_KIND_R8
type(ESMF_CoordSys_Flag), public :: coordSys = ESMF_COORDSYS_SPH_DEG
type(ESMF_Grid), public :: grid
type(ESMF_VM), public :: vm
type(xdata_field), public, pointer :: exp_flds_head => null()
type(xdata_field), public, pointer :: exp_flds_tail => null()
type(xdata_field), public, pointer :: imp_flds_head => null()
type(xdata_field), public, pointer :: imp_flds_tail => null()

Source Code

  type xdata_state
    ! component information
    character(32) :: cname       = "XDATA"
    integer       :: verbosity   =  0
    integer       :: diagnostic  =  0
    logical       :: write_final = .true.
    integer       :: myid        = -1
    integer       :: outid       =  0
    type(ESMF_VM) :: vm
    ! grid information
    integer                  :: nx = 64
    integer                  :: ny = 32
    integer                  :: nz = 4
    real(ESMF_KIND_R8)       :: minx = -126.000_ESMF_KIND_R8
    real(ESMF_KIND_R8)       :: maxx =  -64.000_ESMF_KIND_R8
    real(ESMF_KIND_R8)       :: miny =   22.000_ESMF_KIND_R8
    real(ESMF_KIND_R8)       :: maxy =   50.000_ESMF_KIND_R8
    type(ESMF_CoordSys_Flag) :: coordSys = ESMF_COORDSYS_SPH_DEG
    type(ESMF_Grid)          :: grid
    ! field information
    type(xdata_field), pointer :: imp_flds_head => null()
    type(xdata_field), pointer :: exp_flds_head => null()
    type(xdata_field), pointer :: imp_flds_tail => null()
    type(xdata_field), pointer :: exp_flds_tail => null()
  endtype xdata_state