source: XIOS/trunk/src/interface/fortran_attr/filegroup_interface_attr.f90 @ 527

Last change on this file since 527 was 517, checked in by rlacroix, 10 years ago

Add a new attribute to the file definition so that the output format can be controlled.

Currently the supported formats are "netcdf4" and "netcdf4_classic". The "format" attribute is optional. The "netcdf4" format will be used when no format is explicitly defined. Since "netcdf4" is the format which was previously used by XIOS, existing configuration files will not be affected by this change.

If "netcdf4_classic" is used, the output file(s) will be created using the classic NetCDF format. This format can be used with the attribute "type" set to "one_file" if the NetCDF4 library was compiled with Parallel NetCDF support (--enable-pnetcdf).
  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 13.7 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4
5MODULE filegroup_interface_attr
6  USE, INTRINSIC :: ISO_C_BINDING
7 
8  INTERFACE ! Do not call directly / interface FORTRAN 2003 <-> C99
9   
10   
11    SUBROUTINE cxios_set_filegroup_description(filegroup_hdl, description, description_size) BIND(C)
12      USE ISO_C_BINDING
13      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
14      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
15      INTEGER  (kind = C_INT)     , VALUE        :: description_size
16    END SUBROUTINE cxios_set_filegroup_description
17   
18    SUBROUTINE cxios_get_filegroup_description(filegroup_hdl, description, description_size) BIND(C)
19      USE ISO_C_BINDING
20      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
21      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: description
22      INTEGER  (kind = C_INT)     , VALUE        :: description_size
23    END SUBROUTINE cxios_get_filegroup_description
24   
25    FUNCTION cxios_is_defined_filegroup_description(filegroup_hdl ) BIND(C)
26      USE ISO_C_BINDING
27      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_description
28      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
29    END FUNCTION cxios_is_defined_filegroup_description
30   
31   
32    SUBROUTINE cxios_set_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
33      USE ISO_C_BINDING
34      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
35      LOGICAL (KIND=C_BOOL)      , VALUE :: enabled
36    END SUBROUTINE cxios_set_filegroup_enabled
37   
38    SUBROUTINE cxios_get_filegroup_enabled(filegroup_hdl, enabled) BIND(C)
39      USE ISO_C_BINDING
40      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
41      LOGICAL (KIND=C_BOOL)             :: enabled
42    END SUBROUTINE cxios_get_filegroup_enabled
43   
44    FUNCTION cxios_is_defined_filegroup_enabled(filegroup_hdl ) BIND(C)
45      USE ISO_C_BINDING
46      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_enabled
47      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
48    END FUNCTION cxios_is_defined_filegroup_enabled
49   
50   
51    SUBROUTINE cxios_set_filegroup_format(filegroup_hdl, format, format_size) BIND(C)
52      USE ISO_C_BINDING
53      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
54      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
55      INTEGER  (kind = C_INT)     , VALUE        :: format_size
56    END SUBROUTINE cxios_set_filegroup_format
57   
58    SUBROUTINE cxios_get_filegroup_format(filegroup_hdl, format, format_size) BIND(C)
59      USE ISO_C_BINDING
60      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
61      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: format
62      INTEGER  (kind = C_INT)     , VALUE        :: format_size
63    END SUBROUTINE cxios_get_filegroup_format
64   
65    FUNCTION cxios_is_defined_filegroup_format(filegroup_hdl ) BIND(C)
66      USE ISO_C_BINDING
67      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_format
68      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
69    END FUNCTION cxios_is_defined_filegroup_format
70   
71   
72    SUBROUTINE cxios_set_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C)
73      USE ISO_C_BINDING
74      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
75      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
76      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
77    END SUBROUTINE cxios_set_filegroup_group_ref
78   
79    SUBROUTINE cxios_get_filegroup_group_ref(filegroup_hdl, group_ref, group_ref_size) BIND(C)
80      USE ISO_C_BINDING
81      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
82      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: group_ref
83      INTEGER  (kind = C_INT)     , VALUE        :: group_ref_size
84    END SUBROUTINE cxios_get_filegroup_group_ref
85   
86    FUNCTION cxios_is_defined_filegroup_group_ref(filegroup_hdl ) BIND(C)
87      USE ISO_C_BINDING
88      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_group_ref
89      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
90    END FUNCTION cxios_is_defined_filegroup_group_ref
91   
92   
93    SUBROUTINE cxios_set_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C)
94      USE ISO_C_BINDING
95      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
96      INTEGER (KIND=C_INT)      , VALUE :: min_digits
97    END SUBROUTINE cxios_set_filegroup_min_digits
98   
99    SUBROUTINE cxios_get_filegroup_min_digits(filegroup_hdl, min_digits) BIND(C)
100      USE ISO_C_BINDING
101      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
102      INTEGER (KIND=C_INT)             :: min_digits
103    END SUBROUTINE cxios_get_filegroup_min_digits
104   
105    FUNCTION cxios_is_defined_filegroup_min_digits(filegroup_hdl ) BIND(C)
106      USE ISO_C_BINDING
107      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_min_digits
108      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
109    END FUNCTION cxios_is_defined_filegroup_min_digits
110   
111   
112    SUBROUTINE cxios_set_filegroup_name(filegroup_hdl, name, name_size) BIND(C)
113      USE ISO_C_BINDING
114      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
115      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
116      INTEGER  (kind = C_INT)     , VALUE        :: name_size
117    END SUBROUTINE cxios_set_filegroup_name
118   
119    SUBROUTINE cxios_get_filegroup_name(filegroup_hdl, name, name_size) BIND(C)
120      USE ISO_C_BINDING
121      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
122      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name
123      INTEGER  (kind = C_INT)     , VALUE        :: name_size
124    END SUBROUTINE cxios_get_filegroup_name
125   
126    FUNCTION cxios_is_defined_filegroup_name(filegroup_hdl ) BIND(C)
127      USE ISO_C_BINDING
128      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name
129      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
130    END FUNCTION cxios_is_defined_filegroup_name
131   
132   
133    SUBROUTINE cxios_set_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C)
134      USE ISO_C_BINDING
135      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
136      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
137      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
138    END SUBROUTINE cxios_set_filegroup_name_suffix
139   
140    SUBROUTINE cxios_get_filegroup_name_suffix(filegroup_hdl, name_suffix, name_suffix_size) BIND(C)
141      USE ISO_C_BINDING
142      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
143      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: name_suffix
144      INTEGER  (kind = C_INT)     , VALUE        :: name_suffix_size
145    END SUBROUTINE cxios_get_filegroup_name_suffix
146   
147    FUNCTION cxios_is_defined_filegroup_name_suffix(filegroup_hdl ) BIND(C)
148      USE ISO_C_BINDING
149      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_name_suffix
150      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
151    END FUNCTION cxios_is_defined_filegroup_name_suffix
152   
153   
154    SUBROUTINE cxios_set_filegroup_output_freq(filegroup_hdl, output_freq, output_freq_size) BIND(C)
155      USE ISO_C_BINDING
156      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
157      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
158      INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size
159    END SUBROUTINE cxios_set_filegroup_output_freq
160   
161    SUBROUTINE cxios_get_filegroup_output_freq(filegroup_hdl, output_freq, output_freq_size) BIND(C)
162      USE ISO_C_BINDING
163      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
164      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: output_freq
165      INTEGER  (kind = C_INT)     , VALUE        :: output_freq_size
166    END SUBROUTINE cxios_get_filegroup_output_freq
167   
168    FUNCTION cxios_is_defined_filegroup_output_freq(filegroup_hdl ) BIND(C)
169      USE ISO_C_BINDING
170      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_freq
171      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
172    END FUNCTION cxios_is_defined_filegroup_output_freq
173   
174   
175    SUBROUTINE cxios_set_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
176      USE ISO_C_BINDING
177      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
178      INTEGER (KIND=C_INT)      , VALUE :: output_level
179    END SUBROUTINE cxios_set_filegroup_output_level
180   
181    SUBROUTINE cxios_get_filegroup_output_level(filegroup_hdl, output_level) BIND(C)
182      USE ISO_C_BINDING
183      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
184      INTEGER (KIND=C_INT)             :: output_level
185    END SUBROUTINE cxios_get_filegroup_output_level
186   
187    FUNCTION cxios_is_defined_filegroup_output_level(filegroup_hdl ) BIND(C)
188      USE ISO_C_BINDING
189      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_output_level
190      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
191    END FUNCTION cxios_is_defined_filegroup_output_level
192   
193   
194    SUBROUTINE cxios_set_filegroup_par_access(filegroup_hdl, par_access, par_access_size) BIND(C)
195      USE ISO_C_BINDING
196      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
197      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
198      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
199    END SUBROUTINE cxios_set_filegroup_par_access
200   
201    SUBROUTINE cxios_get_filegroup_par_access(filegroup_hdl, par_access, par_access_size) BIND(C)
202      USE ISO_C_BINDING
203      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
204      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: par_access
205      INTEGER  (kind = C_INT)     , VALUE        :: par_access_size
206    END SUBROUTINE cxios_get_filegroup_par_access
207   
208    FUNCTION cxios_is_defined_filegroup_par_access(filegroup_hdl ) BIND(C)
209      USE ISO_C_BINDING
210      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_par_access
211      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
212    END FUNCTION cxios_is_defined_filegroup_par_access
213   
214   
215    SUBROUTINE cxios_set_filegroup_split_freq(filegroup_hdl, split_freq, split_freq_size) BIND(C)
216      USE ISO_C_BINDING
217      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
218      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq
219      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_size
220    END SUBROUTINE cxios_set_filegroup_split_freq
221   
222    SUBROUTINE cxios_get_filegroup_split_freq(filegroup_hdl, split_freq, split_freq_size) BIND(C)
223      USE ISO_C_BINDING
224      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
225      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq
226      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_size
227    END SUBROUTINE cxios_get_filegroup_split_freq
228   
229    FUNCTION cxios_is_defined_filegroup_split_freq(filegroup_hdl ) BIND(C)
230      USE ISO_C_BINDING
231      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq
232      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
233    END FUNCTION cxios_is_defined_filegroup_split_freq
234   
235   
236    SUBROUTINE cxios_set_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C)
237      USE ISO_C_BINDING
238      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
239      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
240      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
241    END SUBROUTINE cxios_set_filegroup_split_freq_format
242   
243    SUBROUTINE cxios_get_filegroup_split_freq_format(filegroup_hdl, split_freq_format, split_freq_format_size) BIND(C)
244      USE ISO_C_BINDING
245      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
246      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: split_freq_format
247      INTEGER  (kind = C_INT)     , VALUE        :: split_freq_format_size
248    END SUBROUTINE cxios_get_filegroup_split_freq_format
249   
250    FUNCTION cxios_is_defined_filegroup_split_freq_format(filegroup_hdl ) BIND(C)
251      USE ISO_C_BINDING
252      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_split_freq_format
253      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
254    END FUNCTION cxios_is_defined_filegroup_split_freq_format
255   
256   
257    SUBROUTINE cxios_set_filegroup_sync_freq(filegroup_hdl, sync_freq, sync_freq_size) BIND(C)
258      USE ISO_C_BINDING
259      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
260      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: sync_freq
261      INTEGER  (kind = C_INT)     , VALUE        :: sync_freq_size
262    END SUBROUTINE cxios_set_filegroup_sync_freq
263   
264    SUBROUTINE cxios_get_filegroup_sync_freq(filegroup_hdl, sync_freq, sync_freq_size) BIND(C)
265      USE ISO_C_BINDING
266      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
267      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: sync_freq
268      INTEGER  (kind = C_INT)     , VALUE        :: sync_freq_size
269    END SUBROUTINE cxios_get_filegroup_sync_freq
270   
271    FUNCTION cxios_is_defined_filegroup_sync_freq(filegroup_hdl ) BIND(C)
272      USE ISO_C_BINDING
273      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_sync_freq
274      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
275    END FUNCTION cxios_is_defined_filegroup_sync_freq
276   
277   
278    SUBROUTINE cxios_set_filegroup_type(filegroup_hdl, type, type_size) BIND(C)
279      USE ISO_C_BINDING
280      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
281      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
282      INTEGER  (kind = C_INT)     , VALUE        :: type_size
283    END SUBROUTINE cxios_set_filegroup_type
284   
285    SUBROUTINE cxios_get_filegroup_type(filegroup_hdl, type, type_size) BIND(C)
286      USE ISO_C_BINDING
287      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
288      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: type
289      INTEGER  (kind = C_INT)     , VALUE        :: type_size
290    END SUBROUTINE cxios_get_filegroup_type
291   
292    FUNCTION cxios_is_defined_filegroup_type(filegroup_hdl ) BIND(C)
293      USE ISO_C_BINDING
294      LOGICAL(kind=C_BOOL) :: cxios_is_defined_filegroup_type
295      INTEGER (kind = C_INTPTR_T), VALUE :: filegroup_hdl
296    END FUNCTION cxios_is_defined_filegroup_type
297   
298   
299    END INTERFACE
300 
301END MODULE filegroup_interface_attr
Note: See TracBrowser for help on using the repository browser.