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

Last change on this file since 608 was 608, checked in by rlacroix, 6 years ago

Add the Fortran interface for the "compression_level" attribute.

It had been forgotten in r606.

  • 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: 30.4 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifield_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifield
9  USE field_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_field_attr)  &
14    ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
15    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  &
16    , read_access, scale_factor, standard_name, unit, valid_max, valid_min )
17
18    IMPLICIT NONE
19      TYPE(txios(field))  :: field_hdl
20      CHARACTER(LEN=*), INTENT(IN) ::field_id
21      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
23      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
24      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
25      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
26      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
28      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
29      LOGICAL (KIND=C_BOOL) :: enabled_tmp
30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
31      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset
32      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op
33      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
34      INTEGER  , OPTIONAL, INTENT(IN) :: level
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
38      INTEGER  , OPTIONAL, INTENT(IN) :: prec
39      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
40      LOGICAL (KIND=C_BOOL) :: read_access_tmp
41      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
42      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
43      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
44      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
45      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
46
47      CALL xios(get_field_handle)(field_id,field_hdl)
48      CALL xios(set_field_attr_hdl_)   &
49      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
50      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  &
51      , read_access, scale_factor, standard_name, unit, valid_max, valid_min )
52
53  END SUBROUTINE xios(set_field_attr)
54
55  SUBROUTINE xios(set_field_attr_hdl)  &
56    ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
57    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  &
58    , read_access, scale_factor, standard_name, unit, valid_max, valid_min )
59
60    IMPLICIT NONE
61      TYPE(txios(field)) , INTENT(IN) :: field_hdl
62      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
63      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
64      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
65      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
66      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
67      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
68      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
69      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
70      LOGICAL (KIND=C_BOOL) :: enabled_tmp
71      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
72      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset
73      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op
74      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
75      INTEGER  , OPTIONAL, INTENT(IN) :: level
76      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
77      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
79      INTEGER  , OPTIONAL, INTENT(IN) :: prec
80      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
81      LOGICAL (KIND=C_BOOL) :: read_access_tmp
82      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
83      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
85      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
86      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
87
88      CALL xios(set_field_attr_hdl_)  &
89      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
90      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  &
91      , read_access, scale_factor, standard_name, unit, valid_max, valid_min )
92
93  END SUBROUTINE xios(set_field_attr_hdl)
94
95  SUBROUTINE xios(set_field_attr_hdl_)   &
96    ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  &
97    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_  &
98    , operation_, prec_, read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_  &
99     )
100
101    IMPLICIT NONE
102      TYPE(txios(field)) , INTENT(IN) :: field_hdl
103      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_
104      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
105      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
106      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
107      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_
108      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
109      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
110      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
111      LOGICAL (KIND=C_BOOL) :: enabled__tmp
112      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
113      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset_
114      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op_
115      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
116      INTEGER  , OPTIONAL, INTENT(IN) :: level_
117      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
118      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
119      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
120      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
121      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access_
122      LOGICAL (KIND=C_BOOL) :: read_access__tmp
123      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor_
124      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
125      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
126      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_
127      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_
128
129      IF (PRESENT(add_offset_)) THEN
130        CALL cxios_set_field_add_offset(field_hdl%daddr, add_offset_)
131      ENDIF
132
133      IF (PRESENT(axis_ref_)) THEN
134        CALL cxios_set_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_))
135      ENDIF
136
137      IF (PRESENT(compression_level_)) THEN
138        CALL cxios_set_field_compression_level(field_hdl%daddr, compression_level_)
139      ENDIF
140
141      IF (PRESENT(default_value_)) THEN
142        CALL cxios_set_field_default_value(field_hdl%daddr, default_value_)
143      ENDIF
144
145      IF (PRESENT(detect_missing_value_)) THEN
146        detect_missing_value__tmp = detect_missing_value_
147        CALL cxios_set_field_detect_missing_value(field_hdl%daddr, detect_missing_value__tmp)
148      ENDIF
149
150      IF (PRESENT(domain_ref_)) THEN
151        CALL cxios_set_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_))
152      ENDIF
153
154      IF (PRESENT(enabled_)) THEN
155        enabled__tmp = enabled_
156        CALL cxios_set_field_enabled(field_hdl%daddr, enabled__tmp)
157      ENDIF
158
159      IF (PRESENT(field_ref_)) THEN
160        CALL cxios_set_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_))
161      ENDIF
162
163      IF (PRESENT(freq_offset_)) THEN
164        CALL cxios_set_field_freq_offset(field_hdl%daddr, freq_offset_)
165      ENDIF
166
167      IF (PRESENT(freq_op_)) THEN
168        CALL cxios_set_field_freq_op(field_hdl%daddr, freq_op_)
169      ENDIF
170
171      IF (PRESENT(grid_ref_)) THEN
172        CALL cxios_set_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_))
173      ENDIF
174
175      IF (PRESENT(level_)) THEN
176        CALL cxios_set_field_level(field_hdl%daddr, level_)
177      ENDIF
178
179      IF (PRESENT(long_name_)) THEN
180        CALL cxios_set_field_long_name(field_hdl%daddr, long_name_, len(long_name_))
181      ENDIF
182
183      IF (PRESENT(name_)) THEN
184        CALL cxios_set_field_name(field_hdl%daddr, name_, len(name_))
185      ENDIF
186
187      IF (PRESENT(operation_)) THEN
188        CALL cxios_set_field_operation(field_hdl%daddr, operation_, len(operation_))
189      ENDIF
190
191      IF (PRESENT(prec_)) THEN
192        CALL cxios_set_field_prec(field_hdl%daddr, prec_)
193      ENDIF
194
195      IF (PRESENT(read_access_)) THEN
196        read_access__tmp = read_access_
197        CALL cxios_set_field_read_access(field_hdl%daddr, read_access__tmp)
198      ENDIF
199
200      IF (PRESENT(scale_factor_)) THEN
201        CALL cxios_set_field_scale_factor(field_hdl%daddr, scale_factor_)
202      ENDIF
203
204      IF (PRESENT(standard_name_)) THEN
205        CALL cxios_set_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_))
206      ENDIF
207
208      IF (PRESENT(unit_)) THEN
209        CALL cxios_set_field_unit(field_hdl%daddr, unit_, len(unit_))
210      ENDIF
211
212      IF (PRESENT(valid_max_)) THEN
213        CALL cxios_set_field_valid_max(field_hdl%daddr, valid_max_)
214      ENDIF
215
216      IF (PRESENT(valid_min_)) THEN
217        CALL cxios_set_field_valid_min(field_hdl%daddr, valid_min_)
218      ENDIF
219
220  END SUBROUTINE xios(set_field_attr_hdl_)
221
222  SUBROUTINE xios(get_field_attr)  &
223    ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
224    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  &
225    , read_access, scale_factor, standard_name, unit, valid_max, valid_min )
226
227    IMPLICIT NONE
228      TYPE(txios(field))  :: field_hdl
229      CHARACTER(LEN=*), INTENT(IN) ::field_id
230      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
231      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
232      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
233      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
234      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
235      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
236      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
237      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
238      LOGICAL (KIND=C_BOOL) :: enabled_tmp
239      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
240      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
241      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
242      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
243      INTEGER  , OPTIONAL, INTENT(OUT) :: level
244      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
245      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
246      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
247      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
248      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
249      LOGICAL (KIND=C_BOOL) :: read_access_tmp
250      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
251      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
252      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
253      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
254      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
255
256      CALL xios(get_field_handle)(field_id,field_hdl)
257      CALL xios(get_field_attr_hdl_)   &
258      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
259      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  &
260      , read_access, scale_factor, standard_name, unit, valid_max, valid_min )
261
262  END SUBROUTINE xios(get_field_attr)
263
264  SUBROUTINE xios(get_field_attr_hdl)  &
265    ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
266    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  &
267    , read_access, scale_factor, standard_name, unit, valid_max, valid_min )
268
269    IMPLICIT NONE
270      TYPE(txios(field)) , INTENT(IN) :: field_hdl
271      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
272      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
273      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
274      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
275      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
276      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
277      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
278      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
279      LOGICAL (KIND=C_BOOL) :: enabled_tmp
280      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
281      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
282      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
283      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
284      INTEGER  , OPTIONAL, INTENT(OUT) :: level
285      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
286      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
287      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
288      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
289      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
290      LOGICAL (KIND=C_BOOL) :: read_access_tmp
291      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
292      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
293      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
294      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
295      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
296
297      CALL xios(get_field_attr_hdl_)  &
298      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
299      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  &
300      , read_access, scale_factor, standard_name, unit, valid_max, valid_min )
301
302  END SUBROUTINE xios(get_field_attr_hdl)
303
304  SUBROUTINE xios(get_field_attr_hdl_)   &
305    ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  &
306    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_  &
307    , operation_, prec_, read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_  &
308     )
309
310    IMPLICIT NONE
311      TYPE(txios(field)) , INTENT(IN) :: field_hdl
312      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_
313      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
314      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
315      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
316      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_
317      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
318      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
319      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
320      LOGICAL (KIND=C_BOOL) :: enabled__tmp
321      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
322      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset_
323      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op_
324      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
325      INTEGER  , OPTIONAL, INTENT(OUT) :: level_
326      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
327      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
328      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
329      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
330      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access_
331      LOGICAL (KIND=C_BOOL) :: read_access__tmp
332      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor_
333      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
334      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
335      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_
336      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_
337
338      IF (PRESENT(add_offset_)) THEN
339        CALL cxios_get_field_add_offset(field_hdl%daddr, add_offset_)
340      ENDIF
341
342      IF (PRESENT(axis_ref_)) THEN
343        CALL cxios_get_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_))
344      ENDIF
345
346      IF (PRESENT(compression_level_)) THEN
347        CALL cxios_get_field_compression_level(field_hdl%daddr, compression_level_)
348      ENDIF
349
350      IF (PRESENT(default_value_)) THEN
351        CALL cxios_get_field_default_value(field_hdl%daddr, default_value_)
352      ENDIF
353
354      IF (PRESENT(detect_missing_value_)) THEN
355        CALL cxios_get_field_detect_missing_value(field_hdl%daddr, detect_missing_value__tmp)
356        detect_missing_value_ = detect_missing_value__tmp
357      ENDIF
358
359      IF (PRESENT(domain_ref_)) THEN
360        CALL cxios_get_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_))
361      ENDIF
362
363      IF (PRESENT(enabled_)) THEN
364        CALL cxios_get_field_enabled(field_hdl%daddr, enabled__tmp)
365        enabled_ = enabled__tmp
366      ENDIF
367
368      IF (PRESENT(field_ref_)) THEN
369        CALL cxios_get_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_))
370      ENDIF
371
372      IF (PRESENT(freq_offset_)) THEN
373        CALL cxios_get_field_freq_offset(field_hdl%daddr, freq_offset_)
374      ENDIF
375
376      IF (PRESENT(freq_op_)) THEN
377        CALL cxios_get_field_freq_op(field_hdl%daddr, freq_op_)
378      ENDIF
379
380      IF (PRESENT(grid_ref_)) THEN
381        CALL cxios_get_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_))
382      ENDIF
383
384      IF (PRESENT(level_)) THEN
385        CALL cxios_get_field_level(field_hdl%daddr, level_)
386      ENDIF
387
388      IF (PRESENT(long_name_)) THEN
389        CALL cxios_get_field_long_name(field_hdl%daddr, long_name_, len(long_name_))
390      ENDIF
391
392      IF (PRESENT(name_)) THEN
393        CALL cxios_get_field_name(field_hdl%daddr, name_, len(name_))
394      ENDIF
395
396      IF (PRESENT(operation_)) THEN
397        CALL cxios_get_field_operation(field_hdl%daddr, operation_, len(operation_))
398      ENDIF
399
400      IF (PRESENT(prec_)) THEN
401        CALL cxios_get_field_prec(field_hdl%daddr, prec_)
402      ENDIF
403
404      IF (PRESENT(read_access_)) THEN
405        CALL cxios_get_field_read_access(field_hdl%daddr, read_access__tmp)
406        read_access_ = read_access__tmp
407      ENDIF
408
409      IF (PRESENT(scale_factor_)) THEN
410        CALL cxios_get_field_scale_factor(field_hdl%daddr, scale_factor_)
411      ENDIF
412
413      IF (PRESENT(standard_name_)) THEN
414        CALL cxios_get_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_))
415      ENDIF
416
417      IF (PRESENT(unit_)) THEN
418        CALL cxios_get_field_unit(field_hdl%daddr, unit_, len(unit_))
419      ENDIF
420
421      IF (PRESENT(valid_max_)) THEN
422        CALL cxios_get_field_valid_max(field_hdl%daddr, valid_max_)
423      ENDIF
424
425      IF (PRESENT(valid_min_)) THEN
426        CALL cxios_get_field_valid_min(field_hdl%daddr, valid_min_)
427      ENDIF
428
429  END SUBROUTINE xios(get_field_attr_hdl_)
430
431  SUBROUTINE xios(is_defined_field_attr)  &
432    ( field_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
433    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  &
434    , read_access, scale_factor, standard_name, unit, valid_max, valid_min )
435
436    IMPLICIT NONE
437      TYPE(txios(field))  :: field_hdl
438      CHARACTER(LEN=*), INTENT(IN) ::field_id
439      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
440      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
441      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
442      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
443      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
444      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
445      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
446      LOGICAL(KIND=C_BOOL) :: default_value_tmp
447      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
448      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
449      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
450      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
451      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
452      LOGICAL(KIND=C_BOOL) :: enabled_tmp
453      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
454      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
455      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
456      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
457      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
458      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
459      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
460      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
461      LOGICAL, OPTIONAL, INTENT(OUT) :: level
462      LOGICAL(KIND=C_BOOL) :: level_tmp
463      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
464      LOGICAL(KIND=C_BOOL) :: long_name_tmp
465      LOGICAL, OPTIONAL, INTENT(OUT) :: name
466      LOGICAL(KIND=C_BOOL) :: name_tmp
467      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
468      LOGICAL(KIND=C_BOOL) :: operation_tmp
469      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
470      LOGICAL(KIND=C_BOOL) :: prec_tmp
471      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
472      LOGICAL(KIND=C_BOOL) :: read_access_tmp
473      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
474      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
475      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
476      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
477      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
478      LOGICAL(KIND=C_BOOL) :: unit_tmp
479      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
480      LOGICAL(KIND=C_BOOL) :: valid_max_tmp
481      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
482      LOGICAL(KIND=C_BOOL) :: valid_min_tmp
483
484      CALL xios(get_field_handle)(field_id,field_hdl)
485      CALL xios(is_defined_field_attr_hdl_)   &
486      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
487      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  &
488      , read_access, scale_factor, standard_name, unit, valid_max, valid_min )
489
490  END SUBROUTINE xios(is_defined_field_attr)
491
492  SUBROUTINE xios(is_defined_field_attr_hdl)  &
493    ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
494    , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  &
495    , read_access, scale_factor, standard_name, unit, valid_max, valid_min )
496
497    IMPLICIT NONE
498      TYPE(txios(field)) , INTENT(IN) :: field_hdl
499      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
500      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
501      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
502      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
503      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
504      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
505      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
506      LOGICAL(KIND=C_BOOL) :: default_value_tmp
507      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
508      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
509      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
510      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
511      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
512      LOGICAL(KIND=C_BOOL) :: enabled_tmp
513      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
514      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
515      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
516      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
517      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
518      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
519      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
520      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
521      LOGICAL, OPTIONAL, INTENT(OUT) :: level
522      LOGICAL(KIND=C_BOOL) :: level_tmp
523      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
524      LOGICAL(KIND=C_BOOL) :: long_name_tmp
525      LOGICAL, OPTIONAL, INTENT(OUT) :: name
526      LOGICAL(KIND=C_BOOL) :: name_tmp
527      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
528      LOGICAL(KIND=C_BOOL) :: operation_tmp
529      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
530      LOGICAL(KIND=C_BOOL) :: prec_tmp
531      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
532      LOGICAL(KIND=C_BOOL) :: read_access_tmp
533      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
534      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
535      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
536      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
537      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
538      LOGICAL(KIND=C_BOOL) :: unit_tmp
539      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
540      LOGICAL(KIND=C_BOOL) :: valid_max_tmp
541      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
542      LOGICAL(KIND=C_BOOL) :: valid_min_tmp
543
544      CALL xios(is_defined_field_attr_hdl_)  &
545      ( field_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value, domain_ref  &
546      , enabled, field_ref, freq_offset, freq_op, grid_ref, level, long_name, name, operation, prec  &
547      , read_access, scale_factor, standard_name, unit, valid_max, valid_min )
548
549  END SUBROUTINE xios(is_defined_field_attr_hdl)
550
551  SUBROUTINE xios(is_defined_field_attr_hdl_)   &
552    ( field_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  &
553    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, level_, long_name_, name_  &
554    , operation_, prec_, read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_  &
555     )
556
557    IMPLICIT NONE
558      TYPE(txios(field)) , INTENT(IN) :: field_hdl
559      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset_
560      LOGICAL(KIND=C_BOOL) :: add_offset__tmp
561      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
562      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
563      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
564      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
565      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
566      LOGICAL(KIND=C_BOOL) :: default_value__tmp
567      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
568      LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
569      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
570      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
571      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
572      LOGICAL(KIND=C_BOOL) :: enabled__tmp
573      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_
574      LOGICAL(KIND=C_BOOL) :: field_ref__tmp
575      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_
576      LOGICAL(KIND=C_BOOL) :: freq_offset__tmp
577      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_
578      LOGICAL(KIND=C_BOOL) :: freq_op__tmp
579      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_
580      LOGICAL(KIND=C_BOOL) :: grid_ref__tmp
581      LOGICAL, OPTIONAL, INTENT(OUT) :: level_
582      LOGICAL(KIND=C_BOOL) :: level__tmp
583      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
584      LOGICAL(KIND=C_BOOL) :: long_name__tmp
585      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
586      LOGICAL(KIND=C_BOOL) :: name__tmp
587      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
588      LOGICAL(KIND=C_BOOL) :: operation__tmp
589      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
590      LOGICAL(KIND=C_BOOL) :: prec__tmp
591      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access_
592      LOGICAL(KIND=C_BOOL) :: read_access__tmp
593      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor_
594      LOGICAL(KIND=C_BOOL) :: scale_factor__tmp
595      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
596      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
597      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
598      LOGICAL(KIND=C_BOOL) :: unit__tmp
599      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max_
600      LOGICAL(KIND=C_BOOL) :: valid_max__tmp
601      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_
602      LOGICAL(KIND=C_BOOL) :: valid_min__tmp
603
604      IF (PRESENT(add_offset_)) THEN
605        add_offset__tmp = cxios_is_defined_field_add_offset(field_hdl%daddr)
606        add_offset_ = add_offset__tmp
607      ENDIF
608
609      IF (PRESENT(axis_ref_)) THEN
610        axis_ref__tmp = cxios_is_defined_field_axis_ref(field_hdl%daddr)
611        axis_ref_ = axis_ref__tmp
612      ENDIF
613
614      IF (PRESENT(compression_level_)) THEN
615        compression_level__tmp = cxios_is_defined_field_compression_level(field_hdl%daddr)
616        compression_level_ = compression_level__tmp
617      ENDIF
618
619      IF (PRESENT(default_value_)) THEN
620        default_value__tmp = cxios_is_defined_field_default_value(field_hdl%daddr)
621        default_value_ = default_value__tmp
622      ENDIF
623
624      IF (PRESENT(detect_missing_value_)) THEN
625        detect_missing_value__tmp = cxios_is_defined_field_detect_missing_value(field_hdl%daddr)
626        detect_missing_value_ = detect_missing_value__tmp
627      ENDIF
628
629      IF (PRESENT(domain_ref_)) THEN
630        domain_ref__tmp = cxios_is_defined_field_domain_ref(field_hdl%daddr)
631        domain_ref_ = domain_ref__tmp
632      ENDIF
633
634      IF (PRESENT(enabled_)) THEN
635        enabled__tmp = cxios_is_defined_field_enabled(field_hdl%daddr)
636        enabled_ = enabled__tmp
637      ENDIF
638
639      IF (PRESENT(field_ref_)) THEN
640        field_ref__tmp = cxios_is_defined_field_field_ref(field_hdl%daddr)
641        field_ref_ = field_ref__tmp
642      ENDIF
643
644      IF (PRESENT(freq_offset_)) THEN
645        freq_offset__tmp = cxios_is_defined_field_freq_offset(field_hdl%daddr)
646        freq_offset_ = freq_offset__tmp
647      ENDIF
648
649      IF (PRESENT(freq_op_)) THEN
650        freq_op__tmp = cxios_is_defined_field_freq_op(field_hdl%daddr)
651        freq_op_ = freq_op__tmp
652      ENDIF
653
654      IF (PRESENT(grid_ref_)) THEN
655        grid_ref__tmp = cxios_is_defined_field_grid_ref(field_hdl%daddr)
656        grid_ref_ = grid_ref__tmp
657      ENDIF
658
659      IF (PRESENT(level_)) THEN
660        level__tmp = cxios_is_defined_field_level(field_hdl%daddr)
661        level_ = level__tmp
662      ENDIF
663
664      IF (PRESENT(long_name_)) THEN
665        long_name__tmp = cxios_is_defined_field_long_name(field_hdl%daddr)
666        long_name_ = long_name__tmp
667      ENDIF
668
669      IF (PRESENT(name_)) THEN
670        name__tmp = cxios_is_defined_field_name(field_hdl%daddr)
671        name_ = name__tmp
672      ENDIF
673
674      IF (PRESENT(operation_)) THEN
675        operation__tmp = cxios_is_defined_field_operation(field_hdl%daddr)
676        operation_ = operation__tmp
677      ENDIF
678
679      IF (PRESENT(prec_)) THEN
680        prec__tmp = cxios_is_defined_field_prec(field_hdl%daddr)
681        prec_ = prec__tmp
682      ENDIF
683
684      IF (PRESENT(read_access_)) THEN
685        read_access__tmp = cxios_is_defined_field_read_access(field_hdl%daddr)
686        read_access_ = read_access__tmp
687      ENDIF
688
689      IF (PRESENT(scale_factor_)) THEN
690        scale_factor__tmp = cxios_is_defined_field_scale_factor(field_hdl%daddr)
691        scale_factor_ = scale_factor__tmp
692      ENDIF
693
694      IF (PRESENT(standard_name_)) THEN
695        standard_name__tmp = cxios_is_defined_field_standard_name(field_hdl%daddr)
696        standard_name_ = standard_name__tmp
697      ENDIF
698
699      IF (PRESENT(unit_)) THEN
700        unit__tmp = cxios_is_defined_field_unit(field_hdl%daddr)
701        unit_ = unit__tmp
702      ENDIF
703
704      IF (PRESENT(valid_max_)) THEN
705        valid_max__tmp = cxios_is_defined_field_valid_max(field_hdl%daddr)
706        valid_max_ = valid_max__tmp
707      ENDIF
708
709      IF (PRESENT(valid_min_)) THEN
710        valid_min__tmp = cxios_is_defined_field_valid_min(field_hdl%daddr)
711        valid_min_ = valid_min__tmp
712      ENDIF
713
714  END SUBROUTINE xios(is_defined_field_attr_hdl_)
715
716END MODULE ifield_attr
Note: See TracBrowser for help on using the repository browser.