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

Last change on this file since 581 was 581, checked in by rlacroix, 7 years ago

Fix the Fortran interface generation to avoid generating dead code that caused a timer not to be stopped.

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