ESMF_CFIOVarInfoCreate Function

public function ESMF_CFIOVarInfoCreate(vName, rc)

ESMF_CFIOVarInfoCreate – ESMF_CFIOVarInfo object constructor

Create a CFIO varInfo object and initialize variables.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in), optional :: vName

variable name
integer, intent(out), optional :: rc

Error return code:
0 all is well
-1 problem in creating Grid

Return Value type(ESMF_CFIOVarInfo)


Calls

proc~~esmf_cfiovarinfocreate~~CallsGraph proc~esmf_cfiovarinfocreate ESMF_CFIOVarInfoCreate proc~esmf_cfiogridcreate ESMF_CFIOGridCreate proc~esmf_cfiovarinfocreate->proc~esmf_cfiogridcreate

Called by

proc~~esmf_cfiovarinfocreate~~CalledByGraph proc~esmf_cfiovarinfocreate ESMF_CFIOVarInfoCreate proc~esmf_cfiosdffileopen ESMF_CFIOSdfFileOpen proc~esmf_cfiosdffileopen->proc~esmf_cfiovarinfocreate program~test~11 test program~test~11->proc~esmf_cfiovarinfocreate program~test~12 test program~test~12->proc~esmf_cfiovarinfocreate program~test~14 test program~test~14->proc~esmf_cfiovarinfocreate program~test~2 test program~test~2->proc~esmf_cfiovarinfocreate proc~esmf_cfiofileopen ESMF_CFIOFileOpen program~test~2->proc~esmf_cfiofileopen program~test~3 test program~test~3->proc~esmf_cfiovarinfocreate program~test~5 test program~test~5->proc~esmf_cfiovarinfocreate program~test~7 test program~test~7->proc~esmf_cfiovarinfocreate program~test~8 test program~test~8->proc~esmf_cfiovarinfocreate program~test~9 test program~test~9->proc~esmf_cfiovarinfocreate proc~esmf_cfiofileopen->proc~esmf_cfiosdffileopen none~find~33 CFIOCollection%find none~find~33->proc~esmf_cfiofileopen proc~mapl_cfioopenwrite MAPL_CFIOOpenWrite proc~mapl_cfioopenwrite->proc~esmf_cfiofileopen program~test test program~test->proc~esmf_cfiofileopen program~test~10 test program~test~10->proc~esmf_cfiofileopen program~test~4 test program~test~4->proc~esmf_cfiofileopen proc~mapl_cfiocreatefromfile MAPL_CFIOCreateFromFile proc~mapl_cfiocreatefromfile->none~find~33 proc~mapl_cfioreadbundleread MAPL_CFIOReadBundleRead proc~mapl_cfioreadbundleread->none~find~33

Source Code

      type(ESMF_CFIOVarInfo) function ESMF_CFIOVarInfoCreate (vName, rc)   
!
! !INPUT PARAMETERS:
!
      character(len=*), intent(in), OPTIONAL :: vName     !! variable name
!
! !OUTPUT PARAMETERS:
!
      integer, intent(out), OPTIONAL :: rc      !! Error return code:            
                                                !! 0   all is well            
                                                !! -1  problem in creating Grid        
!    
!------------------------------------------------------------------------------
      type(ESMF_CFIOVarInfo) :: varObj ! a CFIO grid object
      integer :: rtcode = 0

      _UNUSED_DUMMY(vName)

      varObj%grid = ESMF_CFIOGridCreate(rc=rtcode)
      if (rtcode .ne. 0) then 
         print *, "problem in getting ESMF_CFIOGridCreate:lon"
         rtcode = -1
         if ( present(rc) ) rc = rtcode
         return
      end if

      varObj%nVarAttInt = 0
      varObj%nVarAttChar = 0
      varObj%nVarAttReal = 0

      varObj%twoDimVar = .false.
      varObj%timAve = .false.
      varObj%isGridSet = .false.
      varObj%aveMethod = 'c'
      varObj%cellMthd = 'mean'
      varObj%amiss = 1.E15
      varObj%addOffSet = 0
      varObj%scaleFactor = 1
      varObj%validRange = 1.E15
      varObj%packingRange = 1.E15
      varObj%ordering = 'tzyx'

      varObj%vTitle = 'unknown'
      varObj%vUnits = 'unknown'
      varObj%standardName = 'unknown'

!      allocate(varObj%iList, varObj%rList, varObj%cList)
      nullify(varObj%iList)
      nullify(varObj%rList)
      nullify(varObj%cList)

      if ( present(rc) ) rc = 0

      ESMF_CFIOVarInfoCreate = varObj

      end function ESMF_CFIOVarInfoCreate