Changeset 537 for XIOS/trunk/src/test/test_cs.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_cs.f90 (modified) (2 diffs)

XIOS/trunk/src/test/test_cs.f90

@@ -30 +30 @@
   INTEGER :: size
   INTEGER :: comm
-  TYPE(xios_time)      :: dtime
+  TYPE(xios_duration) :: dtime
   TYPE(xios_context) :: ctx_hdl
   INTEGER,PARAMETER :: ni_glo=100 
@@ -126 +126 @@
  
     dtime%second=3600
-    CALL xios_set_timestep(dtime) 
+    CALL xios_set_context_attr("test", timestep=dtime)
     
 !    ni=0 ; lonvalue(:)=0