to_esmf_state_intent Function

public function to_esmf_state_intent(str_state_intent, rc) result(state_intent)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: str_state_intent
integer, intent(out), optional :: rc

Return Value type(ESMF_StateIntent_Flag)


Calls

proc~~to_esmf_state_intent~~CallsGraph proc~to_esmf_state_intent to_esmf_state_intent interface~mapl_assert MAPL_Assert proc~to_esmf_state_intent->interface~mapl_assert proc~mapl_return MAPL_Return proc~to_esmf_state_intent->proc~mapl_return at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception

Source Code

   function to_esmf_state_intent(str_state_intent, rc) result(state_intent)
      type(ESMF_StateIntent_Flag) :: state_intent
      character(*), intent(in) :: str_state_intent
      integer, optional, intent(out) :: rc

      select case (str_state_intent)
      case ('import')
         state_intent = ESMF_STATEINTENT_IMPORT
      case ('export')
         state_intent = ESMF_STATEINTENT_EXPORT
      case ('internal')
         state_intent = ESMF_STATEINTENT_INTERNAL
      case default
         state_intent = ESMF_STATEINTENT_INVALID
         _FAIL('invalid state intent: ' // str_state_intent)
      end select

      _RETURN(_SUCCESS)
   end function to_esmf_state_intent