source: XIOS/dev/dev_olga/src/interface/fortran_attr/iinterpolate_domain_attr.F90 @ 1021

Last change on this file since 1021 was 1021, checked in by oabramkina, 7 years ago

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