source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/ifield_attr.F90 @ 1205

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

branch merged with trunk @1200

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