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

Last change on this file since 463 was 463, checked in by ymipsl, 10 years ago

Enhancement :
Add valid_min and valid_max attribute for field, wrote as field metadata in the ouput netcdf file, following the CF convention

YM
File size: 23.2 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifield_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifield
9  USE field_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_field_attr)  &
14    ( field_id, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
15    , level, long_name, name, operation, prec, standard_name, unit, valid_max, valid_min )
16   
17    IMPLICIT NONE
18      TYPE(txios(field))  :: field_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::field_id
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
21      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
23      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
24      LOGICAL (KIND=C_BOOL) :: enabled_tmp
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_offset
27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_op
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
29      INTEGER  , OPTIONAL, INTENT(IN) :: level
30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
33      INTEGER  , OPTIONAL, INTENT(IN) :: prec
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
36      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
37      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
38     
39      CALL xios(get_field_handle)(field_id,field_hdl)
40      CALL xios(set_field_attr_hdl_)   &
41      ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
42      , level, long_name, name, operation, prec, standard_name, unit, valid_max, valid_min )
43   
44  END SUBROUTINE xios(set_field_attr)
45 
46  SUBROUTINE xios(set_field_attr_hdl)  &
47    ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
48    , level, long_name, name, operation, prec, standard_name, unit, valid_max, valid_min )
49   
50    IMPLICIT NONE
51      TYPE(txios(field)) , INTENT(IN) :: field_hdl
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
53      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
55      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
56      LOGICAL (KIND=C_BOOL) :: enabled_tmp
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
58      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_offset
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_op
60      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
61      INTEGER  , OPTIONAL, INTENT(IN) :: level
62      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
63      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
64      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
65      INTEGER  , OPTIONAL, INTENT(IN) :: prec
66      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
67      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
68      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
69      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
70     
71      CALL xios(set_field_attr_hdl_)  &
72      ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
73      , level, long_name, name, operation, prec, standard_name, unit, valid_max, valid_min )
74   
75  END SUBROUTINE xios(set_field_attr_hdl)
76 
77  SUBROUTINE xios(set_field_attr_hdl_)   &
78    ( field_hdl, axis_ref_, default_value_, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_  &
79    , grid_ref_, level_, long_name_, name_, operation_, prec_, standard_name_, unit_, valid_max_  &
80    , valid_min_ )
81   
82    IMPLICIT NONE
83      TYPE(txios(field)) , INTENT(IN) :: field_hdl
84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
85      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
86      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
87      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
88      LOGICAL (KIND=C_BOOL) :: enabled__tmp
89      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
90      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_offset_
91      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_op_
92      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
93      INTEGER  , OPTIONAL, INTENT(IN) :: level_
94      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
96      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
97      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
98      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
99      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
100      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_
101      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_
102     
103      IF (PRESENT(axis_ref_)) THEN
104        CALL cxios_set_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_))
105      ENDIF
106     
107      IF (PRESENT(default_value_)) THEN
108        CALL cxios_set_field_default_value(field_hdl%daddr, default_value_)
109      ENDIF
110     
111      IF (PRESENT(domain_ref_)) THEN
112        CALL cxios_set_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_))
113      ENDIF
114     
115      IF (PRESENT(enabled_)) THEN
116        enabled__tmp=enabled_
117        CALL cxios_set_field_enabled(field_hdl%daddr, enabled__tmp)
118      ENDIF
119     
120      IF (PRESENT(field_ref_)) THEN
121        CALL cxios_set_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_))
122      ENDIF
123     
124      IF (PRESENT(freq_offset_)) THEN
125        CALL cxios_set_field_freq_offset(field_hdl%daddr, freq_offset_, len(freq_offset_))
126      ENDIF
127     
128      IF (PRESENT(freq_op_)) THEN
129        CALL cxios_set_field_freq_op(field_hdl%daddr, freq_op_, len(freq_op_))
130      ENDIF
131     
132      IF (PRESENT(grid_ref_)) THEN
133        CALL cxios_set_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_))
134      ENDIF
135     
136      IF (PRESENT(level_)) THEN
137        CALL cxios_set_field_level(field_hdl%daddr, level_)
138      ENDIF
139     
140      IF (PRESENT(long_name_)) THEN
141        CALL cxios_set_field_long_name(field_hdl%daddr, long_name_, len(long_name_))
142      ENDIF
143     
144      IF (PRESENT(name_)) THEN
145        CALL cxios_set_field_name(field_hdl%daddr, name_, len(name_))
146      ENDIF
147     
148      IF (PRESENT(operation_)) THEN
149        CALL cxios_set_field_operation(field_hdl%daddr, operation_, len(operation_))
150      ENDIF
151     
152      IF (PRESENT(prec_)) THEN
153        CALL cxios_set_field_prec(field_hdl%daddr, prec_)
154      ENDIF
155     
156      IF (PRESENT(standard_name_)) THEN
157        CALL cxios_set_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_))
158      ENDIF
159     
160      IF (PRESENT(unit_)) THEN
161        CALL cxios_set_field_unit(field_hdl%daddr, unit_, len(unit_))
162      ENDIF
163     
164      IF (PRESENT(valid_max_)) THEN
165        CALL cxios_set_field_valid_max(field_hdl%daddr, valid_max_)
166      ENDIF
167     
168      IF (PRESENT(valid_min_)) THEN
169        CALL cxios_set_field_valid_min(field_hdl%daddr, valid_min_)
170      ENDIF
171     
172     
173   
174  END SUBROUTINE xios(set_field_attr_hdl_)
175 
176  SUBROUTINE xios(get_field_attr)  &
177    ( field_id, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
178    , level, long_name, name, operation, prec, standard_name, unit, valid_max, valid_min )
179   
180    IMPLICIT NONE
181      TYPE(txios(field))  :: field_hdl
182      CHARACTER(LEN=*), INTENT(IN) ::field_id
183      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
184      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
185      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
186      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
187      LOGICAL (KIND=C_BOOL) :: enabled_tmp
188      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
189      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_offset
190      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_op
191      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
192      INTEGER  , OPTIONAL, INTENT(OUT) :: level
193      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
194      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
195      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
196      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
197      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
198      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
199      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
200      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
201     
202      CALL xios(get_field_handle)(field_id,field_hdl)
203      CALL xios(get_field_attr_hdl_)   &
204      ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
205      , level, long_name, name, operation, prec, standard_name, unit, valid_max, valid_min )
206   
207  END SUBROUTINE xios(get_field_attr)
208 
209  SUBROUTINE xios(get_field_attr_hdl)  &
210    ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
211    , level, long_name, name, operation, prec, standard_name, unit, valid_max, valid_min )
212   
213    IMPLICIT NONE
214      TYPE(txios(field)) , INTENT(IN) :: field_hdl
215      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
216      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
217      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
218      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
219      LOGICAL (KIND=C_BOOL) :: enabled_tmp
220      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
221      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_offset
222      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_op
223      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
224      INTEGER  , OPTIONAL, INTENT(OUT) :: level
225      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
226      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
227      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
228      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
229      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
230      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
231      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
232      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
233     
234      CALL xios(get_field_attr_hdl_)  &
235      ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
236      , level, long_name, name, operation, prec, standard_name, unit, valid_max, valid_min )
237   
238  END SUBROUTINE xios(get_field_attr_hdl)
239 
240  SUBROUTINE xios(get_field_attr_hdl_)   &
241    ( field_hdl, axis_ref_, default_value_, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_  &
242    , grid_ref_, level_, long_name_, name_, operation_, prec_, standard_name_, unit_, valid_max_  &
243    , valid_min_ )
244   
245    IMPLICIT NONE
246      TYPE(txios(field)) , INTENT(IN) :: field_hdl
247      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
248      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
249      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
250      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
251      LOGICAL (KIND=C_BOOL) :: enabled__tmp
252      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
253      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_offset_
254      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_op_
255      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
256      INTEGER  , OPTIONAL, INTENT(OUT) :: level_
257      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
258      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
259      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
260      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
261      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
262      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
263      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_
264      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_
265     
266      IF (PRESENT(axis_ref_)) THEN
267        CALL cxios_get_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_))
268      ENDIF
269     
270      IF (PRESENT(default_value_)) THEN
271        CALL cxios_get_field_default_value(field_hdl%daddr, default_value_)
272      ENDIF
273     
274      IF (PRESENT(domain_ref_)) THEN
275        CALL cxios_get_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_))
276      ENDIF
277     
278      IF (PRESENT(enabled_)) THEN
279        CALL cxios_get_field_enabled(field_hdl%daddr, enabled__tmp)
280        enabled_=enabled__tmp
281      ENDIF
282     
283      IF (PRESENT(field_ref_)) THEN
284        CALL cxios_get_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_))
285      ENDIF
286     
287      IF (PRESENT(freq_offset_)) THEN
288        CALL cxios_get_field_freq_offset(field_hdl%daddr, freq_offset_, len(freq_offset_))
289      ENDIF
290     
291      IF (PRESENT(freq_op_)) THEN
292        CALL cxios_get_field_freq_op(field_hdl%daddr, freq_op_, len(freq_op_))
293      ENDIF
294     
295      IF (PRESENT(grid_ref_)) THEN
296        CALL cxios_get_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_))
297      ENDIF
298     
299      IF (PRESENT(level_)) THEN
300        CALL cxios_get_field_level(field_hdl%daddr, level_)
301      ENDIF
302     
303      IF (PRESENT(long_name_)) THEN
304        CALL cxios_get_field_long_name(field_hdl%daddr, long_name_, len(long_name_))
305      ENDIF
306     
307      IF (PRESENT(name_)) THEN
308        CALL cxios_get_field_name(field_hdl%daddr, name_, len(name_))
309      ENDIF
310     
311      IF (PRESENT(operation_)) THEN
312        CALL cxios_get_field_operation(field_hdl%daddr, operation_, len(operation_))
313      ENDIF
314     
315      IF (PRESENT(prec_)) THEN
316        CALL cxios_get_field_prec(field_hdl%daddr, prec_)
317      ENDIF
318     
319      IF (PRESENT(standard_name_)) THEN
320        CALL cxios_get_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_))
321      ENDIF
322     
323      IF (PRESENT(unit_)) THEN
324        CALL cxios_get_field_unit(field_hdl%daddr, unit_, len(unit_))
325      ENDIF
326     
327      IF (PRESENT(valid_max_)) THEN
328        CALL cxios_get_field_valid_max(field_hdl%daddr, valid_max_)
329      ENDIF
330     
331      IF (PRESENT(valid_min_)) THEN
332        CALL cxios_get_field_valid_min(field_hdl%daddr, valid_min_)
333      ENDIF
334     
335     
336   
337  END SUBROUTINE xios(get_field_attr_hdl_)
338 
339  SUBROUTINE xios(is_defined_field_attr)  &
340    ( field_id, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
341    , level, long_name, name, operation, prec, standard_name, unit, valid_max, valid_min )
342   
343    IMPLICIT NONE
344      TYPE(txios(field))  :: field_hdl
345      CHARACTER(LEN=*), INTENT(IN) ::field_id
346      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
347      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
348      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
349      LOGICAL(KIND=C_BOOL) :: default_value_tmp
350      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
351      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
352      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
353      LOGICAL(KIND=C_BOOL) :: enabled_tmp
354      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
355      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
356      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
357      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
358      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
359      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
360      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
361      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
362      LOGICAL, OPTIONAL, INTENT(OUT) :: level
363      LOGICAL(KIND=C_BOOL) :: level_tmp
364      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
365      LOGICAL(KIND=C_BOOL) :: long_name_tmp
366      LOGICAL, OPTIONAL, INTENT(OUT) :: name
367      LOGICAL(KIND=C_BOOL) :: name_tmp
368      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
369      LOGICAL(KIND=C_BOOL) :: operation_tmp
370      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
371      LOGICAL(KIND=C_BOOL) :: prec_tmp
372      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
373      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
374      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
375      LOGICAL(KIND=C_BOOL) :: unit_tmp
376      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
377      LOGICAL(KIND=C_BOOL) :: valid_max_tmp
378      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
379      LOGICAL(KIND=C_BOOL) :: valid_min_tmp
380     
381      CALL xios(get_field_handle)(field_id,field_hdl)
382      CALL xios(is_defined_field_attr_hdl_)   &
383      ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
384      , level, long_name, name, operation, prec, standard_name, unit, valid_max, valid_min )
385   
386  END SUBROUTINE xios(is_defined_field_attr)
387 
388  SUBROUTINE xios(is_defined_field_attr_hdl)  &
389    ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
390    , level, long_name, name, operation, prec, standard_name, unit, valid_max, valid_min )
391   
392    IMPLICIT NONE
393      TYPE(txios(field)) , INTENT(IN) :: field_hdl
394      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
395      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
396      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
397      LOGICAL(KIND=C_BOOL) :: default_value_tmp
398      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
399      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
400      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
401      LOGICAL(KIND=C_BOOL) :: enabled_tmp
402      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
403      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
404      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
405      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
406      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
407      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
408      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
409      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
410      LOGICAL, OPTIONAL, INTENT(OUT) :: level
411      LOGICAL(KIND=C_BOOL) :: level_tmp
412      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
413      LOGICAL(KIND=C_BOOL) :: long_name_tmp
414      LOGICAL, OPTIONAL, INTENT(OUT) :: name
415      LOGICAL(KIND=C_BOOL) :: name_tmp
416      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
417      LOGICAL(KIND=C_BOOL) :: operation_tmp
418      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
419      LOGICAL(KIND=C_BOOL) :: prec_tmp
420      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
421      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
422      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
423      LOGICAL(KIND=C_BOOL) :: unit_tmp
424      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
425      LOGICAL(KIND=C_BOOL) :: valid_max_tmp
426      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
427      LOGICAL(KIND=C_BOOL) :: valid_min_tmp
428     
429      CALL xios(is_defined_field_attr_hdl_)  &
430      ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
431      , level, long_name, name, operation, prec, standard_name, unit, valid_max, valid_min )
432   
433  END SUBROUTINE xios(is_defined_field_attr_hdl)
434 
435  SUBROUTINE xios(is_defined_field_attr_hdl_)   &
436    ( field_hdl, axis_ref_, default_value_, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_  &
437    , grid_ref_, level_, long_name_, name_, operation_, prec_, standard_name_, unit_, valid_max_  &
438    , valid_min_ )
439   
440    IMPLICIT NONE
441      TYPE(txios(field)) , INTENT(IN) :: field_hdl
442      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
443      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
444      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
445      LOGICAL(KIND=C_BOOL) :: default_value__tmp
446      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
447      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
448      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
449      LOGICAL(KIND=C_BOOL) :: enabled__tmp
450      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_
451      LOGICAL(KIND=C_BOOL) :: field_ref__tmp
452      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_
453      LOGICAL(KIND=C_BOOL) :: freq_offset__tmp
454      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_
455      LOGICAL(KIND=C_BOOL) :: freq_op__tmp
456      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_
457      LOGICAL(KIND=C_BOOL) :: grid_ref__tmp
458      LOGICAL, OPTIONAL, INTENT(OUT) :: level_
459      LOGICAL(KIND=C_BOOL) :: level__tmp
460      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
461      LOGICAL(KIND=C_BOOL) :: long_name__tmp
462      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
463      LOGICAL(KIND=C_BOOL) :: name__tmp
464      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
465      LOGICAL(KIND=C_BOOL) :: operation__tmp
466      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
467      LOGICAL(KIND=C_BOOL) :: prec__tmp
468      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
469      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
470      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
471      LOGICAL(KIND=C_BOOL) :: unit__tmp
472      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max_
473      LOGICAL(KIND=C_BOOL) :: valid_max__tmp
474      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_
475      LOGICAL(KIND=C_BOOL) :: valid_min__tmp
476     
477      IF (PRESENT(axis_ref_)) THEN
478        axis_ref__tmp=cxios_is_defined_field_axis_ref(field_hdl%daddr)
479        axis_ref_=axis_ref__tmp
480      ENDIF
481     
482      IF (PRESENT(default_value_)) THEN
483        default_value__tmp=cxios_is_defined_field_default_value(field_hdl%daddr)
484        default_value_=default_value__tmp
485      ENDIF
486     
487      IF (PRESENT(domain_ref_)) THEN
488        domain_ref__tmp=cxios_is_defined_field_domain_ref(field_hdl%daddr)
489        domain_ref_=domain_ref__tmp
490      ENDIF
491     
492      IF (PRESENT(enabled_)) THEN
493        enabled__tmp=cxios_is_defined_field_enabled(field_hdl%daddr)
494        enabled_=enabled__tmp
495      ENDIF
496     
497      IF (PRESENT(field_ref_)) THEN
498        field_ref__tmp=cxios_is_defined_field_field_ref(field_hdl%daddr)
499        field_ref_=field_ref__tmp
500      ENDIF
501     
502      IF (PRESENT(freq_offset_)) THEN
503        freq_offset__tmp=cxios_is_defined_field_freq_offset(field_hdl%daddr)
504        freq_offset_=freq_offset__tmp
505      ENDIF
506     
507      IF (PRESENT(freq_op_)) THEN
508        freq_op__tmp=cxios_is_defined_field_freq_op(field_hdl%daddr)
509        freq_op_=freq_op__tmp
510      ENDIF
511     
512      IF (PRESENT(grid_ref_)) THEN
513        grid_ref__tmp=cxios_is_defined_field_grid_ref(field_hdl%daddr)
514        grid_ref_=grid_ref__tmp
515      ENDIF
516     
517      IF (PRESENT(level_)) THEN
518        level__tmp=cxios_is_defined_field_level(field_hdl%daddr)
519        level_=level__tmp
520      ENDIF
521     
522      IF (PRESENT(long_name_)) THEN
523        long_name__tmp=cxios_is_defined_field_long_name(field_hdl%daddr)
524        long_name_=long_name__tmp
525      ENDIF
526     
527      IF (PRESENT(name_)) THEN
528        name__tmp=cxios_is_defined_field_name(field_hdl%daddr)
529        name_=name__tmp
530      ENDIF
531     
532      IF (PRESENT(operation_)) THEN
533        operation__tmp=cxios_is_defined_field_operation(field_hdl%daddr)
534        operation_=operation__tmp
535      ENDIF
536     
537      IF (PRESENT(prec_)) THEN
538        prec__tmp=cxios_is_defined_field_prec(field_hdl%daddr)
539        prec_=prec__tmp
540      ENDIF
541     
542      IF (PRESENT(standard_name_)) THEN
543        standard_name__tmp=cxios_is_defined_field_standard_name(field_hdl%daddr)
544        standard_name_=standard_name__tmp
545      ENDIF
546     
547      IF (PRESENT(unit_)) THEN
548        unit__tmp=cxios_is_defined_field_unit(field_hdl%daddr)
549        unit_=unit__tmp
550      ENDIF
551     
552      IF (PRESENT(valid_max_)) THEN
553        valid_max__tmp=cxios_is_defined_field_valid_max(field_hdl%daddr)
554        valid_max_=valid_max__tmp
555      ENDIF
556     
557      IF (PRESENT(valid_min_)) THEN
558        valid_min__tmp=cxios_is_defined_field_valid_min(field_hdl%daddr)
559        valid_min_=valid_min__tmp
560      ENDIF
561     
562     
563   
564  END SUBROUTINE xios(is_defined_field_attr_hdl_)
565 
566END MODULE ifield_attr
Note: See TracBrowser for help on using the repository browser.