source: XIOS/dev/branch_yushan/src/interface/fortran_attr/ifieldgroup_attr.F90 @ 1037

Last change on this file since 1037 was 1037, checked in by yushan, 7 years ago

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