checkPhaseEpilogue_CplListEstablished Subroutine

    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