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
RevLine 
[326]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
[581]10
[326]11CONTAINS
[581]12
[326]13  SUBROUTINE xios(set_fieldgroup_attr)  &
[2338]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 )
[581]19
[326]20    IMPLICIT NONE
21      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
22      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
[464]23      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
[326]24      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[2338]25      LOGICAL  , OPTIONAL, INTENT(IN) :: build_workflow_graph
26      LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp
[1021]27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode
[1201]29      LOGICAL  , OPTIONAL, INTENT(IN) :: check_if_active
30      LOGICAL (KIND=C_BOOL) :: check_if_active_tmp
[1492]31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[608]32      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
[326]33      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
[472]34      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
35      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
37      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
38      LOGICAL (KIND=C_BOOL) :: enabled_tmp
[1021]39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr
[326]40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
[538]41      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset
42      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op
[790]43      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
[326]44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[676]46      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output
47      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]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
[593]53      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
54      LOGICAL (KIND=C_BOOL) :: read_access_tmp
[891]55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
[464]56      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
[326]57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[711]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
[326]61      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
[463]62      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
63      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
[581]64
[966]65      CALL xios(get_fieldgroup_handle) &
66      (fieldgroup_id,fieldgroup_hdl)
[326]67      CALL xios(set_fieldgroup_attr_hdl_)   &
[2338]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 )
[581]73
[326]74  END SUBROUTINE xios(set_fieldgroup_attr)
[581]75
[326]76  SUBROUTINE xios(set_fieldgroup_attr_hdl)  &
[2338]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 )
[581]82
[326]83    IMPLICIT NONE
84      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]85      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
[326]86      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[2338]87      LOGICAL  , OPTIONAL, INTENT(IN) :: build_workflow_graph
88      LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp
[1021]89      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods
90      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode
[1201]91      LOGICAL  , OPTIONAL, INTENT(IN) :: check_if_active
92      LOGICAL (KIND=C_BOOL) :: check_if_active_tmp
[1492]93      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[608]94      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
[326]95      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
[472]96      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
97      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]98      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
99      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
100      LOGICAL (KIND=C_BOOL) :: enabled_tmp
[1021]101      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr
[326]102      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
[538]103      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset
104      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op
[790]105      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
[326]106      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[676]108      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output
109      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]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
[593]115      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
116      LOGICAL (KIND=C_BOOL) :: read_access_tmp
[891]117      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref
[464]118      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
[326]119      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[711]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
[326]123      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
[463]124      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
125      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
[581]126
[326]127      CALL xios(set_fieldgroup_attr_hdl_)  &
[2338]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 )
[581]133
[326]134  END SUBROUTINE xios(set_fieldgroup_attr_hdl)
[581]135
[326]136  SUBROUTINE xios(set_fieldgroup_attr_hdl_)   &
[2338]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_  &
[1492]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_ )
[581]142
[326]143    IMPLICIT NONE
144      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]145      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_
[326]146      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
[2338]147      LOGICAL  , OPTIONAL, INTENT(IN) :: build_workflow_graph_
148      LOGICAL (KIND=C_BOOL) :: build_workflow_graph__tmp
[1021]149      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_
150      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: cell_methods_mode_
[1201]151      LOGICAL  , OPTIONAL, INTENT(IN) :: check_if_active_
152      LOGICAL (KIND=C_BOOL) :: check_if_active__tmp
[1492]153      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
[608]154      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
[326]155      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
[472]156      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_
157      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
[326]158      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
159      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
160      LOGICAL (KIND=C_BOOL) :: enabled__tmp
[1021]161      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: expr_
[326]162      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
[538]163      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset_
164      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op_
[790]165      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path_
[326]166      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
167      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
[676]168      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output_
169      LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
[326]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_
[593]175      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access_
176      LOGICAL (KIND=C_BOOL) :: read_access__tmp
[891]177      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_
[464]178      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor_
[326]179      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
[711]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_
[326]183      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
[463]184      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_
185      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_
[581]186
[464]187      IF (PRESENT(add_offset_)) THEN
[966]188        CALL cxios_set_fieldgroup_add_offset &
189      (fieldgroup_hdl%daddr, add_offset_)
[464]190      ENDIF
[581]191
[326]192      IF (PRESENT(axis_ref_)) THEN
[966]193        CALL cxios_set_fieldgroup_axis_ref &
194      (fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
[326]195      ENDIF
[581]196
[2338]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
[1021]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
[1201]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
[1492]219      IF (PRESENT(comment_)) THEN
220        CALL cxios_set_fieldgroup_comment &
221      (fieldgroup_hdl%daddr, comment_, len(comment_))
222      ENDIF
223
[608]224      IF (PRESENT(compression_level_)) THEN
[966]225        CALL cxios_set_fieldgroup_compression_level &
226      (fieldgroup_hdl%daddr, compression_level_)
[608]227      ENDIF
228
[326]229      IF (PRESENT(default_value_)) THEN
[966]230        CALL cxios_set_fieldgroup_default_value &
231      (fieldgroup_hdl%daddr, default_value_)
[326]232      ENDIF
[581]233
[472]234      IF (PRESENT(detect_missing_value_)) THEN
[581]235        detect_missing_value__tmp = detect_missing_value_
[966]236        CALL cxios_set_fieldgroup_detect_missing_value &
237      (fieldgroup_hdl%daddr, detect_missing_value__tmp)
[472]238      ENDIF
[581]239
[326]240      IF (PRESENT(domain_ref_)) THEN
[966]241        CALL cxios_set_fieldgroup_domain_ref &
242      (fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
[326]243      ENDIF
[581]244
[326]245      IF (PRESENT(enabled_)) THEN
[581]246        enabled__tmp = enabled_
[966]247        CALL cxios_set_fieldgroup_enabled &
248      (fieldgroup_hdl%daddr, enabled__tmp)
[326]249      ENDIF
[581]250
[1021]251      IF (PRESENT(expr_)) THEN
252        CALL cxios_set_fieldgroup_expr &
253      (fieldgroup_hdl%daddr, expr_, len(expr_))
254      ENDIF
255
[326]256      IF (PRESENT(field_ref_)) THEN
[966]257        CALL cxios_set_fieldgroup_field_ref &
258      (fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
[326]259      ENDIF
[581]260
[326]261      IF (PRESENT(freq_offset_)) THEN
[966]262        CALL cxios_set_fieldgroup_freq_offset &
263      (fieldgroup_hdl%daddr, freq_offset_)
[326]264      ENDIF
[581]265
[326]266      IF (PRESENT(freq_op_)) THEN
[966]267        CALL cxios_set_fieldgroup_freq_op &
268      (fieldgroup_hdl%daddr, freq_op_)
[326]269      ENDIF
[581]270
[790]271      IF (PRESENT(grid_path_)) THEN
[966]272        CALL cxios_set_fieldgroup_grid_path &
273      (fieldgroup_hdl%daddr, grid_path_, len(grid_path_))
[790]274      ENDIF
275
[326]276      IF (PRESENT(grid_ref_)) THEN
[966]277        CALL cxios_set_fieldgroup_grid_ref &
278      (fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
[326]279      ENDIF
[581]280
[326]281      IF (PRESENT(group_ref_)) THEN
[966]282        CALL cxios_set_fieldgroup_group_ref &
283      (fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
[326]284      ENDIF
[581]285
[676]286      IF (PRESENT(indexed_output_)) THEN
287        indexed_output__tmp = indexed_output_
[966]288        CALL cxios_set_fieldgroup_indexed_output &
289      (fieldgroup_hdl%daddr, indexed_output__tmp)
[676]290      ENDIF
291
[326]292      IF (PRESENT(level_)) THEN
[966]293        CALL cxios_set_fieldgroup_level &
294      (fieldgroup_hdl%daddr, level_)
[326]295      ENDIF
[581]296
[326]297      IF (PRESENT(long_name_)) THEN
[966]298        CALL cxios_set_fieldgroup_long_name &
299      (fieldgroup_hdl%daddr, long_name_, len(long_name_))
[326]300      ENDIF
[581]301
[326]302      IF (PRESENT(name_)) THEN
[966]303        CALL cxios_set_fieldgroup_name &
304      (fieldgroup_hdl%daddr, name_, len(name_))
[326]305      ENDIF
[581]306
[326]307      IF (PRESENT(operation_)) THEN
[966]308        CALL cxios_set_fieldgroup_operation &
309      (fieldgroup_hdl%daddr, operation_, len(operation_))
[326]310      ENDIF
[581]311
[326]312      IF (PRESENT(prec_)) THEN
[966]313        CALL cxios_set_fieldgroup_prec &
314      (fieldgroup_hdl%daddr, prec_)
[326]315      ENDIF
[581]316
[593]317      IF (PRESENT(read_access_)) THEN
318        read_access__tmp = read_access_
[966]319        CALL cxios_set_fieldgroup_read_access &
320      (fieldgroup_hdl%daddr, read_access__tmp)
[593]321      ENDIF
322
[891]323      IF (PRESENT(scalar_ref_)) THEN
[966]324        CALL cxios_set_fieldgroup_scalar_ref &
325      (fieldgroup_hdl%daddr, scalar_ref_, len(scalar_ref_))
[891]326      ENDIF
327
[464]328      IF (PRESENT(scale_factor_)) THEN
[966]329        CALL cxios_set_fieldgroup_scale_factor &
330      (fieldgroup_hdl%daddr, scale_factor_)
[464]331      ENDIF
[581]332
[326]333      IF (PRESENT(standard_name_)) THEN
[966]334        CALL cxios_set_fieldgroup_standard_name &
335      (fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
[326]336      ENDIF
[581]337
[711]338      IF (PRESENT(ts_enabled_)) THEN
339        ts_enabled__tmp = ts_enabled_
[966]340        CALL cxios_set_fieldgroup_ts_enabled &
341      (fieldgroup_hdl%daddr, ts_enabled__tmp)
[711]342      ENDIF
343
344      IF (PRESENT(ts_split_freq_)) THEN
[966]345        CALL cxios_set_fieldgroup_ts_split_freq &
346      (fieldgroup_hdl%daddr, ts_split_freq_)
[711]347      ENDIF
348
[326]349      IF (PRESENT(unit_)) THEN
[966]350        CALL cxios_set_fieldgroup_unit &
351      (fieldgroup_hdl%daddr, unit_, len(unit_))
[326]352      ENDIF
[581]353
[463]354      IF (PRESENT(valid_max_)) THEN
[966]355        CALL cxios_set_fieldgroup_valid_max &
356      (fieldgroup_hdl%daddr, valid_max_)
[463]357      ENDIF
[581]358
[463]359      IF (PRESENT(valid_min_)) THEN
[966]360        CALL cxios_set_fieldgroup_valid_min &
361      (fieldgroup_hdl%daddr, valid_min_)
[463]362      ENDIF
[581]363
[326]364  END SUBROUTINE xios(set_fieldgroup_attr_hdl_)
[581]365
[326]366  SUBROUTINE xios(get_fieldgroup_attr)  &
[2338]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 )
[581]372
[326]373    IMPLICIT NONE
374      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
375      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
[464]376      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
[326]377      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[2338]378      LOGICAL  , OPTIONAL, INTENT(OUT) :: build_workflow_graph
379      LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp
[1021]380      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods
381      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode
[1201]382      LOGICAL  , OPTIONAL, INTENT(OUT) :: check_if_active
383      LOGICAL (KIND=C_BOOL) :: check_if_active_tmp
[1492]384      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[608]385      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
[326]386      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
[472]387      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
388      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]389      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
390      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
391      LOGICAL (KIND=C_BOOL) :: enabled_tmp
[1021]392      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr
[326]393      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
[538]394      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
395      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
[790]396      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
[326]397      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
398      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[676]399      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output
400      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]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
[593]406      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
407      LOGICAL (KIND=C_BOOL) :: read_access_tmp
[891]408      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
[464]409      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
[326]410      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[711]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
[326]414      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
[463]415      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
416      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
[581]417
[966]418      CALL xios(get_fieldgroup_handle) &
419      (fieldgroup_id,fieldgroup_hdl)
[326]420      CALL xios(get_fieldgroup_attr_hdl_)   &
[2338]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 )
[581]426
[326]427  END SUBROUTINE xios(get_fieldgroup_attr)
[581]428
[326]429  SUBROUTINE xios(get_fieldgroup_attr_hdl)  &
[2338]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 )
[581]435
[326]436    IMPLICIT NONE
437      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]438      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
[326]439      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[2338]440      LOGICAL  , OPTIONAL, INTENT(OUT) :: build_workflow_graph
441      LOGICAL (KIND=C_BOOL) :: build_workflow_graph_tmp
[1021]442      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods
443      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode
[1201]444      LOGICAL  , OPTIONAL, INTENT(OUT) :: check_if_active
445      LOGICAL (KIND=C_BOOL) :: check_if_active_tmp
[1492]446      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[608]447      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
[326]448      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
[472]449      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
450      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]451      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
452      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
453      LOGICAL (KIND=C_BOOL) :: enabled_tmp
[1021]454      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr
[326]455      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
[538]456      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
457      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
[790]458      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
[326]459      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
460      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[676]461      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output
462      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]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
[593]468      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
469      LOGICAL (KIND=C_BOOL) :: read_access_tmp
[891]470      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref
[464]471      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
[326]472      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[711]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
[326]476      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
[463]477      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
478      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
[581]479
[326]480      CALL xios(get_fieldgroup_attr_hdl_)  &
[2338]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 )
[581]486
[326]487  END SUBROUTINE xios(get_fieldgroup_attr_hdl)
[581]488
[326]489  SUBROUTINE xios(get_fieldgroup_attr_hdl_)   &
[2338]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_  &
[1492]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_ )
[581]495
[326]496    IMPLICIT NONE
497      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]498      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_
[326]499      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
[2338]500      LOGICAL  , OPTIONAL, INTENT(OUT) :: build_workflow_graph_
501      LOGICAL (KIND=C_BOOL) :: build_workflow_graph__tmp
[1021]502      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_
503      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: cell_methods_mode_
[1201]504      LOGICAL  , OPTIONAL, INTENT(OUT) :: check_if_active_
505      LOGICAL (KIND=C_BOOL) :: check_if_active__tmp
[1492]506      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
[608]507      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
[326]508      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
[472]509      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_
510      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
[326]511      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
512      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
513      LOGICAL (KIND=C_BOOL) :: enabled__tmp
[1021]514      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: expr_
[326]515      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
[538]516      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset_
517      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op_
[790]518      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path_
[326]519      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
520      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
[676]521      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output_
522      LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
[326]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_
[593]528      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access_
529      LOGICAL (KIND=C_BOOL) :: read_access__tmp
[891]530      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_
[464]531      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor_
[326]532      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
[711]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_
[326]536      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
[463]537      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_
538      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_
[581]539
[464]540      IF (PRESENT(add_offset_)) THEN
[966]541        CALL cxios_get_fieldgroup_add_offset &
542      (fieldgroup_hdl%daddr, add_offset_)
[464]543      ENDIF
[581]544
[326]545      IF (PRESENT(axis_ref_)) THEN
[966]546        CALL cxios_get_fieldgroup_axis_ref &
547      (fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
[326]548      ENDIF
[581]549
[2338]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
[1021]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
[1201]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
[1492]572      IF (PRESENT(comment_)) THEN
573        CALL cxios_get_fieldgroup_comment &
574      (fieldgroup_hdl%daddr, comment_, len(comment_))
575      ENDIF
576
[608]577      IF (PRESENT(compression_level_)) THEN
[966]578        CALL cxios_get_fieldgroup_compression_level &
579      (fieldgroup_hdl%daddr, compression_level_)
[608]580      ENDIF
581
[326]582      IF (PRESENT(default_value_)) THEN
[966]583        CALL cxios_get_fieldgroup_default_value &
584      (fieldgroup_hdl%daddr, default_value_)
[326]585      ENDIF
[581]586
[472]587      IF (PRESENT(detect_missing_value_)) THEN
[966]588        CALL cxios_get_fieldgroup_detect_missing_value &
589      (fieldgroup_hdl%daddr, detect_missing_value__tmp)
[581]590        detect_missing_value_ = detect_missing_value__tmp
[472]591      ENDIF
[581]592
[326]593      IF (PRESENT(domain_ref_)) THEN
[966]594        CALL cxios_get_fieldgroup_domain_ref &
595      (fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
[326]596      ENDIF
[581]597
[326]598      IF (PRESENT(enabled_)) THEN
[966]599        CALL cxios_get_fieldgroup_enabled &
600      (fieldgroup_hdl%daddr, enabled__tmp)
[581]601        enabled_ = enabled__tmp
[326]602      ENDIF
[581]603
[1021]604      IF (PRESENT(expr_)) THEN
605        CALL cxios_get_fieldgroup_expr &
606      (fieldgroup_hdl%daddr, expr_, len(expr_))
607      ENDIF
608
[326]609      IF (PRESENT(field_ref_)) THEN
[966]610        CALL cxios_get_fieldgroup_field_ref &
611      (fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
[326]612      ENDIF
[581]613
[326]614      IF (PRESENT(freq_offset_)) THEN
[966]615        CALL cxios_get_fieldgroup_freq_offset &
616      (fieldgroup_hdl%daddr, freq_offset_)
[326]617      ENDIF
[581]618
[326]619      IF (PRESENT(freq_op_)) THEN
[966]620        CALL cxios_get_fieldgroup_freq_op &
621      (fieldgroup_hdl%daddr, freq_op_)
[326]622      ENDIF
[581]623
[790]624      IF (PRESENT(grid_path_)) THEN
[966]625        CALL cxios_get_fieldgroup_grid_path &
626      (fieldgroup_hdl%daddr, grid_path_, len(grid_path_))
[790]627      ENDIF
628
[326]629      IF (PRESENT(grid_ref_)) THEN
[966]630        CALL cxios_get_fieldgroup_grid_ref &
631      (fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
[326]632      ENDIF
[581]633
[326]634      IF (PRESENT(group_ref_)) THEN
[966]635        CALL cxios_get_fieldgroup_group_ref &
636      (fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
[326]637      ENDIF
[581]638
[676]639      IF (PRESENT(indexed_output_)) THEN
[966]640        CALL cxios_get_fieldgroup_indexed_output &
641      (fieldgroup_hdl%daddr, indexed_output__tmp)
[676]642        indexed_output_ = indexed_output__tmp
643      ENDIF
644
[326]645      IF (PRESENT(level_)) THEN
[966]646        CALL cxios_get_fieldgroup_level &
647      (fieldgroup_hdl%daddr, level_)
[326]648      ENDIF
[581]649
[326]650      IF (PRESENT(long_name_)) THEN
[966]651        CALL cxios_get_fieldgroup_long_name &
652      (fieldgroup_hdl%daddr, long_name_, len(long_name_))
[326]653      ENDIF
[581]654
[326]655      IF (PRESENT(name_)) THEN
[966]656        CALL cxios_get_fieldgroup_name &
657      (fieldgroup_hdl%daddr, name_, len(name_))
[326]658      ENDIF
[581]659
[326]660      IF (PRESENT(operation_)) THEN
[966]661        CALL cxios_get_fieldgroup_operation &
662      (fieldgroup_hdl%daddr, operation_, len(operation_))
[326]663      ENDIF
[581]664
[326]665      IF (PRESENT(prec_)) THEN
[966]666        CALL cxios_get_fieldgroup_prec &
667      (fieldgroup_hdl%daddr, prec_)
[326]668      ENDIF
[581]669
[593]670      IF (PRESENT(read_access_)) THEN
[966]671        CALL cxios_get_fieldgroup_read_access &
672      (fieldgroup_hdl%daddr, read_access__tmp)
[593]673        read_access_ = read_access__tmp
674      ENDIF
675
[891]676      IF (PRESENT(scalar_ref_)) THEN
[966]677        CALL cxios_get_fieldgroup_scalar_ref &
678      (fieldgroup_hdl%daddr, scalar_ref_, len(scalar_ref_))
[891]679      ENDIF
680
[464]681      IF (PRESENT(scale_factor_)) THEN
[966]682        CALL cxios_get_fieldgroup_scale_factor &
683      (fieldgroup_hdl%daddr, scale_factor_)
[464]684      ENDIF
[581]685
[326]686      IF (PRESENT(standard_name_)) THEN
[966]687        CALL cxios_get_fieldgroup_standard_name &
688      (fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
[326]689      ENDIF
[581]690
[711]691      IF (PRESENT(ts_enabled_)) THEN
[966]692        CALL cxios_get_fieldgroup_ts_enabled &
693      (fieldgroup_hdl%daddr, ts_enabled__tmp)
[711]694        ts_enabled_ = ts_enabled__tmp
695      ENDIF
696
697      IF (PRESENT(ts_split_freq_)) THEN
[966]698        CALL cxios_get_fieldgroup_ts_split_freq &
699      (fieldgroup_hdl%daddr, ts_split_freq_)
[711]700      ENDIF
701
[326]702      IF (PRESENT(unit_)) THEN
[966]703        CALL cxios_get_fieldgroup_unit &
704      (fieldgroup_hdl%daddr, unit_, len(unit_))
[326]705      ENDIF
[581]706
[463]707      IF (PRESENT(valid_max_)) THEN
[966]708        CALL cxios_get_fieldgroup_valid_max &
709      (fieldgroup_hdl%daddr, valid_max_)
[463]710      ENDIF
[581]711
[463]712      IF (PRESENT(valid_min_)) THEN
[966]713        CALL cxios_get_fieldgroup_valid_min &
714      (fieldgroup_hdl%daddr, valid_min_)
[463]715      ENDIF
[581]716
[326]717  END SUBROUTINE xios(get_fieldgroup_attr_hdl_)
[581]718
[432]719  SUBROUTINE xios(is_defined_fieldgroup_attr)  &
[2338]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 )
[581]725
[432]726    IMPLICIT NONE
727      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
728      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
[464]729      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
730      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
[432]731      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
732      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[2338]733      LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph
734      LOGICAL(KIND=C_BOOL) :: build_workflow_graph_tmp
[1021]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
[1201]739      LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active
740      LOGICAL(KIND=C_BOOL) :: check_if_active_tmp
[1492]741      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
742      LOGICAL(KIND=C_BOOL) :: comment_tmp
[608]743      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
744      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[432]745      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
746      LOGICAL(KIND=C_BOOL) :: default_value_tmp
[472]747      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
748      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
[432]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
[1021]753      LOGICAL, OPTIONAL, INTENT(OUT) :: expr
754      LOGICAL(KIND=C_BOOL) :: expr_tmp
[432]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
[790]761      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path
762      LOGICAL(KIND=C_BOOL) :: grid_path_tmp
[432]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
[676]767      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
768      LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
[432]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
[593]779      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
780      LOGICAL(KIND=C_BOOL) :: read_access_tmp
[891]781      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
782      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
[464]783      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
784      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
[432]785      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
786      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[711]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
[432]791      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
792      LOGICAL(KIND=C_BOOL) :: unit_tmp
[463]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
[581]797
[966]798      CALL xios(get_fieldgroup_handle) &
799      (fieldgroup_id,fieldgroup_hdl)
[432]800      CALL xios(is_defined_fieldgroup_attr_hdl_)   &
[2338]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 )
[581]806
[432]807  END SUBROUTINE xios(is_defined_fieldgroup_attr)
[581]808
[432]809  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)  &
[2338]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 )
[581]815
[432]816    IMPLICIT NONE
817      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]818      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
819      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
[432]820      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
821      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[2338]822      LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph
823      LOGICAL(KIND=C_BOOL) :: build_workflow_graph_tmp
[1021]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
[1201]828      LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active
829      LOGICAL(KIND=C_BOOL) :: check_if_active_tmp
[1492]830      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
831      LOGICAL(KIND=C_BOOL) :: comment_tmp
[608]832      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
833      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[432]834      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
835      LOGICAL(KIND=C_BOOL) :: default_value_tmp
[472]836      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
837      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
[432]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
[1021]842      LOGICAL, OPTIONAL, INTENT(OUT) :: expr
843      LOGICAL(KIND=C_BOOL) :: expr_tmp
[432]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
[790]850      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path
851      LOGICAL(KIND=C_BOOL) :: grid_path_tmp
[432]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
[676]856      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
857      LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
[432]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
[593]868      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
869      LOGICAL(KIND=C_BOOL) :: read_access_tmp
[891]870      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref
871      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp
[464]872      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
873      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
[432]874      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
875      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[711]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
[432]880      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
881      LOGICAL(KIND=C_BOOL) :: unit_tmp
[463]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
[581]886
[432]887      CALL xios(is_defined_fieldgroup_attr_hdl_)  &
[2338]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 )
[581]893
[432]894  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)
[581]895
[432]896  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)   &
[2338]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_  &
[1492]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_ )
[581]902
[432]903    IMPLICIT NONE
904      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
[464]905      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset_
906      LOGICAL(KIND=C_BOOL) :: add_offset__tmp
[432]907      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
908      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
[2338]909      LOGICAL, OPTIONAL, INTENT(OUT) :: build_workflow_graph_
910      LOGICAL(KIND=C_BOOL) :: build_workflow_graph__tmp
[1021]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
[1201]915      LOGICAL, OPTIONAL, INTENT(OUT) :: check_if_active_
916      LOGICAL(KIND=C_BOOL) :: check_if_active__tmp
[1492]917      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
918      LOGICAL(KIND=C_BOOL) :: comment__tmp
[608]919      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
920      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
[432]921      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
922      LOGICAL(KIND=C_BOOL) :: default_value__tmp
[472]923      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
924      LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
[432]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
[1021]929      LOGICAL, OPTIONAL, INTENT(OUT) :: expr_
930      LOGICAL(KIND=C_BOOL) :: expr__tmp
[432]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
[790]937      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path_
938      LOGICAL(KIND=C_BOOL) :: grid_path__tmp
[432]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
[676]943      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output_
944      LOGICAL(KIND=C_BOOL) :: indexed_output__tmp
[432]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
[593]955      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access_
956      LOGICAL(KIND=C_BOOL) :: read_access__tmp
[891]957      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref_
958      LOGICAL(KIND=C_BOOL) :: scalar_ref__tmp
[464]959      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor_
960      LOGICAL(KIND=C_BOOL) :: scale_factor__tmp
[432]961      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
962      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
[711]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
[432]967      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
968      LOGICAL(KIND=C_BOOL) :: unit__tmp
[463]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
[581]973
[464]974      IF (PRESENT(add_offset_)) THEN
[966]975        add_offset__tmp = cxios_is_defined_fieldgroup_add_offset &
976      (fieldgroup_hdl%daddr)
[581]977        add_offset_ = add_offset__tmp
[464]978      ENDIF
[581]979
[432]980      IF (PRESENT(axis_ref_)) THEN
[966]981        axis_ref__tmp = cxios_is_defined_fieldgroup_axis_ref &
982      (fieldgroup_hdl%daddr)
[581]983        axis_ref_ = axis_ref__tmp
[432]984      ENDIF
[581]985
[2338]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
[1021]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
[1201]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
[1492]1010      IF (PRESENT(comment_)) THEN
1011        comment__tmp = cxios_is_defined_fieldgroup_comment &
1012      (fieldgroup_hdl%daddr)
1013        comment_ = comment__tmp
1014      ENDIF
1015
[608]1016      IF (PRESENT(compression_level_)) THEN
[966]1017        compression_level__tmp = cxios_is_defined_fieldgroup_compression_level &
1018      (fieldgroup_hdl%daddr)
[608]1019        compression_level_ = compression_level__tmp
1020      ENDIF
1021
[432]1022      IF (PRESENT(default_value_)) THEN
[966]1023        default_value__tmp = cxios_is_defined_fieldgroup_default_value &
1024      (fieldgroup_hdl%daddr)
[581]1025        default_value_ = default_value__tmp
[432]1026      ENDIF
[581]1027
[472]1028      IF (PRESENT(detect_missing_value_)) THEN
[966]1029        detect_missing_value__tmp = cxios_is_defined_fieldgroup_detect_missing_value &
1030      (fieldgroup_hdl%daddr)
[581]1031        detect_missing_value_ = detect_missing_value__tmp
[472]1032      ENDIF
[581]1033
[432]1034      IF (PRESENT(domain_ref_)) THEN
[966]1035        domain_ref__tmp = cxios_is_defined_fieldgroup_domain_ref &
1036      (fieldgroup_hdl%daddr)
[581]1037        domain_ref_ = domain_ref__tmp
[432]1038      ENDIF
[581]1039
[432]1040      IF (PRESENT(enabled_)) THEN
[966]1041        enabled__tmp = cxios_is_defined_fieldgroup_enabled &
1042      (fieldgroup_hdl%daddr)
[581]1043        enabled_ = enabled__tmp
[432]1044      ENDIF
[581]1045
[1021]1046      IF (PRESENT(expr_)) THEN
1047        expr__tmp = cxios_is_defined_fieldgroup_expr &
1048      (fieldgroup_hdl%daddr)
1049        expr_ = expr__tmp
1050      ENDIF
1051
[432]1052      IF (PRESENT(field_ref_)) THEN
[966]1053        field_ref__tmp = cxios_is_defined_fieldgroup_field_ref &
1054      (fieldgroup_hdl%daddr)
[581]1055        field_ref_ = field_ref__tmp
[432]1056      ENDIF
[581]1057
[432]1058      IF (PRESENT(freq_offset_)) THEN
[966]1059        freq_offset__tmp = cxios_is_defined_fieldgroup_freq_offset &
1060      (fieldgroup_hdl%daddr)
[581]1061        freq_offset_ = freq_offset__tmp
[432]1062      ENDIF
[581]1063
[432]1064      IF (PRESENT(freq_op_)) THEN
[966]1065        freq_op__tmp = cxios_is_defined_fieldgroup_freq_op &
1066      (fieldgroup_hdl%daddr)
[581]1067        freq_op_ = freq_op__tmp
[432]1068      ENDIF
[581]1069
[790]1070      IF (PRESENT(grid_path_)) THEN
[966]1071        grid_path__tmp = cxios_is_defined_fieldgroup_grid_path &
1072      (fieldgroup_hdl%daddr)
[790]1073        grid_path_ = grid_path__tmp
1074      ENDIF
1075
[432]1076      IF (PRESENT(grid_ref_)) THEN
[966]1077        grid_ref__tmp = cxios_is_defined_fieldgroup_grid_ref &
1078      (fieldgroup_hdl%daddr)
[581]1079        grid_ref_ = grid_ref__tmp
[432]1080      ENDIF
[581]1081
[432]1082      IF (PRESENT(group_ref_)) THEN
[966]1083        group_ref__tmp = cxios_is_defined_fieldgroup_group_ref &
1084      (fieldgroup_hdl%daddr)
[581]1085        group_ref_ = group_ref__tmp
[432]1086      ENDIF
[581]1087
[676]1088      IF (PRESENT(indexed_output_)) THEN
[966]1089        indexed_output__tmp = cxios_is_defined_fieldgroup_indexed_output &
1090      (fieldgroup_hdl%daddr)
[676]1091        indexed_output_ = indexed_output__tmp
1092      ENDIF
1093
[432]1094      IF (PRESENT(level_)) THEN
[966]1095        level__tmp = cxios_is_defined_fieldgroup_level &
1096      (fieldgroup_hdl%daddr)
[581]1097        level_ = level__tmp
[432]1098      ENDIF
[581]1099
[432]1100      IF (PRESENT(long_name_)) THEN
[966]1101        long_name__tmp = cxios_is_defined_fieldgroup_long_name &
1102      (fieldgroup_hdl%daddr)
[581]1103        long_name_ = long_name__tmp
[432]1104      ENDIF
[581]1105
[432]1106      IF (PRESENT(name_)) THEN
[966]1107        name__tmp = cxios_is_defined_fieldgroup_name &
1108      (fieldgroup_hdl%daddr)
[581]1109        name_ = name__tmp
[432]1110      ENDIF
[581]1111
[432]1112      IF (PRESENT(operation_)) THEN
[966]1113        operation__tmp = cxios_is_defined_fieldgroup_operation &
1114      (fieldgroup_hdl%daddr)
[581]1115        operation_ = operation__tmp
[432]1116      ENDIF
[581]1117
[432]1118      IF (PRESENT(prec_)) THEN
[966]1119        prec__tmp = cxios_is_defined_fieldgroup_prec &
1120      (fieldgroup_hdl%daddr)
[581]1121        prec_ = prec__tmp
[432]1122      ENDIF
[581]1123
[593]1124      IF (PRESENT(read_access_)) THEN
[966]1125        read_access__tmp = cxios_is_defined_fieldgroup_read_access &
1126      (fieldgroup_hdl%daddr)
[593]1127        read_access_ = read_access__tmp
1128      ENDIF
1129
[891]1130      IF (PRESENT(scalar_ref_)) THEN
[966]1131        scalar_ref__tmp = cxios_is_defined_fieldgroup_scalar_ref &
1132      (fieldgroup_hdl%daddr)
[891]1133        scalar_ref_ = scalar_ref__tmp
1134      ENDIF
1135
[464]1136      IF (PRESENT(scale_factor_)) THEN
[966]1137        scale_factor__tmp = cxios_is_defined_fieldgroup_scale_factor &
1138      (fieldgroup_hdl%daddr)
[581]1139        scale_factor_ = scale_factor__tmp
[464]1140      ENDIF
[581]1141
[432]1142      IF (PRESENT(standard_name_)) THEN
[966]1143        standard_name__tmp = cxios_is_defined_fieldgroup_standard_name &
1144      (fieldgroup_hdl%daddr)
[581]1145        standard_name_ = standard_name__tmp
[432]1146      ENDIF
[581]1147
[711]1148      IF (PRESENT(ts_enabled_)) THEN
[966]1149        ts_enabled__tmp = cxios_is_defined_fieldgroup_ts_enabled &
1150      (fieldgroup_hdl%daddr)
[711]1151        ts_enabled_ = ts_enabled__tmp
1152      ENDIF
1153
1154      IF (PRESENT(ts_split_freq_)) THEN
[966]1155        ts_split_freq__tmp = cxios_is_defined_fieldgroup_ts_split_freq &
1156      (fieldgroup_hdl%daddr)
[711]1157        ts_split_freq_ = ts_split_freq__tmp
1158      ENDIF
1159
[432]1160      IF (PRESENT(unit_)) THEN
[966]1161        unit__tmp = cxios_is_defined_fieldgroup_unit &
1162      (fieldgroup_hdl%daddr)
[581]1163        unit_ = unit__tmp
[432]1164      ENDIF
[581]1165
[463]1166      IF (PRESENT(valid_max_)) THEN
[966]1167        valid_max__tmp = cxios_is_defined_fieldgroup_valid_max &
1168      (fieldgroup_hdl%daddr)
[581]1169        valid_max_ = valid_max__tmp
[463]1170      ENDIF
[581]1171
[463]1172      IF (PRESENT(valid_min_)) THEN
[966]1173        valid_min__tmp = cxios_is_defined_fieldgroup_valid_min &
1174      (fieldgroup_hdl%daddr)
[581]1175        valid_min_ = valid_min__tmp
[463]1176      ENDIF
[581]1177
[432]1178  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)
[581]1179
[326]1180END MODULE ifieldgroup_attr
Note: See TracBrowser for help on using the repository browser.