Changeset 537 for XIOS/trunk/src/test/test_complete.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_complete.f90 (modified) (3 diffs)

XIOS/trunk/src/test/test_complete.f90

@@ -12 +12 @@
   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=100
@@ -122 +122 @@
 
   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é)
@@ -204 +204 @@
 
   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é)