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

Last change on this file since 593 was 593, checked in by rlacroix, 10 years ago

Add a new interface xios_recv_field to get local instant data from a field.

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