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

Last change on this file since 1005 was 1005, checked in by mhnguyen, 4 years ago

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