f_nuopc_modelsetservices Subroutine

subroutine f_nuopc_modelsetservices(gcomp, rc)

Uses

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

Arguments

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

Calls

proc~~f_nuopc_modelsetservices~~CallsGraph proc~f_nuopc_modelsetservices f_nuopc_modelsetservices proc~esmf_logfounderror ESMF_LogFoundError proc~f_nuopc_modelsetservices->proc~esmf_logfounderror proc~setservices~15 SetServices proc~f_nuopc_modelsetservices->proc~setservices~15 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~setservices~15->proc~esmf_logfounderror interface~nuopc_compattributeset NUOPC_CompAttributeSet proc~setservices~15->interface~nuopc_compattributeset interface~nuopc_compderive NUOPC_CompDerive proc~setservices~15->interface~nuopc_compderive interface~nuopc_compget NUOPC_CompGet proc~setservices~15->interface~nuopc_compget interface~nuopc_compspecialize NUOPC_CompSpecialize proc~setservices~15->interface~nuopc_compspecialize proc~nuopc_cplcompattributeseti NUOPC_CplCompAttributeSetI interface~nuopc_compattributeset->proc~nuopc_cplcompattributeseti proc~nuopc_cplcompattributesets NUOPC_CplCompAttributeSetS interface~nuopc_compattributeset->proc~nuopc_cplcompattributesets proc~nuopc_cplcompattributesetsl NUOPC_CplCompAttributeSetSL interface~nuopc_compattributeset->proc~nuopc_cplcompattributesetsl proc~nuopc_gridcompattributeseti NUOPC_GridCompAttributeSetI interface~nuopc_compattributeset->proc~nuopc_gridcompattributeseti proc~nuopc_gridcompattributesets NUOPC_GridCompAttributeSetS interface~nuopc_compattributeset->proc~nuopc_gridcompattributesets proc~nuopc_gridcompattributesetsl NUOPC_GridCompAttributeSetSL interface~nuopc_compattributeset->proc~nuopc_gridcompattributesetsl proc~nuopc_cplcompderive NUOPC_CplCompDerive interface~nuopc_compderive->proc~nuopc_cplcompderive proc~nuopc_gridcompderive NUOPC_GridCompDerive interface~nuopc_compderive->proc~nuopc_gridcompderive proc~nuopc_cplcompget NUOPC_CplCompGet interface~nuopc_compget->proc~nuopc_cplcompget proc~nuopc_gridcompget NUOPC_GridCompGet interface~nuopc_compget->proc~nuopc_gridcompget proc~nuopc_cplcompspecialize NUOPC_CplCompSpecialize interface~nuopc_compspecialize->proc~nuopc_cplcompspecialize proc~nuopc_gridcompspecialize NUOPC_GridCompSpecialize interface~nuopc_compspecialize->proc~nuopc_gridcompspecialize 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

Source Code

subroutine f_nuopc_modelsetservices(gcomp, rc)
#undef  ESMF_METHOD
#define ESMF_METHOD "f_nuopc_modelsetservices"
  use ESMF
  use NUOPC
  use NUOPC_Model, only: SetServices
  implicit none

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

  integer :: localrc

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

  call SetServices(gcomp, rc=localrc)
  if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU,  &
    ESMF_CONTEXT, rcToReturn=rc)) return

  ! Return successfully
  rc = ESMF_SUCCESS
end subroutine f_nuopc_modelsetservices