source: XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/ifieldgroup_attr.F90 @ 2338

Last change on this file since 2338 was 2338, checked in by jderouillat, 2 years ago

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