esmx_data Module


Uses


Variables

Type Visibility Attributes Name Initial
real(kind=ESMF_KIND_R8), private, parameter :: filv = -1.0E34_ESMF_KIND_R8

Derived Types

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()

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()

type, private ::  xstate_wrap

Components

Type Visibility Attributes Name Initial
type(xdata_state), public, pointer :: ptr

Functions

private function x_comp_hconfig_str(hconfig, key, defaultValue, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_HConfig), intent(in) :: hconfig
character(len=*), intent(in) :: key
character(len=*), intent(in), optional :: defaultValue
integer, intent(out) :: rc

Return Value character(len=:), allocatable

private function x_comp_hconfig_i4(hconfig, key, defaultValue, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_HConfig), intent(in) :: hconfig
character(len=*), intent(in) :: key
integer(kind=ESMF_KIND_I4), intent(in), optional :: defaultValue
integer, intent(out) :: rc

Return Value integer(kind=ESMF_KIND_I4)

private function x_comp_hconfig_logical(hconfig, key, defaultValue, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_HConfig), intent(in) :: hconfig
character(len=*), intent(in) :: key
logical, intent(in), optional :: defaultValue
integer, intent(out) :: rc

Return Value logical

private function x_comp_hconfig_r8(hconfig, key, defaultValue, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_HConfig), intent(in) :: hconfig
character(len=*), intent(in) :: key
real(kind=ESMF_KIND_R8), intent(in), optional :: defaultValue
integer, intent(out) :: rc

Return Value real(kind=ESMF_KIND_R8)


Subroutines

private subroutine Advertise(xdata, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp) :: xdata
integer, intent(out) :: rc

private subroutine CheckImport(xdata, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp) :: xdata
integer, intent(out) :: rc

private subroutine DataInitialize(xdata, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp) :: xdata
integer, intent(out) :: rc

private subroutine ModelAdvance(xdata, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp) :: xdata
integer, intent(out) :: rc

private subroutine ModelFinalize(xdata, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp) :: xdata
integer, intent(out) :: rc

private subroutine Realize(xdata, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp) :: xdata
integer, intent(out) :: rc

public subroutine SetServices(xdata, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp) :: xdata
integer, intent(out) :: rc

private subroutine x_comp_check_field(xstate, xfield, rc)

Arguments

Type IntentOptional Attributes Name
type(xdata_state), intent(in), pointer :: xstate
type(xdata_field), intent(inout), pointer :: xfield
integer, intent(out) :: rc

private subroutine x_comp_get_config(xdata, xstate, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp) :: xdata
type(xdata_state), intent(inout), pointer :: xstate
integer, intent(out) :: rc

private subroutine x_comp_grid_diag(xstate, fileName, overwrite, status, timeslice, iofmt, relaxedflag, rc)

Arguments

Type IntentOptional Attributes Name
type(xdata_state), intent(in), pointer :: xstate
character(len=*), intent(in), optional :: fileName
logical, intent(in), optional :: overwrite
type(ESMF_FileStatus_Flag), intent(in), optional :: status
integer, intent(in), optional :: timeslice
type(ESMF_IOFmt_Flag), intent(in), optional :: iofmt
logical, intent(in), optional :: relaxedflag
integer, intent(out) :: rc

private subroutine x_comp_read_fields(xdatacfg, xstate, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_HConfig) :: xdatacfg
type(xdata_state), intent(inout), pointer :: xstate
integer, intent(out) :: rc

private subroutine x_comp_read_geom(xdatacfg, xstate, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_HConfig) :: xdatacfg
type(xdata_state), intent(inout), pointer :: xstate
integer, intent(out) :: rc

private subroutine x_comp_read_output(xdatacfg, xstate, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_HConfig) :: xdatacfg
type(xdata_state), intent(inout), pointer :: xstate
integer, intent(out) :: rc

private subroutine x_comp_realize_field(xstate, xfield, state, rc)

Arguments

Type IntentOptional Attributes Name
type(xdata_state), intent(inout), pointer :: xstate
type(xdata_field), intent(inout), pointer :: xfield
type(ESMF_State), intent(inout) :: state
integer, intent(out) :: rc