source: XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/ifield_attr.F90 @ 2338

Last change on this file since 2338 was 2338, checked in by jderouillat, 2 years ago

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