MAPL_CFIO Derived Type

type, public :: MAPL_CFIO


Inherits

type~~mapl_cfio~~InheritsGraph type~mapl_cfio MAPL_CFIO ESMF_Clock ESMF_Clock type~mapl_cfio->ESMF_Clock CLOCK ESMF_FIELDBUNDLE ESMF_FIELDBUNDLE type~mapl_cfio->ESMF_FIELDBUNDLE BUNDLE ESMF_Grid ESMF_Grid type~mapl_cfio->ESMF_Grid Grid, output_grid ESMF_GridComp ESMF_GridComp type~mapl_cfio->ESMF_GridComp GC ESMF_TimeInterval ESMF_TimeInterval type~mapl_cfio->ESMF_TimeInterval OFFSET type~abstractregridder AbstractRegridder type~mapl_cfio->type~abstractregridder regridder, new_regridder type~esmf_cfio ESMF_CFIO type~mapl_cfio->type~esmf_cfio CFIO type~mapl_commrequest MAPL_CommRequest type~mapl_cfio->type~mapl_commrequest reqs type~mcfio_variable MCFIO_Variable type~mapl_cfio->type~mcfio_variable variables type~ptr2arr Ptr2Arr type~mapl_cfio->type~ptr2arr Buffer, rBuffer type~regridderspec~2 RegridderSpec type~abstractregridder->type~regridderspec~2 spec type~cnode cNode type~esmf_cfio->type~cnode cList type~esmf_cfiogrid ESMF_CFIOGrid type~esmf_cfio->type~esmf_cfiogrid grids type~esmf_cfiovarinfo ESMF_CFIOVarInfo type~esmf_cfio->type~esmf_cfiovarinfo varObjs type~inode iNode type~esmf_cfio->type~inode iList type~rnode rNode type~esmf_cfio->type~rnode rList type~arrptr ArrPtr type~mapl_commrequest->type~arrptr Buff type~cnode->type~cnode next type~esmf_cfiovarinfo->type~cnode cList type~esmf_cfiovarinfo->type~esmf_cfiogrid grid type~esmf_cfiovarinfo->type~inode iList type~esmf_cfiovarinfo->type~rnode rList type~inode->type~inode next type~regridderspec~2->ESMF_Grid grid_in, grid_out type~rnode->type~rnode next

Inherited by

type~~mapl_cfio~~InheritedByGraph type~mapl_cfio MAPL_CFIO type~historycollection~2 HistoryCollection type~historycollection~2->type~mapl_cfio MCFIO type~historycollectionvectoriterator~2 HistoryCollectionVectorIterator type~historycollectionvectoriterator~2->type~historycollection~2 elements type~historycollectionvectorriterator~2 HistoryCollectionVectorRIterator type~historycollectionvectorriterator~2->type~historycollection~2 elements type~historycollectionvector~2 HistoryCollectionVector type~historycollectionvector~2->type~historycollection~2 elements

Source Code

  type :: MAPL_CFIO
     private
     logical                    :: CREATED=.false.
     character(len=ESMF_MAXSTR) :: NAME
     character(len=ESMF_MAXPATHLEN) :: fNAME
     character(len=ESMF_MAXSTR) :: format
     character(len=ESMF_MAXSTR) :: expid
     type(ESMF_CFIO)            :: CFIO
     integer                    :: XYOFFSET
     real                       :: VSCALE
     type(ESMF_TIMEINTERVAL)    :: OFFSET
     type(ESMF_CLOCK)           :: CLOCK
     type(ESMF_FIELDBUNDLE)     :: BUNDLE
     type(ESMF_GridComp)        :: GC
     type(ESMF_Grid)            :: Grid
     integer                    :: Root=1
     integer                    :: PartSize=1
     integer                    :: myPE
     integer                    :: numcores
     integer                    :: comm
     integer                    :: Order=-1
     integer                    :: Nbits=1000
     integer                    :: IM, JM, LM
     integer, pointer           :: VarDims(:)=>null()
     integer, pointer           :: VarType(:)=>null()
     integer, pointer           :: needVar(:)=>null()
     integer, pointer           :: pairList(:)=>null()
     logical                    :: doRotate
     character(len=ESMF_MAXSTR), &
                        pointer :: vectorList(:,:)=>null()
     logical                    :: Vinterp=.false.
     real                       :: pow=0.0
     character(len=ESMF_MAXSTR) :: Vvar
     character(len=3          ) :: Func
     character(len=ESMF_MAXSTR), &
                        pointer :: VarName(:)=>null()
     integer, pointer           :: Krank(:)=>null()
     integer                    :: rootRank = 0
     real,    pointer           :: levs(:)=>null()
     real,    pointer           :: unmodifiedLevs(:)=>null()
     type(MAPL_CommRequest), &
                        pointer :: reqs(:)=>null()
     class (AbstractRegridder), pointer :: regridder => null()
     class (AbstractRegridder), pointer :: new_regridder => null()
     integer :: regrid_method
     type (ESMF_Grid)           :: output_grid
     integer                    :: AsyncWorkRank
     integer                    :: globalComm
     logical                    :: regridConservative
     logical                    :: newFormat = .false.
     logical                    :: useFaceDim = .false.
     type(Ptr2Arr), pointer     :: Buffer(:) => null()
     logical                    :: gsiMode = .false.
     integer, pointer           :: varID(:) => null()
     logical                    :: kreverse,xshift
     integer                    :: collection_id
     ! new stuff for server
     integer                    :: scollection_id
     integer, pointer           :: request_ids(:) => null()
     type(Ptr2Arr), pointer     :: rBuffer(:)
     character(len=ESMF_MAXSTR), &
                        pointer :: levVarName(:)=>null()
     integer                    :: fraction
     integer                    :: regrid_type
     real, pointer              :: surfaceLayer(:,:) => null()
     logical                    :: ascending

     ! TLC components used in the new ESMF regrid variant
     integer :: n_vars
     type (MCFIO_Variable), allocatable :: variables(:)


  end type MAPL_CFIO