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

Last change on this file since 711 was 711, checked in by rlacroix, 7 years ago

Support creating the timeseries automatically.

Fields which should be outputted as timeseries must have the ts_enabled attribute set to true.

Files have a new attribute timeseries which must be one of:

  • none: no timeseries are outputted, only the regular file (default behavior when the attribute is ommited).
  • only: only the timeseries are outputted, the regular file is not created.
  • both: both the timeseries and the regular files are outputted.
  • exclusive: the timeseries are outputted and a regular file is created with only the fields which were not marked for output as a timeserie (if any).

The name of the files created for the timeseries is composed of a prefix followed by the name of the variable. The file attribute ts_prefix can be used to control the prefix used (by default, the name of the regular file is used).

All the attributes of the regular file are inherited by the files created for the timeseries. The field attribute ts_split_freq can be used to configure the splitting for each timeseries (by default, the splitting frequency of the regular file is used).

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