source: XIOS/branchs/xios-1.0/src/interface/fortran_attr/ifield_attr.F90 @ 609

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