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

Timestamp:

08/25/15 16:52:45 (9 years ago)

Author:

rlacroix

Message:

Add support for indexed output.

If the new field attribute "indexed_output" is set to true and a mask is defined (either at grid, domain or axis level), the indexed data will be outputed instead of the full data with missing values.

See ​http://cfconventions.org/Data/cf-conventions/cf-conventions-1.5/build/cf-conventions.html#compression-by-gathering for more information.

File:

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

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

@@ -231 +231 @@
 
 
+    SUBROUTINE cxios_set_field_indexed_output(field_hdl, indexed_output) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+      LOGICAL (KIND=C_BOOL)      , VALUE :: indexed_output
+    END SUBROUTINE cxios_set_field_indexed_output
+
+    SUBROUTINE cxios_get_field_indexed_output(field_hdl, indexed_output) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+      LOGICAL (KIND=C_BOOL)             :: indexed_output
+    END SUBROUTINE cxios_get_field_indexed_output
+
+    FUNCTION cxios_is_defined_field_indexed_output(field_hdl) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_field_indexed_output
+      INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl
+    END FUNCTION cxios_is_defined_field_indexed_output
+
+
     SUBROUTINE cxios_set_field_level(field_hdl, level) BIND(C)
       USE ISO_C_BINDING