test_set_ESMF_TimeInterval_real Subroutine

public subroutine test_set_ESMF_TimeInterval_real()

Arguments

None

Calls

proc~~test_set_esmf_timeinterval_real~~CallsGraph proc~test_set_esmf_timeinterval_real test_set_ESMF_TimeInterval_real assertequal assertequal proc~test_set_esmf_timeinterval_real->assertequal interface~convert_cf_time_to_datetime_duration convert_CF_Time_to_datetime_duration proc~test_set_esmf_timeinterval_real->interface~convert_cf_time_to_datetime_duration

Source Code

   subroutine test_set_ESMF_TimeInterval_real()
      real(R64) :: duration = 1800.0, 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_real