source: XIOS/trunk/src/interface/fortran_attr/ifilegroup_attr.F90 @ 711

Last change on this file since 711 was 711, checked in by rlacroix, 9 years ago

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).
  • 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: 28.5 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifilegroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifile
9  USE filegroup_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_filegroup_attr)  &
14    ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits  &
15    , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
16    , sync_freq, time_counter, timeseries, ts_prefix, type )
17
18    IMPLICIT NONE
19      TYPE(txios(filegroup))  :: filegroup_hdl
20      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
21      LOGICAL  , OPTIONAL, INTENT(IN) :: append
22      LOGICAL (KIND=C_BOOL) :: append_tmp
23      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
25      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
26      LOGICAL (KIND=C_BOOL) :: enabled_tmp
27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
29      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
33      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
34      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
36      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
38      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
42      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
43
44      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
45      CALL xios(set_filegroup_attr_hdl_)   &
46      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
47      , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
48      , sync_freq, time_counter, timeseries, ts_prefix, type )
49
50  END SUBROUTINE xios(set_filegroup_attr)
51
52  SUBROUTINE xios(set_filegroup_attr_hdl)  &
53    ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
54    , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
55    , sync_freq, time_counter, timeseries, ts_prefix, type )
56
57    IMPLICIT NONE
58      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
59      LOGICAL  , OPTIONAL, INTENT(IN) :: append
60      LOGICAL (KIND=C_BOOL) :: append_tmp
61      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
62      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
63      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
64      LOGICAL (KIND=C_BOOL) :: enabled_tmp
65      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
66      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
67      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
68      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
69      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
70      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
71      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
72      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
73      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
74      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
75      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
76      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
77      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
79      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
80      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
81
82      CALL xios(set_filegroup_attr_hdl_)  &
83      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
84      , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
85      , sync_freq, time_counter, timeseries, ts_prefix, type )
86
87  END SUBROUTINE xios(set_filegroup_attr_hdl)
88
89  SUBROUTINE xios(set_filegroup_attr_hdl_)   &
90    ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_  &
91    , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_  &
92    , sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ )
93
94    IMPLICIT NONE
95      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
96      LOGICAL  , OPTIONAL, INTENT(IN) :: append_
97      LOGICAL (KIND=C_BOOL) :: append__tmp
98      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
99      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
100      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
101      LOGICAL (KIND=C_BOOL) :: enabled__tmp
102      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_
103      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
104      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits_
105      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
106      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
108      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq_
109      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_
110      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
111      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq_
112      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_
113      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq_
114      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_
115      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_
116      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_
117      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
118
119      IF (PRESENT(append_)) THEN
120        append__tmp = append_
121        CALL cxios_set_filegroup_append(filegroup_hdl%daddr, append__tmp)
122      ENDIF
123
124      IF (PRESENT(compression_level_)) THEN
125        CALL cxios_set_filegroup_compression_level(filegroup_hdl%daddr, compression_level_)
126      ENDIF
127
128      IF (PRESENT(description_)) THEN
129        CALL cxios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_))
130      ENDIF
131
132      IF (PRESENT(enabled_)) THEN
133        enabled__tmp = enabled_
134        CALL cxios_set_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp)
135      ENDIF
136
137      IF (PRESENT(format_)) THEN
138        CALL cxios_set_filegroup_format(filegroup_hdl%daddr, format_, len(format_))
139      ENDIF
140
141      IF (PRESENT(group_ref_)) THEN
142        CALL cxios_set_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_))
143      ENDIF
144
145      IF (PRESENT(min_digits_)) THEN
146        CALL cxios_set_filegroup_min_digits(filegroup_hdl%daddr, min_digits_)
147      ENDIF
148
149      IF (PRESENT(mode_)) THEN
150        CALL cxios_set_filegroup_mode(filegroup_hdl%daddr, mode_, len(mode_))
151      ENDIF
152
153      IF (PRESENT(name_)) THEN
154        CALL cxios_set_filegroup_name(filegroup_hdl%daddr, name_, len(name_))
155      ENDIF
156
157      IF (PRESENT(name_suffix_)) THEN
158        CALL cxios_set_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
159      ENDIF
160
161      IF (PRESENT(output_freq_)) THEN
162        CALL cxios_set_filegroup_output_freq(filegroup_hdl%daddr, output_freq_)
163      ENDIF
164
165      IF (PRESENT(output_level_)) THEN
166        CALL cxios_set_filegroup_output_level(filegroup_hdl%daddr, output_level_)
167      ENDIF
168
169      IF (PRESENT(par_access_)) THEN
170        CALL cxios_set_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_))
171      ENDIF
172
173      IF (PRESENT(split_freq_)) THEN
174        CALL cxios_set_filegroup_split_freq(filegroup_hdl%daddr, split_freq_)
175      ENDIF
176
177      IF (PRESENT(split_freq_format_)) THEN
178        CALL cxios_set_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_))
179      ENDIF
180
181      IF (PRESENT(sync_freq_)) THEN
182        CALL cxios_set_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_)
183      ENDIF
184
185      IF (PRESENT(time_counter_)) THEN
186        CALL cxios_set_filegroup_time_counter(filegroup_hdl%daddr, time_counter_, len(time_counter_))
187      ENDIF
188
189      IF (PRESENT(timeseries_)) THEN
190        CALL cxios_set_filegroup_timeseries(filegroup_hdl%daddr, timeseries_, len(timeseries_))
191      ENDIF
192
193      IF (PRESENT(ts_prefix_)) THEN
194        CALL cxios_set_filegroup_ts_prefix(filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_))
195      ENDIF
196
197      IF (PRESENT(type_)) THEN
198        CALL cxios_set_filegroup_type(filegroup_hdl%daddr, type_, len(type_))
199      ENDIF
200
201  END SUBROUTINE xios(set_filegroup_attr_hdl_)
202
203  SUBROUTINE xios(get_filegroup_attr)  &
204    ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits  &
205    , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
206    , sync_freq, time_counter, timeseries, ts_prefix, type )
207
208    IMPLICIT NONE
209      TYPE(txios(filegroup))  :: filegroup_hdl
210      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
211      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
212      LOGICAL (KIND=C_BOOL) :: append_tmp
213      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
214      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
215      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
216      LOGICAL (KIND=C_BOOL) :: enabled_tmp
217      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
218      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
219      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
220      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
221      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
222      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
223      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
224      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
225      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
226      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
227      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
228      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
229      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
230      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
231      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
232      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
233
234      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
235      CALL xios(get_filegroup_attr_hdl_)   &
236      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
237      , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
238      , sync_freq, time_counter, timeseries, ts_prefix, type )
239
240  END SUBROUTINE xios(get_filegroup_attr)
241
242  SUBROUTINE xios(get_filegroup_attr_hdl)  &
243    ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
244    , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
245    , sync_freq, time_counter, timeseries, ts_prefix, type )
246
247    IMPLICIT NONE
248      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
249      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
250      LOGICAL (KIND=C_BOOL) :: append_tmp
251      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
252      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
253      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
254      LOGICAL (KIND=C_BOOL) :: enabled_tmp
255      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
256      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
257      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
258      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
259      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
260      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
261      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
262      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
263      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
264      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
265      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
266      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
267      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
268      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
269      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
270      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
271
272      CALL xios(get_filegroup_attr_hdl_)  &
273      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
274      , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
275      , sync_freq, time_counter, timeseries, ts_prefix, type )
276
277  END SUBROUTINE xios(get_filegroup_attr_hdl)
278
279  SUBROUTINE xios(get_filegroup_attr_hdl_)   &
280    ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_  &
281    , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_  &
282    , sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ )
283
284    IMPLICIT NONE
285      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
286      LOGICAL  , OPTIONAL, INTENT(OUT) :: append_
287      LOGICAL (KIND=C_BOOL) :: append__tmp
288      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
289      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
290      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
291      LOGICAL (KIND=C_BOOL) :: enabled__tmp
292      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_
293      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
294      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits_
295      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
296      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
297      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
298      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq_
299      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_
300      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
301      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq_
302      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
303      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq_
304      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_
305      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_
306      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_
307      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
308
309      IF (PRESENT(append_)) THEN
310        CALL cxios_get_filegroup_append(filegroup_hdl%daddr, append__tmp)
311        append_ = append__tmp
312      ENDIF
313
314      IF (PRESENT(compression_level_)) THEN
315        CALL cxios_get_filegroup_compression_level(filegroup_hdl%daddr, compression_level_)
316      ENDIF
317
318      IF (PRESENT(description_)) THEN
319        CALL cxios_get_filegroup_description(filegroup_hdl%daddr, description_, len(description_))
320      ENDIF
321
322      IF (PRESENT(enabled_)) THEN
323        CALL cxios_get_filegroup_enabled(filegroup_hdl%daddr, enabled__tmp)
324        enabled_ = enabled__tmp
325      ENDIF
326
327      IF (PRESENT(format_)) THEN
328        CALL cxios_get_filegroup_format(filegroup_hdl%daddr, format_, len(format_))
329      ENDIF
330
331      IF (PRESENT(group_ref_)) THEN
332        CALL cxios_get_filegroup_group_ref(filegroup_hdl%daddr, group_ref_, len(group_ref_))
333      ENDIF
334
335      IF (PRESENT(min_digits_)) THEN
336        CALL cxios_get_filegroup_min_digits(filegroup_hdl%daddr, min_digits_)
337      ENDIF
338
339      IF (PRESENT(mode_)) THEN
340        CALL cxios_get_filegroup_mode(filegroup_hdl%daddr, mode_, len(mode_))
341      ENDIF
342
343      IF (PRESENT(name_)) THEN
344        CALL cxios_get_filegroup_name(filegroup_hdl%daddr, name_, len(name_))
345      ENDIF
346
347      IF (PRESENT(name_suffix_)) THEN
348        CALL cxios_get_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_))
349      ENDIF
350
351      IF (PRESENT(output_freq_)) THEN
352        CALL cxios_get_filegroup_output_freq(filegroup_hdl%daddr, output_freq_)
353      ENDIF
354
355      IF (PRESENT(output_level_)) THEN
356        CALL cxios_get_filegroup_output_level(filegroup_hdl%daddr, output_level_)
357      ENDIF
358
359      IF (PRESENT(par_access_)) THEN
360        CALL cxios_get_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_))
361      ENDIF
362
363      IF (PRESENT(split_freq_)) THEN
364        CALL cxios_get_filegroup_split_freq(filegroup_hdl%daddr, split_freq_)
365      ENDIF
366
367      IF (PRESENT(split_freq_format_)) THEN
368        CALL cxios_get_filegroup_split_freq_format(filegroup_hdl%daddr, split_freq_format_, len(split_freq_format_))
369      ENDIF
370
371      IF (PRESENT(sync_freq_)) THEN
372        CALL cxios_get_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_)
373      ENDIF
374
375      IF (PRESENT(time_counter_)) THEN
376        CALL cxios_get_filegroup_time_counter(filegroup_hdl%daddr, time_counter_, len(time_counter_))
377      ENDIF
378
379      IF (PRESENT(timeseries_)) THEN
380        CALL cxios_get_filegroup_timeseries(filegroup_hdl%daddr, timeseries_, len(timeseries_))
381      ENDIF
382
383      IF (PRESENT(ts_prefix_)) THEN
384        CALL cxios_get_filegroup_ts_prefix(filegroup_hdl%daddr, ts_prefix_, len(ts_prefix_))
385      ENDIF
386
387      IF (PRESENT(type_)) THEN
388        CALL cxios_get_filegroup_type(filegroup_hdl%daddr, type_, len(type_))
389      ENDIF
390
391  END SUBROUTINE xios(get_filegroup_attr_hdl_)
392
393  SUBROUTINE xios(is_defined_filegroup_attr)  &
394    ( filegroup_id, append, compression_level, description, enabled, format, group_ref, min_digits  &
395    , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
396    , sync_freq, time_counter, timeseries, ts_prefix, type )
397
398    IMPLICIT NONE
399      TYPE(txios(filegroup))  :: filegroup_hdl
400      CHARACTER(LEN=*), INTENT(IN) ::filegroup_id
401      LOGICAL, OPTIONAL, INTENT(OUT) :: append
402      LOGICAL(KIND=C_BOOL) :: append_tmp
403      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
404      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
405      LOGICAL, OPTIONAL, INTENT(OUT) :: description
406      LOGICAL(KIND=C_BOOL) :: description_tmp
407      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
408      LOGICAL(KIND=C_BOOL) :: enabled_tmp
409      LOGICAL, OPTIONAL, INTENT(OUT) :: format
410      LOGICAL(KIND=C_BOOL) :: format_tmp
411      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
412      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
413      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
414      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
415      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
416      LOGICAL(KIND=C_BOOL) :: mode_tmp
417      LOGICAL, OPTIONAL, INTENT(OUT) :: name
418      LOGICAL(KIND=C_BOOL) :: name_tmp
419      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
420      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
421      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
422      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
423      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
424      LOGICAL(KIND=C_BOOL) :: output_level_tmp
425      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
426      LOGICAL(KIND=C_BOOL) :: par_access_tmp
427      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
428      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
429      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
430      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
431      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
432      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
433      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
434      LOGICAL(KIND=C_BOOL) :: time_counter_tmp
435      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
436      LOGICAL(KIND=C_BOOL) :: timeseries_tmp
437      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
438      LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
439      LOGICAL, OPTIONAL, INTENT(OUT) :: type
440      LOGICAL(KIND=C_BOOL) :: type_tmp
441
442      CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)
443      CALL xios(is_defined_filegroup_attr_hdl_)   &
444      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
445      , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
446      , sync_freq, time_counter, timeseries, ts_prefix, type )
447
448  END SUBROUTINE xios(is_defined_filegroup_attr)
449
450  SUBROUTINE xios(is_defined_filegroup_attr_hdl)  &
451    ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
452    , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
453    , sync_freq, time_counter, timeseries, ts_prefix, type )
454
455    IMPLICIT NONE
456      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
457      LOGICAL, OPTIONAL, INTENT(OUT) :: append
458      LOGICAL(KIND=C_BOOL) :: append_tmp
459      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
460      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
461      LOGICAL, OPTIONAL, INTENT(OUT) :: description
462      LOGICAL(KIND=C_BOOL) :: description_tmp
463      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
464      LOGICAL(KIND=C_BOOL) :: enabled_tmp
465      LOGICAL, OPTIONAL, INTENT(OUT) :: format
466      LOGICAL(KIND=C_BOOL) :: format_tmp
467      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
468      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
469      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
470      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
471      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
472      LOGICAL(KIND=C_BOOL) :: mode_tmp
473      LOGICAL, OPTIONAL, INTENT(OUT) :: name
474      LOGICAL(KIND=C_BOOL) :: name_tmp
475      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
476      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
477      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
478      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
479      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
480      LOGICAL(KIND=C_BOOL) :: output_level_tmp
481      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
482      LOGICAL(KIND=C_BOOL) :: par_access_tmp
483      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
484      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
485      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
486      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
487      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
488      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
489      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
490      LOGICAL(KIND=C_BOOL) :: time_counter_tmp
491      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
492      LOGICAL(KIND=C_BOOL) :: timeseries_tmp
493      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
494      LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
495      LOGICAL, OPTIONAL, INTENT(OUT) :: type
496      LOGICAL(KIND=C_BOOL) :: type_tmp
497
498      CALL xios(is_defined_filegroup_attr_hdl_)  &
499      ( filegroup_hdl, append, compression_level, description, enabled, format, group_ref, min_digits  &
500      , mode, name, name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format  &
501      , sync_freq, time_counter, timeseries, ts_prefix, type )
502
503  END SUBROUTINE xios(is_defined_filegroup_attr_hdl)
504
505  SUBROUTINE xios(is_defined_filegroup_attr_hdl_)   &
506    ( filegroup_hdl, append_, compression_level_, description_, enabled_, format_, group_ref_, min_digits_  &
507    , mode_, name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_  &
508    , sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ )
509
510    IMPLICIT NONE
511      TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl
512      LOGICAL, OPTIONAL, INTENT(OUT) :: append_
513      LOGICAL(KIND=C_BOOL) :: append__tmp
514      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
515      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
516      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
517      LOGICAL(KIND=C_BOOL) :: description__tmp
518      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
519      LOGICAL(KIND=C_BOOL) :: enabled__tmp
520      LOGICAL, OPTIONAL, INTENT(OUT) :: format_
521      LOGICAL(KIND=C_BOOL) :: format__tmp
522      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
523      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
524      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_
525      LOGICAL(KIND=C_BOOL) :: min_digits__tmp
526      LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
527      LOGICAL(KIND=C_BOOL) :: mode__tmp
528      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
529      LOGICAL(KIND=C_BOOL) :: name__tmp
530      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_
531      LOGICAL(KIND=C_BOOL) :: name_suffix__tmp
532      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_
533      LOGICAL(KIND=C_BOOL) :: output_freq__tmp
534      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_
535      LOGICAL(KIND=C_BOOL) :: output_level__tmp
536      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_
537      LOGICAL(KIND=C_BOOL) :: par_access__tmp
538      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_
539      LOGICAL(KIND=C_BOOL) :: split_freq__tmp
540      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_
541      LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp
542      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_
543      LOGICAL(KIND=C_BOOL) :: sync_freq__tmp
544      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_
545      LOGICAL(KIND=C_BOOL) :: time_counter__tmp
546      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_
547      LOGICAL(KIND=C_BOOL) :: timeseries__tmp
548      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix_
549      LOGICAL(KIND=C_BOOL) :: ts_prefix__tmp
550      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
551      LOGICAL(KIND=C_BOOL) :: type__tmp
552
553      IF (PRESENT(append_)) THEN
554        append__tmp = cxios_is_defined_filegroup_append(filegroup_hdl%daddr)
555        append_ = append__tmp
556      ENDIF
557
558      IF (PRESENT(compression_level_)) THEN
559        compression_level__tmp = cxios_is_defined_filegroup_compression_level(filegroup_hdl%daddr)
560        compression_level_ = compression_level__tmp
561      ENDIF
562
563      IF (PRESENT(description_)) THEN
564        description__tmp = cxios_is_defined_filegroup_description(filegroup_hdl%daddr)
565        description_ = description__tmp
566      ENDIF
567
568      IF (PRESENT(enabled_)) THEN
569        enabled__tmp = cxios_is_defined_filegroup_enabled(filegroup_hdl%daddr)
570        enabled_ = enabled__tmp
571      ENDIF
572
573      IF (PRESENT(format_)) THEN
574        format__tmp = cxios_is_defined_filegroup_format(filegroup_hdl%daddr)
575        format_ = format__tmp
576      ENDIF
577
578      IF (PRESENT(group_ref_)) THEN
579        group_ref__tmp = cxios_is_defined_filegroup_group_ref(filegroup_hdl%daddr)
580        group_ref_ = group_ref__tmp
581      ENDIF
582
583      IF (PRESENT(min_digits_)) THEN
584        min_digits__tmp = cxios_is_defined_filegroup_min_digits(filegroup_hdl%daddr)
585        min_digits_ = min_digits__tmp
586      ENDIF
587
588      IF (PRESENT(mode_)) THEN
589        mode__tmp = cxios_is_defined_filegroup_mode(filegroup_hdl%daddr)
590        mode_ = mode__tmp
591      ENDIF
592
593      IF (PRESENT(name_)) THEN
594        name__tmp = cxios_is_defined_filegroup_name(filegroup_hdl%daddr)
595        name_ = name__tmp
596      ENDIF
597
598      IF (PRESENT(name_suffix_)) THEN
599        name_suffix__tmp = cxios_is_defined_filegroup_name_suffix(filegroup_hdl%daddr)
600        name_suffix_ = name_suffix__tmp
601      ENDIF
602
603      IF (PRESENT(output_freq_)) THEN
604        output_freq__tmp = cxios_is_defined_filegroup_output_freq(filegroup_hdl%daddr)
605        output_freq_ = output_freq__tmp
606      ENDIF
607
608      IF (PRESENT(output_level_)) THEN
609        output_level__tmp = cxios_is_defined_filegroup_output_level(filegroup_hdl%daddr)
610        output_level_ = output_level__tmp
611      ENDIF
612
613      IF (PRESENT(par_access_)) THEN
614        par_access__tmp = cxios_is_defined_filegroup_par_access(filegroup_hdl%daddr)
615        par_access_ = par_access__tmp
616      ENDIF
617
618      IF (PRESENT(split_freq_)) THEN
619        split_freq__tmp = cxios_is_defined_filegroup_split_freq(filegroup_hdl%daddr)
620        split_freq_ = split_freq__tmp
621      ENDIF
622
623      IF (PRESENT(split_freq_format_)) THEN
624        split_freq_format__tmp = cxios_is_defined_filegroup_split_freq_format(filegroup_hdl%daddr)
625        split_freq_format_ = split_freq_format__tmp
626      ENDIF
627
628      IF (PRESENT(sync_freq_)) THEN
629        sync_freq__tmp = cxios_is_defined_filegroup_sync_freq(filegroup_hdl%daddr)
630        sync_freq_ = sync_freq__tmp
631      ENDIF
632
633      IF (PRESENT(time_counter_)) THEN
634        time_counter__tmp = cxios_is_defined_filegroup_time_counter(filegroup_hdl%daddr)
635        time_counter_ = time_counter__tmp
636      ENDIF
637
638      IF (PRESENT(timeseries_)) THEN
639        timeseries__tmp = cxios_is_defined_filegroup_timeseries(filegroup_hdl%daddr)
640        timeseries_ = timeseries__tmp
641      ENDIF
642
643      IF (PRESENT(ts_prefix_)) THEN
644        ts_prefix__tmp = cxios_is_defined_filegroup_ts_prefix(filegroup_hdl%daddr)
645        ts_prefix_ = ts_prefix__tmp
646      ENDIF
647
648      IF (PRESENT(type_)) THEN
649        type__tmp = cxios_is_defined_filegroup_type(filegroup_hdl%daddr)
650        type_ = type__tmp
651      ENDIF
652
653  END SUBROUTINE xios(is_defined_filegroup_attr_hdl_)
654
655END MODULE ifilegroup_attr
Note: See TracBrowser for help on using the repository browser.