source: XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/iinterpolate_axis_attr.F90 @ 2338

Last change on this file since 2338 was 2338, checked in by jderouillat, 2 years ago

Added extract_domain interface. Updated all interfaces, normalize some private attributes names of domain
File size: 11.7 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iinterpolate_axis_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iinterpolate_axis
9  USE interpolate_axis_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_interpolate_axis_attr)  &
14    ( interpolate_axis_id, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type  &
15     )
16
17    IMPLICIT NONE
18      TYPE(txios(interpolate_axis))  :: interpolate_axis_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::interpolate_axis_id
20      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate
21      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_dst
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_src
23      LOGICAL  , OPTIONAL, INTENT(IN) :: extrapolate
24      LOGICAL (KIND=C_BOOL) :: extrapolate_tmp
25      INTEGER  , OPTIONAL, INTENT(IN) :: order
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
27
28      CALL xios(get_interpolate_axis_handle) &
29      (interpolate_axis_id,interpolate_axis_hdl)
30      CALL xios(set_interpolate_axis_attr_hdl_)   &
31      ( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type  &
32       )
33
34  END SUBROUTINE xios(set_interpolate_axis_attr)
35
36  SUBROUTINE xios(set_interpolate_axis_attr_hdl)  &
37    ( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type  &
38     )
39
40    IMPLICIT NONE
41      TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
42      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate
43      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_dst
44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_src
45      LOGICAL  , OPTIONAL, INTENT(IN) :: extrapolate
46      LOGICAL (KIND=C_BOOL) :: extrapolate_tmp
47      INTEGER  , OPTIONAL, INTENT(IN) :: order
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
49
50      CALL xios(set_interpolate_axis_attr_hdl_)  &
51      ( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type  &
52       )
53
54  END SUBROUTINE xios(set_interpolate_axis_attr_hdl)
55
56  SUBROUTINE xios(set_interpolate_axis_attr_hdl_)   &
57    ( interpolate_axis_hdl, coordinate_, coordinate_dst_, coordinate_src_, extrapolate_, order_  &
58    , type_ )
59
60    IMPLICIT NONE
61      TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
62      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_
63      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_dst_
64      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_src_
65      LOGICAL  , OPTIONAL, INTENT(IN) :: extrapolate_
66      LOGICAL (KIND=C_BOOL) :: extrapolate__tmp
67      INTEGER  , OPTIONAL, INTENT(IN) :: order_
68      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
69
70      IF (PRESENT(coordinate_)) THEN
71        CALL cxios_set_interpolate_axis_coordinate &
72      (interpolate_axis_hdl%daddr, coordinate_, len(coordinate_))
73      ENDIF
74
75      IF (PRESENT(coordinate_dst_)) THEN
76        CALL cxios_set_interpolate_axis_coordinate_dst &
77      (interpolate_axis_hdl%daddr, coordinate_dst_, len(coordinate_dst_))
78      ENDIF
79
80      IF (PRESENT(coordinate_src_)) THEN
81        CALL cxios_set_interpolate_axis_coordinate_src &
82      (interpolate_axis_hdl%daddr, coordinate_src_, len(coordinate_src_))
83      ENDIF
84
85      IF (PRESENT(extrapolate_)) THEN
86        extrapolate__tmp = extrapolate_
87        CALL cxios_set_interpolate_axis_extrapolate &
88      (interpolate_axis_hdl%daddr, extrapolate__tmp)
89      ENDIF
90
91      IF (PRESENT(order_)) THEN
92        CALL cxios_set_interpolate_axis_order &
93      (interpolate_axis_hdl%daddr, order_)
94      ENDIF
95
96      IF (PRESENT(type_)) THEN
97        CALL cxios_set_interpolate_axis_type &
98      (interpolate_axis_hdl%daddr, type_, len(type_))
99      ENDIF
100
101  END SUBROUTINE xios(set_interpolate_axis_attr_hdl_)
102
103  SUBROUTINE xios(get_interpolate_axis_attr)  &
104    ( interpolate_axis_id, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type  &
105     )
106
107    IMPLICIT NONE
108      TYPE(txios(interpolate_axis))  :: interpolate_axis_hdl
109      CHARACTER(LEN=*), INTENT(IN) ::interpolate_axis_id
110      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate
111      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_dst
112      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_src
113      LOGICAL  , OPTIONAL, INTENT(OUT) :: extrapolate
114      LOGICAL (KIND=C_BOOL) :: extrapolate_tmp
115      INTEGER  , OPTIONAL, INTENT(OUT) :: order
116      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
117
118      CALL xios(get_interpolate_axis_handle) &
119      (interpolate_axis_id,interpolate_axis_hdl)
120      CALL xios(get_interpolate_axis_attr_hdl_)   &
121      ( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type  &
122       )
123
124  END SUBROUTINE xios(get_interpolate_axis_attr)
125
126  SUBROUTINE xios(get_interpolate_axis_attr_hdl)  &
127    ( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type  &
128     )
129
130    IMPLICIT NONE
131      TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
132      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate
133      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_dst
134      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_src
135      LOGICAL  , OPTIONAL, INTENT(OUT) :: extrapolate
136      LOGICAL (KIND=C_BOOL) :: extrapolate_tmp
137      INTEGER  , OPTIONAL, INTENT(OUT) :: order
138      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
139
140      CALL xios(get_interpolate_axis_attr_hdl_)  &
141      ( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type  &
142       )
143
144  END SUBROUTINE xios(get_interpolate_axis_attr_hdl)
145
146  SUBROUTINE xios(get_interpolate_axis_attr_hdl_)   &
147    ( interpolate_axis_hdl, coordinate_, coordinate_dst_, coordinate_src_, extrapolate_, order_  &
148    , type_ )
149
150    IMPLICIT NONE
151      TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
152      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_
153      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_dst_
154      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_src_
155      LOGICAL  , OPTIONAL, INTENT(OUT) :: extrapolate_
156      LOGICAL (KIND=C_BOOL) :: extrapolate__tmp
157      INTEGER  , OPTIONAL, INTENT(OUT) :: order_
158      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
159
160      IF (PRESENT(coordinate_)) THEN
161        CALL cxios_get_interpolate_axis_coordinate &
162      (interpolate_axis_hdl%daddr, coordinate_, len(coordinate_))
163      ENDIF
164
165      IF (PRESENT(coordinate_dst_)) THEN
166        CALL cxios_get_interpolate_axis_coordinate_dst &
167      (interpolate_axis_hdl%daddr, coordinate_dst_, len(coordinate_dst_))
168      ENDIF
169
170      IF (PRESENT(coordinate_src_)) THEN
171        CALL cxios_get_interpolate_axis_coordinate_src &
172      (interpolate_axis_hdl%daddr, coordinate_src_, len(coordinate_src_))
173      ENDIF
174
175      IF (PRESENT(extrapolate_)) THEN
176        CALL cxios_get_interpolate_axis_extrapolate &
177      (interpolate_axis_hdl%daddr, extrapolate__tmp)
178        extrapolate_ = extrapolate__tmp
179      ENDIF
180
181      IF (PRESENT(order_)) THEN
182        CALL cxios_get_interpolate_axis_order &
183      (interpolate_axis_hdl%daddr, order_)
184      ENDIF
185
186      IF (PRESENT(type_)) THEN
187        CALL cxios_get_interpolate_axis_type &
188      (interpolate_axis_hdl%daddr, type_, len(type_))
189      ENDIF
190
191  END SUBROUTINE xios(get_interpolate_axis_attr_hdl_)
192
193  SUBROUTINE xios(is_defined_interpolate_axis_attr)  &
194    ( interpolate_axis_id, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type  &
195     )
196
197    IMPLICIT NONE
198      TYPE(txios(interpolate_axis))  :: interpolate_axis_hdl
199      CHARACTER(LEN=*), INTENT(IN) ::interpolate_axis_id
200      LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate
201      LOGICAL(KIND=C_BOOL) :: coordinate_tmp
202      LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_dst
203      LOGICAL(KIND=C_BOOL) :: coordinate_dst_tmp
204      LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_src
205      LOGICAL(KIND=C_BOOL) :: coordinate_src_tmp
206      LOGICAL, OPTIONAL, INTENT(OUT) :: extrapolate
207      LOGICAL(KIND=C_BOOL) :: extrapolate_tmp
208      LOGICAL, OPTIONAL, INTENT(OUT) :: order
209      LOGICAL(KIND=C_BOOL) :: order_tmp
210      LOGICAL, OPTIONAL, INTENT(OUT) :: type
211      LOGICAL(KIND=C_BOOL) :: type_tmp
212
213      CALL xios(get_interpolate_axis_handle) &
214      (interpolate_axis_id,interpolate_axis_hdl)
215      CALL xios(is_defined_interpolate_axis_attr_hdl_)   &
216      ( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type  &
217       )
218
219  END SUBROUTINE xios(is_defined_interpolate_axis_attr)
220
221  SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl)  &
222    ( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type  &
223     )
224
225    IMPLICIT NONE
226      TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
227      LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate
228      LOGICAL(KIND=C_BOOL) :: coordinate_tmp
229      LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_dst
230      LOGICAL(KIND=C_BOOL) :: coordinate_dst_tmp
231      LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_src
232      LOGICAL(KIND=C_BOOL) :: coordinate_src_tmp
233      LOGICAL, OPTIONAL, INTENT(OUT) :: extrapolate
234      LOGICAL(KIND=C_BOOL) :: extrapolate_tmp
235      LOGICAL, OPTIONAL, INTENT(OUT) :: order
236      LOGICAL(KIND=C_BOOL) :: order_tmp
237      LOGICAL, OPTIONAL, INTENT(OUT) :: type
238      LOGICAL(KIND=C_BOOL) :: type_tmp
239
240      CALL xios(is_defined_interpolate_axis_attr_hdl_)  &
241      ( interpolate_axis_hdl, coordinate, coordinate_dst, coordinate_src, extrapolate, order, type  &
242       )
243
244  END SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl)
245
246  SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl_)   &
247    ( interpolate_axis_hdl, coordinate_, coordinate_dst_, coordinate_src_, extrapolate_, order_  &
248    , type_ )
249
250    IMPLICIT NONE
251      TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl
252      LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_
253      LOGICAL(KIND=C_BOOL) :: coordinate__tmp
254      LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_dst_
255      LOGICAL(KIND=C_BOOL) :: coordinate_dst__tmp
256      LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_src_
257      LOGICAL(KIND=C_BOOL) :: coordinate_src__tmp
258      LOGICAL, OPTIONAL, INTENT(OUT) :: extrapolate_
259      LOGICAL(KIND=C_BOOL) :: extrapolate__tmp
260      LOGICAL, OPTIONAL, INTENT(OUT) :: order_
261      LOGICAL(KIND=C_BOOL) :: order__tmp
262      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
263      LOGICAL(KIND=C_BOOL) :: type__tmp
264
265      IF (PRESENT(coordinate_)) THEN
266        coordinate__tmp = cxios_is_defined_interpolate_axis_coordinate &
267      (interpolate_axis_hdl%daddr)
268        coordinate_ = coordinate__tmp
269      ENDIF
270
271      IF (PRESENT(coordinate_dst_)) THEN
272        coordinate_dst__tmp = cxios_is_defined_interpolate_axis_coordinate_dst &
273      (interpolate_axis_hdl%daddr)
274        coordinate_dst_ = coordinate_dst__tmp
275      ENDIF
276
277      IF (PRESENT(coordinate_src_)) THEN
278        coordinate_src__tmp = cxios_is_defined_interpolate_axis_coordinate_src &
279      (interpolate_axis_hdl%daddr)
280        coordinate_src_ = coordinate_src__tmp
281      ENDIF
282
283      IF (PRESENT(extrapolate_)) THEN
284        extrapolate__tmp = cxios_is_defined_interpolate_axis_extrapolate &
285      (interpolate_axis_hdl%daddr)
286        extrapolate_ = extrapolate__tmp
287      ENDIF
288
289      IF (PRESENT(order_)) THEN
290        order__tmp = cxios_is_defined_interpolate_axis_order &
291      (interpolate_axis_hdl%daddr)
292        order_ = order__tmp
293      ENDIF
294
295      IF (PRESENT(type_)) THEN
296        type__tmp = cxios_is_defined_interpolate_axis_type &
297      (interpolate_axis_hdl%daddr)
298        type_ = type__tmp
299      ENDIF
300
301  END SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl_)
302
303END MODULE iinterpolate_axis_attr
Note: See TracBrowser for help on using the repository browser.