ESMF_TraceGridCompPhasePrologueEnter Subroutine

private subroutine ESMF_TraceGridCompPhasePrologueEnter(comp, rc)

Arguments

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

Calls

proc~~esmf_tracegridcompphaseprologueenter~~CallsGraph proc~esmf_tracegridcompphaseprologueenter ESMF_TraceGridCompPhasePrologueEnter c_esmftrace_phase_prologue_enter c_esmftrace_phase_prologue_enter proc~esmf_tracegridcompphaseprologueenter->c_esmftrace_phase_prologue_enter interface~esmf_tracegetcompid ESMF_TraceGetCompID proc~esmf_tracegridcompphaseprologueenter->interface~esmf_tracegetcompid proc~esmf_gridcompget ESMF_GridCompGet proc~esmf_tracegridcompphaseprologueenter->proc~esmf_gridcompget proc~esmf_logfounderror ESMF_LogFoundError proc~esmf_tracegridcompphaseprologueenter->proc~esmf_logfounderror proc~esmf_tracemethodtoenum ESMF_TraceMethodToEnum proc~esmf_tracegridcompphaseprologueenter->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_gridcompget->proc~esmf_logfounderror proc~esmf_compget ESMF_CompGet proc~esmf_gridcompget->proc~esmf_compget proc~esmf_compstatusget ESMF_CompStatusGet proc~esmf_gridcompget->proc~esmf_compstatusget proc~esmf_gridcompgetinit ESMF_GridCompGetInit proc~esmf_gridcompget->proc~esmf_gridcompgetinit proc~esmf_imerr ESMF_IMErr proc~esmf_gridcompget->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_tracegridcompphaseprologueenter~~CalledByGraph proc~esmf_tracegridcompphaseprologueenter ESMF_TraceGridCompPhasePrologueEnter interface~esmf_tracephaseprologueenter ESMF_TracePhasePrologueEnter interface~esmf_tracephaseprologueenter->proc~esmf_tracegridcompphaseprologueenter proc~ic_final~2 ic_final proc~ic_final~2->interface~esmf_tracephaseprologueenter proc~ic_init~2 ic_init proc~ic_init~2->interface~esmf_tracephaseprologueenter proc~ic_run~2 ic_run proc~ic_run~2->interface~esmf_tracephaseprologueenter

Source Code

  subroutine ESMF_TraceGridCompPhasePrologueEnter(comp, rc)
! !ARGUMENTS: 
    type(ESMF_GridComp), 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_GridCompGet(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_prologue_enter(vmid, baseid, method_enum, phase, rc)
    if (ESMF_LogFoundError(rc, ESMF_ERR_PASSTHRU, &
         ESMF_CONTEXT, rcToReturn=rc)) return

  end subroutine ESMF_TraceGridCompPhasePrologueEnter