source: XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/ifieldgroup_attr.F90 @ 1492

Last change on this file since 1492 was 1492, checked in by oabramkina, 6 years ago

Updating fortran interface for attributes that have been recently introduced and the following filters:

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