source: XIOS/trunk/src/fortran_attr_interface/ifield_attr.F90 @ 314

Last change on this file since 314 was 314, checked in by ymipsl, 12 years ago

Removing obsolete files and some cleaning...

YM
File size: 12.9 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE ifield_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE ifield
9  USE field_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_field_attr)  &
14    ( field_id, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
15    , level, long_name, name, operation, prec, standard_name, unit )
16   
17    IMPLICIT NONE
18      TYPE(txios(field))  :: field_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::field_id
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
21      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
23      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
24      LOGICAL (KIND=C_BOOL) :: enabled_tmp
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_offset
27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_op
28      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
29      INTEGER  , OPTIONAL, INTENT(IN) :: level
30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
33      INTEGER  , OPTIONAL, INTENT(IN) :: prec
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
36     
37      CALL xios(get_field_handle)(field_id,field_hdl)
38      CALL xios(set_field_attr_hdl_)   &
39      ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
40      , level, long_name, name, operation, prec, standard_name, unit )
41   
42  END SUBROUTINE xios(set_field_attr)
43 
44  SUBROUTINE xios(set_field_attr_hdl)  &
45    ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
46    , level, long_name, name, operation, prec, standard_name, unit )
47   
48    IMPLICIT NONE
49      TYPE(txios(field)) , INTENT(IN) :: field_hdl
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref
51      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value
52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
53      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled
54      LOGICAL (KIND=C_BOOL) :: enabled_tmp
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref
56      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_offset
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_op
58      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref
59      INTEGER  , OPTIONAL, INTENT(IN) :: level
60      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
61      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
62      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation
63      INTEGER  , OPTIONAL, INTENT(IN) :: prec
64      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
65      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit
66     
67      CALL xios(set_field_attr_hdl_)  &
68      ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
69      , level, long_name, name, operation, prec, standard_name, unit )
70   
71  END SUBROUTINE xios(set_field_attr_hdl)
72 
73  SUBROUTINE xios(set_field_attr_hdl_)   &
74    ( field_hdl, axis_ref_, default_value_, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_  &
75    , grid_ref_, level_, long_name_, name_, operation_, prec_, standard_name_, unit_ )
76   
77    IMPLICIT NONE
78      TYPE(txios(field)) , INTENT(IN) :: field_hdl
79      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_
80      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: default_value_
81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
82      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_
83      LOGICAL (KIND=C_BOOL) :: enabled__tmp
84      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: field_ref_
85      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_offset_
86      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: freq_op_
87      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: grid_ref_
88      INTEGER  , OPTIONAL, INTENT(IN) :: level_
89      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
90      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
91      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_
92      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
93      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
94      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_
95     
96      IF (PRESENT(axis_ref_)) THEN
97        CALL cxios_set_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_))
98      ENDIF
99     
100      IF (PRESENT(default_value_)) THEN
101        CALL cxios_set_field_default_value(field_hdl%daddr, default_value_)
102      ENDIF
103     
104      IF (PRESENT(domain_ref_)) THEN
105        CALL cxios_set_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_))
106      ENDIF
107     
108      IF (PRESENT(enabled_)) THEN
109        enabled__tmp=enabled_
110        CALL cxios_set_field_enabled(field_hdl%daddr, enabled__tmp)
111      ENDIF
112     
113      IF (PRESENT(field_ref_)) THEN
114        CALL cxios_set_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_))
115      ENDIF
116     
117      IF (PRESENT(freq_offset_)) THEN
118        CALL cxios_set_field_freq_offset(field_hdl%daddr, freq_offset_, len(freq_offset_))
119      ENDIF
120     
121      IF (PRESENT(freq_op_)) THEN
122        CALL cxios_set_field_freq_op(field_hdl%daddr, freq_op_, len(freq_op_))
123      ENDIF
124     
125      IF (PRESENT(grid_ref_)) THEN
126        CALL cxios_set_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_))
127      ENDIF
128     
129      IF (PRESENT(level_)) THEN
130        CALL cxios_set_field_level(field_hdl%daddr, level_)
131      ENDIF
132     
133      IF (PRESENT(long_name_)) THEN
134        CALL cxios_set_field_long_name(field_hdl%daddr, long_name_, len(long_name_))
135      ENDIF
136     
137      IF (PRESENT(name_)) THEN
138        CALL cxios_set_field_name(field_hdl%daddr, name_, len(name_))
139      ENDIF
140     
141      IF (PRESENT(operation_)) THEN
142        CALL cxios_set_field_operation(field_hdl%daddr, operation_, len(operation_))
143      ENDIF
144     
145      IF (PRESENT(prec_)) THEN
146        CALL cxios_set_field_prec(field_hdl%daddr, prec_)
147      ENDIF
148     
149      IF (PRESENT(standard_name_)) THEN
150        CALL cxios_set_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_))
151      ENDIF
152     
153      IF (PRESENT(unit_)) THEN
154        CALL cxios_set_field_unit(field_hdl%daddr, unit_, len(unit_))
155      ENDIF
156     
157     
158   
159  END SUBROUTINE xios(set_field_attr_hdl_)
160 
161  SUBROUTINE xios(get_field_attr)  &
162    ( field_id, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
163    , level, long_name, name, operation, prec, standard_name, unit )
164   
165    IMPLICIT NONE
166      TYPE(txios(field))  :: field_hdl
167      CHARACTER(LEN=*), INTENT(IN) ::field_id
168      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
169      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
170      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
171      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
172      LOGICAL (KIND=C_BOOL) :: enabled_tmp
173      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
174      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_offset
175      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_op
176      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
177      INTEGER  , OPTIONAL, INTENT(OUT) :: level
178      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
179      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
180      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
181      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
182      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
183      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
184     
185      CALL xios(get_field_handle)(field_id,field_hdl)
186      CALL xios(get_field_attr_hdl_)   &
187      ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
188      , level, long_name, name, operation, prec, standard_name, unit )
189   
190  END SUBROUTINE xios(get_field_attr)
191 
192  SUBROUTINE xios(get_field_attr_hdl)  &
193    ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
194    , level, long_name, name, operation, prec, standard_name, unit )
195   
196    IMPLICIT NONE
197      TYPE(txios(field)) , INTENT(IN) :: field_hdl
198      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref
199      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value
200      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
201      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled
202      LOGICAL (KIND=C_BOOL) :: enabled_tmp
203      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref
204      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_offset
205      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_op
206      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref
207      INTEGER  , OPTIONAL, INTENT(OUT) :: level
208      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
209      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
210      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation
211      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
212      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
213      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit
214     
215      CALL xios(get_field_attr_hdl_)  &
216      ( field_hdl, axis_ref, default_value, domain_ref, enabled, field_ref, freq_offset, freq_op, grid_ref  &
217      , level, long_name, name, operation, prec, standard_name, unit )
218   
219  END SUBROUTINE xios(get_field_attr_hdl)
220 
221  SUBROUTINE xios(get_field_attr_hdl_)   &
222    ( field_hdl, axis_ref_, default_value_, domain_ref_, enabled_, field_ref_, freq_offset_, freq_op_  &
223    , grid_ref_, level_, long_name_, name_, operation_, prec_, standard_name_, unit_ )
224   
225    IMPLICIT NONE
226      TYPE(txios(field)) , INTENT(IN) :: field_hdl
227      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_
228      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: default_value_
229      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
230      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_
231      LOGICAL (KIND=C_BOOL) :: enabled__tmp
232      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: field_ref_
233      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_offset_
234      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: freq_op_
235      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: grid_ref_
236      INTEGER  , OPTIONAL, INTENT(OUT) :: level_
237      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
238      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
239      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_
240      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
241      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
242      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_
243     
244      IF (PRESENT(axis_ref_)) THEN
245        CALL cxios_get_field_axis_ref(field_hdl%daddr, axis_ref_, len(axis_ref_))
246      ENDIF
247     
248      IF (PRESENT(default_value_)) THEN
249        CALL cxios_get_field_default_value(field_hdl%daddr, default_value_)
250      ENDIF
251     
252      IF (PRESENT(domain_ref_)) THEN
253        CALL cxios_get_field_domain_ref(field_hdl%daddr, domain_ref_, len(domain_ref_))
254      ENDIF
255     
256      IF (PRESENT(enabled_)) THEN
257        CALL cxios_get_field_enabled(field_hdl%daddr, enabled__tmp)
258        enabled_=enabled__tmp
259      ENDIF
260     
261      IF (PRESENT(field_ref_)) THEN
262        CALL cxios_get_field_field_ref(field_hdl%daddr, field_ref_, len(field_ref_))
263      ENDIF
264     
265      IF (PRESENT(freq_offset_)) THEN
266        CALL cxios_get_field_freq_offset(field_hdl%daddr, freq_offset_, len(freq_offset_))
267      ENDIF
268     
269      IF (PRESENT(freq_op_)) THEN
270        CALL cxios_get_field_freq_op(field_hdl%daddr, freq_op_, len(freq_op_))
271      ENDIF
272     
273      IF (PRESENT(grid_ref_)) THEN
274        CALL cxios_get_field_grid_ref(field_hdl%daddr, grid_ref_, len(grid_ref_))
275      ENDIF
276     
277      IF (PRESENT(level_)) THEN
278        CALL cxios_get_field_level(field_hdl%daddr, level_)
279      ENDIF
280     
281      IF (PRESENT(long_name_)) THEN
282        CALL cxios_get_field_long_name(field_hdl%daddr, long_name_, len(long_name_))
283      ENDIF
284     
285      IF (PRESENT(name_)) THEN
286        CALL cxios_get_field_name(field_hdl%daddr, name_, len(name_))
287      ENDIF
288     
289      IF (PRESENT(operation_)) THEN
290        CALL cxios_get_field_operation(field_hdl%daddr, operation_, len(operation_))
291      ENDIF
292     
293      IF (PRESENT(prec_)) THEN
294        CALL cxios_get_field_prec(field_hdl%daddr, prec_)
295      ENDIF
296     
297      IF (PRESENT(standard_name_)) THEN
298        CALL cxios_get_field_standard_name(field_hdl%daddr, standard_name_, len(standard_name_))
299      ENDIF
300     
301      IF (PRESENT(unit_)) THEN
302        CALL cxios_get_field_unit(field_hdl%daddr, unit_, len(unit_))
303      ENDIF
304     
305     
306   
307  END SUBROUTINE xios(get_field_attr_hdl_)
308 
309END MODULE ifield_attr
Note: See TracBrowser for help on using the repository browser.