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