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

Timestamp:

09/29/15 14:17:42 (9 years ago)

Author:

rlacroix

Message:

Support creating the timeseries automatically.

Fields which should be outputted as timeseries must have the ts_enabled attribute set to true.

Files have a new attribute timeseries which must be one of:

• none: no timeseries are outputted, only the regular file (default behavior when the attribute is ommited).
• only: only the timeseries are outputted, the regular file is not created.
• both: both the timeseries and the regular files are outputted.
• exclusive: the timeseries are outputted and a regular file is created with only the fields which were not marked for output as a timeserie (if any).

The name of the files created for the timeseries is composed of a prefix followed by the name of the variable. The file attribute ts_prefix can be used to control the prefix used (by default, the name of the regular file is used).

All the attributes of the regular file are inherited by the files created for the timeseries. The field attribute ts_split_freq can be used to configure the splitting for each timeseries (by default, the splitting frequency of the regular file is used).

File:

• XIOS/trunk/src/interface/fortran_attr/field_interface_attr.F90 (modified) (1 diff)

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

@@ -410 +410 @@
 
 
+    SUBROUTINE cxios_set_field_ts_enabled(field_hdl, ts_enabled) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+      LOGICAL (KIND=C_BOOL)      , VALUE :: ts_enabled
+    END SUBROUTINE cxios_set_field_ts_enabled
+
+    SUBROUTINE cxios_get_field_ts_enabled(field_hdl, ts_enabled) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+      LOGICAL (KIND=C_BOOL)             :: ts_enabled
+    END SUBROUTINE cxios_get_field_ts_enabled
+
+    FUNCTION cxios_is_defined_field_ts_enabled(field_hdl) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_ts_enabled
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_ts_enabled
+
+
+    SUBROUTINE cxios_set_field_ts_split_freq(field_hdl, ts_split_freq) BIND(C)
+      USE ISO_C_BINDING
+      USE IDURATION
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+      TYPE(txios(duration)), VALUE :: ts_split_freq
+    END SUBROUTINE cxios_set_field_ts_split_freq
+
+    SUBROUTINE cxios_get_field_ts_split_freq(field_hdl, ts_split_freq) BIND(C)
+      USE ISO_C_BINDING
+      USE IDURATION
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+      TYPE(txios(duration)) :: ts_split_freq
+    END SUBROUTINE cxios_get_field_ts_split_freq
+
+    FUNCTION cxios_is_defined_field_ts_split_freq(field_hdl) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_ts_split_freq
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_ts_split_freq
+
+
     SUBROUTINE cxios_set_field_unit(field_hdl, unit, unit_size) BIND(C)
       USE ISO_C_BINDING