ESMF_TraceCplCompPhaseEnter Subroutine

private subroutine ESMF_TraceCplCompPhaseEnter(comp, rc)

Arguments

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

Calls

proc~~esmf_tracecplcompphaseenter~~CallsGraph proc~esmf_tracecplcompphaseenter ESMF_TraceCplCompPhaseEnter c_esmftrace_phase_enter c_esmftrace_phase_enter proc~esmf_tracecplcompphaseenter->c_esmftrace_phase_enter interface~esmf_tracegetcompid ESMF_TraceGetCompID proc~esmf_tracecplcompphaseenter->interface~esmf_tracegetcompid proc~esmf_cplcompget ESMF_CplCompGet proc~esmf_tracecplcompphaseenter->proc~esmf_cplcompget proc~esmf_logfounderror ESMF_LogFoundError proc~esmf_tracecplcompphaseenter->proc~esmf_logfounderror proc~esmf_tracemethodtoenum ESMF_TraceMethodToEnum proc~esmf_tracecplcompphaseenter->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_tracecplcompphaseenter~~CalledByGraph proc~esmf_tracecplcompphaseenter ESMF_TraceCplCompPhaseEnter interface~esmf_tracephaseenter ESMF_TracePhaseEnter interface~esmf_tracephaseenter->proc~esmf_tracecplcompphaseenter proc~ic_final~2 ic_final proc~ic_final~2->interface~esmf_tracephaseenter proc~ic_init~2 ic_init proc~ic_init~2->interface~esmf_tracephaseenter proc~ic_run~2 ic_run proc~ic_run~2->interface~esmf_tracephaseenter

Source Code

  subroutine ESMF_TraceCplCompPhaseEnter(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_enter(vmid, baseid, method_enum, phase, rc)
    if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, &
         ESMF_CONTEXT, rcToReturn=rc)) return

  end subroutine ESMF_TraceCplCompPhaseEnter