source: XIOS/trunk/src/interface/fortran_attr/ifield_attr.F90 @ 802

Last change on this file since 802 was 790, checked in by rlacroix, 9 years ago

Add a new field attribute grid_path to allow chaining spatial transformations.

Intermediate grids must be separated by comma and the source/destination grids must not be listed.

  • 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: 36.3 KB
RevLine 
[326]1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifield_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifield
9  USE field_interface_attr
[581]10
[326]11CONTAINS
[581]12
[326]13  SUBROUTINE xios(set_field_attr)  &
[608]14    ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
[790]15    , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  &
16    , name, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq  &
17    , unit, valid_max, valid_min )
[581]18
[326]19    IMPLICIT NONE
20      TYPE(txios(field))  :: field_hdl
21      CHARACTER(LEN=*), INTENT(IN) ::field_id
[464]22      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
[326]23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[608]24      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
[326]25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
[472]26      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
27      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
29      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
30      LOGICAL (KIND=C_BOOL) :: enabled_tmp
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
[538]32      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset
33      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op
[790]34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
[326]35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
[676]36      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output
37      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]38      INTEGER  , OPTIONAL, INTENT(IN) :: level
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
42      INTEGER  , OPTIONAL, INTENT(IN) :: prec
[593]43      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
44      LOGICAL (KIND=C_BOOL) :: read_access_tmp
[464]45      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
[326]46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[711]47      LOGICAL  , OPTIONAL, INTENT(IN) :: ts_enabled
48      LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
49      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: ts_split_freq
[326]50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
[463]51      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
52      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
[581]53
[326]54      CALL xios(get_field_handle)(field_id,field_hdl)
55      CALL xios(set_field_attr_hdl_)   &
[608]56      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
[790]57      , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  &
58      , name, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq  &
59      , unit, valid_max, valid_min )
[581]60
[326]61  END SUBROUTINE xios(set_field_attr)
[581]62
[326]63  SUBROUTINE xios(set_field_attr_hdl)  &
[608]64    ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
[790]65    , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  &
66    , name, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq  &
67    , unit, valid_max, valid_min )
[581]68
[326]69    IMPLICIT NONE
70      TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]71      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
[326]72      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
[608]73      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
[326]74      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
[472]75      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
76      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]77      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
78      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
79      LOGICAL (KIND=C_BOOL) :: enabled_tmp
80      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
[538]81      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset
82      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op
[790]83      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
[326]84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
[676]85      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output
86      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]87      INTEGER  , OPTIONAL, INTENT(IN) :: level
88      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
89      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
90      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
91      INTEGER  , OPTIONAL, INTENT(IN) :: prec
[593]92      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
93      LOGICAL (KIND=C_BOOL) :: read_access_tmp
[464]94      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
[326]95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[711]96      LOGICAL  , OPTIONAL, INTENT(IN) :: ts_enabled
97      LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
98      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: ts_split_freq
[326]99      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
[463]100      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
101      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
[581]102
[326]103      CALL xios(set_field_attr_hdl_)  &
[608]104      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
[790]105      , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  &
106      , name, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq  &
107      , unit, valid_max, valid_min )
[581]108
[326]109  END SUBROUTINE xios(set_field_attr_hdl)
[581]110
[326]111  SUBROUTINE xios(set_field_attr_hdl_)   &
[608]112    ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  &
[790]113    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_  &
114    , level_, long_name_, name_, operation_, prec_, read_access_, scale_factor_, standard_name_  &
115    , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ )
[581]116
[326]117    IMPLICIT NONE
118      TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]119      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_
[326]120      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
[608]121      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
[326]122      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
[472]123      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_
124      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
[326]125      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
126      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
127      LOGICAL (KIND=C_BOOL) :: enabled__tmp
128      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
[538]129      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset_
130      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op_
[790]131      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path_
[326]132      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
[676]133      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output_
134      LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
[326]135      INTEGER  , OPTIONAL, INTENT(IN) :: level_
136      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
137      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
138      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
139      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
[593]140      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access_
141      LOGICAL (KIND=C_BOOL) :: read_access__tmp
[464]142      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor_
[326]143      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
[711]144      LOGICAL  , OPTIONAL, INTENT(IN) :: ts_enabled_
145      LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp
146      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: ts_split_freq_
[326]147      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
[463]148      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_
149      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_
[581]150
[464]151      IF (PRESENT(add_offset_)) THEN
152        CALL cxios_set_field_add_offset(field_hdl%daddr, add_offset_)
153      ENDIF
[581]154
[326]155      IF (PRESENT(axis_ref_)) THEN
156        CALL cxios_set_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_))
157      ENDIF
[581]158
[608]159      IF (PRESENT(compression_level_)) THEN
160        CALL cxios_set_field_compression_level(field_hdl%daddr, compression_level_)
161      ENDIF
162
[326]163      IF (PRESENT(default_value_)) THEN
164        CALL cxios_set_field_default_value(field_hdl%daddr, default_value_)
165      ENDIF
[581]166
[472]167      IF (PRESENT(detect_missing_value_)) THEN
[581]168        detect_missing_value__tmp = detect_missing_value_
[472]169        CALL cxios_set_field_detect_missing_value(field_hdl%daddr, detect_missing_value__tmp)
170      ENDIF
[581]171
[326]172      IF (PRESENT(domain_ref_)) THEN
173        CALL cxios_set_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_))
174      ENDIF
[581]175
[326]176      IF (PRESENT(enabled_)) THEN
[581]177        enabled__tmp = enabled_
[326]178        CALL cxios_set_field_enabled(field_hdl%daddr, enabled__tmp)
179      ENDIF
[581]180
[326]181      IF (PRESENT(field_ref_)) THEN
182        CALL cxios_set_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_))
183      ENDIF
[581]184
[326]185      IF (PRESENT(freq_offset_)) THEN
[538]186        CALL cxios_set_field_freq_offset(field_hdl%daddr, freq_offset_)
[326]187      ENDIF
[581]188
[326]189      IF (PRESENT(freq_op_)) THEN
[538]190        CALL cxios_set_field_freq_op(field_hdl%daddr, freq_op_)
[326]191      ENDIF
[581]192
[790]193      IF (PRESENT(grid_path_)) THEN
194        CALL cxios_set_field_grid_path(field_hdl%daddr, grid_path_, len(grid_path_))
195      ENDIF
196
[326]197      IF (PRESENT(grid_ref_)) THEN
198        CALL cxios_set_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_))
199      ENDIF
[581]200
[676]201      IF (PRESENT(indexed_output_)) THEN
202        indexed_output__tmp = indexed_output_
203        CALL cxios_set_field_indexed_output(field_hdl%daddr, indexed_output__tmp)
204      ENDIF
205
[326]206      IF (PRESENT(level_)) THEN
207        CALL cxios_set_field_level(field_hdl%daddr, level_)
208      ENDIF
[581]209
[326]210      IF (PRESENT(long_name_)) THEN
211        CALL cxios_set_field_long_name(field_hdl%daddr, long_name_, len(long_name_))
212      ENDIF
[581]213
[326]214      IF (PRESENT(name_)) THEN
215        CALL cxios_set_field_name(field_hdl%daddr, name_, len(name_))
216      ENDIF
[581]217
[326]218      IF (PRESENT(operation_)) THEN
219        CALL cxios_set_field_operation(field_hdl%daddr, operation_, len(operation_))
220      ENDIF
[581]221
[326]222      IF (PRESENT(prec_)) THEN
223        CALL cxios_set_field_prec(field_hdl%daddr, prec_)
224      ENDIF
[581]225
[593]226      IF (PRESENT(read_access_)) THEN
227        read_access__tmp = read_access_
228        CALL cxios_set_field_read_access(field_hdl%daddr, read_access__tmp)
229      ENDIF
230
[464]231      IF (PRESENT(scale_factor_)) THEN
232        CALL cxios_set_field_scale_factor(field_hdl%daddr, scale_factor_)
233      ENDIF
[581]234
[326]235      IF (PRESENT(standard_name_)) THEN
236        CALL cxios_set_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_))
237      ENDIF
[581]238
[711]239      IF (PRESENT(ts_enabled_)) THEN
240        ts_enabled__tmp = ts_enabled_
241        CALL cxios_set_field_ts_enabled(field_hdl%daddr, ts_enabled__tmp)
242      ENDIF
243
244      IF (PRESENT(ts_split_freq_)) THEN
245        CALL cxios_set_field_ts_split_freq(field_hdl%daddr, ts_split_freq_)
246      ENDIF
247
[326]248      IF (PRESENT(unit_)) THEN
249        CALL cxios_set_field_unit(field_hdl%daddr, unit_, len(unit_))
250      ENDIF
[581]251
[463]252      IF (PRESENT(valid_max_)) THEN
253        CALL cxios_set_field_valid_max(field_hdl%daddr, valid_max_)
254      ENDIF
[581]255
[463]256      IF (PRESENT(valid_min_)) THEN
257        CALL cxios_set_field_valid_min(field_hdl%daddr, valid_min_)
258      ENDIF
[581]259
[326]260  END SUBROUTINE xios(set_field_attr_hdl_)
[581]261
[326]262  SUBROUTINE xios(get_field_attr)  &
[608]263    ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
[790]264    , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  &
265    , name, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq  &
266    , unit, valid_max, valid_min )
[581]267
[326]268    IMPLICIT NONE
269      TYPE(txios(field))  :: field_hdl
270      CHARACTER(LEN=*), INTENT(IN) ::field_id
[464]271      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
[326]272      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[608]273      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
[326]274      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
[472]275      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
276      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]277      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
278      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
279      LOGICAL (KIND=C_BOOL) :: enabled_tmp
280      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
[538]281      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
282      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
[790]283      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
[326]284      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
[676]285      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output
286      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]287      INTEGER  , OPTIONAL, INTENT(OUT) :: level
288      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
289      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
290      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
291      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
[593]292      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
293      LOGICAL (KIND=C_BOOL) :: read_access_tmp
[464]294      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
[326]295      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[711]296      LOGICAL  , OPTIONAL, INTENT(OUT) :: ts_enabled
297      LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
298      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: ts_split_freq
[326]299      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
[463]300      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
301      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
[581]302
[326]303      CALL xios(get_field_handle)(field_id,field_hdl)
304      CALL xios(get_field_attr_hdl_)   &
[608]305      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
[790]306      , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  &
307      , name, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq  &
308      , unit, valid_max, valid_min )
[581]309
[326]310  END SUBROUTINE xios(get_field_attr)
[581]311
[326]312  SUBROUTINE xios(get_field_attr_hdl)  &
[608]313    ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
[790]314    , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  &
315    , name, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq  &
316    , unit, valid_max, valid_min )
[581]317
[326]318    IMPLICIT NONE
319      TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]320      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
[326]321      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
[608]322      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
[326]323      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
[472]324      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
325      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[326]326      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
327      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
328      LOGICAL (KIND=C_BOOL) :: enabled_tmp
329      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
[538]330      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
331      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
[790]332      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
[326]333      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
[676]334      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output
335      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
[326]336      INTEGER  , OPTIONAL, INTENT(OUT) :: level
337      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
338      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
339      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
340      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
[593]341      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
342      LOGICAL (KIND=C_BOOL) :: read_access_tmp
[464]343      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
[326]344      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[711]345      LOGICAL  , OPTIONAL, INTENT(OUT) :: ts_enabled
346      LOGICAL (KIND=C_BOOL) :: ts_enabled_tmp
347      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: ts_split_freq
[326]348      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
[463]349      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
350      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
[581]351
[326]352      CALL xios(get_field_attr_hdl_)  &
[608]353      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
[790]354      , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  &
355      , name, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq  &
356      , unit, valid_max, valid_min )
[581]357
[326]358  END SUBROUTINE xios(get_field_attr_hdl)
[581]359
[326]360  SUBROUTINE xios(get_field_attr_hdl_)   &
[608]361    ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  &
[790]362    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_  &
363    , level_, long_name_, name_, operation_, prec_, read_access_, scale_factor_, standard_name_  &
364    , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ )
[581]365
[326]366    IMPLICIT NONE
367      TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]368      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_
[326]369      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
[608]370      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
[326]371      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
[472]372      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_
373      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
[326]374      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
375      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
376      LOGICAL (KIND=C_BOOL) :: enabled__tmp
377      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
[538]378      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset_
379      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op_
[790]380      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path_
[326]381      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
[676]382      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output_
383      LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
[326]384      INTEGER  , OPTIONAL, INTENT(OUT) :: level_
385      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
386      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
387      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
388      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
[593]389      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access_
390      LOGICAL (KIND=C_BOOL) :: read_access__tmp
[464]391      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor_
[326]392      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
[711]393      LOGICAL  , OPTIONAL, INTENT(OUT) :: ts_enabled_
394      LOGICAL (KIND=C_BOOL) :: ts_enabled__tmp
395      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: ts_split_freq_
[326]396      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
[463]397      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_
398      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_
[581]399
[464]400      IF (PRESENT(add_offset_)) THEN
401        CALL cxios_get_field_add_offset(field_hdl%daddr, add_offset_)
402      ENDIF
[581]403
[326]404      IF (PRESENT(axis_ref_)) THEN
405        CALL cxios_get_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_))
406      ENDIF
[581]407
[608]408      IF (PRESENT(compression_level_)) THEN
409        CALL cxios_get_field_compression_level(field_hdl%daddr, compression_level_)
410      ENDIF
411
[326]412      IF (PRESENT(default_value_)) THEN
413        CALL cxios_get_field_default_value(field_hdl%daddr, default_value_)
414      ENDIF
[581]415
[472]416      IF (PRESENT(detect_missing_value_)) THEN
417        CALL cxios_get_field_detect_missing_value(field_hdl%daddr, detect_missing_value__tmp)
[581]418        detect_missing_value_ = detect_missing_value__tmp
[472]419      ENDIF
[581]420
[326]421      IF (PRESENT(domain_ref_)) THEN
422        CALL cxios_get_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_))
423      ENDIF
[581]424
[326]425      IF (PRESENT(enabled_)) THEN
426        CALL cxios_get_field_enabled(field_hdl%daddr, enabled__tmp)
[581]427        enabled_ = enabled__tmp
[326]428      ENDIF
[581]429
[326]430      IF (PRESENT(field_ref_)) THEN
431        CALL cxios_get_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_))
432      ENDIF
[581]433
[326]434      IF (PRESENT(freq_offset_)) THEN
[538]435        CALL cxios_get_field_freq_offset(field_hdl%daddr, freq_offset_)
[326]436      ENDIF
[581]437
[326]438      IF (PRESENT(freq_op_)) THEN
[538]439        CALL cxios_get_field_freq_op(field_hdl%daddr, freq_op_)
[326]440      ENDIF
[581]441
[790]442      IF (PRESENT(grid_path_)) THEN
443        CALL cxios_get_field_grid_path(field_hdl%daddr, grid_path_, len(grid_path_))
444      ENDIF
445
[326]446      IF (PRESENT(grid_ref_)) THEN
447        CALL cxios_get_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_))
448      ENDIF
[581]449
[676]450      IF (PRESENT(indexed_output_)) THEN
451        CALL cxios_get_field_indexed_output(field_hdl%daddr, indexed_output__tmp)
452        indexed_output_ = indexed_output__tmp
453      ENDIF
454
[326]455      IF (PRESENT(level_)) THEN
456        CALL cxios_get_field_level(field_hdl%daddr, level_)
457      ENDIF
[581]458
[326]459      IF (PRESENT(long_name_)) THEN
460        CALL cxios_get_field_long_name(field_hdl%daddr, long_name_, len(long_name_))
461      ENDIF
[581]462
[326]463      IF (PRESENT(name_)) THEN
464        CALL cxios_get_field_name(field_hdl%daddr, name_, len(name_))
465      ENDIF
[581]466
[326]467      IF (PRESENT(operation_)) THEN
468        CALL cxios_get_field_operation(field_hdl%daddr, operation_, len(operation_))
469      ENDIF
[581]470
[326]471      IF (PRESENT(prec_)) THEN
472        CALL cxios_get_field_prec(field_hdl%daddr, prec_)
473      ENDIF
[581]474
[593]475      IF (PRESENT(read_access_)) THEN
476        CALL cxios_get_field_read_access(field_hdl%daddr, read_access__tmp)
477        read_access_ = read_access__tmp
478      ENDIF
479
[464]480      IF (PRESENT(scale_factor_)) THEN
481        CALL cxios_get_field_scale_factor(field_hdl%daddr, scale_factor_)
482      ENDIF
[581]483
[326]484      IF (PRESENT(standard_name_)) THEN
485        CALL cxios_get_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_))
486      ENDIF
[581]487
[711]488      IF (PRESENT(ts_enabled_)) THEN
489        CALL cxios_get_field_ts_enabled(field_hdl%daddr, ts_enabled__tmp)
490        ts_enabled_ = ts_enabled__tmp
491      ENDIF
492
493      IF (PRESENT(ts_split_freq_)) THEN
494        CALL cxios_get_field_ts_split_freq(field_hdl%daddr, ts_split_freq_)
495      ENDIF
496
[326]497      IF (PRESENT(unit_)) THEN
498        CALL cxios_get_field_unit(field_hdl%daddr, unit_, len(unit_))
499      ENDIF
[581]500
[463]501      IF (PRESENT(valid_max_)) THEN
502        CALL cxios_get_field_valid_max(field_hdl%daddr, valid_max_)
503      ENDIF
[581]504
[463]505      IF (PRESENT(valid_min_)) THEN
506        CALL cxios_get_field_valid_min(field_hdl%daddr, valid_min_)
507      ENDIF
[581]508
[326]509  END SUBROUTINE xios(get_field_attr_hdl_)
[581]510
[432]511  SUBROUTINE xios(is_defined_field_attr)  &
[608]512    ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
[790]513    , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  &
514    , name, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq  &
515    , unit, valid_max, valid_min )
[581]516
[432]517    IMPLICIT NONE
518      TYPE(txios(field))  :: field_hdl
519      CHARACTER(LEN=*), INTENT(IN) ::field_id
[464]520      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
521      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
[432]522      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
523      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[608]524      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
525      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[432]526      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
527      LOGICAL(KIND=C_BOOL) :: default_value_tmp
[472]528      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
529      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
[432]530      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
531      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
532      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
533      LOGICAL(KIND=C_BOOL) :: enabled_tmp
534      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
535      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
536      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
537      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
538      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
539      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
[790]540      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path
541      LOGICAL(KIND=C_BOOL) :: grid_path_tmp
[432]542      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
543      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
[676]544      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
545      LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
[432]546      LOGICAL, OPTIONAL, INTENT(OUT) :: level
547      LOGICAL(KIND=C_BOOL) :: level_tmp
548      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
549      LOGICAL(KIND=C_BOOL) :: long_name_tmp
550      LOGICAL, OPTIONAL, INTENT(OUT) :: name
551      LOGICAL(KIND=C_BOOL) :: name_tmp
552      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
553      LOGICAL(KIND=C_BOOL) :: operation_tmp
554      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
555      LOGICAL(KIND=C_BOOL) :: prec_tmp
[593]556      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
557      LOGICAL(KIND=C_BOOL) :: read_access_tmp
[464]558      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
559      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
[432]560      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
561      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[711]562      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled
563      LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp
564      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq
565      LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp
[432]566      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
567      LOGICAL(KIND=C_BOOL) :: unit_tmp
[463]568      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
569      LOGICAL(KIND=C_BOOL) :: valid_max_tmp
570      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
571      LOGICAL(KIND=C_BOOL) :: valid_min_tmp
[581]572
[432]573      CALL xios(get_field_handle)(field_id,field_hdl)
574      CALL xios(is_defined_field_attr_hdl_)   &
[608]575      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
[790]576      , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  &
577      , name, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq  &
578      , unit, valid_max, valid_min )
[581]579
[432]580  END SUBROUTINE xios(is_defined_field_attr)
[581]581
[432]582  SUBROUTINE xios(is_defined_field_attr_hdl)  &
[608]583    ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
[790]584    , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  &
585    , name, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq  &
586    , unit, valid_max, valid_min )
[581]587
[432]588    IMPLICIT NONE
589      TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]590      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
591      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
[432]592      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
593      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
[608]594      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
595      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
[432]596      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
597      LOGICAL(KIND=C_BOOL) :: default_value_tmp
[472]598      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
599      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
[432]600      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
601      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
602      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
603      LOGICAL(KIND=C_BOOL) :: enabled_tmp
604      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
605      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
606      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
607      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
608      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
609      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
[790]610      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path
611      LOGICAL(KIND=C_BOOL) :: grid_path_tmp
[432]612      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
613      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
[676]614      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
615      LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
[432]616      LOGICAL, OPTIONAL, INTENT(OUT) :: level
617      LOGICAL(KIND=C_BOOL) :: level_tmp
618      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
619      LOGICAL(KIND=C_BOOL) :: long_name_tmp
620      LOGICAL, OPTIONAL, INTENT(OUT) :: name
621      LOGICAL(KIND=C_BOOL) :: name_tmp
622      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
623      LOGICAL(KIND=C_BOOL) :: operation_tmp
624      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
625      LOGICAL(KIND=C_BOOL) :: prec_tmp
[593]626      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
627      LOGICAL(KIND=C_BOOL) :: read_access_tmp
[464]628      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
629      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
[432]630      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
631      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[711]632      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled
633      LOGICAL(KIND=C_BOOL) :: ts_enabled_tmp
634      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq
635      LOGICAL(KIND=C_BOOL) :: ts_split_freq_tmp
[432]636      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
637      LOGICAL(KIND=C_BOOL) :: unit_tmp
[463]638      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
639      LOGICAL(KIND=C_BOOL) :: valid_max_tmp
640      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
641      LOGICAL(KIND=C_BOOL) :: valid_min_tmp
[581]642
[432]643      CALL xios(is_defined_field_attr_hdl_)  &
[608]644      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
[790]645      , enabled, field_ref, freq_offset, freq_op, grid_path, grid_ref, indexed_output, level, long_name  &
646      , name, operation, prec, read_access, scale_factor, standard_name, ts_enabled, ts_split_freq  &
647      , unit, valid_max, valid_min )
[581]648
[432]649  END SUBROUTINE xios(is_defined_field_attr_hdl)
[581]650
[432]651  SUBROUTINE xios(is_defined_field_attr_hdl_)   &
[608]652    ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  &
[790]653    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_path_, grid_ref_, indexed_output_  &
654    , level_, long_name_, name_, operation_, prec_, read_access_, scale_factor_, standard_name_  &
655    , ts_enabled_, ts_split_freq_, unit_, valid_max_, valid_min_ )
[581]656
[432]657    IMPLICIT NONE
658      TYPE(txios(field)) , INTENT(IN) :: field_hdl
[464]659      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset_
660      LOGICAL(KIND=C_BOOL) :: add_offset__tmp
[432]661      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
662      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
[608]663      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
664      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
[432]665      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
666      LOGICAL(KIND=C_BOOL) :: default_value__tmp
[472]667      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
668      LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
[432]669      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
670      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
671      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
672      LOGICAL(KIND=C_BOOL) :: enabled__tmp
673      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_
674      LOGICAL(KIND=C_BOOL) :: field_ref__tmp
675      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_
676      LOGICAL(KIND=C_BOOL) :: freq_offset__tmp
677      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_
678      LOGICAL(KIND=C_BOOL) :: freq_op__tmp
[790]679      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path_
680      LOGICAL(KIND=C_BOOL) :: grid_path__tmp
[432]681      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_
682      LOGICAL(KIND=C_BOOL) :: grid_ref__tmp
[676]683      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output_
684      LOGICAL(KIND=C_BOOL) :: indexed_output__tmp
[432]685      LOGICAL, OPTIONAL, INTENT(OUT) :: level_
686      LOGICAL(KIND=C_BOOL) :: level__tmp
687      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
688      LOGICAL(KIND=C_BOOL) :: long_name__tmp
689      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
690      LOGICAL(KIND=C_BOOL) :: name__tmp
691      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
692      LOGICAL(KIND=C_BOOL) :: operation__tmp
693      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
694      LOGICAL(KIND=C_BOOL) :: prec__tmp
[593]695      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access_
696      LOGICAL(KIND=C_BOOL) :: read_access__tmp
[464]697      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor_
698      LOGICAL(KIND=C_BOOL) :: scale_factor__tmp
[432]699      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
700      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
[711]701      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_enabled_
702      LOGICAL(KIND=C_BOOL) :: ts_enabled__tmp
703      LOGICAL, OPTIONAL, INTENT(OUT) :: ts_split_freq_
704      LOGICAL(KIND=C_BOOL) :: ts_split_freq__tmp
[432]705      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
706      LOGICAL(KIND=C_BOOL) :: unit__tmp
[463]707      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max_
708      LOGICAL(KIND=C_BOOL) :: valid_max__tmp
709      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_
710      LOGICAL(KIND=C_BOOL) :: valid_min__tmp
[581]711
[464]712      IF (PRESENT(add_offset_)) THEN
[581]713        add_offset__tmp = cxios_is_defined_field_add_offset(field_hdl%daddr)
714        add_offset_ = add_offset__tmp
[464]715      ENDIF
[581]716
[432]717      IF (PRESENT(axis_ref_)) THEN
[581]718        axis_ref__tmp = cxios_is_defined_field_axis_ref(field_hdl%daddr)
719        axis_ref_ = axis_ref__tmp
[432]720      ENDIF
[581]721
[608]722      IF (PRESENT(compression_level_)) THEN
723        compression_level__tmp = cxios_is_defined_field_compression_level(field_hdl%daddr)
724        compression_level_ = compression_level__tmp
725      ENDIF
726
[432]727      IF (PRESENT(default_value_)) THEN
[581]728        default_value__tmp = cxios_is_defined_field_default_value(field_hdl%daddr)
729        default_value_ = default_value__tmp
[432]730      ENDIF
[581]731
[472]732      IF (PRESENT(detect_missing_value_)) THEN
[581]733        detect_missing_value__tmp = cxios_is_defined_field_detect_missing_value(field_hdl%daddr)
734        detect_missing_value_ = detect_missing_value__tmp
[472]735      ENDIF
[581]736
[432]737      IF (PRESENT(domain_ref_)) THEN
[581]738        domain_ref__tmp = cxios_is_defined_field_domain_ref(field_hdl%daddr)
739        domain_ref_ = domain_ref__tmp
[432]740      ENDIF
[581]741
[432]742      IF (PRESENT(enabled_)) THEN
[581]743        enabled__tmp = cxios_is_defined_field_enabled(field_hdl%daddr)
744        enabled_ = enabled__tmp
[432]745      ENDIF
[581]746
[432]747      IF (PRESENT(field_ref_)) THEN
[581]748        field_ref__tmp = cxios_is_defined_field_field_ref(field_hdl%daddr)
749        field_ref_ = field_ref__tmp
[432]750      ENDIF
[581]751
[432]752      IF (PRESENT(freq_offset_)) THEN
[581]753        freq_offset__tmp = cxios_is_defined_field_freq_offset(field_hdl%daddr)
754        freq_offset_ = freq_offset__tmp
[432]755      ENDIF
[581]756
[432]757      IF (PRESENT(freq_op_)) THEN
[581]758        freq_op__tmp = cxios_is_defined_field_freq_op(field_hdl%daddr)
759        freq_op_ = freq_op__tmp
[432]760      ENDIF
[581]761
[790]762      IF (PRESENT(grid_path_)) THEN
763        grid_path__tmp = cxios_is_defined_field_grid_path(field_hdl%daddr)
764        grid_path_ = grid_path__tmp
765      ENDIF
766
[432]767      IF (PRESENT(grid_ref_)) THEN
[581]768        grid_ref__tmp = cxios_is_defined_field_grid_ref(field_hdl%daddr)
769        grid_ref_ = grid_ref__tmp
[432]770      ENDIF
[581]771
[676]772      IF (PRESENT(indexed_output_)) THEN
773        indexed_output__tmp = cxios_is_defined_field_indexed_output(field_hdl%daddr)
774        indexed_output_ = indexed_output__tmp
775      ENDIF
776
[432]777      IF (PRESENT(level_)) THEN
[581]778        level__tmp = cxios_is_defined_field_level(field_hdl%daddr)
779        level_ = level__tmp
[432]780      ENDIF
[581]781
[432]782      IF (PRESENT(long_name_)) THEN
[581]783        long_name__tmp = cxios_is_defined_field_long_name(field_hdl%daddr)
784        long_name_ = long_name__tmp
[432]785      ENDIF
[581]786
[432]787      IF (PRESENT(name_)) THEN
[581]788        name__tmp = cxios_is_defined_field_name(field_hdl%daddr)
789        name_ = name__tmp
[432]790      ENDIF
[581]791
[432]792      IF (PRESENT(operation_)) THEN
[581]793        operation__tmp = cxios_is_defined_field_operation(field_hdl%daddr)
794        operation_ = operation__tmp
[432]795      ENDIF
[581]796
[432]797      IF (PRESENT(prec_)) THEN
[581]798        prec__tmp = cxios_is_defined_field_prec(field_hdl%daddr)
799        prec_ = prec__tmp
[432]800      ENDIF
[581]801
[593]802      IF (PRESENT(read_access_)) THEN
803        read_access__tmp = cxios_is_defined_field_read_access(field_hdl%daddr)
804        read_access_ = read_access__tmp
805      ENDIF
806
[464]807      IF (PRESENT(scale_factor_)) THEN
[581]808        scale_factor__tmp = cxios_is_defined_field_scale_factor(field_hdl%daddr)
809        scale_factor_ = scale_factor__tmp
[464]810      ENDIF
[581]811
[432]812      IF (PRESENT(standard_name_)) THEN
[581]813        standard_name__tmp = cxios_is_defined_field_standard_name(field_hdl%daddr)
814        standard_name_ = standard_name__tmp
[432]815      ENDIF
[581]816
[711]817      IF (PRESENT(ts_enabled_)) THEN
818        ts_enabled__tmp = cxios_is_defined_field_ts_enabled(field_hdl%daddr)
819        ts_enabled_ = ts_enabled__tmp
820      ENDIF
821
822      IF (PRESENT(ts_split_freq_)) THEN
823        ts_split_freq__tmp = cxios_is_defined_field_ts_split_freq(field_hdl%daddr)
824        ts_split_freq_ = ts_split_freq__tmp
825      ENDIF
826
[432]827      IF (PRESENT(unit_)) THEN
[581]828        unit__tmp = cxios_is_defined_field_unit(field_hdl%daddr)
829        unit_ = unit__tmp
[432]830      ENDIF
[581]831
[463]832      IF (PRESENT(valid_max_)) THEN
[581]833        valid_max__tmp = cxios_is_defined_field_valid_max(field_hdl%daddr)
834        valid_max_ = valid_max__tmp
[463]835      ENDIF
[581]836
[463]837      IF (PRESENT(valid_min_)) THEN
[581]838        valid_min__tmp = cxios_is_defined_field_valid_min(field_hdl%daddr)
839        valid_min_ = valid_min__tmp
[463]840      ENDIF
[581]841
[432]842  END SUBROUTINE xios(is_defined_field_attr_hdl_)
[581]843
[326]844END MODULE ifield_attr
Note: See TracBrowser for help on using the repository browser.