xdata_field Derived Type

type, private :: xdata_field


Components

Type Visibility Attributes Name Initial
character(len=64), public :: stdn = "dummy"
integer, public :: fdim = 2
logical, public :: okay = .true.
logical, public :: rlze = .false.
real(kind=ESMF_KIND_R8), public :: dflt = filv
real(kind=ESMF_KIND_R8), public :: gavg = filv
real(kind=ESMF_KIND_R8), public :: gmax(1) = filv
real(kind=ESMF_KIND_R8), public :: gmin(1) = filv
real(kind=ESMF_KIND_R8), public :: gsum(2) = filv
real(kind=ESMF_KIND_R8), public :: lmax(1) = filv
real(kind=ESMF_KIND_R8), public :: lmin(1) = filv
real(kind=ESMF_KIND_R8), public :: lsum(2) = filv
real(kind=ESMF_KIND_R8), public :: maxv = filv
real(kind=ESMF_KIND_R8), public :: minv = filv
real(kind=ESMF_KIND_R8), public, pointer :: ptr2(:,:) => null()
real(kind=ESMF_KIND_R8), public, pointer :: ptr3(:,:,:) => null()
type(ESMF_Field), public, pointer :: efld => null()
type(xdata_field), public, pointer :: nfld => null()

Source Code

  type xdata_field
    character(len=64)           :: stdn        = "dummy"
    integer                     :: fdim        = 2
    real(ESMF_KIND_R8)          :: dflt        = filv
    logical                     :: rlze        = .false.
    real(ESMF_KIND_R8)          :: minv        = filv
    real(ESMF_KIND_R8)          :: maxv        = filv
    logical                     :: okay        = .true.
    real(ESMF_KIND_R8)          :: lmin(1)     = filv
    real(ESMF_KIND_R8)          :: gmin(1)     = filv
    real(ESMF_KIND_R8)          :: lmax(1)     = filv
    real(ESMF_KIND_R8)          :: gmax(1)     = filv
    real(ESMF_KIND_R8)          :: lsum(2)     = filv
    real(ESMF_KIND_R8)          :: gsum(2)     = filv
    real(ESMF_KIND_R8)          :: gavg        = filv
    type(ESMF_Field), pointer   :: efld        => null()
    real(ESMF_KIND_R8), pointer :: ptr2(:,:)   => null()
    real(ESMF_KIND_R8), pointer :: ptr3(:,:,:) => null()
    type(xdata_field), pointer  :: nfld        => null()
  endtype xdata_field