source: XIOS3/trunk/src/interface/fortran_attr/ifieldgroup_attr.F90 @ 2616

Last change on this file since 2616 was 2616, checked in by jderouillat, 4 months ago

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