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

Last change on this file since 711 was 711, checked in by rlacroix, 7 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: 26.3 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifile_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifile
9  USE file_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_file_attr)  &
14    ( file_id, append, compression_level, description, enabled, format, min_digits, mode, name, name_suffix  &
15    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter  &
16    , timeseries, ts_prefix, type )
17
18    IMPLICIT NONE
19      TYPE(txios(file))  :: file_hdl
20      CHARACTER(LEN=*), INTENT(IN) ::file_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      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
29      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
32      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
33      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
35      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
37      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
42
43      CALL xios(get_file_handle)(file_id,file_hdl)
44      CALL xios(set_file_attr_hdl_)   &
45      ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  &
46      , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  &
47      , time_counter, timeseries, ts_prefix, type )
48
49  END SUBROUTINE xios(set_file_attr)
50
51  SUBROUTINE xios(set_file_attr_hdl)  &
52    ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  &
53    , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  &
54    , time_counter, timeseries, ts_prefix, type )
55
56    IMPLICIT NONE
57      TYPE(txios(file)) , INTENT(IN) :: file_hdl
58      LOGICAL  , OPTIONAL, INTENT(IN) :: append
59      LOGICAL (KIND=C_BOOL) :: append_tmp
60      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
61      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description
62      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
63      LOGICAL (KIND=C_BOOL) :: enabled_tmp
64      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format
65      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits
66      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
67      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
68      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix
69      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq
70      INTEGER  , OPTIONAL, INTENT(IN) :: output_level
71      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access
72      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq
73      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format
74      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq
75      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter
76      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries
77      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix
78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
79
80      CALL xios(set_file_attr_hdl_)  &
81      ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  &
82      , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  &
83      , time_counter, timeseries, ts_prefix, type )
84
85  END SUBROUTINE xios(set_file_attr_hdl)
86
87  SUBROUTINE xios(set_file_attr_hdl_)   &
88    ( file_hdl, append_, compression_level_, description_, enabled_, format_, min_digits_, mode_  &
89    , name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_  &
90    , sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ )
91
92    IMPLICIT NONE
93      TYPE(txios(file)) , INTENT(IN) :: file_hdl
94      LOGICAL  , OPTIONAL, INTENT(IN) :: append_
95      LOGICAL (KIND=C_BOOL) :: append__tmp
96      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_
98      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
99      LOGICAL (KIND=C_BOOL) :: enabled__tmp
100      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: format_
101      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits_
102      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
103      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
104      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_
105      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: output_freq_
106      INTEGER  , OPTIONAL, INTENT(IN) :: output_level_
107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_
108      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: split_freq_
109      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_format_
110      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: sync_freq_
111      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: time_counter_
112      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: timeseries_
113      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: ts_prefix_
114      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
115
116      IF (PRESENT(append_)) THEN
117        append__tmp = append_
118        CALL cxios_set_file_append(file_hdl%daddr, append__tmp)
119      ENDIF
120
121      IF (PRESENT(compression_level_)) THEN
122        CALL cxios_set_file_compression_level(file_hdl%daddr, compression_level_)
123      ENDIF
124
125      IF (PRESENT(description_)) THEN
126        CALL cxios_set_file_description(file_hdl%daddr, description_, len(description_))
127      ENDIF
128
129      IF (PRESENT(enabled_)) THEN
130        enabled__tmp = enabled_
131        CALL cxios_set_file_enabled(file_hdl%daddr, enabled__tmp)
132      ENDIF
133
134      IF (PRESENT(format_)) THEN
135        CALL cxios_set_file_format(file_hdl%daddr, format_, len(format_))
136      ENDIF
137
138      IF (PRESENT(min_digits_)) THEN
139        CALL cxios_set_file_min_digits(file_hdl%daddr, min_digits_)
140      ENDIF
141
142      IF (PRESENT(mode_)) THEN
143        CALL cxios_set_file_mode(file_hdl%daddr, mode_, len(mode_))
144      ENDIF
145
146      IF (PRESENT(name_)) THEN
147        CALL cxios_set_file_name(file_hdl%daddr, name_, len(name_))
148      ENDIF
149
150      IF (PRESENT(name_suffix_)) THEN
151        CALL cxios_set_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_))
152      ENDIF
153
154      IF (PRESENT(output_freq_)) THEN
155        CALL cxios_set_file_output_freq(file_hdl%daddr, output_freq_)
156      ENDIF
157
158      IF (PRESENT(output_level_)) THEN
159        CALL cxios_set_file_output_level(file_hdl%daddr, output_level_)
160      ENDIF
161
162      IF (PRESENT(par_access_)) THEN
163        CALL cxios_set_file_par_access(file_hdl%daddr, par_access_, len(par_access_))
164      ENDIF
165
166      IF (PRESENT(split_freq_)) THEN
167        CALL cxios_set_file_split_freq(file_hdl%daddr, split_freq_)
168      ENDIF
169
170      IF (PRESENT(split_freq_format_)) THEN
171        CALL cxios_set_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_))
172      ENDIF
173
174      IF (PRESENT(sync_freq_)) THEN
175        CALL cxios_set_file_sync_freq(file_hdl%daddr, sync_freq_)
176      ENDIF
177
178      IF (PRESENT(time_counter_)) THEN
179        CALL cxios_set_file_time_counter(file_hdl%daddr, time_counter_, len(time_counter_))
180      ENDIF
181
182      IF (PRESENT(timeseries_)) THEN
183        CALL cxios_set_file_timeseries(file_hdl%daddr, timeseries_, len(timeseries_))
184      ENDIF
185
186      IF (PRESENT(ts_prefix_)) THEN
187        CALL cxios_set_file_ts_prefix(file_hdl%daddr, ts_prefix_, len(ts_prefix_))
188      ENDIF
189
190      IF (PRESENT(type_)) THEN
191        CALL cxios_set_file_type(file_hdl%daddr, type_, len(type_))
192      ENDIF
193
194  END SUBROUTINE xios(set_file_attr_hdl_)
195
196  SUBROUTINE xios(get_file_attr)  &
197    ( file_id, append, compression_level, description, enabled, format, min_digits, mode, name, name_suffix  &
198    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter  &
199    , timeseries, ts_prefix, type )
200
201    IMPLICIT NONE
202      TYPE(txios(file))  :: file_hdl
203      CHARACTER(LEN=*), INTENT(IN) ::file_id
204      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
205      LOGICAL (KIND=C_BOOL) :: append_tmp
206      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
207      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
208      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
209      LOGICAL (KIND=C_BOOL) :: enabled_tmp
210      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
211      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
212      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
213      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
214      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
215      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
216      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
217      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
218      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
219      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
220      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
221      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
222      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
223      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
224      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
225
226      CALL xios(get_file_handle)(file_id,file_hdl)
227      CALL xios(get_file_attr_hdl_)   &
228      ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  &
229      , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  &
230      , time_counter, timeseries, ts_prefix, type )
231
232  END SUBROUTINE xios(get_file_attr)
233
234  SUBROUTINE xios(get_file_attr_hdl)  &
235    ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  &
236    , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  &
237    , time_counter, timeseries, ts_prefix, type )
238
239    IMPLICIT NONE
240      TYPE(txios(file)) , INTENT(IN) :: file_hdl
241      LOGICAL  , OPTIONAL, INTENT(OUT) :: append
242      LOGICAL (KIND=C_BOOL) :: append_tmp
243      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
244      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description
245      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
246      LOGICAL (KIND=C_BOOL) :: enabled_tmp
247      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format
248      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits
249      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
250      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
251      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix
252      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq
253      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level
254      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access
255      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq
256      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format
257      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq
258      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter
259      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries
260      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix
261      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
262
263      CALL xios(get_file_attr_hdl_)  &
264      ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  &
265      , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  &
266      , time_counter, timeseries, ts_prefix, type )
267
268  END SUBROUTINE xios(get_file_attr_hdl)
269
270  SUBROUTINE xios(get_file_attr_hdl_)   &
271    ( file_hdl, append_, compression_level_, description_, enabled_, format_, min_digits_, mode_  &
272    , name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_  &
273    , sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ )
274
275    IMPLICIT NONE
276      TYPE(txios(file)) , INTENT(IN) :: file_hdl
277      LOGICAL  , OPTIONAL, INTENT(OUT) :: append_
278      LOGICAL (KIND=C_BOOL) :: append__tmp
279      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
280      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_
281      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
282      LOGICAL (KIND=C_BOOL) :: enabled__tmp
283      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: format_
284      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits_
285      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
286      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
287      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_
288      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: output_freq_
289      INTEGER  , OPTIONAL, INTENT(OUT) :: output_level_
290      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_
291      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: split_freq_
292      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_format_
293      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: sync_freq_
294      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: time_counter_
295      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: timeseries_
296      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: ts_prefix_
297      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
298
299      IF (PRESENT(append_)) THEN
300        CALL cxios_get_file_append(file_hdl%daddr, append__tmp)
301        append_ = append__tmp
302      ENDIF
303
304      IF (PRESENT(compression_level_)) THEN
305        CALL cxios_get_file_compression_level(file_hdl%daddr, compression_level_)
306      ENDIF
307
308      IF (PRESENT(description_)) THEN
309        CALL cxios_get_file_description(file_hdl%daddr, description_, len(description_))
310      ENDIF
311
312      IF (PRESENT(enabled_)) THEN
313        CALL cxios_get_file_enabled(file_hdl%daddr, enabled__tmp)
314        enabled_ = enabled__tmp
315      ENDIF
316
317      IF (PRESENT(format_)) THEN
318        CALL cxios_get_file_format(file_hdl%daddr, format_, len(format_))
319      ENDIF
320
321      IF (PRESENT(min_digits_)) THEN
322        CALL cxios_get_file_min_digits(file_hdl%daddr, min_digits_)
323      ENDIF
324
325      IF (PRESENT(mode_)) THEN
326        CALL cxios_get_file_mode(file_hdl%daddr, mode_, len(mode_))
327      ENDIF
328
329      IF (PRESENT(name_)) THEN
330        CALL cxios_get_file_name(file_hdl%daddr, name_, len(name_))
331      ENDIF
332
333      IF (PRESENT(name_suffix_)) THEN
334        CALL cxios_get_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_))
335      ENDIF
336
337      IF (PRESENT(output_freq_)) THEN
338        CALL cxios_get_file_output_freq(file_hdl%daddr, output_freq_)
339      ENDIF
340
341      IF (PRESENT(output_level_)) THEN
342        CALL cxios_get_file_output_level(file_hdl%daddr, output_level_)
343      ENDIF
344
345      IF (PRESENT(par_access_)) THEN
346        CALL cxios_get_file_par_access(file_hdl%daddr, par_access_, len(par_access_))
347      ENDIF
348
349      IF (PRESENT(split_freq_)) THEN
350        CALL cxios_get_file_split_freq(file_hdl%daddr, split_freq_)
351      ENDIF
352
353      IF (PRESENT(split_freq_format_)) THEN
354        CALL cxios_get_file_split_freq_format(file_hdl%daddr, split_freq_format_, len(split_freq_format_))
355      ENDIF
356
357      IF (PRESENT(sync_freq_)) THEN
358        CALL cxios_get_file_sync_freq(file_hdl%daddr, sync_freq_)
359      ENDIF
360
361      IF (PRESENT(time_counter_)) THEN
362        CALL cxios_get_file_time_counter(file_hdl%daddr, time_counter_, len(time_counter_))
363      ENDIF
364
365      IF (PRESENT(timeseries_)) THEN
366        CALL cxios_get_file_timeseries(file_hdl%daddr, timeseries_, len(timeseries_))
367      ENDIF
368
369      IF (PRESENT(ts_prefix_)) THEN
370        CALL cxios_get_file_ts_prefix(file_hdl%daddr, ts_prefix_, len(ts_prefix_))
371      ENDIF
372
373      IF (PRESENT(type_)) THEN
374        CALL cxios_get_file_type(file_hdl%daddr, type_, len(type_))
375      ENDIF
376
377  END SUBROUTINE xios(get_file_attr_hdl_)
378
379  SUBROUTINE xios(is_defined_file_attr)  &
380    ( file_id, append, compression_level, description, enabled, format, min_digits, mode, name, name_suffix  &
381    , output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq, time_counter  &
382    , timeseries, ts_prefix, type )
383
384    IMPLICIT NONE
385      TYPE(txios(file))  :: file_hdl
386      CHARACTER(LEN=*), INTENT(IN) ::file_id
387      LOGICAL, OPTIONAL, INTENT(OUT) :: append
388      LOGICAL(KIND=C_BOOL) :: append_tmp
389      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
390      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
391      LOGICAL, OPTIONAL, INTENT(OUT) :: description
392      LOGICAL(KIND=C_BOOL) :: description_tmp
393      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
394      LOGICAL(KIND=C_BOOL) :: enabled_tmp
395      LOGICAL, OPTIONAL, INTENT(OUT) :: format
396      LOGICAL(KIND=C_BOOL) :: format_tmp
397      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
398      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
399      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
400      LOGICAL(KIND=C_BOOL) :: mode_tmp
401      LOGICAL, OPTIONAL, INTENT(OUT) :: name
402      LOGICAL(KIND=C_BOOL) :: name_tmp
403      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
404      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
405      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
406      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
407      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
408      LOGICAL(KIND=C_BOOL) :: output_level_tmp
409      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
410      LOGICAL(KIND=C_BOOL) :: par_access_tmp
411      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
412      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
413      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
414      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
415      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
416      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
417      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
418      LOGICAL(KIND=C_BOOL) :: time_counter_tmp
419      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
420      LOGICAL(KIND=C_BOOL) :: timeseries_tmp
421      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
422      LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
423      LOGICAL, OPTIONAL, INTENT(OUT) :: type
424      LOGICAL(KIND=C_BOOL) :: type_tmp
425
426      CALL xios(get_file_handle)(file_id,file_hdl)
427      CALL xios(is_defined_file_attr_hdl_)   &
428      ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  &
429      , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  &
430      , time_counter, timeseries, ts_prefix, type )
431
432  END SUBROUTINE xios(is_defined_file_attr)
433
434  SUBROUTINE xios(is_defined_file_attr_hdl)  &
435    ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  &
436    , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  &
437    , time_counter, timeseries, ts_prefix, type )
438
439    IMPLICIT NONE
440      TYPE(txios(file)) , INTENT(IN) :: file_hdl
441      LOGICAL, OPTIONAL, INTENT(OUT) :: append
442      LOGICAL(KIND=C_BOOL) :: append_tmp
443      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
444      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
445      LOGICAL, OPTIONAL, INTENT(OUT) :: description
446      LOGICAL(KIND=C_BOOL) :: description_tmp
447      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
448      LOGICAL(KIND=C_BOOL) :: enabled_tmp
449      LOGICAL, OPTIONAL, INTENT(OUT) :: format
450      LOGICAL(KIND=C_BOOL) :: format_tmp
451      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits
452      LOGICAL(KIND=C_BOOL) :: min_digits_tmp
453      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
454      LOGICAL(KIND=C_BOOL) :: mode_tmp
455      LOGICAL, OPTIONAL, INTENT(OUT) :: name
456      LOGICAL(KIND=C_BOOL) :: name_tmp
457      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix
458      LOGICAL(KIND=C_BOOL) :: name_suffix_tmp
459      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq
460      LOGICAL(KIND=C_BOOL) :: output_freq_tmp
461      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level
462      LOGICAL(KIND=C_BOOL) :: output_level_tmp
463      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access
464      LOGICAL(KIND=C_BOOL) :: par_access_tmp
465      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq
466      LOGICAL(KIND=C_BOOL) :: split_freq_tmp
467      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format
468      LOGICAL(KIND=C_BOOL) :: split_freq_format_tmp
469      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq
470      LOGICAL(KIND=C_BOOL) :: sync_freq_tmp
471      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter
472      LOGICAL(KIND=C_BOOL) :: time_counter_tmp
473      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries
474      LOGICAL(KIND=C_BOOL) :: timeseries_tmp
475      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix
476      LOGICAL(KIND=C_BOOL) :: ts_prefix_tmp
477      LOGICAL, OPTIONAL, INTENT(OUT) :: type
478      LOGICAL(KIND=C_BOOL) :: type_tmp
479
480      CALL xios(is_defined_file_attr_hdl_)  &
481      ( file_hdl, append, compression_level, description, enabled, format, min_digits, mode, name  &
482      , name_suffix, output_freq, output_level, par_access, split_freq, split_freq_format, sync_freq  &
483      , time_counter, timeseries, ts_prefix, type )
484
485  END SUBROUTINE xios(is_defined_file_attr_hdl)
486
487  SUBROUTINE xios(is_defined_file_attr_hdl_)   &
488    ( file_hdl, append_, compression_level_, description_, enabled_, format_, min_digits_, mode_  &
489    , name_, name_suffix_, output_freq_, output_level_, par_access_, split_freq_, split_freq_format_  &
490    , sync_freq_, time_counter_, timeseries_, ts_prefix_, type_ )
491
492    IMPLICIT NONE
493      TYPE(txios(file)) , INTENT(IN) :: file_hdl
494      LOGICAL, OPTIONAL, INTENT(OUT) :: append_
495      LOGICAL(KIND=C_BOOL) :: append__tmp
496      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
497      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
498      LOGICAL, OPTIONAL, INTENT(OUT) :: description_
499      LOGICAL(KIND=C_BOOL) :: description__tmp
500      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
501      LOGICAL(KIND=C_BOOL) :: enabled__tmp
502      LOGICAL, OPTIONAL, INTENT(OUT) :: format_
503      LOGICAL(KIND=C_BOOL) :: format__tmp
504      LOGICAL, OPTIONAL, INTENT(OUT) :: min_digits_
505      LOGICAL(KIND=C_BOOL) :: min_digits__tmp
506      LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
507      LOGICAL(KIND=C_BOOL) :: mode__tmp
508      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
509      LOGICAL(KIND=C_BOOL) :: name__tmp
510      LOGICAL, OPTIONAL, INTENT(OUT) :: name_suffix_
511      LOGICAL(KIND=C_BOOL) :: name_suffix__tmp
512      LOGICAL, OPTIONAL, INTENT(OUT) :: output_freq_
513      LOGICAL(KIND=C_BOOL) :: output_freq__tmp
514      LOGICAL, OPTIONAL, INTENT(OUT) :: output_level_
515      LOGICAL(KIND=C_BOOL) :: output_level__tmp
516      LOGICAL, OPTIONAL, INTENT(OUT) :: par_access_
517      LOGICAL(KIND=C_BOOL) :: par_access__tmp
518      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_
519      LOGICAL(KIND=C_BOOL) :: split_freq__tmp
520      LOGICAL, OPTIONAL, INTENT(OUT) :: split_freq_format_
521      LOGICAL(KIND=C_BOOL) :: split_freq_format__tmp
522      LOGICAL, OPTIONAL, INTENT(OUT) :: sync_freq_
523      LOGICAL(KIND=C_BOOL) :: sync_freq__tmp
524      LOGICAL, OPTIONAL, INTENT(OUT) :: time_counter_
525      LOGICAL(KIND=C_BOOL) :: time_counter__tmp
526      LOGICAL, OPTIONAL, INTENT(OUT) :: timeseries_
527      LOGICAL(KIND=C_BOOL) :: timeseries__tmp
528      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_prefix_
529      LOGICAL(KIND=C_BOOL) :: ts_prefix__tmp
530      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
531      LOGICAL(KIND=C_BOOL) :: type__tmp
532
533      IF (PRESENT(append_)) THEN
534        append__tmp = cxios_is_defined_file_append(file_hdl%daddr)
535        append_ = append__tmp
536      ENDIF
537
538      IF (PRESENT(compression_level_)) THEN
539        compression_level__tmp = cxios_is_defined_file_compression_level(file_hdl%daddr)
540        compression_level_ = compression_level__tmp
541      ENDIF
542
543      IF (PRESENT(description_)) THEN
544        description__tmp = cxios_is_defined_file_description(file_hdl%daddr)
545        description_ = description__tmp
546      ENDIF
547
548      IF (PRESENT(enabled_)) THEN
549        enabled__tmp = cxios_is_defined_file_enabled(file_hdl%daddr)
550        enabled_ = enabled__tmp
551      ENDIF
552
553      IF (PRESENT(format_)) THEN
554        format__tmp = cxios_is_defined_file_format(file_hdl%daddr)
555        format_ = format__tmp
556      ENDIF
557
558      IF (PRESENT(min_digits_)) THEN
559        min_digits__tmp = cxios_is_defined_file_min_digits(file_hdl%daddr)
560        min_digits_ = min_digits__tmp
561      ENDIF
562
563      IF (PRESENT(mode_)) THEN
564        mode__tmp = cxios_is_defined_file_mode(file_hdl%daddr)
565        mode_ = mode__tmp
566      ENDIF
567
568      IF (PRESENT(name_)) THEN
569        name__tmp = cxios_is_defined_file_name(file_hdl%daddr)
570        name_ = name__tmp
571      ENDIF
572
573      IF (PRESENT(name_suffix_)) THEN
574        name_suffix__tmp = cxios_is_defined_file_name_suffix(file_hdl%daddr)
575        name_suffix_ = name_suffix__tmp
576      ENDIF
577
578      IF (PRESENT(output_freq_)) THEN
579        output_freq__tmp = cxios_is_defined_file_output_freq(file_hdl%daddr)
580        output_freq_ = output_freq__tmp
581      ENDIF
582
583      IF (PRESENT(output_level_)) THEN
584        output_level__tmp = cxios_is_defined_file_output_level(file_hdl%daddr)
585        output_level_ = output_level__tmp
586      ENDIF
587
588      IF (PRESENT(par_access_)) THEN
589        par_access__tmp = cxios_is_defined_file_par_access(file_hdl%daddr)
590        par_access_ = par_access__tmp
591      ENDIF
592
593      IF (PRESENT(split_freq_)) THEN
594        split_freq__tmp = cxios_is_defined_file_split_freq(file_hdl%daddr)
595        split_freq_ = split_freq__tmp
596      ENDIF
597
598      IF (PRESENT(split_freq_format_)) THEN
599        split_freq_format__tmp = cxios_is_defined_file_split_freq_format(file_hdl%daddr)
600        split_freq_format_ = split_freq_format__tmp
601      ENDIF
602
603      IF (PRESENT(sync_freq_)) THEN
604        sync_freq__tmp = cxios_is_defined_file_sync_freq(file_hdl%daddr)
605        sync_freq_ = sync_freq__tmp
606      ENDIF
607
608      IF (PRESENT(time_counter_)) THEN
609        time_counter__tmp = cxios_is_defined_file_time_counter(file_hdl%daddr)
610        time_counter_ = time_counter__tmp
611      ENDIF
612
613      IF (PRESENT(timeseries_)) THEN
614        timeseries__tmp = cxios_is_defined_file_timeseries(file_hdl%daddr)
615        timeseries_ = timeseries__tmp
616      ENDIF
617
618      IF (PRESENT(ts_prefix_)) THEN
619        ts_prefix__tmp = cxios_is_defined_file_ts_prefix(file_hdl%daddr)
620        ts_prefix_ = ts_prefix__tmp
621      ENDIF
622
623      IF (PRESENT(type_)) THEN
624        type__tmp = cxios_is_defined_file_type(file_hdl%daddr)
625        type_ = type__tmp
626      ENDIF
627
628  END SUBROUTINE xios(is_defined_file_attr_hdl_)
629
630END MODULE ifile_attr
Note: See TracBrowser for help on using the repository browser.