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

Last change on this file since 891 was 891, checked in by mhnguyen, 8 years ago

Adding Fortran interface for reduce_axis_to_scalar

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