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

Last change on this file since 608 was 608, checked in by rlacroix, 6 years ago

Add the Fortran interface for the "compression_level" attribute.

It had been forgotten in r606.

  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 32.7 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, compression_level, default_value, detect_missing_value  &
15    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  &
16    , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  &
17     )
18
19    IMPLICIT NONE
20      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
21      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
22      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
23      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
24      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
26      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
27      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
29      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
30      LOGICAL (KIND=C_BOOL) :: enabled_tmp
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
32      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset
33      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
36      INTEGER  , OPTIONAL, INTENT(IN) :: level
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
40      INTEGER  , OPTIONAL, INTENT(IN) :: prec
41      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
42      LOGICAL (KIND=C_BOOL) :: read_access_tmp
43      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
45      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
46      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
47      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
48
49      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
50      CALL xios(set_fieldgroup_attr_hdl_)   &
51      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
52      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  &
53      , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  &
54       )
55
56  END SUBROUTINE xios(set_fieldgroup_attr)
57
58  SUBROUTINE xios(set_fieldgroup_attr_hdl)  &
59    ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
60    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  &
61    , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  &
62     )
63
64    IMPLICIT NONE
65      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
66      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset
67      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
68      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level
69      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
70      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
71      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
72      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
73      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
74      LOGICAL (KIND=C_BOOL) :: enabled_tmp
75      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
76      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset
77      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op
78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
79      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
80      INTEGER  , OPTIONAL, INTENT(IN) :: level
81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
83      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
84      INTEGER  , OPTIONAL, INTENT(IN) :: prec
85      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access
86      LOGICAL (KIND=C_BOOL) :: read_access_tmp
87      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor
88      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
89      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
90      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max
91      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min
92
93      CALL xios(set_fieldgroup_attr_hdl_)  &
94      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
95      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  &
96      , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  &
97       )
98
99  END SUBROUTINE xios(set_fieldgroup_attr_hdl)
100
101  SUBROUTINE xios(set_fieldgroup_attr_hdl_)   &
102    ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  &
103    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_  &
104    , name_, operation_, prec_, read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_  &
105     )
106
107    IMPLICIT NONE
108      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
109      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: add_offset_
110      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
111      INTEGER  , OPTIONAL, INTENT(IN) :: compression_level_
112      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
113      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_
114      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
115      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
116      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
117      LOGICAL (KIND=C_BOOL) :: enabled__tmp
118      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
119      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_offset_
120      TYPE(txios(duration))  , OPTIONAL, INTENT(IN) :: freq_op_
121      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
122      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
123      INTEGER  , OPTIONAL, INTENT(IN) :: level_
124      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
125      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
126      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
127      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
128      LOGICAL  , OPTIONAL, INTENT(IN) :: read_access_
129      LOGICAL (KIND=C_BOOL) :: read_access__tmp
130      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: scale_factor_
131      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
132      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
133      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_max_
134      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: valid_min_
135
136      IF (PRESENT(add_offset_)) THEN
137        CALL cxios_set_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_)
138      ENDIF
139
140      IF (PRESENT(axis_ref_)) THEN
141        CALL cxios_set_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
142      ENDIF
143
144      IF (PRESENT(compression_level_)) THEN
145        CALL cxios_set_fieldgroup_compression_level(fieldgroup_hdl%daddr, compression_level_)
146      ENDIF
147
148      IF (PRESENT(default_value_)) THEN
149        CALL cxios_set_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_)
150      ENDIF
151
152      IF (PRESENT(detect_missing_value_)) THEN
153        detect_missing_value__tmp = detect_missing_value_
154        CALL cxios_set_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr, detect_missing_value__tmp)
155      ENDIF
156
157      IF (PRESENT(domain_ref_)) THEN
158        CALL cxios_set_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
159      ENDIF
160
161      IF (PRESENT(enabled_)) THEN
162        enabled__tmp = enabled_
163        CALL cxios_set_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp)
164      ENDIF
165
166      IF (PRESENT(field_ref_)) THEN
167        CALL cxios_set_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
168      ENDIF
169
170      IF (PRESENT(freq_offset_)) THEN
171        CALL cxios_set_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_)
172      ENDIF
173
174      IF (PRESENT(freq_op_)) THEN
175        CALL cxios_set_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_)
176      ENDIF
177
178      IF (PRESENT(grid_ref_)) THEN
179        CALL cxios_set_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
180      ENDIF
181
182      IF (PRESENT(group_ref_)) THEN
183        CALL cxios_set_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
184      ENDIF
185
186      IF (PRESENT(level_)) THEN
187        CALL cxios_set_fieldgroup_level(fieldgroup_hdl%daddr, level_)
188      ENDIF
189
190      IF (PRESENT(long_name_)) THEN
191        CALL cxios_set_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_))
192      ENDIF
193
194      IF (PRESENT(name_)) THEN
195        CALL cxios_set_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_))
196      ENDIF
197
198      IF (PRESENT(operation_)) THEN
199        CALL cxios_set_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_))
200      ENDIF
201
202      IF (PRESENT(prec_)) THEN
203        CALL cxios_set_fieldgroup_prec(fieldgroup_hdl%daddr, prec_)
204      ENDIF
205
206      IF (PRESENT(read_access_)) THEN
207        read_access__tmp = read_access_
208        CALL cxios_set_fieldgroup_read_access(fieldgroup_hdl%daddr, read_access__tmp)
209      ENDIF
210
211      IF (PRESENT(scale_factor_)) THEN
212        CALL cxios_set_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_)
213      ENDIF
214
215      IF (PRESENT(standard_name_)) THEN
216        CALL cxios_set_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
217      ENDIF
218
219      IF (PRESENT(unit_)) THEN
220        CALL cxios_set_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_))
221      ENDIF
222
223      IF (PRESENT(valid_max_)) THEN
224        CALL cxios_set_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_)
225      ENDIF
226
227      IF (PRESENT(valid_min_)) THEN
228        CALL cxios_set_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_)
229      ENDIF
230
231  END SUBROUTINE xios(set_fieldgroup_attr_hdl_)
232
233  SUBROUTINE xios(get_fieldgroup_attr)  &
234    ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
235    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  &
236    , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  &
237     )
238
239    IMPLICIT NONE
240      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
241      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
242      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
243      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
244      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
245      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
246      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
247      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
248      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
249      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
250      LOGICAL (KIND=C_BOOL) :: enabled_tmp
251      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
252      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
253      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
254      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
255      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_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      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
262      LOGICAL (KIND=C_BOOL) :: read_access_tmp
263      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
264      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
265      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
266      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
267      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
268
269      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
270      CALL xios(get_fieldgroup_attr_hdl_)   &
271      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
272      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  &
273      , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  &
274       )
275
276  END SUBROUTINE xios(get_fieldgroup_attr)
277
278  SUBROUTINE xios(get_fieldgroup_attr_hdl)  &
279    ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
280    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  &
281    , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  &
282     )
283
284    IMPLICIT NONE
285      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
286      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset
287      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
288      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level
289      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
290      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
291      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
292      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
293      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
294      LOGICAL (KIND=C_BOOL) :: enabled_tmp
295      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
296      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset
297      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op
298      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
299      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
300      INTEGER  , OPTIONAL, INTENT(OUT) :: level
301      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
302      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
303      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
304      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
305      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access
306      LOGICAL (KIND=C_BOOL) :: read_access_tmp
307      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor
308      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
309      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
310      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max
311      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min
312
313      CALL xios(get_fieldgroup_attr_hdl_)  &
314      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
315      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  &
316      , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  &
317       )
318
319  END SUBROUTINE xios(get_fieldgroup_attr_hdl)
320
321  SUBROUTINE xios(get_fieldgroup_attr_hdl_)   &
322    ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  &
323    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_  &
324    , name_, operation_, prec_, read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_  &
325     )
326
327    IMPLICIT NONE
328      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
329      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: add_offset_
330      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
331      INTEGER  , OPTIONAL, INTENT(OUT) :: compression_level_
332      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
333      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_
334      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
335      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
336      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
337      LOGICAL (KIND=C_BOOL) :: enabled__tmp
338      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
339      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_offset_
340      TYPE(txios(duration))  , OPTIONAL, INTENT(OUT) :: freq_op_
341      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
342      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
343      INTEGER  , OPTIONAL, INTENT(OUT) :: level_
344      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
345      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
346      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
347      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
348      LOGICAL  , OPTIONAL, INTENT(OUT) :: read_access_
349      LOGICAL (KIND=C_BOOL) :: read_access__tmp
350      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: scale_factor_
351      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
352      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
353      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_max_
354      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: valid_min_
355
356      IF (PRESENT(add_offset_)) THEN
357        CALL cxios_get_fieldgroup_add_offset(fieldgroup_hdl%daddr, add_offset_)
358      ENDIF
359
360      IF (PRESENT(axis_ref_)) THEN
361        CALL cxios_get_fieldgroup_axis_ref(fieldgroup_hdl%daddr, axis_ref_, len(axis_ref_))
362      ENDIF
363
364      IF (PRESENT(compression_level_)) THEN
365        CALL cxios_get_fieldgroup_compression_level(fieldgroup_hdl%daddr, compression_level_)
366      ENDIF
367
368      IF (PRESENT(default_value_)) THEN
369        CALL cxios_get_fieldgroup_default_value(fieldgroup_hdl%daddr, default_value_)
370      ENDIF
371
372      IF (PRESENT(detect_missing_value_)) THEN
373        CALL cxios_get_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr, detect_missing_value__tmp)
374        detect_missing_value_ = detect_missing_value__tmp
375      ENDIF
376
377      IF (PRESENT(domain_ref_)) THEN
378        CALL cxios_get_fieldgroup_domain_ref(fieldgroup_hdl%daddr, domain_ref_, len(domain_ref_))
379      ENDIF
380
381      IF (PRESENT(enabled_)) THEN
382        CALL cxios_get_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__tmp)
383        enabled_ = enabled__tmp
384      ENDIF
385
386      IF (PRESENT(field_ref_)) THEN
387        CALL cxios_get_fieldgroup_field_ref(fieldgroup_hdl%daddr, field_ref_, len(field_ref_))
388      ENDIF
389
390      IF (PRESENT(freq_offset_)) THEN
391        CALL cxios_get_fieldgroup_freq_offset(fieldgroup_hdl%daddr, freq_offset_)
392      ENDIF
393
394      IF (PRESENT(freq_op_)) THEN
395        CALL cxios_get_fieldgroup_freq_op(fieldgroup_hdl%daddr, freq_op_)
396      ENDIF
397
398      IF (PRESENT(grid_ref_)) THEN
399        CALL cxios_get_fieldgroup_grid_ref(fieldgroup_hdl%daddr, grid_ref_, len(grid_ref_))
400      ENDIF
401
402      IF (PRESENT(group_ref_)) THEN
403        CALL cxios_get_fieldgroup_group_ref(fieldgroup_hdl%daddr, group_ref_, len(group_ref_))
404      ENDIF
405
406      IF (PRESENT(level_)) THEN
407        CALL cxios_get_fieldgroup_level(fieldgroup_hdl%daddr, level_)
408      ENDIF
409
410      IF (PRESENT(long_name_)) THEN
411        CALL cxios_get_fieldgroup_long_name(fieldgroup_hdl%daddr, long_name_, len(long_name_))
412      ENDIF
413
414      IF (PRESENT(name_)) THEN
415        CALL cxios_get_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_))
416      ENDIF
417
418      IF (PRESENT(operation_)) THEN
419        CALL cxios_get_fieldgroup_operation(fieldgroup_hdl%daddr, operation_, len(operation_))
420      ENDIF
421
422      IF (PRESENT(prec_)) THEN
423        CALL cxios_get_fieldgroup_prec(fieldgroup_hdl%daddr, prec_)
424      ENDIF
425
426      IF (PRESENT(read_access_)) THEN
427        CALL cxios_get_fieldgroup_read_access(fieldgroup_hdl%daddr, read_access__tmp)
428        read_access_ = read_access__tmp
429      ENDIF
430
431      IF (PRESENT(scale_factor_)) THEN
432        CALL cxios_get_fieldgroup_scale_factor(fieldgroup_hdl%daddr, scale_factor_)
433      ENDIF
434
435      IF (PRESENT(standard_name_)) THEN
436        CALL cxios_get_fieldgroup_standard_name(fieldgroup_hdl%daddr, standard_name_, len(standard_name_))
437      ENDIF
438
439      IF (PRESENT(unit_)) THEN
440        CALL cxios_get_fieldgroup_unit(fieldgroup_hdl%daddr, unit_, len(unit_))
441      ENDIF
442
443      IF (PRESENT(valid_max_)) THEN
444        CALL cxios_get_fieldgroup_valid_max(fieldgroup_hdl%daddr, valid_max_)
445      ENDIF
446
447      IF (PRESENT(valid_min_)) THEN
448        CALL cxios_get_fieldgroup_valid_min(fieldgroup_hdl%daddr, valid_min_)
449      ENDIF
450
451  END SUBROUTINE xios(get_fieldgroup_attr_hdl_)
452
453  SUBROUTINE xios(is_defined_fieldgroup_attr)  &
454    ( fieldgroup_id, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
455    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  &
456    , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  &
457     )
458
459    IMPLICIT NONE
460      TYPE(txios(fieldgroup))  :: fieldgroup_hdl
461      CHARACTER(LEN=*), INTENT(IN) ::fieldgroup_id
462      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
463      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
464      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
465      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
466      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
467      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
468      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
469      LOGICAL(KIND=C_BOOL) :: default_value_tmp
470      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
471      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
472      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
473      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
474      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
475      LOGICAL(KIND=C_BOOL) :: enabled_tmp
476      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
477      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
478      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
479      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
480      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
481      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
482      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
483      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
484      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
485      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
486      LOGICAL, OPTIONAL, INTENT(OUT) :: level
487      LOGICAL(KIND=C_BOOL) :: level_tmp
488      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
489      LOGICAL(KIND=C_BOOL) :: long_name_tmp
490      LOGICAL, OPTIONAL, INTENT(OUT) :: name
491      LOGICAL(KIND=C_BOOL) :: name_tmp
492      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
493      LOGICAL(KIND=C_BOOL) :: operation_tmp
494      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
495      LOGICAL(KIND=C_BOOL) :: prec_tmp
496      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
497      LOGICAL(KIND=C_BOOL) :: read_access_tmp
498      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor
499      LOGICAL(KIND=C_BOOL) :: scale_factor_tmp
500      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
501      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
502      LOGICAL, OPTIONAL, INTENT(OUT) :: unit
503      LOGICAL(KIND=C_BOOL) :: unit_tmp
504      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max
505      LOGICAL(KIND=C_BOOL) :: valid_max_tmp
506      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min
507      LOGICAL(KIND=C_BOOL) :: valid_min_tmp
508
509      CALL xios(get_fieldgroup_handle)(fieldgroup_id,fieldgroup_hdl)
510      CALL xios(is_defined_fieldgroup_attr_hdl_)   &
511      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
512      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  &
513      , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  &
514       )
515
516  END SUBROUTINE xios(is_defined_fieldgroup_attr)
517
518  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)  &
519    ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
520    , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  &
521    , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  &
522     )
523
524    IMPLICIT NONE
525      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
526      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset
527      LOGICAL(KIND=C_BOOL) :: add_offset_tmp
528      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref
529      LOGICAL(KIND=C_BOOL) :: axis_ref_tmp
530      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level
531      LOGICAL(KIND=C_BOOL) :: compression_level_tmp
532      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value
533      LOGICAL(KIND=C_BOOL) :: default_value_tmp
534      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
535      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
536      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
537      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
538      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled
539      LOGICAL(KIND=C_BOOL) :: enabled_tmp
540      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref
541      LOGICAL(KIND=C_BOOL) :: field_ref_tmp
542      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset
543      LOGICAL(KIND=C_BOOL) :: freq_offset_tmp
544      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op
545      LOGICAL(KIND=C_BOOL) :: freq_op_tmp
546      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref
547      LOGICAL(KIND=C_BOOL) :: grid_ref_tmp
548      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
549      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
550      LOGICAL, OPTIONAL, INTENT(OUT) :: level
551      LOGICAL(KIND=C_BOOL) :: level_tmp
552      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
553      LOGICAL(KIND=C_BOOL) :: long_name_tmp
554      LOGICAL, OPTIONAL, INTENT(OUT) :: name
555      LOGICAL(KIND=C_BOOL) :: name_tmp
556      LOGICAL, OPTIONAL, INTENT(OUT) :: operation
557      LOGICAL(KIND=C_BOOL) :: operation_tmp
558      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
559      LOGICAL(KIND=C_BOOL) :: prec_tmp
560      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access
561      LOGICAL(KIND=C_BOOL) :: read_access_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      CALL xios(is_defined_fieldgroup_attr_hdl_)  &
574      ( fieldgroup_hdl, add_offset, axis_ref, compression_level, default_value, detect_missing_value  &
575      , domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref, group_ref, level, long_name  &
576      , name, operation, prec, read_access, scale_factor, standard_name, unit, valid_max, valid_min  &
577       )
578
579  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl)
580
581  SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)   &
582    ( fieldgroup_hdl, add_offset_, axis_ref_, compression_level_, default_value_, detect_missing_value_  &
583    , domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_, grid_ref_, group_ref_, level_, long_name_  &
584    , name_, operation_, prec_, read_access_, scale_factor_, standard_name_, unit_, valid_max_, valid_min_  &
585     )
586
587    IMPLICIT NONE
588      TYPE(txios(fieldgroup)) , INTENT(IN) :: fieldgroup_hdl
589      LOGICAL, OPTIONAL, INTENT(OUT) :: add_offset_
590      LOGICAL(KIND=C_BOOL) :: add_offset__tmp
591      LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_
592      LOGICAL(KIND=C_BOOL) :: axis_ref__tmp
593      LOGICAL, OPTIONAL, INTENT(OUT) :: compression_level_
594      LOGICAL(KIND=C_BOOL) :: compression_level__tmp
595      LOGICAL, OPTIONAL, INTENT(OUT) :: default_value_
596      LOGICAL(KIND=C_BOOL) :: default_value__tmp
597      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
598      LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
599      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
600      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
601      LOGICAL, OPTIONAL, INTENT(OUT) :: enabled_
602      LOGICAL(KIND=C_BOOL) :: enabled__tmp
603      LOGICAL, OPTIONAL, INTENT(OUT) :: field_ref_
604      LOGICAL(KIND=C_BOOL) :: field_ref__tmp
605      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_offset_
606      LOGICAL(KIND=C_BOOL) :: freq_offset__tmp
607      LOGICAL, OPTIONAL, INTENT(OUT) :: freq_op_
608      LOGICAL(KIND=C_BOOL) :: freq_op__tmp
609      LOGICAL, OPTIONAL, INTENT(OUT) :: grid_ref_
610      LOGICAL(KIND=C_BOOL) :: grid_ref__tmp
611      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
612      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
613      LOGICAL, OPTIONAL, INTENT(OUT) :: level_
614      LOGICAL(KIND=C_BOOL) :: level__tmp
615      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
616      LOGICAL(KIND=C_BOOL) :: long_name__tmp
617      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
618      LOGICAL(KIND=C_BOOL) :: name__tmp
619      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_
620      LOGICAL(KIND=C_BOOL) :: operation__tmp
621      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
622      LOGICAL(KIND=C_BOOL) :: prec__tmp
623      LOGICAL, OPTIONAL, INTENT(OUT) :: read_access_
624      LOGICAL(KIND=C_BOOL) :: read_access__tmp
625      LOGICAL, OPTIONAL, INTENT(OUT) :: scale_factor_
626      LOGICAL(KIND=C_BOOL) :: scale_factor__tmp
627      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
628      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
629      LOGICAL, OPTIONAL, INTENT(OUT) :: unit_
630      LOGICAL(KIND=C_BOOL) :: unit__tmp
631      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_max_
632      LOGICAL(KIND=C_BOOL) :: valid_max__tmp
633      LOGICAL, OPTIONAL, INTENT(OUT) :: valid_min_
634      LOGICAL(KIND=C_BOOL) :: valid_min__tmp
635
636      IF (PRESENT(add_offset_)) THEN
637        add_offset__tmp = cxios_is_defined_fieldgroup_add_offset(fieldgroup_hdl%daddr)
638        add_offset_ = add_offset__tmp
639      ENDIF
640
641      IF (PRESENT(axis_ref_)) THEN
642        axis_ref__tmp = cxios_is_defined_fieldgroup_axis_ref(fieldgroup_hdl%daddr)
643        axis_ref_ = axis_ref__tmp
644      ENDIF
645
646      IF (PRESENT(compression_level_)) THEN
647        compression_level__tmp = cxios_is_defined_fieldgroup_compression_level(fieldgroup_hdl%daddr)
648        compression_level_ = compression_level__tmp
649      ENDIF
650
651      IF (PRESENT(default_value_)) THEN
652        default_value__tmp = cxios_is_defined_fieldgroup_default_value(fieldgroup_hdl%daddr)
653        default_value_ = default_value__tmp
654      ENDIF
655
656      IF (PRESENT(detect_missing_value_)) THEN
657        detect_missing_value__tmp = cxios_is_defined_fieldgroup_detect_missing_value(fieldgroup_hdl%daddr)
658        detect_missing_value_ = detect_missing_value__tmp
659      ENDIF
660
661      IF (PRESENT(domain_ref_)) THEN
662        domain_ref__tmp = cxios_is_defined_fieldgroup_domain_ref(fieldgroup_hdl%daddr)
663        domain_ref_ = domain_ref__tmp
664      ENDIF
665
666      IF (PRESENT(enabled_)) THEN
667        enabled__tmp = cxios_is_defined_fieldgroup_enabled(fieldgroup_hdl%daddr)
668        enabled_ = enabled__tmp
669      ENDIF
670
671      IF (PRESENT(field_ref_)) THEN
672        field_ref__tmp = cxios_is_defined_fieldgroup_field_ref(fieldgroup_hdl%daddr)
673        field_ref_ = field_ref__tmp
674      ENDIF
675
676      IF (PRESENT(freq_offset_)) THEN
677        freq_offset__tmp = cxios_is_defined_fieldgroup_freq_offset(fieldgroup_hdl%daddr)
678        freq_offset_ = freq_offset__tmp
679      ENDIF
680
681      IF (PRESENT(freq_op_)) THEN
682        freq_op__tmp = cxios_is_defined_fieldgroup_freq_op(fieldgroup_hdl%daddr)
683        freq_op_ = freq_op__tmp
684      ENDIF
685
686      IF (PRESENT(grid_ref_)) THEN
687        grid_ref__tmp = cxios_is_defined_fieldgroup_grid_ref(fieldgroup_hdl%daddr)
688        grid_ref_ = grid_ref__tmp
689      ENDIF
690
691      IF (PRESENT(group_ref_)) THEN
692        group_ref__tmp = cxios_is_defined_fieldgroup_group_ref(fieldgroup_hdl%daddr)
693        group_ref_ = group_ref__tmp
694      ENDIF
695
696      IF (PRESENT(level_)) THEN
697        level__tmp = cxios_is_defined_fieldgroup_level(fieldgroup_hdl%daddr)
698        level_ = level__tmp
699      ENDIF
700
701      IF (PRESENT(long_name_)) THEN
702        long_name__tmp = cxios_is_defined_fieldgroup_long_name(fieldgroup_hdl%daddr)
703        long_name_ = long_name__tmp
704      ENDIF
705
706      IF (PRESENT(name_)) THEN
707        name__tmp = cxios_is_defined_fieldgroup_name(fieldgroup_hdl%daddr)
708        name_ = name__tmp
709      ENDIF
710
711      IF (PRESENT(operation_)) THEN
712        operation__tmp = cxios_is_defined_fieldgroup_operation(fieldgroup_hdl%daddr)
713        operation_ = operation__tmp
714      ENDIF
715
716      IF (PRESENT(prec_)) THEN
717        prec__tmp = cxios_is_defined_fieldgroup_prec(fieldgroup_hdl%daddr)
718        prec_ = prec__tmp
719      ENDIF
720
721      IF (PRESENT(read_access_)) THEN
722        read_access__tmp = cxios_is_defined_fieldgroup_read_access(fieldgroup_hdl%daddr)
723        read_access_ = read_access__tmp
724      ENDIF
725
726      IF (PRESENT(scale_factor_)) THEN
727        scale_factor__tmp = cxios_is_defined_fieldgroup_scale_factor(fieldgroup_hdl%daddr)
728        scale_factor_ = scale_factor__tmp
729      ENDIF
730
731      IF (PRESENT(standard_name_)) THEN
732        standard_name__tmp = cxios_is_defined_fieldgroup_standard_name(fieldgroup_hdl%daddr)
733        standard_name_ = standard_name__tmp
734      ENDIF
735
736      IF (PRESENT(unit_)) THEN
737        unit__tmp = cxios_is_defined_fieldgroup_unit(fieldgroup_hdl%daddr)
738        unit_ = unit__tmp
739      ENDIF
740
741      IF (PRESENT(valid_max_)) THEN
742        valid_max__tmp = cxios_is_defined_fieldgroup_valid_max(fieldgroup_hdl%daddr)
743        valid_max_ = valid_max__tmp
744      ENDIF
745
746      IF (PRESENT(valid_min_)) THEN
747        valid_min__tmp = cxios_is_defined_fieldgroup_valid_min(fieldgroup_hdl%daddr)
748        valid_min_ = valid_min__tmp
749      ENDIF
750
751  END SUBROUTINE xios(is_defined_fieldgroup_attr_hdl_)
752
753END MODULE ifieldgroup_attr
Note: See TracBrowser for help on using the repository browser.