Changeset 538 for XIOS/trunk/src/interface/fortran_attr/field_interface_attr.F90

Timestamp:

12/11/14 16:07:42 (10 years ago)

Author:

rlacroix

Message:

Convert more attributes to use the new duration type:

• field: freq_op and freq_offset
• file: output_freq, sync_freq and split_freq.

Remember that you now have to use the "xios_duration" type instead of strings to get/set those attributes through the Fortran interface.

File:

• XIOS/trunk/src/interface/fortran_attr/field_interface_attr.F90 (modified) (2 diffs)

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

@@ -149 +149 @@
     
     
-    SUBROUTINE cxios_set_field_freq_offset(field_hdl, freq_offset, freq_offset_size) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
-      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_offset
-      INTEGER  (kind = C_INT)     , VALUE        :: freq_offset_size
+    SUBROUTINE cxios_set_field_freq_offset(field_hdl, freq_offset) BIND(C)
+      USE ISO_C_BINDING
+      USE IDATE
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+      TYPE(txios(duration)), VALUE :: freq_offset
     END SUBROUTINE cxios_set_field_freq_offset
     
-    SUBROUTINE cxios_get_field_freq_offset(field_hdl, freq_offset, freq_offset_size) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
-      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_offset
-      INTEGER  (kind = C_INT)     , VALUE        :: freq_offset_size
+    SUBROUTINE cxios_get_field_freq_offset(field_hdl, freq_offset) BIND(C)
+      USE ISO_C_BINDING
+      USE IDATE
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+      TYPE(txios(duration)) :: freq_offset
     END SUBROUTINE cxios_get_field_freq_offset
     
@@ -170 +170 @@
     
     
-    SUBROUTINE cxios_set_field_freq_op(field_hdl, freq_op, freq_op_size) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
-      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_op
-      INTEGER  (kind = C_INT)     , VALUE        :: freq_op_size
+    SUBROUTINE cxios_set_field_freq_op(field_hdl, freq_op) BIND(C)
+      USE ISO_C_BINDING
+      USE IDATE
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+      TYPE(txios(duration)), VALUE :: freq_op
     END SUBROUTINE cxios_set_field_freq_op
     
-    SUBROUTINE cxios_get_field_freq_op(field_hdl, freq_op, freq_op_size) BIND(C)
-      USE ISO_C_BINDING
-      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
-      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: freq_op
-      INTEGER  (kind = C_INT)     , VALUE        :: freq_op_size
+    SUBROUTINE cxios_get_field_freq_op(field_hdl, freq_op) BIND(C)
+      USE ISO_C_BINDING
+      USE IDATE
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+      TYPE(txios(duration)) :: freq_op
     END SUBROUTINE cxios_get_field_freq_op