source: XIOS/trunk/src/interface/fortran_attr/ifieldgroup_attr.F90 @ 778

Last change on this file since 778 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: 37.4 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifieldgroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifield
9  USE fieldgroup_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_fieldgroup_attr)  &
14    ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
15    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
16    , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled  &
17    , ts_split_freq, unit, valid_max, valid_min )
18
19    IMPLICIT NONE
20      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
21      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
22      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
24      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
26      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
27      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
29      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
30      LOGICAL (KIND=C_BOOL) :: enabled_tmp
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
32      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset
33      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
36      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output
37      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
38      INTEGER  , OPTIONAL, INTENT(IN) :: level
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
42      INTEGER  , OPTIONAL, INTENT(IN) :: prec
43      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
44      LOGICAL (KIND=C_BOOL) :: read_access_tmp
45      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
47      LOGICAL  , OPTIONAL, INTENT(IN) :: ts_enabled
48      LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
49      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: ts_split_freq
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
51      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
52      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
53
54      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
55      CALL xios(set_fieldgroup_attr_hdl_)   &
56      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
57      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
58      , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled  &
59      , ts_split_freq, unit, valid_max, valid_min )
60
61  END SUBROUTINE xios(set_fieldgroup_attr)
62
63  SUBROUTINE xios(set_fieldgroup_attr_hdl)  &
64    ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
65    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
66    , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled  &
67    , ts_split_freq, unit, valid_max, valid_min )
68
69    IMPLICIT NONE
70      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
71      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
72      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
73      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
74      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
75      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
76      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
77      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
78      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
79      LOGICAL (KIND=C_BOOL) :: enabled_tmp
80      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
81      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset
82      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op
83      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
85      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output
86      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
87      INTEGER  , OPTIONAL, INTENT(IN) :: level
88      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
89      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
90      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
91      INTEGER  , OPTIONAL, INTENT(IN) :: prec
92      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
93      LOGICAL (KIND=C_BOOL) :: read_access_tmp
94      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
96      LOGICAL  , OPTIONAL, INTENT(IN) :: ts_enabled
97      LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
98      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: ts_split_freq
99      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
100      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
101      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
102
103      CALL xios(set_fieldgroup_attr_hdl_)  &
104      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
105      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
106      , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled  &
107      , ts_split_freq, unit, valid_max, valid_min )
108
109  END SUBROUTINE xios(set_fieldgroup_attr_hdl)
110
111  SUBROUTINE xios(set_fieldgroup_attr_hdl_)   &
112    ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  &
113    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, indexed_output_  &
114    , level_, long_name_, name_, operation_, prec_, read_access_, scale_factor_, standard_name_  &
115    , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ )
116
117    IMPLICIT NONE
118      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
119      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_
120      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
121      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
122      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
123      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_
124      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
125      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
126      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
127      LOGICAL (KIND=C_BOOL) :: enabled__tmp
128      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
129      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset_
130      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op_
131      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
132      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
133      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output_
134      LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
135      INTEGER  , OPTIONAL, INTENT(IN) :: level_
136      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
137      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
138      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
139      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
140      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access_
141      LOGICAL (KIND=C_BOOL) :: read_access__tmp
142      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor_
143      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
144      LOGICAL  , OPTIONAL, INTENT(IN) :: ts_enabled_
145      LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp
146      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: ts_split_freq_
147      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
148      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_
149      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_
150
151      IF (PRESENT(add_offset_)) THEN
152        CALL cxios_set_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_)
153      ENDIF
154
155      IF (PRESENT(axis_ref_)) THEN
156        CALL cxios_set_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
157      ENDIF
158
159      IF (PRESENT(compression_level_)) THEN
160        CALL cxios_set_fieldgroup_compression_level(fieldgroup_hdl%daddr, compression_level_)
161      ENDIF
162
163      IF (PRESENT(default_value_)) THEN
164        CALL cxios_set_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_)
165      ENDIF
166
167      IF (PRESENT(detect_missing_value_)) THEN
168        detect_missing_value__tmp = detect_missing_value_
169        CALL cxios_set_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr, detect_missing_value__tmp)
170      ENDIF
171
172      IF (PRESENT(domain_ref_)) THEN
173        CALL cxios_set_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
174      ENDIF
175
176      IF (PRESENT(enabled_)) THEN
177        enabled__tmp = enabled_
178        CALL cxios_set_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp)
179      ENDIF
180
181      IF (PRESENT(field_ref_)) THEN
182        CALL cxios_set_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
183      ENDIF
184
185      IF (PRESENT(freq_offset_)) THEN
186        CALL cxios_set_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_)
187      ENDIF
188
189      IF (PRESENT(freq_op_)) THEN
190        CALL cxios_set_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_)
191      ENDIF
192
193      IF (PRESENT(grid_ref_)) THEN
194        CALL cxios_set_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
195      ENDIF
196
197      IF (PRESENT(group_ref_)) THEN
198        CALL cxios_set_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
199      ENDIF
200
201      IF (PRESENT(indexed_output_)) THEN
202        indexed_output__tmp = indexed_output_
203        CALL cxios_set_fieldgroup_indexed_output(fieldgroup_hdl%daddr, indexed_output__tmp)
204      ENDIF
205
206      IF (PRESENT(level_)) THEN
207        CALL cxios_set_fieldgroup_level(fieldgroup_hdl%daddr, level_)
208      ENDIF
209
210      IF (PRESENT(long_name_)) THEN
211        CALL cxios_set_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_))
212      ENDIF
213
214      IF (PRESENT(name_)) THEN
215        CALL cxios_set_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_))
216      ENDIF
217
218      IF (PRESENT(operation_)) THEN
219        CALL cxios_set_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_))
220      ENDIF
221
222      IF (PRESENT(prec_)) THEN
223        CALL cxios_set_fieldgroup_prec(fieldgroup_hdl%daddr, prec_)
224      ENDIF
225
226      IF (PRESENT(read_access_)) THEN
227        read_access__tmp = read_access_
228        CALL cxios_set_fieldgroup_read_access(fieldgroup_hdl%daddr, read_access__tmp)
229      ENDIF
230
231      IF (PRESENT(scale_factor_)) THEN
232        CALL cxios_set_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_)
233      ENDIF
234
235      IF (PRESENT(standard_name_)) THEN
236        CALL cxios_set_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
237      ENDIF
238
239      IF (PRESENT(ts_enabled_)) THEN
240        ts_enabled__tmp = ts_enabled_
241        CALL cxios_set_fieldgroup_ts_enabled(fieldgroup_hdl%daddr, ts_enabled__tmp)
242      ENDIF
243
244      IF (PRESENT(ts_split_freq_)) THEN
245        CALL cxios_set_fieldgroup_ts_split_freq(fieldgroup_hdl%daddr, ts_split_freq_)
246      ENDIF
247
248      IF (PRESENT(unit_)) THEN
249        CALL cxios_set_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_))
250      ENDIF
251
252      IF (PRESENT(valid_max_)) THEN
253        CALL cxios_set_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_)
254      ENDIF
255
256      IF (PRESENT(valid_min_)) THEN
257        CALL cxios_set_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_)
258      ENDIF
259
260  END SUBROUTINE xios(set_fieldgroup_attr_hdl_)
261
262  SUBROUTINE xios(get_fieldgroup_attr)  &
263    ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
264    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
265    , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled  &
266    , ts_split_freq, unit, valid_max, valid_min )
267
268    IMPLICIT NONE
269      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
270      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
271      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
272      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
273      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
274      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
275      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
276      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
277      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
278      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
279      LOGICAL (KIND=C_BOOL) :: enabled_tmp
280      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
281      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
282      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
283      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
284      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
285      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output
286      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
287      INTEGER  , OPTIONAL, INTENT(OUT) :: level
288      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
289      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
290      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
291      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
292      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
293      LOGICAL (KIND=C_BOOL) :: read_access_tmp
294      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
295      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
296      LOGICAL  , OPTIONAL, INTENT(OUT) :: ts_enabled
297      LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
298      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: ts_split_freq
299      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
300      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
301      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
302
303      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
304      CALL xios(get_fieldgroup_attr_hdl_)   &
305      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
306      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
307      , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled  &
308      , ts_split_freq, unit, valid_max, valid_min )
309
310  END SUBROUTINE xios(get_fieldgroup_attr)
311
312  SUBROUTINE xios(get_fieldgroup_attr_hdl)  &
313    ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
314    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
315    , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled  &
316    , ts_split_freq, unit, valid_max, valid_min )
317
318    IMPLICIT NONE
319      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
320      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
321      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
322      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
323      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
324      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
325      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
326      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
327      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
328      LOGICAL (KIND=C_BOOL) :: enabled_tmp
329      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
330      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
331      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
332      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
333      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
334      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output
335      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
336      INTEGER  , OPTIONAL, INTENT(OUT) :: level
337      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
338      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
339      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
340      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
341      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
342      LOGICAL (KIND=C_BOOL) :: read_access_tmp
343      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
344      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
345      LOGICAL  , OPTIONAL, INTENT(OUT) :: ts_enabled
346      LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
347      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: ts_split_freq
348      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
349      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
350      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
351
352      CALL xios(get_fieldgroup_attr_hdl_)  &
353      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
354      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
355      , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled  &
356      , ts_split_freq, unit, valid_max, valid_min )
357
358  END SUBROUTINE xios(get_fieldgroup_attr_hdl)
359
360  SUBROUTINE xios(get_fieldgroup_attr_hdl_)   &
361    ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  &
362    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, indexed_output_  &
363    , level_, long_name_, name_, operation_, prec_, read_access_, scale_factor_, standard_name_  &
364    , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ )
365
366    IMPLICIT NONE
367      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
368      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_
369      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
370      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
371      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
372      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_
373      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
374      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
375      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
376      LOGICAL (KIND=C_BOOL) :: enabled__tmp
377      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
378      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset_
379      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op_
380      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
381      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
382      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output_
383      LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
384      INTEGER  , OPTIONAL, INTENT(OUT) :: level_
385      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
386      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
387      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
388      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
389      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access_
390      LOGICAL (KIND=C_BOOL) :: read_access__tmp
391      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor_
392      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
393      LOGICAL  , OPTIONAL, INTENT(OUT) :: ts_enabled_
394      LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp
395      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: ts_split_freq_
396      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
397      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_
398      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_
399
400      IF (PRESENT(add_offset_)) THEN
401        CALL cxios_get_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_)
402      ENDIF
403
404      IF (PRESENT(axis_ref_)) THEN
405        CALL cxios_get_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
406      ENDIF
407
408      IF (PRESENT(compression_level_)) THEN
409        CALL cxios_get_fieldgroup_compression_level(fieldgroup_hdl%daddr, compression_level_)
410      ENDIF
411
412      IF (PRESENT(default_value_)) THEN
413        CALL cxios_get_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_)
414      ENDIF
415
416      IF (PRESENT(detect_missing_value_)) THEN
417        CALL cxios_get_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr, detect_missing_value__tmp)
418        detect_missing_value_ = detect_missing_value__tmp
419      ENDIF
420
421      IF (PRESENT(domain_ref_)) THEN
422        CALL cxios_get_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
423      ENDIF
424
425      IF (PRESENT(enabled_)) THEN
426        CALL cxios_get_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp)
427        enabled_ = enabled__tmp
428      ENDIF
429
430      IF (PRESENT(field_ref_)) THEN
431        CALL cxios_get_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
432      ENDIF
433
434      IF (PRESENT(freq_offset_)) THEN
435        CALL cxios_get_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_)
436      ENDIF
437
438      IF (PRESENT(freq_op_)) THEN
439        CALL cxios_get_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_)
440      ENDIF
441
442      IF (PRESENT(grid_ref_)) THEN
443        CALL cxios_get_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
444      ENDIF
445
446      IF (PRESENT(group_ref_)) THEN
447        CALL cxios_get_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
448      ENDIF
449
450      IF (PRESENT(indexed_output_)) THEN
451        CALL cxios_get_fieldgroup_indexed_output(fieldgroup_hdl%daddr, indexed_output__tmp)
452        indexed_output_ = indexed_output__tmp
453      ENDIF
454
455      IF (PRESENT(level_)) THEN
456        CALL cxios_get_fieldgroup_level(fieldgroup_hdl%daddr, level_)
457      ENDIF
458
459      IF (PRESENT(long_name_)) THEN
460        CALL cxios_get_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_))
461      ENDIF
462
463      IF (PRESENT(name_)) THEN
464        CALL cxios_get_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_))
465      ENDIF
466
467      IF (PRESENT(operation_)) THEN
468        CALL cxios_get_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_))
469      ENDIF
470
471      IF (PRESENT(prec_)) THEN
472        CALL cxios_get_fieldgroup_prec(fieldgroup_hdl%daddr, prec_)
473      ENDIF
474
475      IF (PRESENT(read_access_)) THEN
476        CALL cxios_get_fieldgroup_read_access(fieldgroup_hdl%daddr, read_access__tmp)
477        read_access_ = read_access__tmp
478      ENDIF
479
480      IF (PRESENT(scale_factor_)) THEN
481        CALL cxios_get_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_)
482      ENDIF
483
484      IF (PRESENT(standard_name_)) THEN
485        CALL cxios_get_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
486      ENDIF
487
488      IF (PRESENT(ts_enabled_)) THEN
489        CALL cxios_get_fieldgroup_ts_enabled(fieldgroup_hdl%daddr, ts_enabled__tmp)
490        ts_enabled_ = ts_enabled__tmp
491      ENDIF
492
493      IF (PRESENT(ts_split_freq_)) THEN
494        CALL cxios_get_fieldgroup_ts_split_freq(fieldgroup_hdl%daddr, ts_split_freq_)
495      ENDIF
496
497      IF (PRESENT(unit_)) THEN
498        CALL cxios_get_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_))
499      ENDIF
500
501      IF (PRESENT(valid_max_)) THEN
502        CALL cxios_get_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_)
503      ENDIF
504
505      IF (PRESENT(valid_min_)) THEN
506        CALL cxios_get_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_)
507      ENDIF
508
509  END SUBROUTINE xios(get_fieldgroup_attr_hdl_)
510
511  SUBROUTINE xios(is_defined_fieldgroup_attr)  &
512    ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
513    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
514    , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled  &
515    , ts_split_freq, unit, valid_max, valid_min )
516
517    IMPLICIT NONE
518      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
519      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
520      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
521      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
522      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
523      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
524      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
525      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
526      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
527      LOGICAL(KIND=C_BOOL) :: default_value_tmp
528      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
529      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
530      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
531      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
532      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
533      LOGICAL(KIND=C_BOOL) :: enabled_tmp
534      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
535      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
536      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
537      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
538      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
539      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
540      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
541      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
542      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
543      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
544      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
545      LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
546      LOGICAL, OPTIONAL, INTENT(OUT) :: level
547      LOGICAL(KIND=C_BOOL) :: level_tmp
548      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
549      LOGICAL(KIND=C_BOOL) :: long_name_tmp
550      LOGICAL, OPTIONAL, INTENT(OUT) :: name
551      LOGICAL(KIND=C_BOOL) :: name_tmp
552      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
553      LOGICAL(KIND=C_BOOL) :: operation_tmp
554      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
555      LOGICAL(KIND=C_BOOL) :: prec_tmp
556      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
557      LOGICAL(KIND=C_BOOL) :: read_access_tmp
558      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
559      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
560      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
561      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
562      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled
563      LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp
564      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq
565      LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp
566      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
567      LOGICAL(KIND=C_BOOL) :: unit_tmp
568      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
569      LOGICAL(KIND=C_BOOL) :: valid_max_tmp
570      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
571      LOGICAL(KIND=C_BOOL) :: valid_min_tmp
572
573      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
574      CALL xios(is_defined_fieldgroup_attr_hdl_)   &
575      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
576      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
577      , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled  &
578      , ts_split_freq, unit, valid_max, valid_min )
579
580  END SUBROUTINE xios(is_defined_fieldgroup_attr)
581
582  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)  &
583    ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
584    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
585    , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled  &
586    , ts_split_freq, unit, valid_max, valid_min )
587
588    IMPLICIT NONE
589      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
590      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
591      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
592      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
593      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
594      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
595      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
596      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
597      LOGICAL(KIND=C_BOOL) :: default_value_tmp
598      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
599      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
600      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
601      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
602      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
603      LOGICAL(KIND=C_BOOL) :: enabled_tmp
604      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
605      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
606      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
607      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
608      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
609      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
610      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
611      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
612      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
613      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
614      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
615      LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
616      LOGICAL, OPTIONAL, INTENT(OUT) :: level
617      LOGICAL(KIND=C_BOOL) :: level_tmp
618      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
619      LOGICAL(KIND=C_BOOL) :: long_name_tmp
620      LOGICAL, OPTIONAL, INTENT(OUT) :: name
621      LOGICAL(KIND=C_BOOL) :: name_tmp
622      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
623      LOGICAL(KIND=C_BOOL) :: operation_tmp
624      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
625      LOGICAL(KIND=C_BOOL) :: prec_tmp
626      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
627      LOGICAL(KIND=C_BOOL) :: read_access_tmp
628      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
629      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
630      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
631      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
632      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled
633      LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp
634      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq
635      LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp
636      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
637      LOGICAL(KIND=C_BOOL) :: unit_tmp
638      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
639      LOGICAL(KIND=C_BOOL) :: valid_max_tmp
640      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
641      LOGICAL(KIND=C_BOOL) :: valid_min_tmp
642
643      CALL xios(is_defined_fieldgroup_attr_hdl_)  &
644      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
645      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, indexed_output  &
646      , level, long_name, name, operation, prec, read_access, scale_factor, standard_name, ts_enabled  &
647      , ts_split_freq, unit, valid_max, valid_min )
648
649  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)
650
651  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)   &
652    ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  &
653    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, indexed_output_  &
654    , level_, long_name_, name_, operation_, prec_, read_access_, scale_factor_, standard_name_  &
655    , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ )
656
657    IMPLICIT NONE
658      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
659      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset_
660      LOGICAL(KIND=C_BOOL) :: add_offset__tmp
661      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
662      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
663      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
664      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
665      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
666      LOGICAL(KIND=C_BOOL) :: default_value__tmp
667      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
668      LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
669      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
670      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
671      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
672      LOGICAL(KIND=C_BOOL) :: enabled__tmp
673      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_
674      LOGICAL(KIND=C_BOOL) :: field_ref__tmp
675      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_
676      LOGICAL(KIND=C_BOOL) :: freq_offset__tmp
677      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_
678      LOGICAL(KIND=C_BOOL) :: freq_op__tmp
679      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_
680      LOGICAL(KIND=C_BOOL) :: grid_ref__tmp
681      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
682      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
683      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output_
684      LOGICAL(KIND=C_BOOL) :: indexed_output__tmp
685      LOGICAL, OPTIONAL, INTENT(OUT) :: level_
686      LOGICAL(KIND=C_BOOL) :: level__tmp
687      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
688      LOGICAL(KIND=C_BOOL) :: long_name__tmp
689      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
690      LOGICAL(KIND=C_BOOL) :: name__tmp
691      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
692      LOGICAL(KIND=C_BOOL) :: operation__tmp
693      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
694      LOGICAL(KIND=C_BOOL) :: prec__tmp
695      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access_
696      LOGICAL(KIND=C_BOOL) :: read_access__tmp
697      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor_
698      LOGICAL(KIND=C_BOOL) :: scale_factor__tmp
699      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
700      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
701      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled_
702      LOGICAL(KIND=C_BOOL) :: ts_enabled__tmp
703      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq_
704      LOGICAL(KIND=C_BOOL) :: ts_split_freq__tmp
705      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
706      LOGICAL(KIND=C_BOOL) :: unit__tmp
707      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max_
708      LOGICAL(KIND=C_BOOL) :: valid_max__tmp
709      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_
710      LOGICAL(KIND=C_BOOL) :: valid_min__tmp
711
712      IF (PRESENT(add_offset_)) THEN
713        add_offset__tmp = cxios_is_defined_fieldgroup_add_offset(fieldgroup_hdl%daddr)
714        add_offset_ = add_offset__tmp
715      ENDIF
716
717      IF (PRESENT(axis_ref_)) THEN
718        axis_ref__tmp = cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl%daddr)
719        axis_ref_ = axis_ref__tmp
720      ENDIF
721
722      IF (PRESENT(compression_level_)) THEN
723        compression_level__tmp = cxios_is_defined_fieldgroup_compression_level(fieldgroup_hdl%daddr)
724        compression_level_ = compression_level__tmp
725      ENDIF
726
727      IF (PRESENT(default_value_)) THEN
728        default_value__tmp = cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl%daddr)
729        default_value_ = default_value__tmp
730      ENDIF
731
732      IF (PRESENT(detect_missing_value_)) THEN
733        detect_missing_value__tmp = cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr)
734        detect_missing_value_ = detect_missing_value__tmp
735      ENDIF
736
737      IF (PRESENT(domain_ref_)) THEN
738        domain_ref__tmp = cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl%daddr)
739        domain_ref_ = domain_ref__tmp
740      ENDIF
741
742      IF (PRESENT(enabled_)) THEN
743        enabled__tmp = cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl%daddr)
744        enabled_ = enabled__tmp
745      ENDIF
746
747      IF (PRESENT(field_ref_)) THEN
748        field_ref__tmp = cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl%daddr)
749        field_ref_ = field_ref__tmp
750      ENDIF
751
752      IF (PRESENT(freq_offset_)) THEN
753        freq_offset__tmp = cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl%daddr)
754        freq_offset_ = freq_offset__tmp
755      ENDIF
756
757      IF (PRESENT(freq_op_)) THEN
758        freq_op__tmp = cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl%daddr)
759        freq_op_ = freq_op__tmp
760      ENDIF
761
762      IF (PRESENT(grid_ref_)) THEN
763        grid_ref__tmp = cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl%daddr)
764        grid_ref_ = grid_ref__tmp
765      ENDIF
766
767      IF (PRESENT(group_ref_)) THEN
768        group_ref__tmp = cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl%daddr)
769        group_ref_ = group_ref__tmp
770      ENDIF
771
772      IF (PRESENT(indexed_output_)) THEN
773        indexed_output__tmp = cxios_is_defined_fieldgroup_indexed_output(fieldgroup_hdl%daddr)
774        indexed_output_ = indexed_output__tmp
775      ENDIF
776
777      IF (PRESENT(level_)) THEN
778        level__tmp = cxios_is_defined_fieldgroup_level(fieldgroup_hdl%daddr)
779        level_ = level__tmp
780      ENDIF
781
782      IF (PRESENT(long_name_)) THEN
783        long_name__tmp = cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl%daddr)
784        long_name_ = long_name__tmp
785      ENDIF
786
787      IF (PRESENT(name_)) THEN
788        name__tmp = cxios_is_defined_fieldgroup_name(fieldgroup_hdl%daddr)
789        name_ = name__tmp
790      ENDIF
791
792      IF (PRESENT(operation_)) THEN
793        operation__tmp = cxios_is_defined_fieldgroup_operation(fieldgroup_hdl%daddr)
794        operation_ = operation__tmp
795      ENDIF
796
797      IF (PRESENT(prec_)) THEN
798        prec__tmp = cxios_is_defined_fieldgroup_prec(fieldgroup_hdl%daddr)
799        prec_ = prec__tmp
800      ENDIF
801
802      IF (PRESENT(read_access_)) THEN
803        read_access__tmp = cxios_is_defined_fieldgroup_read_access(fieldgroup_hdl%daddr)
804        read_access_ = read_access__tmp
805      ENDIF
806
807      IF (PRESENT(scale_factor_)) THEN
808        scale_factor__tmp = cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl%daddr)
809        scale_factor_ = scale_factor__tmp
810      ENDIF
811
812      IF (PRESENT(standard_name_)) THEN
813        standard_name__tmp = cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl%daddr)
814        standard_name_ = standard_name__tmp
815      ENDIF
816
817      IF (PRESENT(ts_enabled_)) THEN
818        ts_enabled__tmp = cxios_is_defined_fieldgroup_ts_enabled(fieldgroup_hdl%daddr)
819        ts_enabled_ = ts_enabled__tmp
820      ENDIF
821
822      IF (PRESENT(ts_split_freq_)) THEN
823        ts_split_freq__tmp = cxios_is_defined_fieldgroup_ts_split_freq(fieldgroup_hdl%daddr)
824        ts_split_freq_ = ts_split_freq__tmp
825      ENDIF
826
827      IF (PRESENT(unit_)) THEN
828        unit__tmp = cxios_is_defined_fieldgroup_unit(fieldgroup_hdl%daddr)
829        unit_ = unit__tmp
830      ENDIF
831
832      IF (PRESENT(valid_max_)) THEN
833        valid_max__tmp = cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl%daddr)
834        valid_max_ = valid_max__tmp
835      ENDIF
836
837      IF (PRESENT(valid_min_)) THEN
838        valid_min__tmp = cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl%daddr)
839        valid_min_ = valid_min__tmp
840      ENDIF
841
842  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)
843
844END MODULE ifieldgroup_attr
Note: See TracBrowser for help on using the repository browser.