source: XIOS/trunk/src/interface/fortran_attr/ifieldgroup_attr.F90 @ 432

Last change on this file since 432 was 432, checked in by ymipsl, 11 years ago

Enhancement : Add fortran interface to know if an attribute is set or not
ex : CALL xios_is_defined_field_attr("field_A",enabled=ok)

YM

File size: 22.9 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifieldgroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifield
9  USE fieldgroup_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_fieldgroup_attr)  &
14    ( fieldgroup_id, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
15    , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
16   
17    IMPLICIT NONE
18      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_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      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
30      INTEGER  , OPTIONAL, INTENT(IN) :: level
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
33      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
34      INTEGER  , OPTIONAL, INTENT(IN) :: prec
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
37     
38      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
39      CALL xios(set_fieldgroup_attr_hdl_)   &
40      ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
41      , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
42   
43  END SUBROUTINE xios(set_fieldgroup_attr)
44 
45  SUBROUTINE xios(set_fieldgroup_attr_hdl)  &
46    ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
47    , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
48   
49    IMPLICIT NONE
50      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
52      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
54      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
55      LOGICAL (KIND=C_BOOL) :: enabled_tmp
56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_offset
58      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_op
59      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
60      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_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     
69      CALL xios(set_fieldgroup_attr_hdl_)  &
70      ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
71      , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
72   
73  END SUBROUTINE xios(set_fieldgroup_attr_hdl)
74 
75  SUBROUTINE xios(set_fieldgroup_attr_hdl_)   &
76    ( fieldgroup_hdl, axis_ref_, default_value_, domain_ref_, enabled_, field_ref_, freq_offset_  &
77    , freq_op_, grid_ref_, group_ref_, level_, long_name_, name_, operation_, prec_, standard_name_  &
78    , unit_ )
79   
80    IMPLICIT NONE
81      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
83      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
85      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
86      LOGICAL (KIND=C_BOOL) :: enabled__tmp
87      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
88      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_offset_
89      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_op_
90      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
91      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
92      INTEGER  , OPTIONAL, INTENT(IN) :: level_
93      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
94      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
96      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
98      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
99     
100      IF (PRESENT(axis_ref_)) THEN
101        CALL cxios_set_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
102      ENDIF
103     
104      IF (PRESENT(default_value_)) THEN
105        CALL cxios_set_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_)
106      ENDIF
107     
108      IF (PRESENT(domain_ref_)) THEN
109        CALL cxios_set_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
110      ENDIF
111     
112      IF (PRESENT(enabled_)) THEN
113        enabled__tmp=enabled_
114        CALL cxios_set_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp)
115      ENDIF
116     
117      IF (PRESENT(field_ref_)) THEN
118        CALL cxios_set_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
119      ENDIF
120     
121      IF (PRESENT(freq_offset_)) THEN
122        CALL cxios_set_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_, len(freq_offset_))
123      ENDIF
124     
125      IF (PRESENT(freq_op_)) THEN
126        CALL cxios_set_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_, len(freq_op_))
127      ENDIF
128     
129      IF (PRESENT(grid_ref_)) THEN
130        CALL cxios_set_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
131      ENDIF
132     
133      IF (PRESENT(group_ref_)) THEN
134        CALL cxios_set_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
135      ENDIF
136     
137      IF (PRESENT(level_)) THEN
138        CALL cxios_set_fieldgroup_level(fieldgroup_hdl%daddr, level_)
139      ENDIF
140     
141      IF (PRESENT(long_name_)) THEN
142        CALL cxios_set_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_))
143      ENDIF
144     
145      IF (PRESENT(name_)) THEN
146        CALL cxios_set_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_))
147      ENDIF
148     
149      IF (PRESENT(operation_)) THEN
150        CALL cxios_set_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_))
151      ENDIF
152     
153      IF (PRESENT(prec_)) THEN
154        CALL cxios_set_fieldgroup_prec(fieldgroup_hdl%daddr, prec_)
155      ENDIF
156     
157      IF (PRESENT(standard_name_)) THEN
158        CALL cxios_set_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
159      ENDIF
160     
161      IF (PRESENT(unit_)) THEN
162        CALL cxios_set_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_))
163      ENDIF
164     
165     
166   
167  END SUBROUTINE xios(set_fieldgroup_attr_hdl_)
168 
169  SUBROUTINE xios(get_fieldgroup_attr)  &
170    ( fieldgroup_id, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
171    , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
172   
173    IMPLICIT NONE
174      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
175      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
176      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
177      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
178      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
179      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
180      LOGICAL (KIND=C_BOOL) :: enabled_tmp
181      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
182      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_offset
183      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_op
184      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
185      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
186      INTEGER  , OPTIONAL, INTENT(OUT) :: level
187      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
188      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
189      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
190      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
191      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
192      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
193     
194      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
195      CALL xios(get_fieldgroup_attr_hdl_)   &
196      ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
197      , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
198   
199  END SUBROUTINE xios(get_fieldgroup_attr)
200 
201  SUBROUTINE xios(get_fieldgroup_attr_hdl)  &
202    ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
203    , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
204   
205    IMPLICIT NONE
206      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
207      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
208      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
209      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
210      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
211      LOGICAL (KIND=C_BOOL) :: enabled_tmp
212      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
213      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_offset
214      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_op
215      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
216      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
217      INTEGER  , OPTIONAL, INTENT(OUT) :: level
218      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
219      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
220      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
221      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
222      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
223      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
224     
225      CALL xios(get_fieldgroup_attr_hdl_)  &
226      ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
227      , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
228   
229  END SUBROUTINE xios(get_fieldgroup_attr_hdl)
230 
231  SUBROUTINE xios(get_fieldgroup_attr_hdl_)   &
232    ( fieldgroup_hdl, axis_ref_, default_value_, domain_ref_, enabled_, field_ref_, freq_offset_  &
233    , freq_op_, grid_ref_, group_ref_, level_, long_name_, name_, operation_, prec_, standard_name_  &
234    , unit_ )
235   
236    IMPLICIT NONE
237      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
238      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
239      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
240      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
241      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
242      LOGICAL (KIND=C_BOOL) :: enabled__tmp
243      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
244      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_offset_
245      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_op_
246      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
247      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
248      INTEGER  , OPTIONAL, INTENT(OUT) :: level_
249      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
250      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
251      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
252      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
253      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
254      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
255     
256      IF (PRESENT(axis_ref_)) THEN
257        CALL cxios_get_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
258      ENDIF
259     
260      IF (PRESENT(default_value_)) THEN
261        CALL cxios_get_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_)
262      ENDIF
263     
264      IF (PRESENT(domain_ref_)) THEN
265        CALL cxios_get_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
266      ENDIF
267     
268      IF (PRESENT(enabled_)) THEN
269        CALL cxios_get_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp)
270        enabled_=enabled__tmp
271      ENDIF
272     
273      IF (PRESENT(field_ref_)) THEN
274        CALL cxios_get_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
275      ENDIF
276     
277      IF (PRESENT(freq_offset_)) THEN
278        CALL cxios_get_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_, len(freq_offset_))
279      ENDIF
280     
281      IF (PRESENT(freq_op_)) THEN
282        CALL cxios_get_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_, len(freq_op_))
283      ENDIF
284     
285      IF (PRESENT(grid_ref_)) THEN
286        CALL cxios_get_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
287      ENDIF
288     
289      IF (PRESENT(group_ref_)) THEN
290        CALL cxios_get_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
291      ENDIF
292     
293      IF (PRESENT(level_)) THEN
294        CALL cxios_get_fieldgroup_level(fieldgroup_hdl%daddr, level_)
295      ENDIF
296     
297      IF (PRESENT(long_name_)) THEN
298        CALL cxios_get_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_))
299      ENDIF
300     
301      IF (PRESENT(name_)) THEN
302        CALL cxios_get_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_))
303      ENDIF
304     
305      IF (PRESENT(operation_)) THEN
306        CALL cxios_get_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_))
307      ENDIF
308     
309      IF (PRESENT(prec_)) THEN
310        CALL cxios_get_fieldgroup_prec(fieldgroup_hdl%daddr, prec_)
311      ENDIF
312     
313      IF (PRESENT(standard_name_)) THEN
314        CALL cxios_get_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
315      ENDIF
316     
317      IF (PRESENT(unit_)) THEN
318        CALL cxios_get_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_))
319      ENDIF
320     
321     
322   
323  END SUBROUTINE xios(get_fieldgroup_attr_hdl_)
324 
325  SUBROUTINE xios(is_defined_fieldgroup_attr)  &
326    ( fieldgroup_id, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
327    , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
328   
329    IMPLICIT NONE
330      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
331      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
332      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
333      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
334      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
335      LOGICAL(KIND=C_BOOL) :: default_value_tmp
336      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
337      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
338      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
339      LOGICAL(KIND=C_BOOL) :: enabled_tmp
340      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
341      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
342      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
343      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
344      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
345      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
346      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
347      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
348      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
349      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
350      LOGICAL, OPTIONAL, INTENT(OUT) :: level
351      LOGICAL(KIND=C_BOOL) :: level_tmp
352      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
353      LOGICAL(KIND=C_BOOL) :: long_name_tmp
354      LOGICAL, OPTIONAL, INTENT(OUT) :: name
355      LOGICAL(KIND=C_BOOL) :: name_tmp
356      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
357      LOGICAL(KIND=C_BOOL) :: operation_tmp
358      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
359      LOGICAL(KIND=C_BOOL) :: prec_tmp
360      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
361      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
362      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
363      LOGICAL(KIND=C_BOOL) :: unit_tmp
364     
365      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
366      CALL xios(is_defined_fieldgroup_attr_hdl_)   &
367      ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
368      , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
369   
370  END SUBROUTINE xios(is_defined_fieldgroup_attr)
371 
372  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)  &
373    ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
374    , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
375   
376    IMPLICIT NONE
377      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
378      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
379      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
380      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
381      LOGICAL(KIND=C_BOOL) :: default_value_tmp
382      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
383      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
384      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
385      LOGICAL(KIND=C_BOOL) :: enabled_tmp
386      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
387      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
388      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
389      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
390      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
391      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
392      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
393      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
394      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
395      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
396      LOGICAL, OPTIONAL, INTENT(OUT) :: level
397      LOGICAL(KIND=C_BOOL) :: level_tmp
398      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
399      LOGICAL(KIND=C_BOOL) :: long_name_tmp
400      LOGICAL, OPTIONAL, INTENT(OUT) :: name
401      LOGICAL(KIND=C_BOOL) :: name_tmp
402      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
403      LOGICAL(KIND=C_BOOL) :: operation_tmp
404      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
405      LOGICAL(KIND=C_BOOL) :: prec_tmp
406      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
407      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
408      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
409      LOGICAL(KIND=C_BOOL) :: unit_tmp
410     
411      CALL xios(is_defined_fieldgroup_attr_hdl_)  &
412      ( fieldgroup_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op  &
413      , grid_ref, group_ref, level, long_name, name, operation, prec, standard_name, unit )
414   
415  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)
416 
417  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)   &
418    ( fieldgroup_hdl, axis_ref_, default_value_, domain_ref_, enabled_, field_ref_, freq_offset_  &
419    , freq_op_, grid_ref_, group_ref_, level_, long_name_, name_, operation_, prec_, standard_name_  &
420    , unit_ )
421   
422    IMPLICIT NONE
423      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
424      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
425      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
426      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
427      LOGICAL(KIND=C_BOOL) :: default_value__tmp
428      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
429      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
430      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
431      LOGICAL(KIND=C_BOOL) :: enabled__tmp
432      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_
433      LOGICAL(KIND=C_BOOL) :: field_ref__tmp
434      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_
435      LOGICAL(KIND=C_BOOL) :: freq_offset__tmp
436      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_
437      LOGICAL(KIND=C_BOOL) :: freq_op__tmp
438      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_
439      LOGICAL(KIND=C_BOOL) :: grid_ref__tmp
440      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
441      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
442      LOGICAL, OPTIONAL, INTENT(OUT) :: level_
443      LOGICAL(KIND=C_BOOL) :: level__tmp
444      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
445      LOGICAL(KIND=C_BOOL) :: long_name__tmp
446      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
447      LOGICAL(KIND=C_BOOL) :: name__tmp
448      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
449      LOGICAL(KIND=C_BOOL) :: operation__tmp
450      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
451      LOGICAL(KIND=C_BOOL) :: prec__tmp
452      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
453      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
454      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
455      LOGICAL(KIND=C_BOOL) :: unit__tmp
456     
457      IF (PRESENT(axis_ref_)) THEN
458        axis_ref__tmp=cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl%daddr)
459        axis_ref_=axis_ref__tmp
460      ENDIF
461     
462      IF (PRESENT(default_value_)) THEN
463        default_value__tmp=cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl%daddr)
464        default_value_=default_value__tmp
465      ENDIF
466     
467      IF (PRESENT(domain_ref_)) THEN
468        domain_ref__tmp=cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl%daddr)
469        domain_ref_=domain_ref__tmp
470      ENDIF
471     
472      IF (PRESENT(enabled_)) THEN
473        enabled__tmp=cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl%daddr)
474        enabled_=enabled__tmp
475      ENDIF
476     
477      IF (PRESENT(field_ref_)) THEN
478        field_ref__tmp=cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl%daddr)
479        field_ref_=field_ref__tmp
480      ENDIF
481     
482      IF (PRESENT(freq_offset_)) THEN
483        freq_offset__tmp=cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl%daddr)
484        freq_offset_=freq_offset__tmp
485      ENDIF
486     
487      IF (PRESENT(freq_op_)) THEN
488        freq_op__tmp=cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl%daddr)
489        freq_op_=freq_op__tmp
490      ENDIF
491     
492      IF (PRESENT(grid_ref_)) THEN
493        grid_ref__tmp=cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl%daddr)
494        grid_ref_=grid_ref__tmp
495      ENDIF
496     
497      IF (PRESENT(group_ref_)) THEN
498        group_ref__tmp=cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl%daddr)
499        group_ref_=group_ref__tmp
500      ENDIF
501     
502      IF (PRESENT(level_)) THEN
503        level__tmp=cxios_is_defined_fieldgroup_level(fieldgroup_hdl%daddr)
504        level_=level__tmp
505      ENDIF
506     
507      IF (PRESENT(long_name_)) THEN
508        long_name__tmp=cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl%daddr)
509        long_name_=long_name__tmp
510      ENDIF
511     
512      IF (PRESENT(name_)) THEN
513        name__tmp=cxios_is_defined_fieldgroup_name(fieldgroup_hdl%daddr)
514        name_=name__tmp
515      ENDIF
516     
517      IF (PRESENT(operation_)) THEN
518        operation__tmp=cxios_is_defined_fieldgroup_operation(fieldgroup_hdl%daddr)
519        operation_=operation__tmp
520      ENDIF
521     
522      IF (PRESENT(prec_)) THEN
523        prec__tmp=cxios_is_defined_fieldgroup_prec(fieldgroup_hdl%daddr)
524        prec_=prec__tmp
525      ENDIF
526     
527      IF (PRESENT(standard_name_)) THEN
528        standard_name__tmp=cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl%daddr)
529        standard_name_=standard_name__tmp
530      ENDIF
531     
532      IF (PRESENT(unit_)) THEN
533        unit__tmp=cxios_is_defined_fieldgroup_unit(fieldgroup_hdl%daddr)
534        unit_=unit__tmp
535      ENDIF
536     
537     
538   
539  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)
540 
541END MODULE ifieldgroup_attr
Note: See TracBrowser for help on using the repository browser.