source: XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/iinterpolate_domain_attr.F90 @ 1205

Last change on this file since 1205 was 1205, checked in by yushan, 4 years ago

branch merged with trunk @1200

File size: 12.3 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE iinterpolate_domain_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE iinterpolate_domain
9  USE interpolate_domain_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_interpolate_domain_attr)  &
14    ( interpolate_domain_id, mode, order, quantity, renormalize, weight_filename, write_weight )
15
16    IMPLICIT NONE
17      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
18      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
19      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
20      INTEGER  , OPTIONAL, INTENT(IN) :: order
21      LOGICAL  , OPTIONAL, INTENT(IN) :: quantity
22      LOGICAL (KIND=C_BOOL) :: quantity_tmp
23      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize
24      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
25      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename
26      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight
27      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
28
29      CALL xios(get_interpolate_domain_handle) &
30      (interpolate_domain_id,interpolate_domain_hdl)
31      CALL xios(set_interpolate_domain_attr_hdl_)   &
32      ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight  &
33       )
34
35  END SUBROUTINE xios(set_interpolate_domain_attr)
36
37  SUBROUTINE xios(set_interpolate_domain_attr_hdl)  &
38    ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight  &
39     )
40
41    IMPLICIT NONE
42      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
43      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
44      INTEGER  , OPTIONAL, INTENT(IN) :: order
45      LOGICAL  , OPTIONAL, INTENT(IN) :: quantity
46      LOGICAL (KIND=C_BOOL) :: quantity_tmp
47      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize
48      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename
50      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight
51      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
52
53      CALL xios(set_interpolate_domain_attr_hdl_)  &
54      ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight  &
55       )
56
57  END SUBROUTINE xios(set_interpolate_domain_attr_hdl)
58
59  SUBROUTINE xios(set_interpolate_domain_attr_hdl_)   &
60    ( interpolate_domain_hdl, mode_, order_, quantity_, renormalize_, weight_filename_, write_weight_  &
61     )
62
63    IMPLICIT NONE
64      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
65      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
66      INTEGER  , OPTIONAL, INTENT(IN) :: order_
67      LOGICAL  , OPTIONAL, INTENT(IN) :: quantity_
68      LOGICAL (KIND=C_BOOL) :: quantity__tmp
69      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize_
70      LOGICAL (KIND=C_BOOL) :: renormalize__tmp
71      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename_
72      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight_
73      LOGICAL (KIND=C_BOOL) :: write_weight__tmp
74
75      IF (PRESENT(mode_)) THEN
76        CALL cxios_set_interpolate_domain_mode &
77      (interpolate_domain_hdl%daddr, mode_, len(mode_))
78      ENDIF
79
80      IF (PRESENT(order_)) THEN
81        CALL cxios_set_interpolate_domain_order &
82      (interpolate_domain_hdl%daddr, order_)
83      ENDIF
84
85      IF (PRESENT(quantity_)) THEN
86        quantity__tmp = quantity_
87        CALL cxios_set_interpolate_domain_quantity &
88      (interpolate_domain_hdl%daddr, quantity__tmp)
89      ENDIF
90
91      IF (PRESENT(renormalize_)) THEN
92        renormalize__tmp = renormalize_
93        CALL cxios_set_interpolate_domain_renormalize &
94      (interpolate_domain_hdl%daddr, renormalize__tmp)
95      ENDIF
96
97      IF (PRESENT(weight_filename_)) THEN
98        CALL cxios_set_interpolate_domain_weight_filename &
99      (interpolate_domain_hdl%daddr, weight_filename_, len(weight_filename_))
100      ENDIF
101
102      IF (PRESENT(write_weight_)) THEN
103        write_weight__tmp = write_weight_
104        CALL cxios_set_interpolate_domain_write_weight &
105      (interpolate_domain_hdl%daddr, write_weight__tmp)
106      ENDIF
107
108  END SUBROUTINE xios(set_interpolate_domain_attr_hdl_)
109
110  SUBROUTINE xios(get_interpolate_domain_attr)  &
111    ( interpolate_domain_id, mode, order, quantity, renormalize, weight_filename, write_weight )
112
113    IMPLICIT NONE
114      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
115      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
116      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
117      INTEGER  , OPTIONAL, INTENT(OUT) :: order
118      LOGICAL  , OPTIONAL, INTENT(OUT) :: quantity
119      LOGICAL (KIND=C_BOOL) :: quantity_tmp
120      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize
121      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
122      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename
123      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight
124      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
125
126      CALL xios(get_interpolate_domain_handle) &
127      (interpolate_domain_id,interpolate_domain_hdl)
128      CALL xios(get_interpolate_domain_attr_hdl_)   &
129      ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight  &
130       )
131
132  END SUBROUTINE xios(get_interpolate_domain_attr)
133
134  SUBROUTINE xios(get_interpolate_domain_attr_hdl)  &
135    ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight  &
136     )
137
138    IMPLICIT NONE
139      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
140      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
141      INTEGER  , OPTIONAL, INTENT(OUT) :: order
142      LOGICAL  , OPTIONAL, INTENT(OUT) :: quantity
143      LOGICAL (KIND=C_BOOL) :: quantity_tmp
144      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize
145      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
146      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename
147      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight
148      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
149
150      CALL xios(get_interpolate_domain_attr_hdl_)  &
151      ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight  &
152       )
153
154  END SUBROUTINE xios(get_interpolate_domain_attr_hdl)
155
156  SUBROUTINE xios(get_interpolate_domain_attr_hdl_)   &
157    ( interpolate_domain_hdl, mode_, order_, quantity_, renormalize_, weight_filename_, write_weight_  &
158     )
159
160    IMPLICIT NONE
161      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
162      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
163      INTEGER  , OPTIONAL, INTENT(OUT) :: order_
164      LOGICAL  , OPTIONAL, INTENT(OUT) :: quantity_
165      LOGICAL (KIND=C_BOOL) :: quantity__tmp
166      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize_
167      LOGICAL (KIND=C_BOOL) :: renormalize__tmp
168      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename_
169      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight_
170      LOGICAL (KIND=C_BOOL) :: write_weight__tmp
171
172      IF (PRESENT(mode_)) THEN
173        CALL cxios_get_interpolate_domain_mode &
174      (interpolate_domain_hdl%daddr, mode_, len(mode_))
175      ENDIF
176
177      IF (PRESENT(order_)) THEN
178        CALL cxios_get_interpolate_domain_order &
179      (interpolate_domain_hdl%daddr, order_)
180      ENDIF
181
182      IF (PRESENT(quantity_)) THEN
183        CALL cxios_get_interpolate_domain_quantity &
184      (interpolate_domain_hdl%daddr, quantity__tmp)
185        quantity_ = quantity__tmp
186      ENDIF
187
188      IF (PRESENT(renormalize_)) THEN
189        CALL cxios_get_interpolate_domain_renormalize &
190      (interpolate_domain_hdl%daddr, renormalize__tmp)
191        renormalize_ = renormalize__tmp
192      ENDIF
193
194      IF (PRESENT(weight_filename_)) THEN
195        CALL cxios_get_interpolate_domain_weight_filename &
196      (interpolate_domain_hdl%daddr, weight_filename_, len(weight_filename_))
197      ENDIF
198
199      IF (PRESENT(write_weight_)) THEN
200        CALL cxios_get_interpolate_domain_write_weight &
201      (interpolate_domain_hdl%daddr, write_weight__tmp)
202        write_weight_ = write_weight__tmp
203      ENDIF
204
205  END SUBROUTINE xios(get_interpolate_domain_attr_hdl_)
206
207  SUBROUTINE xios(is_defined_interpolate_domain_attr)  &
208    ( interpolate_domain_id, mode, order, quantity, renormalize, weight_filename, write_weight )
209
210    IMPLICIT NONE
211      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
212      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
213      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
214      LOGICAL(KIND=C_BOOL) :: mode_tmp
215      LOGICAL, OPTIONAL, INTENT(OUT) :: order
216      LOGICAL(KIND=C_BOOL) :: order_tmp
217      LOGICAL, OPTIONAL, INTENT(OUT) :: quantity
218      LOGICAL(KIND=C_BOOL) :: quantity_tmp
219      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
220      LOGICAL(KIND=C_BOOL) :: renormalize_tmp
221      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename
222      LOGICAL(KIND=C_BOOL) :: weight_filename_tmp
223      LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight
224      LOGICAL(KIND=C_BOOL) :: write_weight_tmp
225
226      CALL xios(get_interpolate_domain_handle) &
227      (interpolate_domain_id,interpolate_domain_hdl)
228      CALL xios(is_defined_interpolate_domain_attr_hdl_)   &
229      ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight  &
230       )
231
232  END SUBROUTINE xios(is_defined_interpolate_domain_attr)
233
234  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)  &
235    ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight  &
236     )
237
238    IMPLICIT NONE
239      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
240      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
241      LOGICAL(KIND=C_BOOL) :: mode_tmp
242      LOGICAL, OPTIONAL, INTENT(OUT) :: order
243      LOGICAL(KIND=C_BOOL) :: order_tmp
244      LOGICAL, OPTIONAL, INTENT(OUT) :: quantity
245      LOGICAL(KIND=C_BOOL) :: quantity_tmp
246      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
247      LOGICAL(KIND=C_BOOL) :: renormalize_tmp
248      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename
249      LOGICAL(KIND=C_BOOL) :: weight_filename_tmp
250      LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight
251      LOGICAL(KIND=C_BOOL) :: write_weight_tmp
252
253      CALL xios(is_defined_interpolate_domain_attr_hdl_)  &
254      ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight  &
255       )
256
257  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)
258
259  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)   &
260    ( interpolate_domain_hdl, mode_, order_, quantity_, renormalize_, weight_filename_, write_weight_  &
261     )
262
263    IMPLICIT NONE
264      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
265      LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
266      LOGICAL(KIND=C_BOOL) :: mode__tmp
267      LOGICAL, OPTIONAL, INTENT(OUT) :: order_
268      LOGICAL(KIND=C_BOOL) :: order__tmp
269      LOGICAL, OPTIONAL, INTENT(OUT) :: quantity_
270      LOGICAL(KIND=C_BOOL) :: quantity__tmp
271      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize_
272      LOGICAL(KIND=C_BOOL) :: renormalize__tmp
273      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename_
274      LOGICAL(KIND=C_BOOL) :: weight_filename__tmp
275      LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight_
276      LOGICAL(KIND=C_BOOL) :: write_weight__tmp
277
278      IF (PRESENT(mode_)) THEN
279        mode__tmp = cxios_is_defined_interpolate_domain_mode &
280      (interpolate_domain_hdl%daddr)
281        mode_ = mode__tmp
282      ENDIF
283
284      IF (PRESENT(order_)) THEN
285        order__tmp = cxios_is_defined_interpolate_domain_order &
286      (interpolate_domain_hdl%daddr)
287        order_ = order__tmp
288      ENDIF
289
290      IF (PRESENT(quantity_)) THEN
291        quantity__tmp = cxios_is_defined_interpolate_domain_quantity &
292      (interpolate_domain_hdl%daddr)
293        quantity_ = quantity__tmp
294      ENDIF
295
296      IF (PRESENT(renormalize_)) THEN
297        renormalize__tmp = cxios_is_defined_interpolate_domain_renormalize &
298      (interpolate_domain_hdl%daddr)
299        renormalize_ = renormalize__tmp
300      ENDIF
301
302      IF (PRESENT(weight_filename_)) THEN
303        weight_filename__tmp = cxios_is_defined_interpolate_domain_weight_filename &
304      (interpolate_domain_hdl%daddr)
305        weight_filename_ = weight_filename__tmp
306      ENDIF
307
308      IF (PRESENT(write_weight_)) THEN
309        write_weight__tmp = cxios_is_defined_interpolate_domain_write_weight &
310      (interpolate_domain_hdl%daddr)
311        write_weight_ = write_weight__tmp
312      ENDIF
313
314  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)
315
316END MODULE iinterpolate_domain_attr
Note: See TracBrowser for help on using the repository browser.