ESMF_TraceCplCompPhaseEpilogueExit Subroutine

private subroutine ESMF_TraceCplCompPhaseEpilogueExit(comp, rc)

Arguments

Type IntentOptional Attributes Name
type(ESMF_CplComp), intent(in) :: comp
integer, intent(out), optional :: rc

Calls

proc~~esmf_tracecplcompphaseepilogueexit~~CallsGraph proc~esmf_tracecplcompphaseepilogueexit ESMF_TraceCplCompPhaseEpilogueExit c_esmftrace_phase_epilogue_exit c_esmftrace_phase_epilogue_exit proc~esmf_tracecplcompphaseepilogueexit->c_esmftrace_phase_epilogue_exit interface~esmf_tracegetcompid ESMF_TraceGetCompID proc~esmf_tracecplcompphaseepilogueexit->interface~esmf_tracegetcompid proc~esmf_cplcompget ESMF_CplCompGet proc~esmf_tracecplcompphaseepilogueexit->proc~esmf_cplcompget proc~esmf_logfounderror ESMF_LogFoundError proc~esmf_tracecplcompphaseepilogueexit->proc~esmf_logfounderror proc~esmf_tracemethodtoenum ESMF_TraceMethodToEnum proc~esmf_tracecplcompphaseepilogueexit->proc~esmf_tracemethodtoenum proc~esmf_tracegetcplcompid ESMF_TraceGetCplCompID interface~esmf_tracegetcompid->proc~esmf_tracegetcplcompid proc~esmf_tracegetgridcompid ESMF_TraceGetGridCompID interface~esmf_tracegetcompid->proc~esmf_tracegetgridcompid proc~esmf_cplcompget->proc~esmf_logfounderror proc~esmf_compget ESMF_CompGet proc~esmf_cplcompget->proc~esmf_compget proc~esmf_compstatusget ESMF_CompStatusGet proc~esmf_cplcompget->proc~esmf_compstatusget proc~esmf_cplcompgetinit ESMF_CplCompGetInit proc~esmf_cplcompget->proc~esmf_cplcompgetinit proc~esmf_imerr ESMF_IMErr proc~esmf_cplcompget->proc~esmf_imerr 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

proc~~esmf_tracecplcompphaseepilogueexit~~CalledByGraph proc~esmf_tracecplcompphaseepilogueexit ESMF_TraceCplCompPhaseEpilogueExit interface~esmf_tracephaseepilogueexit ESMF_TracePhaseEpilogueExit interface~esmf_tracephaseepilogueexit->proc~esmf_tracecplcompphaseepilogueexit proc~ic_final~2 ic_final proc~ic_final~2->interface~esmf_tracephaseepilogueexit proc~ic_init~2 ic_init proc~ic_init~2->interface~esmf_tracephaseepilogueexit proc~ic_run~2 ic_run proc~ic_run~2->interface~esmf_tracephaseepilogueexit

Source Code

  subroutine ESMF_TraceCplCompPhaseEpilogueExit(comp, rc)
! !ARGUMENTS: 
    type(ESMF_CplComp), intent(in) :: comp
    integer, intent(out), optional  :: rc
!
!EOPI
!-------------------------------------------------------------------------------
    ! locals
    integer :: vmid
    integer :: baseid
    type(ESMF_Method_Flag) :: method
    integer :: method_enum
    integer :: phase

    if (present(rc)) rc = ESMF_SUCCESS

    call ESMF_TraceGetCompID(comp, vmid, baseid, rc=rc)
    if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, &
         ESMF_CONTEXT, rcToReturn=rc)) return

    call ESMF_CplCompGet(comp, currentMethod=method, &
         currentPhase=phase, rc=rc)
    if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, &
         ESMF_CONTEXT, rcToReturn=rc)) return

    method_enum = ESMF_TraceMethodToEnum(method)

    call c_esmftrace_phase_epilogue_exit(vmid, baseid, method_enum, phase, rc)
    if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, &
         ESMF_CONTEXT, rcToReturn=rc)) return
  end subroutine ESMF_TraceCplCompPhaseEpilogueExit