Changeset 711 for XIOS/trunk/src/interface/fortran_attr/file_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/file_interface_attr.F90 (modified) (1 diff)

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

@@ -336 +336 @@
 
 
+    SUBROUTINE cxios_set_file_timeseries(file_hdl, timeseries, timeseries_size) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timeseries
+      INTEGER  (kind = C_INT)     , VALUE        :: timeseries_size
+    END SUBROUTINE cxios_set_file_timeseries
+
+    SUBROUTINE cxios_get_file_timeseries(file_hdl, timeseries, timeseries_size) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: timeseries
+      INTEGER  (kind = C_INT)     , VALUE        :: timeseries_size
+    END SUBROUTINE cxios_get_file_timeseries
+
+    FUNCTION cxios_is_defined_file_timeseries(file_hdl) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_timeseries
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+    END FUNCTION cxios_is_defined_file_timeseries
+
+
+    SUBROUTINE cxios_set_file_ts_prefix(file_hdl, ts_prefix, ts_prefix_size) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: ts_prefix
+      INTEGER  (kind = C_INT)     , VALUE        :: ts_prefix_size
+    END SUBROUTINE cxios_set_file_ts_prefix
+
+    SUBROUTINE cxios_get_file_ts_prefix(file_hdl, ts_prefix, ts_prefix_size) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: ts_prefix
+      INTEGER  (kind = C_INT)     , VALUE        :: ts_prefix_size
+    END SUBROUTINE cxios_get_file_ts_prefix
+
+    FUNCTION cxios_is_defined_file_ts_prefix(file_hdl) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_file_ts_prefix
+      INTEGER (kind = C_INTPTR_T), VALUE :: file_hdl
+    END FUNCTION cxios_is_defined_file_ts_prefix
+
+
     SUBROUTINE cxios_set_file_type(file_hdl, type, type_size) BIND(C)
       USE ISO_C_BINDING