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

Last change on this file since 464 was 464, checked in by ymipsl, 8 years ago

Enhancement : Add scale_factor and add_offset attribute to field output
Operation (field-add_offset)/scale_factor would be computed before output write.
If field attribute prec=2 the field would be rounded to nearest integer value and output as short int (2 bytes).

YM

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