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

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

Add licence copyright to all file ond directory src using the command :
svn propset -R copyright -F header_licence src

XIOS is now officialy under CeCILL licence

YM

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