source: XIOS/trunk/src/interface/fortran_attr/ifield_attr.F90 @ 991

Last change on this file since 991 was 991, checked in by mhnguyen, 8 years ago

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