source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/ifieldgroup_attr.F90 @ 1205

Last change on this file since 1205 was 1205, checked in by yushan, 4 years ago

branch merged with trunk @1200

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