source: XIOS/dev/branch_yushan/src/interface/fortran_attr/ifield_attr.F90 @ 1037

Last change on this file since 1037 was 1037, checked in by yushan, 4 years ago

initialize the branch

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