f_nuopc_modelgetexportstate Subroutine

subroutine f_nuopc_modelgetexportstate(gcomp, state, rc)

Uses

  • proc~~f_nuopc_modelgetexportstate~~UsesGraph proc~f_nuopc_modelgetexportstate f_nuopc_modelgetexportstate module~esmf ESMF proc~f_nuopc_modelgetexportstate->module~esmf module~nuopc NUOPC proc~f_nuopc_modelgetexportstate->module~nuopc module~nuopc_model NUOPC_Model proc~f_nuopc_modelgetexportstate->module~nuopc_model

Arguments

Type IntentOptional Attributes Name
type(ESMF_GridComp) :: gcomp
type(ESMF_State) :: state
integer, intent(out) :: rc

Calls

proc~~f_nuopc_modelgetexportstate~~CallsGraph proc~f_nuopc_modelgetexportstate f_nuopc_modelgetexportstate proc~esmf_logfounderror ESMF_LogFoundError proc~f_nuopc_modelgetexportstate->proc~esmf_logfounderror proc~nuopc_modelget NUOPC_ModelGet proc~f_nuopc_modelgetexportstate->proc~nuopc_modelget 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 proc~nuopc_modelget->proc~esmf_logfounderror interface~nuopc_compget NUOPC_CompGet proc~nuopc_modelget->interface~nuopc_compget proc~nuopc_modelbaseget NUOPC_ModelBaseGet proc~nuopc_modelget->proc~nuopc_modelbaseget proc~nuopc_cplcompget NUOPC_CplCompGet interface~nuopc_compget->proc~nuopc_cplcompget proc~nuopc_gridcompget NUOPC_GridCompGet interface~nuopc_compget->proc~nuopc_gridcompget c_esmc_loggeterrormsg c_esmc_loggeterrormsg proc~esmf_logrc2msg->c_esmc_loggeterrormsg c_esmc_vmwtime c_esmc_vmwtime proc~esmf_logwrite->c_esmc_vmwtime proc~esmf_logclose ESMF_LogClose proc~esmf_logwrite->proc~esmf_logclose proc~esmf_logflush ESMF_LogFlush proc~esmf_logwrite->proc~esmf_logflush proc~esmf_logopenfile ESMF_LogOpenFile proc~esmf_logwrite->proc~esmf_logopenfile proc~esmf_utiliounitflush ESMF_UtilIOUnitFlush proc~esmf_logwrite->proc~esmf_utiliounitflush proc~esmf_utilstring2array ESMF_UtilString2Array proc~esmf_logwrite->proc~esmf_utilstring2array proc~nuopc_modelbaseget->proc~esmf_logfounderror proc~nuopc_modelbaseget->interface~nuopc_compget interface~esmf_usercompgetinternalstate ESMF_UserCompGetInternalState proc~nuopc_modelbaseget->interface~esmf_usercompgetinternalstate proc~esmf_gridcompget ESMF_GridCompGet proc~nuopc_modelbaseget->proc~esmf_gridcompget proc~esmf_gridcompget->proc~esmf_logfounderror 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_logclose->proc~esmf_logflush proc~esmf_logflush->proc~esmf_utiliounitflush proc~esmf_utilarray2string ESMF_UtilArray2String proc~esmf_logflush->proc~esmf_utilarray2string proc~esmf_logopenfile->proc~esmf_utiliounitflush proc~esmf_utiliounitget ESMF_UtilIOUnitGet proc~esmf_logopenfile->proc~esmf_utiliounitget proc~nuopc_cplcompget->proc~esmf_logfounderror interface~nuopc_compattributeget NUOPC_CompAttributeGet proc~nuopc_cplcompget->interface~nuopc_compattributeget proc~esmf_cplcompget ESMF_CplCompGet proc~nuopc_cplcompget->proc~esmf_cplcompget proc~esmf_utilstring2int ESMF_UtilString2Int proc~nuopc_cplcompget->proc~esmf_utilstring2int proc~nuopc_gridcompget->proc~esmf_logfounderror proc~nuopc_gridcompget->proc~esmf_gridcompget proc~nuopc_gridcompget->interface~nuopc_compattributeget proc~nuopc_gridcompget->proc~esmf_utilstring2int

Source Code

subroutine f_nuopc_modelgetexportstate(gcomp, state, rc)
#undef  ESMF_METHOD
#define ESMF_METHOD "f_nuopc_modelgetexportstate"
  use ESMF
  use NUOPC
  use NUOPC_Model, only: NUOPC_ModelGet
  implicit none

  type(ESMF_GridComp)   :: gcomp  !in
  type(ESMF_State)      :: state  !out
  integer, intent(out)  :: rc     !out

  integer :: localrc

  ! Initialize return code; assume routine not implemented
  rc = ESMF_RC_NOT_IMPL

  call NUOPC_ModelGet(gcomp, exportState=state, rc=localrc)
  if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU,  &
    ESMF_CONTEXT, rcToReturn=rc)) return

  ! Return successfully
  rc = ESMF_SUCCESS
end subroutine f_nuopc_modelgetexportstate