Changeset 532 for XIOS/trunk/src/test/test_xios_interface.f90

Timestamp:

12/10/14 14:27:09 (9 years ago)

Author:

rlacroix

Message:

Add a new attribute type for dates and use it for the context's start_date and time_origin.

The "xios_date" type should now be used to get/set date attributes through the Fortran interface. This avoids using strings to manipulate dates.

File:

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

XIOS/trunk/src/test/test_xios_interface.f90

@@ -12 +12 @@
   CHARACTER(len=*),PARAMETER :: id="client"
   INTEGER :: comm
+  TYPE(xios_date)      :: start_date, time_origin
   TYPE(xios_time)      :: dtime
   TYPE(xios_context) :: ctx_hdl
@@ -96 +97 @@
 
   CALL xios_set_context_attr("atmosphere",calendar_type="Gregorian")
-  CALL xios_set_context_attr("atmosphere",start_date="2000-01-01 00:00:00")
-  CALL xios_set_context_attr("atmosphere",time_origin="1999-01-01 15:00:00")
+  start_date = xios_date(2000, 01, 01, 00, 00, 00)
+  CALL xios_set_context_attr("atmosphere",start_date=start_date)
+  time_origin = xios_date(1999, 01, 01, 15, 00, 00)
+  CALL xios_set_context_attr("atmosphere",time_origin=time_origin)
 
   CALL xios_set_axis_attr("axis_atm",size=llm ,value=lval) ;
@@ -181 +184 @@
 
   CALL xios_set_context_attr("surface",calendar_type="Gregorian")
-  CALL xios_set_context_attr("surface",start_date="2000-01-01 00:00:00")
-  CALL xios_set_context_attr("surface",time_origin="1999-01-01 15:00:00")
+  start_date = xios_date(2000, 01, 01, 00, 00, 00)
+  CALL xios_set_context_attr("surface",start_date=start_date)
+  time_origin = xios_date(1999, 01, 01, 15, 00, 00)
+  CALL xios_set_context_attr("surface",time_origin=time_origin)
 
   CALL xios_set_axis_attr("axis_srf",size=llm ,value=lval) ;