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

XIOS/trunk/src/test/test_unstruct_complete.f90

@@ -11 +11 @@
   CHARACTER(len=*),PARAMETER :: id="client"
   INTEGER :: comm
-  TYPE(xios_time)      :: dtime
+  TYPE(xios_duration) :: dtime
   TYPE(xios_context) :: ctx_hdl
   INTEGER, PARAMETER :: nlon=60 
@@ -209 +209 @@
  
   dtime%second=3600
-  CALL xios_set_timestep(dtime) 
+  CALL xios_set_context_attr("surface", timestep=dtime)
   CALL xios_close_context_definition()