checkPhaseEpilogue_CplListEstablished Subroutine

private recursive subroutine checkPhaseEpilogue_CplListEstablished(prefix, comp, importState, exportState, clock, rc)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: prefix
type(ESMF_CplComp) :: comp
type(ESMF_State) :: importState
type(ESMF_State) :: exportState
type(ESMF_Clock) :: clock
integer, intent(out) :: rc

Calls

proc~~checkphaseepilogue_cpllistestablished~~CallsGraph proc~checkphaseepilogue_cpllistestablished checkPhaseEpilogue_CplListEstablished interface~nuopc_checkcomponentattribute NUOPC_CheckComponentAttribute proc~checkphaseepilogue_cpllistestablished->interface~nuopc_checkcomponentattribute proc~esmf_logfounderror ESMF_LogFoundError proc~checkphaseepilogue_cpllistestablished->proc~esmf_logfounderror proc~nuopc_checkcplcomponentattribute NUOPC_CheckCplComponentAttribute interface~nuopc_checkcomponentattribute->proc~nuopc_checkcplcomponentattribute proc~nuopc_checkgridcomponentattribute NUOPC_CheckGridComponentAttribute interface~nuopc_checkcomponentattribute->proc~nuopc_checkgridcomponentattribute 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 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_checkcplcomponentattribute->proc~esmf_logfounderror interface~esmf_attributeget ESMF_AttributeGet proc~nuopc_checkcplcomponentattribute->interface~esmf_attributeget interface~esmf_attributegetattpack ESMF_AttributeGetAttPack proc~nuopc_checkcplcomponentattribute->interface~esmf_attributegetattpack proc~nuopc_compliancelogwrite NUOPC_ComplianceLogWrite proc~nuopc_checkcplcomponentattribute->proc~nuopc_compliancelogwrite proc~nuopc_checkgridcomponentattribute->proc~esmf_logfounderror proc~nuopc_checkgridcomponentattribute->interface~esmf_attributeget proc~nuopc_checkgridcomponentattribute->interface~esmf_attributegetattpack proc~nuopc_checkgridcomponentattribute->proc~nuopc_compliancelogwrite

Called by

proc~~checkphaseepilogue_cpllistestablished~~CalledByGraph proc~checkphaseepilogue_cpllistestablished checkPhaseEpilogue_CplListEstablished proc~dispatchphasechecks~3 dispatchPhaseChecks proc~dispatchphasechecks~3->proc~checkphaseepilogue_cpllistestablished proc~ic_init~4 ic_init proc~ic_init~4->proc~dispatchphasechecks~3

Source Code

    recursive subroutine checkPhaseEpilogue_CplListEstablished(prefix, comp, &
        importState, exportState, clock, rc)

        character(*), intent(in)           :: prefix
        type(ESMF_CplComp)                 :: comp
        type(ESMF_State)                   :: importState, exportState
        type(ESMF_Clock)                   :: clock
        integer, intent(out)               :: rc

        call NUOPC_CheckComponentAttribute(prefix, comp=comp, &
            attributeName="CplList", convention="NUOPC", purpose="Instance", &
            rc=rc)
        if (ESMF_LogFoundError(rc, &
            line=__LINE__, &
            file=FILENAME)) &
            return  ! bail out

        call NUOPC_CheckComponentAttribute(prefix, comp=comp, &
            attributeName="CplSetList", convention="NUOPC", &
            purpose="Instance", rc=rc)
        if (ESMF_LogFoundError(rc, &
            line=__LINE__, &
            file=FILENAME)) &
            return  ! bail out

      end subroutine checkPhaseEpilogue_CplListEstablished