Changeset 537 for XIOS/trunk/src/interface/fortran_attr/context_interface_attr.F90

Timestamp:

12/11/14 14:32:37 (10 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/interface/fortran_attr/context_interface_attr.F90 (modified) (3 diffs)

XIOS/trunk/src/interface/fortran_attr/context_interface_attr.F90

@@ -56 +56 @@
       USE IDATE
       INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
-      TYPE(xios_date), VALUE :: start_date
+      TYPE(txios(date)), VALUE :: start_date
     END SUBROUTINE cxios_set_context_start_date
     
@@ -77 +77 @@
       USE IDATE
       INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
-      TYPE(xios_date), VALUE :: time_origin
+      TYPE(txios(date)), VALUE :: time_origin
     END SUBROUTINE cxios_set_context_time_origin
     
@@ -94 +94 @@
     
     
-    SUBROUTINE cxios_set_context_timestep(context_hdl, timestep, timestep_size) BIND(C)
+    SUBROUTINE cxios_set_context_timestep(context_hdl, timestep) BIND(C)
       USE ISO_C_BINDING
+      USE IDATE
       INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
-      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timestep
-      INTEGER  (kind = C_INT)     , VALUE        :: timestep_size
+      TYPE(txios(duration)), VALUE :: timestep
     END SUBROUTINE cxios_set_context_timestep
     
-    SUBROUTINE cxios_get_context_timestep(context_hdl, timestep, timestep_size) BIND(C)
+    SUBROUTINE cxios_get_context_timestep(context_hdl, timestep) BIND(C)
       USE ISO_C_BINDING
+      USE IDATE
       INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl
-      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timestep
-      INTEGER  (kind = C_INT)     , VALUE        :: timestep_size
+      TYPE(txios(duration)) :: timestep
     END SUBROUTINE cxios_get_context_timestep