ESMF_GridCompGet Subroutine

public recursive subroutine ESMF_GridCompGet(gridcomp, keywordEnforcer, gridIsPresent, grid, gridList, meshIsPresent, mesh, meshList, locstreamIsPresent, locstream, locstreamList, xgridIsPresent, xgrid, xgridList, importStateIsPresent, importState, exportStateIsPresent, exportState, hconfigIsPresent, hconfig, configIsPresent, config, configFileIsPresent, configFile, clockIsPresent, clock, localPet, petCount, contextflag, currentMethod, currentPhase, comptype, vmIsPresent, vm, name, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp), intent(in) :: gridcomp
type(ESMF_KeywordEnforcer), optional :: keywordEnforcer
logical, intent(out), optional :: gridIsPresent
type(ESMF_Grid), intent(out), optional :: grid
type(ESMF_Grid), intent(out), optional, allocatable :: gridList(:)
logical, intent(out), optional :: meshIsPresent
type(ESMF_Mesh), intent(out), optional :: mesh
type(ESMF_Mesh), intent(out), optional, allocatable :: meshList(:)
logical, intent(out), optional :: locstreamIsPresent
type(ESMF_LocStream), intent(out), optional :: locstream
type(ESMF_LocStream), intent(out), optional, allocatable :: locstreamList(:)
logical, intent(out), optional :: xgridIsPresent
type(ESMF_XGrid), intent(out), optional :: xgrid
type(ESMF_XGrid), intent(out), optional, allocatable :: xgridList(:)
logical, intent(out), optional :: importStateIsPresent
type(ESMF_State), intent(out), optional :: importState
logical, intent(out), optional :: exportStateIsPresent
type(ESMF_State), intent(out), optional :: exportState
logical, intent(out), optional :: hconfigIsPresent
type(ESMF_HConfig), intent(out), optional :: hconfig
logical, intent(out), optional :: configIsPresent
type(ESMF_Config), intent(out), optional :: config
logical, intent(out), optional :: configFileIsPresent
character(len=*), intent(out), optional :: configFile
logical, intent(out), optional :: clockIsPresent
type(ESMF_Clock), intent(out), optional :: clock
integer, intent(out), optional :: localPet
integer, intent(out), optional :: petCount
type(ESMF_Context_Flag), intent(out), optional :: contextflag
type(ESMF_Method_Flag), intent(out), optional :: currentMethod
integer, intent(out), optional :: currentPhase
type(ESMF_CompType_Flag), intent(out), optional :: comptype
logical, intent(out), optional :: vmIsPresent
type(ESMF_VM), intent(out), optional :: vm
character(len=*), intent(out), optional :: name
integer, intent(out), optional :: rc

Calls

proc~~esmf_gridcompget~~CallsGraph proc~esmf_gridcompget ESMF_GridCompGet proc~esmf_compget ESMF_CompGet proc~esmf_gridcompget->proc~esmf_compget proc~esmf_compstatusget ESMF_CompStatusGet proc~esmf_gridcompget->proc~esmf_compstatusget proc~esmf_gridcompgetinit ESMF_GridCompGetInit proc~esmf_gridcompget->proc~esmf_gridcompgetinit proc~esmf_imerr ESMF_IMErr proc~esmf_gridcompget->proc~esmf_imerr proc~esmf_logfounderror ESMF_LogFoundError proc~esmf_gridcompget->proc~esmf_logfounderror proc~esmf_compget->proc~esmf_imerr proc~esmf_compget->proc~esmf_logfounderror c_esmc_compget c_esmc_compget proc~esmf_compget->c_esmc_compget interface~esmf_vmget ESMF_VMGet proc~esmf_compget->interface~esmf_vmget proc~esmf_basegetstatus ESMF_BaseGetStatus proc~esmf_compget->proc~esmf_basegetstatus proc~esmf_compclassgetinit ESMF_CompClassGetInit proc~esmf_compget->proc~esmf_compclassgetinit proc~esmf_configget ESMF_ConfigGet proc~esmf_compget->proc~esmf_configget proc~esmf_getname ESMF_GetName proc~esmf_compget->proc~esmf_getname proc~esmf_logfoundallocerror ESMF_LogFoundAllocError proc~esmf_compget->proc~esmf_logfoundallocerror proc~esmf_logseterror ESMF_LogSetError proc~esmf_compget->proc~esmf_logseterror proc~esmf_compstatusgetinit ESMF_CompStatusGetInit proc~esmf_compstatusget->proc~esmf_compstatusgetinit proc~esmf_imerrs ESMF_IMErrS proc~esmf_compstatusget->proc~esmf_imerrs proc~esmf_imerr->proc~esmf_logfounderror proc~esmf_initcheckdeep ESMF_InitCheckDeep proc~esmf_imerr->proc~esmf_initcheckdeep esmf_breakpoint esmf_breakpoint proc~esmf_logfounderror->esmf_breakpoint proc~esmf_logrc2msg ESMF_LogRc2Msg proc~esmf_logfounderror->proc~esmf_logrc2msg proc~esmf_logwrite ESMF_LogWrite proc~esmf_logfounderror->proc~esmf_logwrite

Called by

atmos_initwESMF_GridCompGet
w
atmos_initw
w
checkComponentMetadataw
w
CheckImportw
w
checkInternalClockw
w
comp1_runw
w
comp2_runw
w
compFinalw
w
compInitw
w
compInitw
w
compInitw
w
compInitw
w
compInitw
w
compRunw
w
ESMF_InfoDescribe%updateWithGridCompw
w
ESMF_NamedAliasGridCompw
w
ESMF_StateReconcileUTestw
w
ESMF_TraceGetGridCompIDw
w
ESMF_TraceGridCompPhaseEnterw
w
ESMF_TraceGridCompPhaseEpilogueExitw
w
ESMF_TraceGridCompPhaseExitw
w
ESMF_TraceGridCompPhasePrologueEnterw
w
ESMF_VMComponentUTestw
w
ESMF_WebServProcessRequestw
w
ESMF_WebServRegisterSvcw
w
ESMF_WebServWaitForRequestw
w
ESMFIO_Createw
w
ESMFIO_FieldAccessw
w
ExecuteRunSequencew
w
f_esmf_gridcompgetw
w
finalizew
w
Finalizew
w
Finalizew
w
finalizew
w
FinalizeResetw
w
ic_finalw
w
ic_finalw
w
ic_finalw
w
ic_initw
w
ic_initw
w
ic_initw
w
ic_runw
w
ic_runw
w
ic_runw
w
Initializew
w
Initializew
w
Initializew
w
Initializew
w
InitializeIPDv01p5w
w
InitializeIPDv02p1w
w
InitializeIPDv02p5w
w
InitializeIPDv02p5Dataw
w
InitializeIPDvXp07w
w
InitializeIPDvXp08w
w
InternalInitializeCompletew
w
JSON_GridCompLogCtrlFloww
w
JSON_LogCtrlFloww
w
land_initw
w
land_initw
w
loopConnectorCompsSw
w
loopDataDependentInitializew
w
loopModelCompsSw
w
my_initw
w
my_init1w
w
mygcomp_finalw
w
mygcomp_finalw
w
mygcomp_initw
w
mygcomp_initw
w
mygcomp_register_exhw
w
mygcomp_register_nexhw
w
mygcomp_runw
w
mygcomp_runw
w
mygcomp_setvmw
w
mygcomp_setvmForcePthreadsw
w
myInitInFortranw
w
NUOPC_CheckComponentMetadataCIMw
w
NUOPC_CheckComponentStatisticsw
w
NUOPC_CheckGridComponentMetadataw
w
NUOPC_CheckInternalClockw
w
NUOPC_CompHandleVerbosityExtrow
w
NUOPC_CompHandleVerbosityIntrow
w
NUOPC_DriverAddCplCompw
w
NUOPC_DriverGetw
w
NUOPC_DriverGetGridCompw
w
NUOPC_DriverIngestRunSequenceFFw
w
NUOPC_DriverPrintw
w
NUOPC_GridCompAttributeEgew
w
NUOPC_GridCompAttributeIngw
w
NUOPC_GridCompAttributeIngHCw
w
NUOPC_GridCompCheckSetClockw
w
NUOPC_GridCompDerivew
w
NUOPC_GridCompFilterPhaseMapw
w
NUOPC_GridCompGetw
w
NUOPC_GridCompSearchPhaseMapw
w
NUOPC_GridCompSearchPhaseMapByIndexw
w
NUOPC_GridCompSearchRevPhaseMapw
w
NUOPC_GridCompSetEntryPointw
w
NUOPC_GridCompSetIntEntryPointw
w
NUOPC_GridCompSpecializew
w
NUOPC_ModelBaseGetw
w
NUOPC_SetVMw
w
ocean_initw
w
prefixStringw
w
prefixStringw
w
prefixStringw
w
routine_Runw
w
routine_Runw
w
runw
w
run2w
w
RunTimestampImportStatew
w
SetRunSequencew
w
SetServicesw
w
TestGridCompNamedAliasw
w
TimestampExportw
w
TimestampImportStatew
w
user2_runw
w
user2_runw
w
user_comp_recreatew
w
user_comp_recreatew
w
user_finalw
w
user_finalw
w
user_finalw
w
user_finalw
w
user_finalw
w
user_finalw
w
user_finalw
w
user_finalw
w
user_finalw
w
user_finalw
w
user_finalw
w
user_finalw
w
user_finalw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_initw
w
user_runw
w
user_runw
w
user_runw
w
user_runw
w
user_runw
w
user_runw
w
user_runw
w
user_runw
w
user_runw
w
user_runw
w
user_runw
w
user_runw
w
user_runw
w
user_runw
w
user_runw
w
user_runw
w
userm1_initw
w
userm1_initw
w
userm1_initw
w
userm1_initw
w
userm1_initw
w
userm1_runw
w
userm1_runw
w
userm1_runw
w
userm1_runw
w
userm2_registerw
w
userm2_registerw
w
userm2_runw
w
userm2_runw
w
userm2_runw
w
userm2_runw
w
userm3_runw
w
x_comp_get_configw
w

Source Code

  recursive subroutine ESMF_GridCompGet(gridcomp, keywordEnforcer, &
    gridIsPresent, grid, gridList, meshIsPresent, mesh, meshList, &
    locstreamIsPresent, locstream, locstreamList, xgridIsPresent, &
    xgrid, xgridList, importStateIsPresent, importState, &
    exportStateIsPresent, exportState, hconfigIsPresent, hconfig, &
    configIsPresent, config, configFileIsPresent, configFile, &
    clockIsPresent, clock, localPet, petCount, contextflag, &
    currentMethod, currentPhase, comptype, vmIsPresent, vm, name, rc)
!
! !ARGUMENTS:
    type(ESMF_GridComp),           intent(in)            :: gridcomp
type(ESMF_KeywordEnforcer), optional:: keywordEnforcer ! must use keywords below
    logical,                       intent(out), optional :: gridIsPresent
    type(ESMF_Grid),               intent(out), optional :: grid
    type(ESMF_Grid), allocatable,  intent(out), optional :: gridList(:)
    logical,                       intent(out), optional :: meshIsPresent
    type(ESMF_Mesh),               intent(out), optional :: mesh
    type(ESMF_Mesh), allocatable,  intent(out), optional :: meshList(:)
    logical,                       intent(out), optional :: locstreamIsPresent
    type(ESMF_LocStream),          intent(out), optional :: locstream
    type(ESMF_LocStream), allocatable, intent(out), optional :: locstreamList(:)
    logical,                       intent(out), optional :: xgridIsPresent
    type(ESMF_XGrid),              intent(out), optional :: xgrid
    type(ESMF_XGrid), allocatable, intent(out), optional :: xgridList(:)
    logical,                       intent(out), optional :: importStateIsPresent
    type(ESMF_State),              intent(out), optional :: importState
    logical,                       intent(out), optional :: exportStateIsPresent
    type(ESMF_State),              intent(out), optional :: exportState
    logical,                       intent(out), optional :: hconfigIsPresent
    type(ESMF_HConfig),            intent(out), optional :: hconfig
    logical,                       intent(out), optional :: configIsPresent
    type(ESMF_Config),             intent(out), optional :: config
    logical,                       intent(out), optional :: configFileIsPresent
    character(len=*),              intent(out), optional :: configFile
    logical,                       intent(out), optional :: clockIsPresent
    type(ESMF_Clock),              intent(out), optional :: clock
    integer,                       intent(out), optional :: localPet
    integer,                       intent(out), optional :: petCount
    type(ESMF_Context_Flag),       intent(out), optional :: contextflag
    type(ESMF_Method_Flag),        intent(out), optional :: currentMethod
    integer,                       intent(out), optional :: currentPhase
    type(ESMF_CompType_Flag),      intent(out), optional :: comptype
    logical,                       intent(out), optional :: vmIsPresent
    type(ESMF_VM),                 intent(out), optional :: vm
    character(len=*),              intent(out), optional :: name
    integer,                       intent(out), optional :: rc
!
! !STATUS:
! \begin{itemize}
! \item\apiStatusCompatibleVersion{5.2.0r}
! \item\apiStatusModifiedSinceVersion{5.2.0r}
! \begin{description}
! \begin{sloppypar}
! \item[7.1.0r] Added arguments {\tt gridList}, {\tt meshIsPresent}, {\tt mesh},
!   {\tt meshList}, {\tt locstreamIsPresent}, {\tt locstream},
!   {\tt locstreamList}, {\tt xgridIsPresent}, {\tt xgrid}, and {\tt xgridList}.
!   These arguments add support for accessing references to multiple geom objects,
!   either of the same type, or different type, associated with the same
!   {\tt ESMF\_GridComp} object.
! \item[8.7.0] Added arguments {\tt hconfigIsPresent} and {\tt hconfig} to
!   simplify direct usage of {\tt ESMF\_HConfig} objects with Components.
! \end{sloppypar}
! \end{description}
! \end{itemize}
!
! !DESCRIPTION:
! Get information about an {\tt ESMF\_GridComp} object.
!
! The arguments are:
! \begin{description}
! \item[gridcomp]
!   The {\tt ESMF\_GridComp} object being queried.
! \item[{[gridIsPresent]}]
!   Set to {\tt .true.} if at least one {\tt ESMF\_Grid} object is
!   associated with the {\tt gridcomp} component.
!   Set to {\tt .false.} otherwise.
! \item[{[grid]}]
!   Return the {\tt ESMF\_Grid} object associated with the {\tt gridcomp}
!   component. If multiple {\tt ESMF\_Grid} objects are associated, return the
!   first in the list.
!   It is an error to query for {\tt grid} if no {\tt ESMF\_Grid} object is
!   associated with the {\tt gridcomp} component.
!   If unsure, query for {\tt gridIsPresent} first, or use the {\tt gridList}
!   variant.
! \item[{[gridList]}]
!   Return a list of all {\tt ESMF\_Grid} objects associated with the
!   {\tt gridcomp} component. The size of the returned {\tt gridList}
!   corresponds to the number of {\tt ESMF\_Grid} objects associated.
!   If no {\tt ESMF\_Grid} object is associated with the {\tt gridcomp}
!   component, the size of the returned {\tt gridList} is zero.
! \item[{[meshIsPresent]}]
!   Set to {\tt .true.} if at least one {\tt ESMF\_Mesh} object is
!   associated with the {\tt gridcomp} component.
!   Set to {\tt .false.} otherwise.
! \item[{[mesh]}]
!   Return the {\tt ESMF\_Mesh} object associated with the {\tt gridcomp}
!   component. If multiple {\tt ESMF\_Mesh} objects are associated, return the
!   first in the list.
!   It is an error to query for {\tt mesh} if no {\tt ESMF\_Mesh} object is
!   associated with the {\tt gridcomp} component.
!   If unsure, query for {\tt meshIsPresent} first, or use the {\tt meshList}
!   variant.
! \item[{[meshList]}]
!   Return a list of all {\tt ESMF\_Mesh} objects associated with the
!   {\tt gridcomp} component. The size of the returned {\tt meshList}
!   corresponds to the number of {\tt ESMF\_Mesh} objects associated.
!   If no {\tt ESMF\_Mesh} object is associated with the {\tt gridcomp}
!   component, the size of the returned {\tt meshList} is zero.
! \item[{[locstreamIsPresent]}]
!   Set to {\tt .true.} if at least one {\tt ESMF\_LocStream} object is
!   associated with the {\tt gridcomp} component.
!   Set to {\tt .false.} otherwise.
! \item[{[locstream]}]
! \begin{sloppypar}
!   Return the {\tt ESMF\_LocStream} object associated with the {\tt gridcomp}
!   component. If multiple {\tt ESMF\_LocStream} objects are associated, return
!   the first in the list.
!   It is an error to query for {\tt locstream} if no {\tt ESMF\_Grid} object is
!   associated with the {\tt gridcomp} component.
!   If unsure, query for {\tt locstreamIsPresent} first, or use the
!   {\tt locstreamList} variant.
! \end{sloppypar}
! \item[{[locstreamList]}]
!   Return a list of all {\tt ESMF\_LocStream} objects associated with the
!   {\tt gridcomp} component. The size of the returned {\tt locstreamList}
!   corresponds to the number of {\tt ESMF\_LocStream} objects associated.
!   If no {\tt ESMF\_LocStream} object is associated with the {\tt gridcomp}
!   component, the size of the returned {\tt locstreamList} is zero.
! \item[{[xgridIsPresent]}]
!   Set to {\tt .true.} if at least one {\tt ESMF\_XGrid} object is
!   associated with the {\tt gridcomp} component.
!   Set to {\tt .false.} otherwise.
! \item[{[xgrid]}]
!   Return the {\tt ESMF\_XGrid} object associated with the {\tt gridcomp}
!   component. If multiple {\tt ESMF\_XGrid} objects are associated, return the
!   first in the list.
!   It is an error to query for {\tt xgrid} if no {\tt ESMF\_XGrid} object is
!   associated with the {\tt gridcomp} component.
!   If unsure, query for {\tt xgridIsPresent} first, or use the {\tt xgridList}
!   variant.
! \item[{[xgridList]}]
!   Return a list of all {\tt ESMF\_XGrid} objects associated with the
!   {\tt gridcomp} component. The size of the returned {\tt xgridList}
!   corresponds to the number of {\tt ESMF\_XGrid} objects associated.
!   If no {\tt ESMF\_XGrid} object is associated with the {\tt gridcomp}
!   component, the size of the returned {\tt xgridList} is zero.
! \item[{[importStateIsPresent]}]
!   {\tt .true.} if {\tt importState} was set in GridComp object,
!   {\tt .false.} otherwise.
! \item[{[importState]}]
!   Return the associated import State.
!   It is an error to query for the import State if none is associated with
!   the GridComp. If unsure, get {\tt importStateIsPresent} first to determine
!   the status.
! \item[{[exportStateIsPresent]}]
!   {\tt .true.} if {\tt exportState} was set in GridComp object,
!   {\tt .false.} otherwise.
! \item[{[exportState]}]
!   Return the associated export State.
!   It is an error to query for the export State if none is associated with
!   the GridComp. If unsure, get {\tt exportStateIsPresent} first to determine
!   the status.
! \item[{[hconfigIsPresent]}]
!   {\tt .true.} if {\tt hconfig} is available in the GridComp object,
!   {\tt .false.} otherwise.
! \item[{[hconfig]}]
!   Return the associated HConfig object.
!   It is an error to query for the HConfig object if none is associated with
!   the GridComp. If unsure, get {\tt hconfigIsPresent} first to determine
!   the status.
! \item[{[configIsPresent]}]
!   {\tt .true.} if {\tt config} is available in the GridComp object,
!   {\tt .false.} otherwise.
! \item[{[config]}]
!   Return the associated Config object.
!   It is an error to query for the Config if none is associated with
!   the GridComp. If unsure, get {\tt configIsPresent} first to determine
!   the status.
! \item[{[configFileIsPresent]}]
!   {\tt .true.} if {\tt configFile} is available in the GridComp object,
!   {\tt .false.} otherwise.
! \item[{[configFile]}]
!   Return the associated configuration filename.
!   It is an error to query for the configuration filename if none is associated with
!   the GridComp. If unsure, get {\tt configFileIsPresent} first to determine
!   the status.
! \item[{[clockIsPresent]}]
!   {\tt .true.} if {\tt clock} was set in GridComp object,
!   {\tt .false.} otherwise.
! \item[{[clock]}]
!   Return the associated Clock.
!   It is an error to query for the Clock if none is associated with
!   the GridComp. If unsure, get {\tt clockIsPresent} first to determine
!   the status.
! \item[{[localPet]}]
!   Return the local PET id within the {\tt ESMF\_GridComp} object.
! \item[{[petCount]}]
!   Return the number of PETs in the the {\tt ESMF\_GridComp} object.
! \item[{[contextflag]}]
!   Return the {\tt ESMF\_Context\_Flag} for this {\tt ESMF\_GridComp}.
!   See section \ref{const:contextflag} for a complete list of valid flags.
! \item[{[currentMethod]}]
!   Return the current {\tt ESMF\_Method\_Flag} of the {\tt ESMF\_GridComp}
!   execution. See section \ref{const:method}  for a complete list of valid
!   options.
! \item[{[currentPhase]}]
!   Return the current {\tt phase} of the {\tt ESMF\_GridComp} execution.
! \item[{[comptype]}]
!   Return the Component type.
!   See section \ref{const:comptype} for a complete list of valid flags.
! \item[{[vmIsPresent]}]
!   {\tt .true.} if {\tt vm} was set in GridComp object,
!   {\tt .false.} otherwise.
! \item[{[vm]}]
!   Return the associated VM.
!   It is an error to query for the VM if none is associated with
!   the GridComp. If unsure, get {\tt vmIsPresent} first to determine
!   the status.
! \item[{[name]}]
!   Return the name of the {\tt ESMF\_GridComp}.
! \item[{[rc]}]
!   Return code; equals {\tt ESMF\_SUCCESS} if there are no errors.
! \end{description}
!
!EOP
!------------------------------------------------------------------------------
    integer               :: localrc      ! local return code
    type(ESMF_CompStatus) :: compStatus

    ! initialize return code; assume routine not implemented
    if (present(rc)) rc = ESMF_RC_NOT_IMPL
    localrc = ESMF_RC_NOT_IMPL

    ESMF_INIT_CHECK_DEEP(ESMF_GridCompGetInit,gridcomp,rc)

    ! call Comp method
    call ESMF_CompGet(gridcomp%compp, name=name, vm=vm, contextflag=contextflag,&
      grid=grid, gridList=gridList, mesh=mesh, meshList=meshList, &
      locstream=locstream, locstreamList=locstreamList, &
      xgrid=xgrid, xgridList=xgridList, &
      importState=importState, exportState=exportState, clock=clock,&
      configFile=configFile, config=config, hconfig=hconfig, &
      currentMethod=currentMethod, currentPhase=currentPhase, &
      localPet=localPet, petCount=petCount, &
      comptype=comptype, compStatus=compStatus, rc=localrc)
    if (ESMF_LogFoundError(localrc, &
      ESMF_ERR_PASSTHRU, &
      ESMF_CONTEXT, rcToReturn=rc)) return

    if (gridcomp%isNamedAlias .and. present(name)) then
      ! access NamedAlias name
      name = trim(gridcomp%name)
    endif

    ! call Comp method
    call ESMF_CompStatusGet(compStatus, &
      clockIsPresent = clockIsPresent, &
      hconfigIsPresent = hconfigIsPresent, &
      configIsPresent = configIsPresent, &
      configFileIsPresent = configFileIsPresent, &
      vmIsPresent = vmIsPresent, &
      isIsPresent = importStateIsPresent, &
      esIsPresent = exportStateIsPresent, &
      gridIsPresent = gridIsPresent, &
      meshIsPresent = meshIsPresent, &
      locstreamIsPresent = locstreamIsPresent, &
      xgridIsPresent = xgridIsPresent, &
      rc = localrc)
    if (ESMF_LogFoundError(localrc, &
      ESMF_ERR_PASSTHRU, &
      ESMF_CONTEXT, rcToReturn=rc)) return

    ! return successfully
    if (present(rc)) rc = ESMF_SUCCESS
  end subroutine ESMF_GridCompGet