PrimaryExport Derived Type

type, public :: PrimaryExport


Inherits

type~~primaryexport~~InheritsGraph type~primaryexport PrimaryExport ESMF_FieldBundle ESMF_FieldBundle type~primaryexport->ESMF_FieldBundle t_interp_bundle ESMF_Time ESMF_Time type~primaryexport->ESMF_Time source_time, start_end_time type~bracketingfields BracketingFields type~primaryexport->type~bracketingfields modelGridFields type~extdataabstractfilehandler ExtDataAbstractFileHandler type~primaryexport->type~extdataabstractfilehandler filestream type~extdatapointerupdate ExtDataPointerUpdate type~primaryexport->type~extdatapointerupdate update_freq type~filemetadatautils FileMetadataUtils type~primaryexport->type~filemetadatautils file_metadata type~griddedioitem GriddedIOitem type~primaryexport->type~griddedioitem fileVars type~verticalcoordinate VerticalCoordinate type~primaryexport->type~verticalcoordinate vcoord type~extdatabracket ExtDataBracket type~bracketingfields->type~extdatabracket comp1, comp2 type~extdataabstractfilehandler->ESMF_Time reff_time, valid_range ESMF_TimeInterval ESMF_TimeInterval type~extdataabstractfilehandler->ESMF_TimeInterval frequency type~extdatapointerupdate->ESMF_Time last_ring, reference_time, last_checked type~extdatapointerupdate->ESMF_TimeInterval offset, update_freq type~filemetadata FileMetadata type~filemetadatautils->type~filemetadata ESMF_Field ESMF_Field type~griddedioitem->ESMF_Field xfield, yfield, xfield_out, yfield_out type~extdatanode ExtDataNode type~extdatabracket->type~extdatanode left_node, right_node StringIntegerMap StringIntegerMap type~filemetadata->StringIntegerMap dimensions StringVector StringVector type~filemetadata->StringVector order type~stringvariablemap StringVariableMap type~filemetadata->type~stringvariablemap variables type~variable Variable type~filemetadata->type~variable global_var type~extdatanode->ESMF_Time time type~extdatanode->ESMF_Field field type~set2~13 set2 type~stringvariablemap->type~set2~13 tree type~variable->StringVector dimensions type~stringattributemap StringAttributeMap type~variable->type~stringattributemap attributes type~unlimitedentity UnlimitedEntity type~variable->type~unlimitedentity const_value

Inherited by

type~~primaryexport~~InheritedByGraph type~primaryexport PrimaryExport type~vector_wrapper~6 vector_wrapper type~vector_wrapper~6->type~primaryexport item type~primaryexportvector PrimaryExportVector type~primaryexportvector->type~vector_wrapper~6 elements type~primaryexportvectoriterator PrimaryExportVectorIterator type~primaryexportvectoriterator->type~vector_wrapper~6 elements type~vectorriterator~6 VectorRIterator type~vectorriterator~6->type~primaryexportvectoriterator iterator

Components

Type Visibility Attributes Name Initial
character(len=4), public :: importVDir = "down"
character(len=:), public, allocatable :: aux_ps
character(len=:), public, allocatable :: aux_q
character(len=:), public, allocatable :: units
character(len=ESMF_MAXPATHLEN), public :: file_template
character(len=ESMF_MAXSTR), public :: fcomp1
character(len=ESMF_MAXSTR), public :: fcomp2
character(len=ESMF_MAXSTR), public :: name
character(len=ESMF_MAXSTR), public :: var
character(len=ESMF_MAXSTR), public :: vcomp1
character(len=ESMF_MAXSTR), public :: vcomp2
integer, public :: FracVal = MAPL_ExtDataNullFrac
integer, public :: Trans
integer, public :: iclient_collection_id
integer, public :: pfioCollection_id
integer, public :: vartype
logical, public :: ExtDataAlloc
logical, public :: allow_vertical_regrid = .false.
logical, public :: cycling
logical, public :: delivered_item = .true.
logical, public :: do_Fill = .false.
logical, public :: do_VertInterp = .false.
logical, public :: enable_vertical_regrid = .false.
logical, public :: fail_on_missing_file = .true.
logical, public :: initialized = .false.
logical, public :: isConst
logical, public :: isVector
logical, public :: persist_closest
real, public :: Const
real, public, allocatable :: molecular_weight
type(ESMF_Time), public, allocatable :: source_time(:)
type(ESMF_Time), public, allocatable :: start_end_time(:)
type(BracketingFields), public :: modelGridFields
type(ESMF_FieldBundle), public :: t_interp_bundle
class(ExtDataAbstractFileHandler), public, allocatable :: filestream
type(ExtDataPointerUpdate), public :: update_freq
type(FileMetadataUtils), public :: file_metadata
type(GriddedIOitem), public :: fileVars
type(VerticalCoordinate), public :: vcoord

Source Code

  type PrimaryExport
     character(len=ESMF_MAXSTR)   :: name
     character(len=:), allocatable :: units
     integer                      :: Trans
     character(len=ESMF_MAXSTR)   :: var
     character(len=ESMF_MAXPATHLEN)   :: file_template

     logical                      :: isConst
     real                         :: Const !remove
     integer                      :: vartype ! MAPL_FieldItem or MAPL_BundleItem

     class(ExtDataAbstractFileHandler), allocatable :: filestream

     ! if primary export represents a pair of vector fields
     logical                      :: isVector
     type(BracketingFields)       :: modelGridFields

     ! names of the two vector components in the gridded component where import is declared
     character(len=ESMF_MAXSTR)   :: vcomp1, vcomp2
     ! the corresponding names of the two vector components on file
     character(len=ESMF_MAXSTR)   :: fcomp1, fcomp2
     type(GriddedIOitem)          :: fileVars

     integer                      :: pfioCollection_id
     integer                      :: iclient_collection_id

     logical                      :: ExtDataAlloc
     integer                      :: FracVal = MAPL_ExtDataNullFrac
     ! do we have to do vertical interpolation
     logical                      :: do_VertInterp = .false.
     logical                      :: do_Fill = .false.
     type(FileMetadataUtils)      :: file_metadata
     type(ExtDataPointerUpdate)   :: update_freq
     type(VerticalCoordinate)     :: vcoord
     logical                      :: delivered_item = .true. 

     ! new stuff
     logical                      :: cycling
     logical                      :: persist_closest
     type(ESMF_Time), allocatable :: source_time(:)

     ! for multiple collections
     type(ESMF_Time), allocatable :: start_end_time(:)
     logical :: initialized = .false.
     logical :: fail_on_missing_file = .true.

     type(ESMF_FieldBundle) :: t_interp_bundle

     character(len=4) :: importVDir = "down"
     logical :: enable_vertical_regrid = .false.
     logical :: allow_vertical_regrid = .false.
     character(len=:), allocatable :: aux_ps, aux_q
     real, allocatable :: molecular_weight

  end type PrimaryExport