test_set_ESMF_TimeInterval_integer Subroutine

public subroutine test_set_ESMF_TimeInterval_integer()

Arguments

None

Calls

proc~~test_set_esmf_timeinterval_integer~~CallsGraph proc~test_set_esmf_timeinterval_integer test_set_ESMF_TimeInterval_integer assertequal assertequal proc~test_set_esmf_timeinterval_integer->assertequal interface~convert_cf_time_to_datetime_duration convert_CF_Time_to_datetime_duration proc~test_set_esmf_timeinterval_integer->interface~convert_cf_time_to_datetime_duration

Source Code

   subroutine test_set_ESMF_TimeInterval_integer()
      integer :: duration = 1800, actual
      type(datetime_duration) :: dt_dur
      character(len=*), parameter :: units = 'seconds since 1999-12-31 23:29:59'
      type(ESMF_TimeInterval) :: interval
      integer :: status
      
      call convert_CF_Time_to_datetime_duration(duration, units, dt_dur, rc = status)
      @assertEqual(_SUCCESS, status, 'Conversion unsuccessful')

   end subroutine test_set_ESMF_TimeInterval_integer