ESMF_TraceMethodToEnum Function

private function ESMF_TraceMethodToEnum(method_flag)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Method_Flag), intent(in) :: method_flag

Return Value integer


Called by

proc~~esmf_tracemethodtoenum~~CalledByGraph proc~esmf_tracemethodtoenum ESMF_TraceMethodToEnum proc~esmf_tracecplcompphaseenter ESMF_TraceCplCompPhaseEnter proc~esmf_tracecplcompphaseenter->proc~esmf_tracemethodtoenum proc~esmf_tracecplcompphaseepilogueexit ESMF_TraceCplCompPhaseEpilogueExit proc~esmf_tracecplcompphaseepilogueexit->proc~esmf_tracemethodtoenum proc~esmf_tracecplcompphaseexit ESMF_TraceCplCompPhaseExit proc~esmf_tracecplcompphaseexit->proc~esmf_tracemethodtoenum proc~esmf_tracecplcompphaseprologueenter ESMF_TraceCplCompPhasePrologueEnter proc~esmf_tracecplcompphaseprologueenter->proc~esmf_tracemethodtoenum proc~esmf_tracegridcompphaseenter ESMF_TraceGridCompPhaseEnter proc~esmf_tracegridcompphaseenter->proc~esmf_tracemethodtoenum proc~esmf_tracegridcompphaseepilogueexit ESMF_TraceGridCompPhaseEpilogueExit proc~esmf_tracegridcompphaseepilogueexit->proc~esmf_tracemethodtoenum proc~esmf_tracegridcompphaseexit ESMF_TraceGridCompPhaseExit proc~esmf_tracegridcompphaseexit->proc~esmf_tracemethodtoenum proc~esmf_tracegridcompphaseprologueenter ESMF_TraceGridCompPhasePrologueEnter proc~esmf_tracegridcompphaseprologueenter->proc~esmf_tracemethodtoenum interface~esmf_tracephaseenter ESMF_TracePhaseEnter interface~esmf_tracephaseenter->proc~esmf_tracecplcompphaseenter interface~esmf_tracephaseenter->proc~esmf_tracegridcompphaseenter interface~esmf_tracephaseepilogueexit ESMF_TracePhaseEpilogueExit interface~esmf_tracephaseepilogueexit->proc~esmf_tracecplcompphaseepilogueexit interface~esmf_tracephaseepilogueexit->proc~esmf_tracegridcompphaseepilogueexit interface~esmf_tracephaseexit ESMF_TracePhaseExit interface~esmf_tracephaseexit->proc~esmf_tracecplcompphaseexit interface~esmf_tracephaseexit->proc~esmf_tracegridcompphaseexit interface~esmf_tracephaseprologueenter ESMF_TracePhasePrologueEnter interface~esmf_tracephaseprologueenter->proc~esmf_tracecplcompphaseprologueenter interface~esmf_tracephaseprologueenter->proc~esmf_tracegridcompphaseprologueenter proc~ic_final~2 ic_final proc~ic_final~2->interface~esmf_tracephaseenter proc~ic_final~2->interface~esmf_tracephaseepilogueexit proc~ic_final~2->interface~esmf_tracephaseexit proc~ic_final~2->interface~esmf_tracephaseprologueenter proc~ic_init~2 ic_init proc~ic_init~2->interface~esmf_tracephaseenter proc~ic_init~2->interface~esmf_tracephaseepilogueexit proc~ic_init~2->interface~esmf_tracephaseexit proc~ic_init~2->interface~esmf_tracephaseprologueenter proc~ic_run~2 ic_run proc~ic_run~2->interface~esmf_tracephaseenter proc~ic_run~2->interface~esmf_tracephaseepilogueexit proc~ic_run~2->interface~esmf_tracephaseexit proc~ic_run~2->interface~esmf_tracephaseprologueenter

Source Code

  function ESMF_TraceMethodToEnum(method_flag)
! !ARGUMENTS: 
    integer :: ESMF_TraceMethodToEnum
    type(ESMF_Method_Flag), intent(in) :: method_flag
!
!EOPI
!-------------------------------------------------------------------------------
    if (method_flag == ESMF_METHOD_INITIALIZE .or. &
         method_flag == ESMF_METHOD_INITIALIZEIC) then
       ESMF_TraceMethodToEnum = 0
    elseif (method_flag == ESMF_METHOD_RUN .or. &
         method_flag == ESMF_METHOD_RUNIC) then
       ESMF_TraceMethodToEnum = 1
    elseif (method_flag == ESMF_METHOD_FINALIZE .or. &
         method_flag ==  ESMF_METHOD_FINALIZEIC) then
       ESMF_TraceMethodToEnum = 2
    else
       ESMF_TraceMethodToEnum = -1  ! not supported
    endif

  end function ESMF_TraceMethodToEnum