source: XIOS/dev/dev_olga/src/interface/fortran_attr/ifieldgroup_attr.F90 @ 1021

Last change on this file since 1021 was 1021, checked in by oabramkina, 7 years ago

Intermeadiate version for merging with new server functionalities.

  • 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: 44.9 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, cell_methods, cell_methods_mode, compression_level, default_value  &
15    , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  &
16    , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  &
17    , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  &
18     )
19
20    IMPLICIT NONE
21      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
22      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
23      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode
27      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
28      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
29      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
30      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
32      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
33      LOGICAL (KIND=C_BOOL) :: enabled_tmp
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
36      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset
37      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op
38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
41      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output
42      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
43      INTEGER  , OPTIONAL, INTENT(IN) :: level
44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
47      INTEGER  , OPTIONAL, INTENT(IN) :: prec
48      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
49      LOGICAL (KIND=C_BOOL) :: read_access_tmp
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
51      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
53      LOGICAL  , OPTIONAL, INTENT(IN) :: ts_enabled
54      LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
55      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: ts_split_freq
56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
57      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
58      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
59
60      CALL xios(get_fieldgroup_handle) &
61      (fieldgroup_id,fieldgroup_hdl)
62      CALL xios(set_fieldgroup_attr_hdl_)   &
63      ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  &
64      , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  &
65      , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  &
66      , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  &
67       )
68
69  END SUBROUTINE xios(set_fieldgroup_attr)
70
71  SUBROUTINE xios(set_fieldgroup_attr_hdl)  &
72    ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  &
73    , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  &
74    , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  &
75    , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  &
76     )
77
78    IMPLICIT NONE
79      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
80      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods
83      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode
84      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
85      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
86      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
87      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
88      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
89      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
90      LOGICAL (KIND=C_BOOL) :: enabled_tmp
91      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr
92      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
93      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset
94      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op
95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
96      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
98      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output
99      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
100      INTEGER  , OPTIONAL, INTENT(IN) :: level
101      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
102      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
103      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
104      INTEGER  , OPTIONAL, INTENT(IN) :: prec
105      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
106      LOGICAL (KIND=C_BOOL) :: read_access_tmp
107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
108      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
109      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
110      LOGICAL  , OPTIONAL, INTENT(IN) :: ts_enabled
111      LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
112      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: ts_split_freq
113      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
114      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
115      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
116
117      CALL xios(set_fieldgroup_attr_hdl_)  &
118      ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  &
119      , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  &
120      , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  &
121      , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  &
122       )
123
124  END SUBROUTINE xios(set_fieldgroup_attr_hdl)
125
126  SUBROUTINE xios(set_fieldgroup_attr_hdl_)   &
127    ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, compression_level_  &
128    , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_  &
129    , freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_, name_, operation_  &
130    , prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_  &
131    , unit_, valid_max_, valid_min_ )
132
133    IMPLICIT NONE
134      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
135      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_
136      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
137      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_
138      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode_
139      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
140      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
141      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_
142      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
143      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
144      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
145      LOGICAL (KIND=C_BOOL) :: enabled__tmp
146      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr_
147      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
148      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset_
149      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op_
150      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path_
151      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
152      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
153      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output_
154      LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
155      INTEGER  , OPTIONAL, INTENT(IN) :: level_
156      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
157      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
158      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
159      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
160      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access_
161      LOGICAL (KIND=C_BOOL) :: read_access__tmp
162      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_
163      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor_
164      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
165      LOGICAL  , OPTIONAL, INTENT(IN) :: ts_enabled_
166      LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp
167      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: ts_split_freq_
168      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
169      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_
170      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_
171
172      IF (PRESENT(add_offset_)) THEN
173        CALL cxios_set_fieldgroup_add_offset &
174      (fieldgroup_hdl%daddr, add_offset_)
175      ENDIF
176
177      IF (PRESENT(axis_ref_)) THEN
178        CALL cxios_set_fieldgroup_axis_ref &
179      (fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
180      ENDIF
181
182      IF (PRESENT(cell_methods_)) THEN
183        CALL cxios_set_fieldgroup_cell_methods &
184      (fieldgroup_hdl%daddr, cell_methods_, len(cell_methods_))
185      ENDIF
186
187      IF (PRESENT(cell_methods_mode_)) THEN
188        CALL cxios_set_fieldgroup_cell_methods_mode &
189      (fieldgroup_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_))
190      ENDIF
191
192      IF (PRESENT(compression_level_)) THEN
193        CALL cxios_set_fieldgroup_compression_level &
194      (fieldgroup_hdl%daddr, compression_level_)
195      ENDIF
196
197      IF (PRESENT(default_value_)) THEN
198        CALL cxios_set_fieldgroup_default_value &
199      (fieldgroup_hdl%daddr, default_value_)
200      ENDIF
201
202      IF (PRESENT(detect_missing_value_)) THEN
203        detect_missing_value__tmp = detect_missing_value_
204        CALL cxios_set_fieldgroup_detect_missing_value &
205      (fieldgroup_hdl%daddr, detect_missing_value__tmp)
206      ENDIF
207
208      IF (PRESENT(domain_ref_)) THEN
209        CALL cxios_set_fieldgroup_domain_ref &
210      (fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
211      ENDIF
212
213      IF (PRESENT(enabled_)) THEN
214        enabled__tmp = enabled_
215        CALL cxios_set_fieldgroup_enabled &
216      (fieldgroup_hdl%daddr, enabled__tmp)
217      ENDIF
218
219      IF (PRESENT(expr_)) THEN
220        CALL cxios_set_fieldgroup_expr &
221      (fieldgroup_hdl%daddr, expr_, len(expr_))
222      ENDIF
223
224      IF (PRESENT(field_ref_)) THEN
225        CALL cxios_set_fieldgroup_field_ref &
226      (fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
227      ENDIF
228
229      IF (PRESENT(freq_offset_)) THEN
230        CALL cxios_set_fieldgroup_freq_offset &
231      (fieldgroup_hdl%daddr, freq_offset_)
232      ENDIF
233
234      IF (PRESENT(freq_op_)) THEN
235        CALL cxios_set_fieldgroup_freq_op &
236      (fieldgroup_hdl%daddr, freq_op_)
237      ENDIF
238
239      IF (PRESENT(grid_path_)) THEN
240        CALL cxios_set_fieldgroup_grid_path &
241      (fieldgroup_hdl%daddr, grid_path_, len(grid_path_))
242      ENDIF
243
244      IF (PRESENT(grid_ref_)) THEN
245        CALL cxios_set_fieldgroup_grid_ref &
246      (fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
247      ENDIF
248
249      IF (PRESENT(group_ref_)) THEN
250        CALL cxios_set_fieldgroup_group_ref &
251      (fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
252      ENDIF
253
254      IF (PRESENT(indexed_output_)) THEN
255        indexed_output__tmp = indexed_output_
256        CALL cxios_set_fieldgroup_indexed_output &
257      (fieldgroup_hdl%daddr, indexed_output__tmp)
258      ENDIF
259
260      IF (PRESENT(level_)) THEN
261        CALL cxios_set_fieldgroup_level &
262      (fieldgroup_hdl%daddr, level_)
263      ENDIF
264
265      IF (PRESENT(long_name_)) THEN
266        CALL cxios_set_fieldgroup_long_name &
267      (fieldgroup_hdl%daddr, long_name_, len(long_name_))
268      ENDIF
269
270      IF (PRESENT(name_)) THEN
271        CALL cxios_set_fieldgroup_name &
272      (fieldgroup_hdl%daddr, name_, len(name_))
273      ENDIF
274
275      IF (PRESENT(operation_)) THEN
276        CALL cxios_set_fieldgroup_operation &
277      (fieldgroup_hdl%daddr, operation_, len(operation_))
278      ENDIF
279
280      IF (PRESENT(prec_)) THEN
281        CALL cxios_set_fieldgroup_prec &
282      (fieldgroup_hdl%daddr, prec_)
283      ENDIF
284
285      IF (PRESENT(read_access_)) THEN
286        read_access__tmp = read_access_
287        CALL cxios_set_fieldgroup_read_access &
288      (fieldgroup_hdl%daddr, read_access__tmp)
289      ENDIF
290
291      IF (PRESENT(scalar_ref_)) THEN
292        CALL cxios_set_fieldgroup_scalar_ref &
293      (fieldgroup_hdl%daddr, scalar_ref_, len(scalar_ref_))
294      ENDIF
295
296      IF (PRESENT(scale_factor_)) THEN
297        CALL cxios_set_fieldgroup_scale_factor &
298      (fieldgroup_hdl%daddr, scale_factor_)
299      ENDIF
300
301      IF (PRESENT(standard_name_)) THEN
302        CALL cxios_set_fieldgroup_standard_name &
303      (fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
304      ENDIF
305
306      IF (PRESENT(ts_enabled_)) THEN
307        ts_enabled__tmp = ts_enabled_
308        CALL cxios_set_fieldgroup_ts_enabled &
309      (fieldgroup_hdl%daddr, ts_enabled__tmp)
310      ENDIF
311
312      IF (PRESENT(ts_split_freq_)) THEN
313        CALL cxios_set_fieldgroup_ts_split_freq &
314      (fieldgroup_hdl%daddr, ts_split_freq_)
315      ENDIF
316
317      IF (PRESENT(unit_)) THEN
318        CALL cxios_set_fieldgroup_unit &
319      (fieldgroup_hdl%daddr, unit_, len(unit_))
320      ENDIF
321
322      IF (PRESENT(valid_max_)) THEN
323        CALL cxios_set_fieldgroup_valid_max &
324      (fieldgroup_hdl%daddr, valid_max_)
325      ENDIF
326
327      IF (PRESENT(valid_min_)) THEN
328        CALL cxios_set_fieldgroup_valid_min &
329      (fieldgroup_hdl%daddr, valid_min_)
330      ENDIF
331
332  END SUBROUTINE xios(set_fieldgroup_attr_hdl_)
333
334  SUBROUTINE xios(get_fieldgroup_attr)  &
335    ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  &
336    , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  &
337    , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  &
338    , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  &
339     )
340
341    IMPLICIT NONE
342      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
343      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
344      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
345      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
346      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods
347      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode
348      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
349      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
350      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
351      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
352      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
353      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
354      LOGICAL (KIND=C_BOOL) :: enabled_tmp
355      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr
356      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
357      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
358      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
359      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
360      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
361      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
362      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output
363      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
364      INTEGER  , OPTIONAL, INTENT(OUT) :: level
365      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
366      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
367      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
368      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
369      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
370      LOGICAL (KIND=C_BOOL) :: read_access_tmp
371      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
372      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
373      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
374      LOGICAL  , OPTIONAL, INTENT(OUT) :: ts_enabled
375      LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
376      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: ts_split_freq
377      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
378      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
379      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
380
381      CALL xios(get_fieldgroup_handle) &
382      (fieldgroup_id,fieldgroup_hdl)
383      CALL xios(get_fieldgroup_attr_hdl_)   &
384      ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  &
385      , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  &
386      , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  &
387      , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  &
388       )
389
390  END SUBROUTINE xios(get_fieldgroup_attr)
391
392  SUBROUTINE xios(get_fieldgroup_attr_hdl)  &
393    ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  &
394    , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  &
395    , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  &
396    , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  &
397     )
398
399    IMPLICIT NONE
400      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
401      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
402      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
403      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods
404      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode
405      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
406      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
407      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
408      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
409      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
410      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
411      LOGICAL (KIND=C_BOOL) :: enabled_tmp
412      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr
413      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
414      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
415      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
416      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
417      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
418      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
419      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output
420      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
421      INTEGER  , OPTIONAL, INTENT(OUT) :: level
422      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
423      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
424      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
425      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
426      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
427      LOGICAL (KIND=C_BOOL) :: read_access_tmp
428      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
429      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
430      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
431      LOGICAL  , OPTIONAL, INTENT(OUT) :: ts_enabled
432      LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
433      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: ts_split_freq
434      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
435      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
436      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
437
438      CALL xios(get_fieldgroup_attr_hdl_)  &
439      ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  &
440      , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  &
441      , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  &
442      , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  &
443       )
444
445  END SUBROUTINE xios(get_fieldgroup_attr_hdl)
446
447  SUBROUTINE xios(get_fieldgroup_attr_hdl_)   &
448    ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, compression_level_  &
449    , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_  &
450    , freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_, name_, operation_  &
451    , prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_  &
452    , unit_, valid_max_, valid_min_ )
453
454    IMPLICIT NONE
455      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
456      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_
457      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
458      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_
459      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode_
460      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
461      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
462      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_
463      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
464      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
465      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
466      LOGICAL (KIND=C_BOOL) :: enabled__tmp
467      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr_
468      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
469      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset_
470      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op_
471      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path_
472      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
473      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
474      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output_
475      LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
476      INTEGER  , OPTIONAL, INTENT(OUT) :: level_
477      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
478      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
479      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
480      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
481      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access_
482      LOGICAL (KIND=C_BOOL) :: read_access__tmp
483      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_
484      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor_
485      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
486      LOGICAL  , OPTIONAL, INTENT(OUT) :: ts_enabled_
487      LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp
488      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: ts_split_freq_
489      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
490      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_
491      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_
492
493      IF (PRESENT(add_offset_)) THEN
494        CALL cxios_get_fieldgroup_add_offset &
495      (fieldgroup_hdl%daddr, add_offset_)
496      ENDIF
497
498      IF (PRESENT(axis_ref_)) THEN
499        CALL cxios_get_fieldgroup_axis_ref &
500      (fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
501      ENDIF
502
503      IF (PRESENT(cell_methods_)) THEN
504        CALL cxios_get_fieldgroup_cell_methods &
505      (fieldgroup_hdl%daddr, cell_methods_, len(cell_methods_))
506      ENDIF
507
508      IF (PRESENT(cell_methods_mode_)) THEN
509        CALL cxios_get_fieldgroup_cell_methods_mode &
510      (fieldgroup_hdl%daddr, cell_methods_mode_, len(cell_methods_mode_))
511      ENDIF
512
513      IF (PRESENT(compression_level_)) THEN
514        CALL cxios_get_fieldgroup_compression_level &
515      (fieldgroup_hdl%daddr, compression_level_)
516      ENDIF
517
518      IF (PRESENT(default_value_)) THEN
519        CALL cxios_get_fieldgroup_default_value &
520      (fieldgroup_hdl%daddr, default_value_)
521      ENDIF
522
523      IF (PRESENT(detect_missing_value_)) THEN
524        CALL cxios_get_fieldgroup_detect_missing_value &
525      (fieldgroup_hdl%daddr, detect_missing_value__tmp)
526        detect_missing_value_ = detect_missing_value__tmp
527      ENDIF
528
529      IF (PRESENT(domain_ref_)) THEN
530        CALL cxios_get_fieldgroup_domain_ref &
531      (fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
532      ENDIF
533
534      IF (PRESENT(enabled_)) THEN
535        CALL cxios_get_fieldgroup_enabled &
536      (fieldgroup_hdl%daddr, enabled__tmp)
537        enabled_ = enabled__tmp
538      ENDIF
539
540      IF (PRESENT(expr_)) THEN
541        CALL cxios_get_fieldgroup_expr &
542      (fieldgroup_hdl%daddr, expr_, len(expr_))
543      ENDIF
544
545      IF (PRESENT(field_ref_)) THEN
546        CALL cxios_get_fieldgroup_field_ref &
547      (fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
548      ENDIF
549
550      IF (PRESENT(freq_offset_)) THEN
551        CALL cxios_get_fieldgroup_freq_offset &
552      (fieldgroup_hdl%daddr, freq_offset_)
553      ENDIF
554
555      IF (PRESENT(freq_op_)) THEN
556        CALL cxios_get_fieldgroup_freq_op &
557      (fieldgroup_hdl%daddr, freq_op_)
558      ENDIF
559
560      IF (PRESENT(grid_path_)) THEN
561        CALL cxios_get_fieldgroup_grid_path &
562      (fieldgroup_hdl%daddr, grid_path_, len(grid_path_))
563      ENDIF
564
565      IF (PRESENT(grid_ref_)) THEN
566        CALL cxios_get_fieldgroup_grid_ref &
567      (fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
568      ENDIF
569
570      IF (PRESENT(group_ref_)) THEN
571        CALL cxios_get_fieldgroup_group_ref &
572      (fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
573      ENDIF
574
575      IF (PRESENT(indexed_output_)) THEN
576        CALL cxios_get_fieldgroup_indexed_output &
577      (fieldgroup_hdl%daddr, indexed_output__tmp)
578        indexed_output_ = indexed_output__tmp
579      ENDIF
580
581      IF (PRESENT(level_)) THEN
582        CALL cxios_get_fieldgroup_level &
583      (fieldgroup_hdl%daddr, level_)
584      ENDIF
585
586      IF (PRESENT(long_name_)) THEN
587        CALL cxios_get_fieldgroup_long_name &
588      (fieldgroup_hdl%daddr, long_name_, len(long_name_))
589      ENDIF
590
591      IF (PRESENT(name_)) THEN
592        CALL cxios_get_fieldgroup_name &
593      (fieldgroup_hdl%daddr, name_, len(name_))
594      ENDIF
595
596      IF (PRESENT(operation_)) THEN
597        CALL cxios_get_fieldgroup_operation &
598      (fieldgroup_hdl%daddr, operation_, len(operation_))
599      ENDIF
600
601      IF (PRESENT(prec_)) THEN
602        CALL cxios_get_fieldgroup_prec &
603      (fieldgroup_hdl%daddr, prec_)
604      ENDIF
605
606      IF (PRESENT(read_access_)) THEN
607        CALL cxios_get_fieldgroup_read_access &
608      (fieldgroup_hdl%daddr, read_access__tmp)
609        read_access_ = read_access__tmp
610      ENDIF
611
612      IF (PRESENT(scalar_ref_)) THEN
613        CALL cxios_get_fieldgroup_scalar_ref &
614      (fieldgroup_hdl%daddr, scalar_ref_, len(scalar_ref_))
615      ENDIF
616
617      IF (PRESENT(scale_factor_)) THEN
618        CALL cxios_get_fieldgroup_scale_factor &
619      (fieldgroup_hdl%daddr, scale_factor_)
620      ENDIF
621
622      IF (PRESENT(standard_name_)) THEN
623        CALL cxios_get_fieldgroup_standard_name &
624      (fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
625      ENDIF
626
627      IF (PRESENT(ts_enabled_)) THEN
628        CALL cxios_get_fieldgroup_ts_enabled &
629      (fieldgroup_hdl%daddr, ts_enabled__tmp)
630        ts_enabled_ = ts_enabled__tmp
631      ENDIF
632
633      IF (PRESENT(ts_split_freq_)) THEN
634        CALL cxios_get_fieldgroup_ts_split_freq &
635      (fieldgroup_hdl%daddr, ts_split_freq_)
636      ENDIF
637
638      IF (PRESENT(unit_)) THEN
639        CALL cxios_get_fieldgroup_unit &
640      (fieldgroup_hdl%daddr, unit_, len(unit_))
641      ENDIF
642
643      IF (PRESENT(valid_max_)) THEN
644        CALL cxios_get_fieldgroup_valid_max &
645      (fieldgroup_hdl%daddr, valid_max_)
646      ENDIF
647
648      IF (PRESENT(valid_min_)) THEN
649        CALL cxios_get_fieldgroup_valid_min &
650      (fieldgroup_hdl%daddr, valid_min_)
651      ENDIF
652
653  END SUBROUTINE xios(get_fieldgroup_attr_hdl_)
654
655  SUBROUTINE xios(is_defined_fieldgroup_attr)  &
656    ( fieldgroup_id, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  &
657    , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  &
658    , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  &
659    , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  &
660     )
661
662    IMPLICIT NONE
663      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
664      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
665      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
666      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
667      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
668      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
669      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods
670      LOGICAL(KIND=C_BOOL) :: cell_methods_tmp
671      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode
672      LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp
673      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
674      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
675      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
676      LOGICAL(KIND=C_BOOL) :: default_value_tmp
677      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
678      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
679      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
680      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
681      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
682      LOGICAL(KIND=C_BOOL) :: enabled_tmp
683      LOGICAL, OPTIONAL, INTENT(OUT) :: expr
684      LOGICAL(KIND=C_BOOL) :: expr_tmp
685      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
686      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
687      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
688      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
689      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
690      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
691      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path
692      LOGICAL(KIND=C_BOOL) :: grid_path_tmp
693      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
694      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
695      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
696      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
697      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
698      LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
699      LOGICAL, OPTIONAL, INTENT(OUT) :: level
700      LOGICAL(KIND=C_BOOL) :: level_tmp
701      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
702      LOGICAL(KIND=C_BOOL) :: long_name_tmp
703      LOGICAL, OPTIONAL, INTENT(OUT) :: name
704      LOGICAL(KIND=C_BOOL) :: name_tmp
705      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
706      LOGICAL(KIND=C_BOOL) :: operation_tmp
707      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
708      LOGICAL(KIND=C_BOOL) :: prec_tmp
709      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
710      LOGICAL(KIND=C_BOOL) :: read_access_tmp
711      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
712      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
713      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
714      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
715      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
716      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
717      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled
718      LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp
719      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq
720      LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp
721      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
722      LOGICAL(KIND=C_BOOL) :: unit_tmp
723      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
724      LOGICAL(KIND=C_BOOL) :: valid_max_tmp
725      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
726      LOGICAL(KIND=C_BOOL) :: valid_min_tmp
727
728      CALL xios(get_fieldgroup_handle) &
729      (fieldgroup_id,fieldgroup_hdl)
730      CALL xios(is_defined_fieldgroup_attr_hdl_)   &
731      ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  &
732      , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  &
733      , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  &
734      , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  &
735       )
736
737  END SUBROUTINE xios(is_defined_fieldgroup_attr)
738
739  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)  &
740    ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  &
741    , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  &
742    , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  &
743    , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  &
744     )
745
746    IMPLICIT NONE
747      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
748      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
749      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
750      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
751      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
752      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods
753      LOGICAL(KIND=C_BOOL) :: cell_methods_tmp
754      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode
755      LOGICAL(KIND=C_BOOL) :: cell_methods_mode_tmp
756      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
757      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
758      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
759      LOGICAL(KIND=C_BOOL) :: default_value_tmp
760      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
761      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
762      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
763      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
764      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
765      LOGICAL(KIND=C_BOOL) :: enabled_tmp
766      LOGICAL, OPTIONAL, INTENT(OUT) :: expr
767      LOGICAL(KIND=C_BOOL) :: expr_tmp
768      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
769      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
770      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
771      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
772      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
773      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
774      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path
775      LOGICAL(KIND=C_BOOL) :: grid_path_tmp
776      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
777      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
778      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
779      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
780      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
781      LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
782      LOGICAL, OPTIONAL, INTENT(OUT) :: level
783      LOGICAL(KIND=C_BOOL) :: level_tmp
784      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
785      LOGICAL(KIND=C_BOOL) :: long_name_tmp
786      LOGICAL, OPTIONAL, INTENT(OUT) :: name
787      LOGICAL(KIND=C_BOOL) :: name_tmp
788      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
789      LOGICAL(KIND=C_BOOL) :: operation_tmp
790      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
791      LOGICAL(KIND=C_BOOL) :: prec_tmp
792      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
793      LOGICAL(KIND=C_BOOL) :: read_access_tmp
794      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
795      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
796      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
797      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
798      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
799      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
800      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled
801      LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp
802      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq
803      LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp
804      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
805      LOGICAL(KIND=C_BOOL) :: unit_tmp
806      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
807      LOGICAL(KIND=C_BOOL) :: valid_max_tmp
808      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
809      LOGICAL(KIND=C_BOOL) :: valid_min_tmp
810
811      CALL xios(is_defined_fieldgroup_attr_hdl_)  &
812      ( fieldgroup_hdl, add_offset, axis_ref, cell_methods, cell_methods_mode, compression_level, default_value  &
813      , detect_missing_value, domain_ref, enabled, expr, field_ref, freq_offset, freq_op, grid_path  &
814      , grid_ref, group_ref, indexed_output, level, long_name, name, operation, prec, read_access  &
815      , scalar_ref, scale_factor, standard_name, ts_enabled, ts_split_freq, unit, valid_max, valid_min  &
816       )
817
818  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)
819
820  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)   &
821    ( fieldgroup_hdl, add_offset_, axis_ref_, cell_methods_, cell_methods_mode_, compression_level_  &
822    , default_value_, detect_missing_value_, domain_ref_, enabled_, expr_, field_ref_, freq_offset_  &
823    , freq_op_, grid_path_, grid_ref_, group_ref_, indexed_output_, level_, long_name_, name_, operation_  &
824    , prec_, read_access_, scalar_ref_, scale_factor_, standard_name_, ts_enabled_, ts_split_freq_  &
825    , unit_, valid_max_, valid_min_ )
826
827    IMPLICIT NONE
828      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
829      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset_
830      LOGICAL(KIND=C_BOOL) :: add_offset__tmp
831      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
832      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
833      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_
834      LOGICAL(KIND=C_BOOL) :: cell_methods__tmp
835      LOGICAL, OPTIONAL, INTENT(OUT) :: cell_methods_mode_
836      LOGICAL(KIND=C_BOOL) :: cell_methods_mode__tmp
837      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
838      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
839      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
840      LOGICAL(KIND=C_BOOL) :: default_value__tmp
841      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
842      LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
843      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
844      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
845      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
846      LOGICAL(KIND=C_BOOL) :: enabled__tmp
847      LOGICAL, OPTIONAL, INTENT(OUT) :: expr_
848      LOGICAL(KIND=C_BOOL) :: expr__tmp
849      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_
850      LOGICAL(KIND=C_BOOL) :: field_ref__tmp
851      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_
852      LOGICAL(KIND=C_BOOL) :: freq_offset__tmp
853      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_
854      LOGICAL(KIND=C_BOOL) :: freq_op__tmp
855      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path_
856      LOGICAL(KIND=C_BOOL) :: grid_path__tmp
857      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_
858      LOGICAL(KIND=C_BOOL) :: grid_ref__tmp
859      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
860      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
861      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output_
862      LOGICAL(KIND=C_BOOL) :: indexed_output__tmp
863      LOGICAL, OPTIONAL, INTENT(OUT) :: level_
864      LOGICAL(KIND=C_BOOL) :: level__tmp
865      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
866      LOGICAL(KIND=C_BOOL) :: long_name__tmp
867      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
868      LOGICAL(KIND=C_BOOL) :: name__tmp
869      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
870      LOGICAL(KIND=C_BOOL) :: operation__tmp
871      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
872      LOGICAL(KIND=C_BOOL) :: prec__tmp
873      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access_
874      LOGICAL(KIND=C_BOOL) :: read_access__tmp
875      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref_
876      LOGICAL(KIND=C_BOOL) :: scalar_ref__tmp
877      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor_
878      LOGICAL(KIND=C_BOOL) :: scale_factor__tmp
879      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
880      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
881      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled_
882      LOGICAL(KIND=C_BOOL) :: ts_enabled__tmp
883      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq_
884      LOGICAL(KIND=C_BOOL) :: ts_split_freq__tmp
885      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
886      LOGICAL(KIND=C_BOOL) :: unit__tmp
887      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max_
888      LOGICAL(KIND=C_BOOL) :: valid_max__tmp
889      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_
890      LOGICAL(KIND=C_BOOL) :: valid_min__tmp
891
892      IF (PRESENT(add_offset_)) THEN
893        add_offset__tmp = cxios_is_defined_fieldgroup_add_offset &
894      (fieldgroup_hdl%daddr)
895        add_offset_ = add_offset__tmp
896      ENDIF
897
898      IF (PRESENT(axis_ref_)) THEN
899        axis_ref__tmp = cxios_is_defined_fieldgroup_axis_ref &
900      (fieldgroup_hdl%daddr)
901        axis_ref_ = axis_ref__tmp
902      ENDIF
903
904      IF (PRESENT(cell_methods_)) THEN
905        cell_methods__tmp = cxios_is_defined_fieldgroup_cell_methods &
906      (fieldgroup_hdl%daddr)
907        cell_methods_ = cell_methods__tmp
908      ENDIF
909
910      IF (PRESENT(cell_methods_mode_)) THEN
911        cell_methods_mode__tmp = cxios_is_defined_fieldgroup_cell_methods_mode &
912      (fieldgroup_hdl%daddr)
913        cell_methods_mode_ = cell_methods_mode__tmp
914      ENDIF
915
916      IF (PRESENT(compression_level_)) THEN
917        compression_level__tmp = cxios_is_defined_fieldgroup_compression_level &
918      (fieldgroup_hdl%daddr)
919        compression_level_ = compression_level__tmp
920      ENDIF
921
922      IF (PRESENT(default_value_)) THEN
923        default_value__tmp = cxios_is_defined_fieldgroup_default_value &
924      (fieldgroup_hdl%daddr)
925        default_value_ = default_value__tmp
926      ENDIF
927
928      IF (PRESENT(detect_missing_value_)) THEN
929        detect_missing_value__tmp = cxios_is_defined_fieldgroup_detect_missing_value &
930      (fieldgroup_hdl%daddr)
931        detect_missing_value_ = detect_missing_value__tmp
932      ENDIF
933
934      IF (PRESENT(domain_ref_)) THEN
935        domain_ref__tmp = cxios_is_defined_fieldgroup_domain_ref &
936      (fieldgroup_hdl%daddr)
937        domain_ref_ = domain_ref__tmp
938      ENDIF
939
940      IF (PRESENT(enabled_)) THEN
941        enabled__tmp = cxios_is_defined_fieldgroup_enabled &
942      (fieldgroup_hdl%daddr)
943        enabled_ = enabled__tmp
944      ENDIF
945
946      IF (PRESENT(expr_)) THEN
947        expr__tmp = cxios_is_defined_fieldgroup_expr &
948      (fieldgroup_hdl%daddr)
949        expr_ = expr__tmp
950      ENDIF
951
952      IF (PRESENT(field_ref_)) THEN
953        field_ref__tmp = cxios_is_defined_fieldgroup_field_ref &
954      (fieldgroup_hdl%daddr)
955        field_ref_ = field_ref__tmp
956      ENDIF
957
958      IF (PRESENT(freq_offset_)) THEN
959        freq_offset__tmp = cxios_is_defined_fieldgroup_freq_offset &
960      (fieldgroup_hdl%daddr)
961        freq_offset_ = freq_offset__tmp
962      ENDIF
963
964      IF (PRESENT(freq_op_)) THEN
965        freq_op__tmp = cxios_is_defined_fieldgroup_freq_op &
966      (fieldgroup_hdl%daddr)
967        freq_op_ = freq_op__tmp
968      ENDIF
969
970      IF (PRESENT(grid_path_)) THEN
971        grid_path__tmp = cxios_is_defined_fieldgroup_grid_path &
972      (fieldgroup_hdl%daddr)
973        grid_path_ = grid_path__tmp
974      ENDIF
975
976      IF (PRESENT(grid_ref_)) THEN
977        grid_ref__tmp = cxios_is_defined_fieldgroup_grid_ref &
978      (fieldgroup_hdl%daddr)
979        grid_ref_ = grid_ref__tmp
980      ENDIF
981
982      IF (PRESENT(group_ref_)) THEN
983        group_ref__tmp = cxios_is_defined_fieldgroup_group_ref &
984      (fieldgroup_hdl%daddr)
985        group_ref_ = group_ref__tmp
986      ENDIF
987
988      IF (PRESENT(indexed_output_)) THEN
989        indexed_output__tmp = cxios_is_defined_fieldgroup_indexed_output &
990      (fieldgroup_hdl%daddr)
991        indexed_output_ = indexed_output__tmp
992      ENDIF
993
994      IF (PRESENT(level_)) THEN
995        level__tmp = cxios_is_defined_fieldgroup_level &
996      (fieldgroup_hdl%daddr)
997        level_ = level__tmp
998      ENDIF
999
1000      IF (PRESENT(long_name_)) THEN
1001        long_name__tmp = cxios_is_defined_fieldgroup_long_name &
1002      (fieldgroup_hdl%daddr)
1003        long_name_ = long_name__tmp
1004      ENDIF
1005
1006      IF (PRESENT(name_)) THEN
1007        name__tmp = cxios_is_defined_fieldgroup_name &
1008      (fieldgroup_hdl%daddr)
1009        name_ = name__tmp
1010      ENDIF
1011
1012      IF (PRESENT(operation_)) THEN
1013        operation__tmp = cxios_is_defined_fieldgroup_operation &
1014      (fieldgroup_hdl%daddr)
1015        operation_ = operation__tmp
1016      ENDIF
1017
1018      IF (PRESENT(prec_)) THEN
1019        prec__tmp = cxios_is_defined_fieldgroup_prec &
1020      (fieldgroup_hdl%daddr)
1021        prec_ = prec__tmp
1022      ENDIF
1023
1024      IF (PRESENT(read_access_)) THEN
1025        read_access__tmp = cxios_is_defined_fieldgroup_read_access &
1026      (fieldgroup_hdl%daddr)
1027        read_access_ = read_access__tmp
1028      ENDIF
1029
1030      IF (PRESENT(scalar_ref_)) THEN
1031        scalar_ref__tmp = cxios_is_defined_fieldgroup_scalar_ref &
1032      (fieldgroup_hdl%daddr)
1033        scalar_ref_ = scalar_ref__tmp
1034      ENDIF
1035
1036      IF (PRESENT(scale_factor_)) THEN
1037        scale_factor__tmp = cxios_is_defined_fieldgroup_scale_factor &
1038      (fieldgroup_hdl%daddr)
1039        scale_factor_ = scale_factor__tmp
1040      ENDIF
1041
1042      IF (PRESENT(standard_name_)) THEN
1043        standard_name__tmp = cxios_is_defined_fieldgroup_standard_name &
1044      (fieldgroup_hdl%daddr)
1045        standard_name_ = standard_name__tmp
1046      ENDIF
1047
1048      IF (PRESENT(ts_enabled_)) THEN
1049        ts_enabled__tmp = cxios_is_defined_fieldgroup_ts_enabled &
1050      (fieldgroup_hdl%daddr)
1051        ts_enabled_ = ts_enabled__tmp
1052      ENDIF
1053
1054      IF (PRESENT(ts_split_freq_)) THEN
1055        ts_split_freq__tmp = cxios_is_defined_fieldgroup_ts_split_freq &
1056      (fieldgroup_hdl%daddr)
1057        ts_split_freq_ = ts_split_freq__tmp
1058      ENDIF
1059
1060      IF (PRESENT(unit_)) THEN
1061        unit__tmp = cxios_is_defined_fieldgroup_unit &
1062      (fieldgroup_hdl%daddr)
1063        unit_ = unit__tmp
1064      ENDIF
1065
1066      IF (PRESENT(valid_max_)) THEN
1067        valid_max__tmp = cxios_is_defined_fieldgroup_valid_max &
1068      (fieldgroup_hdl%daddr)
1069        valid_max_ = valid_max__tmp
1070      ENDIF
1071
1072      IF (PRESENT(valid_min_)) THEN
1073        valid_min__tmp = cxios_is_defined_fieldgroup_valid_min &
1074      (fieldgroup_hdl%daddr)
1075        valid_min_ = valid_min__tmp
1076      ENDIF
1077
1078  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)
1079
1080END MODULE ifieldgroup_attr
Note: See TracBrowser for help on using the repository browser.