source: XIOS2/trunk/src/interface/fortran_attr/ifield_attr.F90 @ 2634

Last change on this file since 2634 was 2623, checked in by jderouillat, 5 months ago

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