source: XIOS/trunk/src/interface/fortran_attr/ifieldgroup_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: 29.6 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, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  &
15    , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  &
16    , scale_factor, standard_name, unit, valid_max, valid_min )
17
18    IMPLICIT NONE
19      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
20      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_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      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_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_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
46      CALL xios(set_fieldgroup_attr_hdl_)   &
47      ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  &
48      , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  &
49      , scale_factor, standard_name, unit, valid_max, valid_min )
50
51  END SUBROUTINE xios(set_fieldgroup_attr)
52
53  SUBROUTINE xios(set_fieldgroup_attr_hdl)  &
54    ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  &
55    , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  &
56    , scale_factor, standard_name, unit, valid_max, valid_min )
57
58    IMPLICIT NONE
59      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
60      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
61      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
62      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
63      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
64      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
65      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
66      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
67      LOGICAL (KIND=C_BOOL) :: enabled_tmp
68      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
69      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset
70      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op
71      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
72      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_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_fieldgroup_attr_hdl_)  &
85      ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  &
86      , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  &
87      , scale_factor, standard_name, unit, valid_max, valid_min )
88
89  END SUBROUTINE xios(set_fieldgroup_attr_hdl)
90
91  SUBROUTINE xios(set_fieldgroup_attr_hdl_)   &
92    ( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_  &
93    , enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_  &
94    , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ )
95
96    IMPLICIT NONE
97      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
98      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_
99      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
100      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
101      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_
102      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
103      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
104      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
105      LOGICAL (KIND=C_BOOL) :: enabled__tmp
106      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
107      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset_
108      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op_
109      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
110      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_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_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_)
124      ENDIF
125
126      IF (PRESENT(axis_ref_)) THEN
127        CALL cxios_set_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
128      ENDIF
129
130      IF (PRESENT(default_value_)) THEN
131        CALL cxios_set_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_)
132      ENDIF
133
134      IF (PRESENT(detect_missing_value_)) THEN
135        detect_missing_value__tmp = detect_missing_value_
136        CALL cxios_set_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr, detect_missing_value__tmp)
137      ENDIF
138
139      IF (PRESENT(domain_ref_)) THEN
140        CALL cxios_set_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
141      ENDIF
142
143      IF (PRESENT(enabled_)) THEN
144        enabled__tmp = enabled_
145        CALL cxios_set_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp)
146      ENDIF
147
148      IF (PRESENT(field_ref_)) THEN
149        CALL cxios_set_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
150      ENDIF
151
152      IF (PRESENT(freq_offset_)) THEN
153        CALL cxios_set_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_)
154      ENDIF
155
156      IF (PRESENT(freq_op_)) THEN
157        CALL cxios_set_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_)
158      ENDIF
159
160      IF (PRESENT(grid_ref_)) THEN
161        CALL cxios_set_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
162      ENDIF
163
164      IF (PRESENT(group_ref_)) THEN
165        CALL cxios_set_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
166      ENDIF
167
168      IF (PRESENT(level_)) THEN
169        CALL cxios_set_fieldgroup_level(fieldgroup_hdl%daddr, level_)
170      ENDIF
171
172      IF (PRESENT(long_name_)) THEN
173        CALL cxios_set_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_))
174      ENDIF
175
176      IF (PRESENT(name_)) THEN
177        CALL cxios_set_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_))
178      ENDIF
179
180      IF (PRESENT(operation_)) THEN
181        CALL cxios_set_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_))
182      ENDIF
183
184      IF (PRESENT(prec_)) THEN
185        CALL cxios_set_fieldgroup_prec(fieldgroup_hdl%daddr, prec_)
186      ENDIF
187
188      IF (PRESENT(scale_factor_)) THEN
189        CALL cxios_set_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_)
190      ENDIF
191
192      IF (PRESENT(standard_name_)) THEN
193        CALL cxios_set_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
194      ENDIF
195
196      IF (PRESENT(unit_)) THEN
197        CALL cxios_set_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_))
198      ENDIF
199
200      IF (PRESENT(valid_max_)) THEN
201        CALL cxios_set_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_)
202      ENDIF
203
204      IF (PRESENT(valid_min_)) THEN
205        CALL cxios_set_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_)
206      ENDIF
207
208  END SUBROUTINE xios(set_fieldgroup_attr_hdl_)
209
210  SUBROUTINE xios(get_fieldgroup_attr)  &
211    ( fieldgroup_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  &
212    , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  &
213    , scale_factor, standard_name, unit, valid_max, valid_min )
214
215    IMPLICIT NONE
216      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
217      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
218      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
219      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
220      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
221      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
222      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
223      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
224      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
225      LOGICAL (KIND=C_BOOL) :: enabled_tmp
226      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
227      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
228      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
229      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
230      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
231      INTEGER  , OPTIONAL, INTENT(OUT) :: level
232      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
233      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
234      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
235      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
236      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
237      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
238      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
239      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
240      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
241
242      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
243      CALL xios(get_fieldgroup_attr_hdl_)   &
244      ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  &
245      , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  &
246      , scale_factor, standard_name, unit, valid_max, valid_min )
247
248  END SUBROUTINE xios(get_fieldgroup_attr)
249
250  SUBROUTINE xios(get_fieldgroup_attr_hdl)  &
251    ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  &
252    , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  &
253    , scale_factor, standard_name, unit, valid_max, valid_min )
254
255    IMPLICIT NONE
256      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
257      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
258      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
259      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
260      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
261      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
262      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
263      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
264      LOGICAL (KIND=C_BOOL) :: enabled_tmp
265      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
266      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
267      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
268      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
269      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
270      INTEGER  , OPTIONAL, INTENT(OUT) :: level
271      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
272      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
273      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
274      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
275      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
276      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
277      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
278      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
279      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
280
281      CALL xios(get_fieldgroup_attr_hdl_)  &
282      ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  &
283      , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  &
284      , scale_factor, standard_name, unit, valid_max, valid_min )
285
286  END SUBROUTINE xios(get_fieldgroup_attr_hdl)
287
288  SUBROUTINE xios(get_fieldgroup_attr_hdl_)   &
289    ( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_  &
290    , enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_  &
291    , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ )
292
293    IMPLICIT NONE
294      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
295      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_
296      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
297      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
298      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_
299      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
300      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
301      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
302      LOGICAL (KIND=C_BOOL) :: enabled__tmp
303      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
304      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset_
305      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op_
306      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
307      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
308      INTEGER  , OPTIONAL, INTENT(OUT) :: level_
309      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
310      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
311      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
312      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
313      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor_
314      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
315      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
316      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_
317      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_
318
319      IF (PRESENT(add_offset_)) THEN
320        CALL cxios_get_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_)
321      ENDIF
322
323      IF (PRESENT(axis_ref_)) THEN
324        CALL cxios_get_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
325      ENDIF
326
327      IF (PRESENT(default_value_)) THEN
328        CALL cxios_get_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_)
329      ENDIF
330
331      IF (PRESENT(detect_missing_value_)) THEN
332        CALL cxios_get_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr, detect_missing_value__tmp)
333        detect_missing_value_ = detect_missing_value__tmp
334      ENDIF
335
336      IF (PRESENT(domain_ref_)) THEN
337        CALL cxios_get_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
338      ENDIF
339
340      IF (PRESENT(enabled_)) THEN
341        CALL cxios_get_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp)
342        enabled_ = enabled__tmp
343      ENDIF
344
345      IF (PRESENT(field_ref_)) THEN
346        CALL cxios_get_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
347      ENDIF
348
349      IF (PRESENT(freq_offset_)) THEN
350        CALL cxios_get_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_)
351      ENDIF
352
353      IF (PRESENT(freq_op_)) THEN
354        CALL cxios_get_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_)
355      ENDIF
356
357      IF (PRESENT(grid_ref_)) THEN
358        CALL cxios_get_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
359      ENDIF
360
361      IF (PRESENT(group_ref_)) THEN
362        CALL cxios_get_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
363      ENDIF
364
365      IF (PRESENT(level_)) THEN
366        CALL cxios_get_fieldgroup_level(fieldgroup_hdl%daddr, level_)
367      ENDIF
368
369      IF (PRESENT(long_name_)) THEN
370        CALL cxios_get_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_))
371      ENDIF
372
373      IF (PRESENT(name_)) THEN
374        CALL cxios_get_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_))
375      ENDIF
376
377      IF (PRESENT(operation_)) THEN
378        CALL cxios_get_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_))
379      ENDIF
380
381      IF (PRESENT(prec_)) THEN
382        CALL cxios_get_fieldgroup_prec(fieldgroup_hdl%daddr, prec_)
383      ENDIF
384
385      IF (PRESENT(scale_factor_)) THEN
386        CALL cxios_get_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_)
387      ENDIF
388
389      IF (PRESENT(standard_name_)) THEN
390        CALL cxios_get_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
391      ENDIF
392
393      IF (PRESENT(unit_)) THEN
394        CALL cxios_get_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_))
395      ENDIF
396
397      IF (PRESENT(valid_max_)) THEN
398        CALL cxios_get_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_)
399      ENDIF
400
401      IF (PRESENT(valid_min_)) THEN
402        CALL cxios_get_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_)
403      ENDIF
404
405  END SUBROUTINE xios(get_fieldgroup_attr_hdl_)
406
407  SUBROUTINE xios(is_defined_fieldgroup_attr)  &
408    ( fieldgroup_id, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  &
409    , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  &
410    , scale_factor, standard_name, unit, valid_max, valid_min )
411
412    IMPLICIT NONE
413      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
414      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
415      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
416      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
417      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
418      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
419      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
420      LOGICAL(KIND=C_BOOL) :: default_value_tmp
421      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
422      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
423      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
424      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
425      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
426      LOGICAL(KIND=C_BOOL) :: enabled_tmp
427      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
428      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
429      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
430      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
431      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
432      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
433      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
434      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
435      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
436      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
437      LOGICAL, OPTIONAL, INTENT(OUT) :: level
438      LOGICAL(KIND=C_BOOL) :: level_tmp
439      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
440      LOGICAL(KIND=C_BOOL) :: long_name_tmp
441      LOGICAL, OPTIONAL, INTENT(OUT) :: name
442      LOGICAL(KIND=C_BOOL) :: name_tmp
443      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
444      LOGICAL(KIND=C_BOOL) :: operation_tmp
445      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
446      LOGICAL(KIND=C_BOOL) :: prec_tmp
447      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
448      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
449      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
450      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
451      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
452      LOGICAL(KIND=C_BOOL) :: unit_tmp
453      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
454      LOGICAL(KIND=C_BOOL) :: valid_max_tmp
455      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
456      LOGICAL(KIND=C_BOOL) :: valid_min_tmp
457
458      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
459      CALL xios(is_defined_fieldgroup_attr_hdl_)   &
460      ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  &
461      , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  &
462      , scale_factor, standard_name, unit, valid_max, valid_min )
463
464  END SUBROUTINE xios(is_defined_fieldgroup_attr)
465
466  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)  &
467    ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  &
468    , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  &
469    , scale_factor, standard_name, unit, valid_max, valid_min )
470
471    IMPLICIT NONE
472      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
473      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
474      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
475      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
476      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
477      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
478      LOGICAL(KIND=C_BOOL) :: default_value_tmp
479      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
480      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
481      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
482      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
483      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
484      LOGICAL(KIND=C_BOOL) :: enabled_tmp
485      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
486      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
487      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
488      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
489      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
490      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
491      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
492      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
493      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
494      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
495      LOGICAL, OPTIONAL, INTENT(OUT) :: level
496      LOGICAL(KIND=C_BOOL) :: level_tmp
497      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
498      LOGICAL(KIND=C_BOOL) :: long_name_tmp
499      LOGICAL, OPTIONAL, INTENT(OUT) :: name
500      LOGICAL(KIND=C_BOOL) :: name_tmp
501      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
502      LOGICAL(KIND=C_BOOL) :: operation_tmp
503      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
504      LOGICAL(KIND=C_BOOL) :: prec_tmp
505      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
506      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
507      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
508      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
509      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
510      LOGICAL(KIND=C_BOOL) :: unit_tmp
511      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
512      LOGICAL(KIND=C_BOOL) :: valid_max_tmp
513      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
514      LOGICAL(KIND=C_BOOL) :: valid_min_tmp
515
516      CALL xios(is_defined_fieldgroup_attr_hdl_)  &
517      ( fieldgroup_hdl, add_offset, axis_ref, default_value, detect_missing_value, domain_ref, enabled  &
518      , field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name, name, operation, prec  &
519      , scale_factor, standard_name, unit, valid_max, valid_min )
520
521  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)
522
523  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)   &
524    ( fieldgroup_hdl, add_offset_, axis_ref_, default_value_, detect_missing_value_, domain_ref_  &
525    , enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_, name_  &
526    , operation_, prec_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_ )
527
528    IMPLICIT NONE
529      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
530      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset_
531      LOGICAL(KIND=C_BOOL) :: add_offset__tmp
532      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
533      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
534      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
535      LOGICAL(KIND=C_BOOL) :: default_value__tmp
536      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
537      LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
538      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
539      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
540      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
541      LOGICAL(KIND=C_BOOL) :: enabled__tmp
542      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_
543      LOGICAL(KIND=C_BOOL) :: field_ref__tmp
544      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_
545      LOGICAL(KIND=C_BOOL) :: freq_offset__tmp
546      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_
547      LOGICAL(KIND=C_BOOL) :: freq_op__tmp
548      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_
549      LOGICAL(KIND=C_BOOL) :: grid_ref__tmp
550      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
551      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
552      LOGICAL, OPTIONAL, INTENT(OUT) :: level_
553      LOGICAL(KIND=C_BOOL) :: level__tmp
554      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
555      LOGICAL(KIND=C_BOOL) :: long_name__tmp
556      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
557      LOGICAL(KIND=C_BOOL) :: name__tmp
558      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
559      LOGICAL(KIND=C_BOOL) :: operation__tmp
560      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
561      LOGICAL(KIND=C_BOOL) :: prec__tmp
562      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor_
563      LOGICAL(KIND=C_BOOL) :: scale_factor__tmp
564      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
565      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
566      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
567      LOGICAL(KIND=C_BOOL) :: unit__tmp
568      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max_
569      LOGICAL(KIND=C_BOOL) :: valid_max__tmp
570      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_
571      LOGICAL(KIND=C_BOOL) :: valid_min__tmp
572
573      IF (PRESENT(add_offset_)) THEN
574        add_offset__tmp = cxios_is_defined_fieldgroup_add_offset(fieldgroup_hdl%daddr)
575        add_offset_ = add_offset__tmp
576      ENDIF
577
578      IF (PRESENT(axis_ref_)) THEN
579        axis_ref__tmp = cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl%daddr)
580        axis_ref_ = axis_ref__tmp
581      ENDIF
582
583      IF (PRESENT(default_value_)) THEN
584        default_value__tmp = cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl%daddr)
585        default_value_ = default_value__tmp
586      ENDIF
587
588      IF (PRESENT(detect_missing_value_)) THEN
589        detect_missing_value__tmp = cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr)
590        detect_missing_value_ = detect_missing_value__tmp
591      ENDIF
592
593      IF (PRESENT(domain_ref_)) THEN
594        domain_ref__tmp = cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl%daddr)
595        domain_ref_ = domain_ref__tmp
596      ENDIF
597
598      IF (PRESENT(enabled_)) THEN
599        enabled__tmp = cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl%daddr)
600        enabled_ = enabled__tmp
601      ENDIF
602
603      IF (PRESENT(field_ref_)) THEN
604        field_ref__tmp = cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl%daddr)
605        field_ref_ = field_ref__tmp
606      ENDIF
607
608      IF (PRESENT(freq_offset_)) THEN
609        freq_offset__tmp = cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl%daddr)
610        freq_offset_ = freq_offset__tmp
611      ENDIF
612
613      IF (PRESENT(freq_op_)) THEN
614        freq_op__tmp = cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl%daddr)
615        freq_op_ = freq_op__tmp
616      ENDIF
617
618      IF (PRESENT(grid_ref_)) THEN
619        grid_ref__tmp = cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl%daddr)
620        grid_ref_ = grid_ref__tmp
621      ENDIF
622
623      IF (PRESENT(group_ref_)) THEN
624        group_ref__tmp = cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl%daddr)
625        group_ref_ = group_ref__tmp
626      ENDIF
627
628      IF (PRESENT(level_)) THEN
629        level__tmp = cxios_is_defined_fieldgroup_level(fieldgroup_hdl%daddr)
630        level_ = level__tmp
631      ENDIF
632
633      IF (PRESENT(long_name_)) THEN
634        long_name__tmp = cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl%daddr)
635        long_name_ = long_name__tmp
636      ENDIF
637
638      IF (PRESENT(name_)) THEN
639        name__tmp = cxios_is_defined_fieldgroup_name(fieldgroup_hdl%daddr)
640        name_ = name__tmp
641      ENDIF
642
643      IF (PRESENT(operation_)) THEN
644        operation__tmp = cxios_is_defined_fieldgroup_operation(fieldgroup_hdl%daddr)
645        operation_ = operation__tmp
646      ENDIF
647
648      IF (PRESENT(prec_)) THEN
649        prec__tmp = cxios_is_defined_fieldgroup_prec(fieldgroup_hdl%daddr)
650        prec_ = prec__tmp
651      ENDIF
652
653      IF (PRESENT(scale_factor_)) THEN
654        scale_factor__tmp = cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl%daddr)
655        scale_factor_ = scale_factor__tmp
656      ENDIF
657
658      IF (PRESENT(standard_name_)) THEN
659        standard_name__tmp = cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl%daddr)
660        standard_name_ = standard_name__tmp
661      ENDIF
662
663      IF (PRESENT(unit_)) THEN
664        unit__tmp = cxios_is_defined_fieldgroup_unit(fieldgroup_hdl%daddr)
665        unit_ = unit__tmp
666      ENDIF
667
668      IF (PRESENT(valid_max_)) THEN
669        valid_max__tmp = cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl%daddr)
670        valid_max_ = valid_max__tmp
671      ENDIF
672
673      IF (PRESENT(valid_min_)) THEN
674        valid_min__tmp = cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl%daddr)
675        valid_min_ = valid_min__tmp
676      ENDIF
677
678  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)
679
680END MODULE ifieldgroup_attr
Note: See TracBrowser for help on using the repository browser.