ESMF_CFIOGridCreate Function

public function ESMF_CFIOGridCreate(gName, rc)

ESMF_CFIOGridCreate – ESMF_Grid object constructor

Create a CFIO grid object and initialize vars

Arguments

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

grid object name
integer, intent(out), optional :: rc

Error return code:
0 all is well

Return Value type(ESMF_CFIOGrid)


Called by

proc~~esmf_cfiogridcreate~~CalledByGraph proc~esmf_cfiogridcreate ESMF_CFIOGridCreate proc~esmf_cfiovarinfocreate ESMF_CFIOVarInfoCreate proc~esmf_cfiovarinfocreate->proc~esmf_cfiogridcreate program~test~10 test program~test~10->proc~esmf_cfiogridcreate program~test~10->proc~esmf_cfiovarinfocreate program~test~11 test program~test~11->proc~esmf_cfiogridcreate program~test~11->proc~esmf_cfiovarinfocreate proc~esmf_cfiofileopen ESMF_CFIOFileOpen program~test~11->proc~esmf_cfiofileopen program~test~12 test program~test~12->proc~esmf_cfiogridcreate program~test~12->proc~esmf_cfiovarinfocreate program~test~13 test program~test~13->proc~esmf_cfiogridcreate program~test~13->proc~esmf_cfiovarinfocreate program~test~14 test program~test~14->proc~esmf_cfiogridcreate program~test~14->proc~esmf_cfiovarinfocreate program~test~5 test program~test~5->proc~esmf_cfiogridcreate program~test~5->proc~esmf_cfiovarinfocreate program~test~7 test program~test~7->proc~esmf_cfiogridcreate program~test~7->proc~esmf_cfiovarinfocreate program~test~8 test program~test~8->proc~esmf_cfiogridcreate program~test~8->proc~esmf_cfiovarinfocreate program~test~9 test program~test~9->proc~esmf_cfiogridcreate program~test~9->proc~esmf_cfiovarinfocreate proc~esmf_cfiosdffileopen ESMF_CFIOSdfFileOpen proc~esmf_cfiosdffileopen->proc~esmf_cfiovarinfocreate proc~esmf_cfiofileopen->proc~esmf_cfiosdffileopen none~find~4 CFIOCollection%find none~find~4->proc~esmf_cfiofileopen proc~mapl_cfioopenwrite MAPL_CFIOOpenWrite proc~mapl_cfioopenwrite->proc~esmf_cfiofileopen program~test~2 test program~test~2->proc~esmf_cfiofileopen program~test~4 test program~test~4->proc~esmf_cfiofileopen program~test~6 test program~test~6->proc~esmf_cfiofileopen

Source Code

      type(ESMF_CFIOGrid) function ESMF_CFIOGridCreate (gName, rc)   
!
! !INPUT PARAMETERS:
!
      character(len=*), intent(in), OPTIONAL :: gName  !! grid object name
      integer, intent(out), OPTIONAL :: rc      !! Error return code:    
                                                !! 0   all is well
!
!------------------------------------------------------------------------------
      type(ESMF_CFIOGrid) :: grid               ! a CFIO grid object

      grid%im = 0
      grid%jm = 0
      grid%km = 0
      grid%tm = 0

      grid%levUnits = 'unknown'
      grid%coordinate = 'unknown'
      grid%standardName = 'unknown'
      grid%formulaTerm = 'unknown'

      grid%ptop = 0
      grid%ptopUnit = 'Pa' 
      grid%twoDimLat = .false.
      grid%reduceGrid = .false.
      grid%stnGrid = .false.

      nullify(grid%lon)
      nullify(grid%lat)
      nullify(grid%lev)
      nullify(grid%ak)
      nullify(grid%bk)
      nullify(grid%sigma)

      if ( present(gName) ) grid%gName = gName

      if ( present(rc) ) rc = 0

      ESMF_CFIOGridCreate = grid

      end function ESMF_CFIOGridCreate