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


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