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
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_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 )
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_path
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
36      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output
37      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
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
43      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
44      LOGICAL (KIND=C_BOOL) :: read_access_tmp
45      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
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
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
51      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
52      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
53
54      CALL xios(get_field_handle)(field_id,field_hdl)
55      CALL xios(set_field_attr_hdl_)   &
56      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
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 )
60
61  END SUBROUTINE xios(set_field_attr)
62
63  SUBROUTINE xios(set_field_attr_hdl)  &
64    ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
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 )
68
69    IMPLICIT NONE
70      TYPE(txios(field)) , INTENT(IN) :: field_hdl
71      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
72      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
73      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
74      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
75      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
76      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
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
81      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset
82      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op
83      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path
84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
85      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output
86      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
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
92      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
93      LOGICAL (KIND=C_BOOL) :: read_access_tmp
94      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
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
99      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
100      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
101      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
102
103      CALL xios(set_field_attr_hdl_)  &
104      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
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 )
108
109  END SUBROUTINE xios(set_field_attr_hdl)
110
111  SUBROUTINE xios(set_field_attr_hdl_)   &
112    ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  &
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_ )
116
117    IMPLICIT NONE
118      TYPE(txios(field)) , INTENT(IN) :: field_hdl
119      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_
120      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
121      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
122      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
123      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_
124      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
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_
129      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset_
130      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op_
131      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_path_
132      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
133      LOGICAL  , OPTIONAL, INTENT(IN) :: indexed_output_
134      LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
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_
140      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access_
141      LOGICAL (KIND=C_BOOL) :: read_access__tmp
142      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor_
143      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
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_
147      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
148      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_
149      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_
150
151      IF (PRESENT(add_offset_)) THEN
152        CALL cxios_set_field_add_offset(field_hdl%daddr, add_offset_)
153      ENDIF
154
155      IF (PRESENT(axis_ref_)) THEN
156        CALL cxios_set_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_))
157      ENDIF
158
159      IF (PRESENT(compression_level_)) THEN
160        CALL cxios_set_field_compression_level(field_hdl%daddr, compression_level_)
161      ENDIF
162
163      IF (PRESENT(default_value_)) THEN
164        CALL cxios_set_field_default_value(field_hdl%daddr, default_value_)
165      ENDIF
166
167      IF (PRESENT(detect_missing_value_)) THEN
168        detect_missing_value__tmp = detect_missing_value_
169        CALL cxios_set_field_detect_missing_value(field_hdl%daddr, detect_missing_value__tmp)
170      ENDIF
171
172      IF (PRESENT(domain_ref_)) THEN
173        CALL cxios_set_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_))
174      ENDIF
175
176      IF (PRESENT(enabled_)) THEN
177        enabled__tmp = enabled_
178        CALL cxios_set_field_enabled(field_hdl%daddr, enabled__tmp)
179      ENDIF
180
181      IF (PRESENT(field_ref_)) THEN
182        CALL cxios_set_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_))
183      ENDIF
184
185      IF (PRESENT(freq_offset_)) THEN
186        CALL cxios_set_field_freq_offset(field_hdl%daddr, freq_offset_)
187      ENDIF
188
189      IF (PRESENT(freq_op_)) THEN
190        CALL cxios_set_field_freq_op(field_hdl%daddr, freq_op_)
191      ENDIF
192
193      IF (PRESENT(grid_path_)) THEN
194        CALL cxios_set_field_grid_path(field_hdl%daddr, grid_path_, len(grid_path_))
195      ENDIF
196
197      IF (PRESENT(grid_ref_)) THEN
198        CALL cxios_set_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_))
199      ENDIF
200
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
206      IF (PRESENT(level_)) THEN
207        CALL cxios_set_field_level(field_hdl%daddr, level_)
208      ENDIF
209
210      IF (PRESENT(long_name_)) THEN
211        CALL cxios_set_field_long_name(field_hdl%daddr, long_name_, len(long_name_))
212      ENDIF
213
214      IF (PRESENT(name_)) THEN
215        CALL cxios_set_field_name(field_hdl%daddr, name_, len(name_))
216      ENDIF
217
218      IF (PRESENT(operation_)) THEN
219        CALL cxios_set_field_operation(field_hdl%daddr, operation_, len(operation_))
220      ENDIF
221
222      IF (PRESENT(prec_)) THEN
223        CALL cxios_set_field_prec(field_hdl%daddr, prec_)
224      ENDIF
225
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
231      IF (PRESENT(scale_factor_)) THEN
232        CALL cxios_set_field_scale_factor(field_hdl%daddr, scale_factor_)
233      ENDIF
234
235      IF (PRESENT(standard_name_)) THEN
236        CALL cxios_set_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_))
237      ENDIF
238
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
248      IF (PRESENT(unit_)) THEN
249        CALL cxios_set_field_unit(field_hdl%daddr, unit_, len(unit_))
250      ENDIF
251
252      IF (PRESENT(valid_max_)) THEN
253        CALL cxios_set_field_valid_max(field_hdl%daddr, valid_max_)
254      ENDIF
255
256      IF (PRESENT(valid_min_)) THEN
257        CALL cxios_set_field_valid_min(field_hdl%daddr, valid_min_)
258      ENDIF
259
260  END SUBROUTINE xios(set_field_attr_hdl_)
261
262  SUBROUTINE xios(get_field_attr)  &
263    ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
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 )
267
268    IMPLICIT NONE
269      TYPE(txios(field))  :: field_hdl
270      CHARACTER(LEN=*), INTENT(IN) ::field_id
271      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
272      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
273      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
274      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
275      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
276      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
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
281      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
282      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
283      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
284      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
285      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output
286      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
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
292      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
293      LOGICAL (KIND=C_BOOL) :: read_access_tmp
294      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
295      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
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
299      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
300      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
301      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
302
303      CALL xios(get_field_handle)(field_id,field_hdl)
304      CALL 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_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 )
309
310  END SUBROUTINE xios(get_field_attr)
311
312  SUBROUTINE xios(get_field_attr_hdl)  &
313    ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
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 )
317
318    IMPLICIT NONE
319      TYPE(txios(field)) , INTENT(IN) :: field_hdl
320      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
321      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
322      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
323      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
324      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
325      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
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
330      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
331      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
332      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path
333      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
334      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output
335      LOGICAL (KIND=C_BOOL) :: indexed_output_tmp
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
341      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
342      LOGICAL (KIND=C_BOOL) :: read_access_tmp
343      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
344      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
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
348      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
349      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
350      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
351
352      CALL xios(get_field_attr_hdl_)  &
353      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
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 )
357
358  END SUBROUTINE xios(get_field_attr_hdl)
359
360  SUBROUTINE xios(get_field_attr_hdl_)   &
361    ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  &
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_ )
365
366    IMPLICIT NONE
367      TYPE(txios(field)) , INTENT(IN) :: field_hdl
368      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_
369      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
370      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
371      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
372      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_
373      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
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_
378      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset_
379      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op_
380      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_path_
381      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
382      LOGICAL  , OPTIONAL, INTENT(OUT) :: indexed_output_
383      LOGICAL (KIND=C_BOOL) :: indexed_output__tmp
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_
389      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access_
390      LOGICAL (KIND=C_BOOL) :: read_access__tmp
391      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor_
392      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
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_
396      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
397      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_
398      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_
399
400      IF (PRESENT(add_offset_)) THEN
401        CALL cxios_get_field_add_offset(field_hdl%daddr, add_offset_)
402      ENDIF
403
404      IF (PRESENT(axis_ref_)) THEN
405        CALL cxios_get_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_))
406      ENDIF
407
408      IF (PRESENT(compression_level_)) THEN
409        CALL cxios_get_field_compression_level(field_hdl%daddr, compression_level_)
410      ENDIF
411
412      IF (PRESENT(default_value_)) THEN
413        CALL cxios_get_field_default_value(field_hdl%daddr, default_value_)
414      ENDIF
415
416      IF (PRESENT(detect_missing_value_)) THEN
417        CALL cxios_get_field_detect_missing_value(field_hdl%daddr, detect_missing_value__tmp)
418        detect_missing_value_ = detect_missing_value__tmp
419      ENDIF
420
421      IF (PRESENT(domain_ref_)) THEN
422        CALL cxios_get_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_))
423      ENDIF
424
425      IF (PRESENT(enabled_)) THEN
426        CALL cxios_get_field_enabled(field_hdl%daddr, enabled__tmp)
427        enabled_ = enabled__tmp
428      ENDIF
429
430      IF (PRESENT(field_ref_)) THEN
431        CALL cxios_get_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_))
432      ENDIF
433
434      IF (PRESENT(freq_offset_)) THEN
435        CALL cxios_get_field_freq_offset(field_hdl%daddr, freq_offset_)
436      ENDIF
437
438      IF (PRESENT(freq_op_)) THEN
439        CALL cxios_get_field_freq_op(field_hdl%daddr, freq_op_)
440      ENDIF
441
442      IF (PRESENT(grid_path_)) THEN
443        CALL cxios_get_field_grid_path(field_hdl%daddr, grid_path_, len(grid_path_))
444      ENDIF
445
446      IF (PRESENT(grid_ref_)) THEN
447        CALL cxios_get_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_))
448      ENDIF
449
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
455      IF (PRESENT(level_)) THEN
456        CALL cxios_get_field_level(field_hdl%daddr, level_)
457      ENDIF
458
459      IF (PRESENT(long_name_)) THEN
460        CALL cxios_get_field_long_name(field_hdl%daddr, long_name_, len(long_name_))
461      ENDIF
462
463      IF (PRESENT(name_)) THEN
464        CALL cxios_get_field_name(field_hdl%daddr, name_, len(name_))
465      ENDIF
466
467      IF (PRESENT(operation_)) THEN
468        CALL cxios_get_field_operation(field_hdl%daddr, operation_, len(operation_))
469      ENDIF
470
471      IF (PRESENT(prec_)) THEN
472        CALL cxios_get_field_prec(field_hdl%daddr, prec_)
473      ENDIF
474
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
480      IF (PRESENT(scale_factor_)) THEN
481        CALL cxios_get_field_scale_factor(field_hdl%daddr, scale_factor_)
482      ENDIF
483
484      IF (PRESENT(standard_name_)) THEN
485        CALL cxios_get_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_))
486      ENDIF
487
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
497      IF (PRESENT(unit_)) THEN
498        CALL cxios_get_field_unit(field_hdl%daddr, unit_, len(unit_))
499      ENDIF
500
501      IF (PRESENT(valid_max_)) THEN
502        CALL cxios_get_field_valid_max(field_hdl%daddr, valid_max_)
503      ENDIF
504
505      IF (PRESENT(valid_min_)) THEN
506        CALL cxios_get_field_valid_min(field_hdl%daddr, valid_min_)
507      ENDIF
508
509  END SUBROUTINE xios(get_field_attr_hdl_)
510
511  SUBROUTINE xios(is_defined_field_attr)  &
512    ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
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 )
516
517    IMPLICIT NONE
518      TYPE(txios(field))  :: field_hdl
519      CHARACTER(LEN=*), INTENT(IN) ::field_id
520      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
521      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
522      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
523      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
524      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
525      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
526      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
527      LOGICAL(KIND=C_BOOL) :: default_value_tmp
528      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
529      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
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
540      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path
541      LOGICAL(KIND=C_BOOL) :: grid_path_tmp
542      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
543      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
544      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
545      LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
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
556      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
557      LOGICAL(KIND=C_BOOL) :: read_access_tmp
558      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
559      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
560      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
561      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
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
566      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
567      LOGICAL(KIND=C_BOOL) :: unit_tmp
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
572
573      CALL xios(get_field_handle)(field_id,field_hdl)
574      CALL xios(is_defined_field_attr_hdl_)   &
575      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
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 )
579
580  END SUBROUTINE xios(is_defined_field_attr)
581
582  SUBROUTINE xios(is_defined_field_attr_hdl)  &
583    ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
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 )
587
588    IMPLICIT NONE
589      TYPE(txios(field)) , INTENT(IN) :: field_hdl
590      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
591      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
592      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
593      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
594      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
595      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
596      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
597      LOGICAL(KIND=C_BOOL) :: default_value_tmp
598      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
599      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
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
610      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path
611      LOGICAL(KIND=C_BOOL) :: grid_path_tmp
612      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
613      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
614      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output
615      LOGICAL(KIND=C_BOOL) :: indexed_output_tmp
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
626      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
627      LOGICAL(KIND=C_BOOL) :: read_access_tmp
628      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
629      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
630      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
631      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
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
636      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
637      LOGICAL(KIND=C_BOOL) :: unit_tmp
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
642
643      CALL xios(is_defined_field_attr_hdl_)  &
644      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
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 )
648
649  END SUBROUTINE xios(is_defined_field_attr_hdl)
650
651  SUBROUTINE xios(is_defined_field_attr_hdl_)   &
652    ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  &
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_ )
656
657    IMPLICIT NONE
658      TYPE(txios(field)) , INTENT(IN) :: field_hdl
659      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset_
660      LOGICAL(KIND=C_BOOL) :: add_offset__tmp
661      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
662      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
663      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
664      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
665      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
666      LOGICAL(KIND=C_BOOL) :: default_value__tmp
667      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
668      LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
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
679      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_path_
680      LOGICAL(KIND=C_BOOL) :: grid_path__tmp
681      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_
682      LOGICAL(KIND=C_BOOL) :: grid_ref__tmp
683      LOGICAL, OPTIONAL, INTENT(OUT) :: indexed_output_
684      LOGICAL(KIND=C_BOOL) :: indexed_output__tmp
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
695      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access_
696      LOGICAL(KIND=C_BOOL) :: read_access__tmp
697      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor_
698      LOGICAL(KIND=C_BOOL) :: scale_factor__tmp
699      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
700      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
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
705      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
706      LOGICAL(KIND=C_BOOL) :: unit__tmp
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
711
712      IF (PRESENT(add_offset_)) THEN
713        add_offset__tmp = cxios_is_defined_field_add_offset(field_hdl%daddr)
714        add_offset_ = add_offset__tmp
715      ENDIF
716
717      IF (PRESENT(axis_ref_)) THEN
718        axis_ref__tmp = cxios_is_defined_field_axis_ref(field_hdl%daddr)
719        axis_ref_ = axis_ref__tmp
720      ENDIF
721
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
727      IF (PRESENT(default_value_)) THEN
728        default_value__tmp = cxios_is_defined_field_default_value(field_hdl%daddr)
729        default_value_ = default_value__tmp
730      ENDIF
731
732      IF (PRESENT(detect_missing_value_)) THEN
733        detect_missing_value__tmp = cxios_is_defined_field_detect_missing_value(field_hdl%daddr)
734        detect_missing_value_ = detect_missing_value__tmp
735      ENDIF
736
737      IF (PRESENT(domain_ref_)) THEN
738        domain_ref__tmp = cxios_is_defined_field_domain_ref(field_hdl%daddr)
739        domain_ref_ = domain_ref__tmp
740      ENDIF
741
742      IF (PRESENT(enabled_)) THEN
743        enabled__tmp = cxios_is_defined_field_enabled(field_hdl%daddr)
744        enabled_ = enabled__tmp
745      ENDIF
746
747      IF (PRESENT(field_ref_)) THEN
748        field_ref__tmp = cxios_is_defined_field_field_ref(field_hdl%daddr)
749        field_ref_ = field_ref__tmp
750      ENDIF
751
752      IF (PRESENT(freq_offset_)) THEN
753        freq_offset__tmp = cxios_is_defined_field_freq_offset(field_hdl%daddr)
754        freq_offset_ = freq_offset__tmp
755      ENDIF
756
757      IF (PRESENT(freq_op_)) THEN
758        freq_op__tmp = cxios_is_defined_field_freq_op(field_hdl%daddr)
759        freq_op_ = freq_op__tmp
760      ENDIF
761
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
767      IF (PRESENT(grid_ref_)) THEN
768        grid_ref__tmp = cxios_is_defined_field_grid_ref(field_hdl%daddr)
769        grid_ref_ = grid_ref__tmp
770      ENDIF
771
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
777      IF (PRESENT(level_)) THEN
778        level__tmp = cxios_is_defined_field_level(field_hdl%daddr)
779        level_ = level__tmp
780      ENDIF
781
782      IF (PRESENT(long_name_)) THEN
783        long_name__tmp = cxios_is_defined_field_long_name(field_hdl%daddr)
784        long_name_ = long_name__tmp
785      ENDIF
786
787      IF (PRESENT(name_)) THEN
788        name__tmp = cxios_is_defined_field_name(field_hdl%daddr)
789        name_ = name__tmp
790      ENDIF
791
792      IF (PRESENT(operation_)) THEN
793        operation__tmp = cxios_is_defined_field_operation(field_hdl%daddr)
794        operation_ = operation__tmp
795      ENDIF
796
797      IF (PRESENT(prec_)) THEN
798        prec__tmp = cxios_is_defined_field_prec(field_hdl%daddr)
799        prec_ = prec__tmp
800      ENDIF
801
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
807      IF (PRESENT(scale_factor_)) THEN
808        scale_factor__tmp = cxios_is_defined_field_scale_factor(field_hdl%daddr)
809        scale_factor_ = scale_factor__tmp
810      ENDIF
811
812      IF (PRESENT(standard_name_)) THEN
813        standard_name__tmp = cxios_is_defined_field_standard_name(field_hdl%daddr)
814        standard_name_ = standard_name__tmp
815      ENDIF
816
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
827      IF (PRESENT(unit_)) THEN
828        unit__tmp = cxios_is_defined_field_unit(field_hdl%daddr)
829        unit_ = unit__tmp
830      ENDIF
831
832      IF (PRESENT(valid_max_)) THEN
833        valid_max__tmp = cxios_is_defined_field_valid_max(field_hdl%daddr)
834        valid_max_ = valid_max__tmp
835      ENDIF
836
837      IF (PRESENT(valid_min_)) THEN
838        valid_min__tmp = cxios_is_defined_field_valid_min(field_hdl%daddr)
839        valid_min_ = valid_min__tmp
840      ENDIF
841
842  END SUBROUTINE xios(is_defined_field_attr_hdl_)
843
844END MODULE ifield_attr
Note: See TracBrowser for help on using the repository browser.