Changeset 528 for XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.f90

Timestamp:

12/03/14 17:54:33 (10 years ago)

Author:

rlacroix

Message:

Add the ability to append data to existing output file(s).

By default existing file(s) will still be overwritten. Set the new file attribute "append" to true if you wish to append data to existing NetCDF file(s).

Note that the append mode is currently not supported when file splitting is used and that the structure of the output file cannot be changed.

File:

• XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.f90 (modified) (1 diff)

XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.f90

@@ -9 +9 @@
     
     
+    SUBROUTINE cxios_set_filegroup_append(filegroup_hdl, append) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
+      LOGICAL (KIND=C_BOOL)      , VALUE :: append
+    END SUBROUTINE cxios_set_filegroup_append
+    
+    SUBROUTINE cxios_get_filegroup_append(filegroup_hdl, append) BIND(C)
+      USE ISO_C_BINDING
+      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
+      LOGICAL (KIND=C_BOOL)             :: append
+    END SUBROUTINE cxios_get_filegroup_append
+    
+    FUNCTION cxios_is_defined_filegroup_append(filegroup_hdl ) BIND(C)
+      USE ISO_C_BINDING
+      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_append
+      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
+    END FUNCTION cxios_is_defined_filegroup_append
+    
+    
     SUBROUTINE cxios_set_filegroup_description(filegroup_hdl, description, description_size) BIND(C)
       USE ISO_C_BINDING