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

Last change on this file since 802 was 790, checked in by rlacroix, 9 years ago

Add a new field attribute grid_path to allow chaining spatial transformations.

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