get_default_phase_name Function

public function get_default_phase_name(method_flag, use_name) result(phase_name)

Uses

  • proc~~get_default_phase_name~~UsesGraph proc~get_default_phase_name get_default_phase_name ESMF ESMF proc~get_default_phase_name->ESMF

Arguments

Type IntentOptional Attributes Name
type(ESMF_Method_Flag), intent(in) :: method_flag
character(len=*), intent(in), optional :: use_name

Return Value character(len=:), allocatable


Source Code

   function get_default_phase_name(method_flag, use_name) result(phase_name)
      use :: esmf, only: operator(==)
      character(:), allocatable :: phase_name
      type(ESMF_Method_Flag), intent(in) :: method_flag
      character(*), optional, intent(in) :: use_name

      if (present(use_name)) then
         phase_name = use_name
         return
      end if

      if (method_flag == ESMF_METHOD_INITIALIZE) then
         phase_name = 'GENERIC::INIT_USER'
      elseif (method_flag == ESMF_METHOD_RUN) then
         phase_name = 'GENERIC::RUN_USER'
      elseif (method_flag == ESMF_METHOD_FINALIZE) then
         phase_name = 'GENERIC::FINALIZE_USER'
      else
         phase_name = '<unknown>'
      end if
   end function get_default_phase_name