Changeset 794 for XIOS/trunk/src/test/test_client.f90

Timestamp:

11/19/15 16:55:17 (8 years ago)

Author:

rlacroix

Message:

Fortran interface: Add functions to convert date and duration to string.

File:

• XIOS/trunk/src/test/test_client.f90 (modified) (3 diffs)

XIOS/trunk/src/test/test_client.f90

@@ -12 +12 @@
   INTEGER :: comm
   TYPE(xios_duration) :: dtime
+  CHARACTER(len=20) :: dtime_str
   TYPE(xios_date) :: date
+  CHARACTER(len=20) :: date_str
   CHARACTER(len=15) :: calendar_type
   TYPE(xios_context) :: ctx_hdl
@@ -98 +100 @@
   PRINT *, "--> year length = ", xios_get_year_length_in_seconds(date%year)
   PRINT *, "--> day length = ", xios_get_day_length_in_seconds()
-  PRINT *, "time_origin = ", date
+  CALL xios_date_convert_to_string(date, date_str)
+  PRINT *, "time_origin = ", date_str
   PRINT *, "xios_date_get_second_of_year(time_origin) = ", xios_date_get_second_of_year(date)
   PRINT *, "xios_date_get_day_of_year(time_origin) = ", xios_date_get_day_of_year(date)
@@ -106 +109 @@
   dtime%timestep = 1
   dtime = 0.5 * dtime
-  PRINT *, "duration = ", dtime
+  CALL xios_duration_convert_to_string(dtime, dtime_str)
+  PRINT *, "duration = ", dtime_str
   date = date + 3 * (dtime + dtime)
-  PRINT *, "date = time_origin + 3 * (duration + duration) = ", date
+  CALL xios_date_convert_to_string(date, date_str)
+  PRINT *, "date = time_origin + 3 * (duration + duration) = ", date_str
   PRINT *, "xios_date_convert_to_seconds(date) = ", xios_date_convert_to_seconds(date)
   PRINT *, "xios_date_convert_to_seconds(date - 2.5h) = ", xios_date_convert_to_seconds(date - 2.5 * xios_hour)