convert_ISO8601_to_esmf_time Function

public function convert_ISO8601_to_esmf_time(isostring, rc) result(time)

Arguments

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

Return Value type(ESMF_Time)


Calls

proc~~convert_iso8601_to_esmf_time~~CallsGraph proc~convert_iso8601_to_esmf_time convert_ISO8601_to_esmf_time ESMF_TimeSet ESMF_TimeSet proc~convert_iso8601_to_esmf_time->ESMF_TimeSet proc~get_day_datetime ISO8601DateTime%get_day_datetime proc~convert_iso8601_to_esmf_time->proc~get_day_datetime proc~get_hour_datetime ISO8601DateTime%get_hour_datetime proc~convert_iso8601_to_esmf_time->proc~get_hour_datetime proc~get_minute_datetime ISO8601DateTime%get_minute_datetime proc~convert_iso8601_to_esmf_time->proc~get_minute_datetime proc~get_month_datetime ISO8601DateTime%get_month_datetime proc~convert_iso8601_to_esmf_time->proc~get_month_datetime proc~get_second_datetime ISO8601DateTime%get_second_datetime proc~convert_iso8601_to_esmf_time->proc~get_second_datetime proc~get_year_datetime ISO8601DateTime%get_year_datetime proc~convert_iso8601_to_esmf_time->proc~get_year_datetime proc~mapl_return MAPL_Return proc~convert_iso8601_to_esmf_time->proc~mapl_return proc~mapl_verify MAPL_Verify proc~convert_iso8601_to_esmf_time->proc~mapl_verify proc~get_day ISO8601Date%get_day proc~get_day_datetime->proc~get_day proc~get_hour ISO8601Time%get_hour proc~get_hour_datetime->proc~get_hour proc~get_minute ISO8601Time%get_minute proc~get_minute_datetime->proc~get_minute proc~get_month ISO8601Date%get_month proc~get_month_datetime->proc~get_month proc~get_second ISO8601Time%get_second proc~get_second_datetime->proc~get_second proc~get_year ISO8601Date%get_year proc~get_year_datetime->proc~get_year 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 proc~mapl_verify->proc~mapl_throw_exception

Source Code

   function convert_ISO8601_to_esmf_time(isostring, rc) result(time)
      character(len=*), intent(in) :: isostring
      integer, optional, intent(out) :: rc
      type(ESMF_Time) :: time
      type(ISO8601DateTime) :: datetime
      integer :: status

      datetime = ISO8601DateTime(isostring, _RC)

      call ESMF_TimeSet(time,yy = datetime%get_year(), mm = datetime%get_month(), &
         dd = datetime%get_day(), h = datetime%get_hour(), m = datetime%get_minute(), &
         s= datetime%get_second(), _RC)

      _RETURN(_SUCCESS)

   end function convert_ISO8601_to_esmf_time