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

Timestamp:

12/11/14 14:32:37 (9 years ago)

Author:

rlacroix

Message:

Add a new attribute type for durations and use it for the context's timestep.

Note that the "xios_time" type and the "xios_set_timestep" procedure have been removed from the Fortran interface. Instead, the "xios_duration" type and the "xios_get_context_attr"/"xios_set_context_attr" procedures should now be used to get/set the timestep.

File:

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

XIOS/trunk/src/test/test_xios_interface.f90

@@ -13 +13 @@
   INTEGER :: comm
   TYPE(xios_date)      :: start_date, time_origin
-  TYPE(xios_time)      :: dtime
+  TYPE(xios_duration)  :: dtime
   TYPE(xios_context) :: ctx_hdl
   INTEGER,PARAMETER :: ni_glo=10
@@ -131 +131 @@
 
   dtime%second=3600
-  CALL xios_set_timestep(dtime)
+  CALL xios_set_context_attr("atmosphere", timestep=dtime)
 
 !!! Recupration des valeurs des longitudes et de taille des domaines locaux (pour test de fonctionnalité)
@@ -213 +213 @@
 
   dtime%second=1800
-  CALL xios_set_timestep(dtime)
+  CALL xios_set_context_attr("surface", timestep=dtime)
 
 !!! Recupration des valeurs des longitudes et de taille des domaines locaux (pour test de fonctionnalité)