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

Last change on this file since 1636 was 1636, checked in by oabramkina, 5 years ago

Backporting r1626 to dev before merging it to trunk.
File size: 17.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, detect_missing_value, mode, order, quantity, read_write_convention  &
15    , renormalize, use_area, weight_filename, write_weight )
16
17    IMPLICIT NONE
18      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
20      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
21      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
23      INTEGER  , OPTIONAL, INTENT(IN) :: order
24      LOGICAL  , OPTIONAL, INTENT(IN) :: quantity
25      LOGICAL (KIND=C_BOOL) :: quantity_tmp
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: read_write_convention
27      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize
28      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
29      LOGICAL  , OPTIONAL, INTENT(IN) :: use_area
30      LOGICAL (KIND=C_BOOL) :: use_area_tmp
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename
32      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight
33      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
34
35      CALL xios(get_interpolate_domain_handle) &
36      (interpolate_domain_id,interpolate_domain_hdl)
37      CALL xios(set_interpolate_domain_attr_hdl_)   &
38      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
39      , renormalize, use_area, weight_filename, write_weight )
40
41  END SUBROUTINE xios(set_interpolate_domain_attr)
42
43  SUBROUTINE xios(set_interpolate_domain_attr_hdl)  &
44    ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
45    , renormalize, use_area, weight_filename, write_weight )
46
47    IMPLICIT NONE
48      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
49      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
50      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
52      INTEGER  , OPTIONAL, INTENT(IN) :: order
53      LOGICAL  , OPTIONAL, INTENT(IN) :: quantity
54      LOGICAL (KIND=C_BOOL) :: quantity_tmp
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: read_write_convention
56      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize
57      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
58      LOGICAL  , OPTIONAL, INTENT(IN) :: use_area
59      LOGICAL (KIND=C_BOOL) :: use_area_tmp
60      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename
61      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight
62      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
63
64      CALL xios(set_interpolate_domain_attr_hdl_)  &
65      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
66      , renormalize, use_area, weight_filename, write_weight )
67
68  END SUBROUTINE xios(set_interpolate_domain_attr_hdl)
69
70  SUBROUTINE xios(set_interpolate_domain_attr_hdl_)   &
71    ( interpolate_domain_hdl, detect_missing_value_, mode_, order_, quantity_, read_write_convention_  &
72    , renormalize_, use_area_, weight_filename_, write_weight_ )
73
74    IMPLICIT NONE
75      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
76      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_
77      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
79      INTEGER  , OPTIONAL, INTENT(IN) :: order_
80      LOGICAL  , OPTIONAL, INTENT(IN) :: quantity_
81      LOGICAL (KIND=C_BOOL) :: quantity__tmp
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: read_write_convention_
83      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize_
84      LOGICAL (KIND=C_BOOL) :: renormalize__tmp
85      LOGICAL  , OPTIONAL, INTENT(IN) :: use_area_
86      LOGICAL (KIND=C_BOOL) :: use_area__tmp
87      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename_
88      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight_
89      LOGICAL (KIND=C_BOOL) :: write_weight__tmp
90
91      IF (PRESENT(detect_missing_value_)) THEN
92        detect_missing_value__tmp = detect_missing_value_
93        CALL cxios_set_interpolate_domain_detect_missing_value &
94      (interpolate_domain_hdl%daddr, detect_missing_value__tmp)
95      ENDIF
96
97      IF (PRESENT(mode_)) THEN
98        CALL cxios_set_interpolate_domain_mode &
99      (interpolate_domain_hdl%daddr, mode_, len(mode_))
100      ENDIF
101
102      IF (PRESENT(order_)) THEN
103        CALL cxios_set_interpolate_domain_order &
104      (interpolate_domain_hdl%daddr, order_)
105      ENDIF
106
107      IF (PRESENT(quantity_)) THEN
108        quantity__tmp = quantity_
109        CALL cxios_set_interpolate_domain_quantity &
110      (interpolate_domain_hdl%daddr, quantity__tmp)
111      ENDIF
112
113      IF (PRESENT(read_write_convention_)) THEN
114        CALL cxios_set_interpolate_domain_read_write_convention &
115      (interpolate_domain_hdl%daddr, read_write_convention_, len(read_write_convention_))
116      ENDIF
117
118      IF (PRESENT(renormalize_)) THEN
119        renormalize__tmp = renormalize_
120        CALL cxios_set_interpolate_domain_renormalize &
121      (interpolate_domain_hdl%daddr, renormalize__tmp)
122      ENDIF
123
124      IF (PRESENT(use_area_)) THEN
125        use_area__tmp = use_area_
126        CALL cxios_set_interpolate_domain_use_area &
127      (interpolate_domain_hdl%daddr, use_area__tmp)
128      ENDIF
129
130      IF (PRESENT(weight_filename_)) THEN
131        CALL cxios_set_interpolate_domain_weight_filename &
132      (interpolate_domain_hdl%daddr, weight_filename_, len(weight_filename_))
133      ENDIF
134
135      IF (PRESENT(write_weight_)) THEN
136        write_weight__tmp = write_weight_
137        CALL cxios_set_interpolate_domain_write_weight &
138      (interpolate_domain_hdl%daddr, write_weight__tmp)
139      ENDIF
140
141  END SUBROUTINE xios(set_interpolate_domain_attr_hdl_)
142
143  SUBROUTINE xios(get_interpolate_domain_attr)  &
144    ( interpolate_domain_id, detect_missing_value, mode, order, quantity, read_write_convention  &
145    , renormalize, use_area, weight_filename, write_weight )
146
147    IMPLICIT NONE
148      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
149      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
150      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
151      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
152      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
153      INTEGER  , OPTIONAL, INTENT(OUT) :: order
154      LOGICAL  , OPTIONAL, INTENT(OUT) :: quantity
155      LOGICAL (KIND=C_BOOL) :: quantity_tmp
156      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: read_write_convention
157      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize
158      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
159      LOGICAL  , OPTIONAL, INTENT(OUT) :: use_area
160      LOGICAL (KIND=C_BOOL) :: use_area_tmp
161      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename
162      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight
163      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
164
165      CALL xios(get_interpolate_domain_handle) &
166      (interpolate_domain_id,interpolate_domain_hdl)
167      CALL xios(get_interpolate_domain_attr_hdl_)   &
168      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
169      , renormalize, use_area, weight_filename, write_weight )
170
171  END SUBROUTINE xios(get_interpolate_domain_attr)
172
173  SUBROUTINE xios(get_interpolate_domain_attr_hdl)  &
174    ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
175    , renormalize, use_area, weight_filename, write_weight )
176
177    IMPLICIT NONE
178      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
179      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
180      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
181      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
182      INTEGER  , OPTIONAL, INTENT(OUT) :: order
183      LOGICAL  , OPTIONAL, INTENT(OUT) :: quantity
184      LOGICAL (KIND=C_BOOL) :: quantity_tmp
185      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: read_write_convention
186      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize
187      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
188      LOGICAL  , OPTIONAL, INTENT(OUT) :: use_area
189      LOGICAL (KIND=C_BOOL) :: use_area_tmp
190      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename
191      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight
192      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
193
194      CALL xios(get_interpolate_domain_attr_hdl_)  &
195      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
196      , renormalize, use_area, weight_filename, write_weight )
197
198  END SUBROUTINE xios(get_interpolate_domain_attr_hdl)
199
200  SUBROUTINE xios(get_interpolate_domain_attr_hdl_)   &
201    ( interpolate_domain_hdl, detect_missing_value_, mode_, order_, quantity_, read_write_convention_  &
202    , renormalize_, use_area_, weight_filename_, write_weight_ )
203
204    IMPLICIT NONE
205      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
206      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_
207      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
208      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
209      INTEGER  , OPTIONAL, INTENT(OUT) :: order_
210      LOGICAL  , OPTIONAL, INTENT(OUT) :: quantity_
211      LOGICAL (KIND=C_BOOL) :: quantity__tmp
212      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: read_write_convention_
213      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize_
214      LOGICAL (KIND=C_BOOL) :: renormalize__tmp
215      LOGICAL  , OPTIONAL, INTENT(OUT) :: use_area_
216      LOGICAL (KIND=C_BOOL) :: use_area__tmp
217      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename_
218      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight_
219      LOGICAL (KIND=C_BOOL) :: write_weight__tmp
220
221      IF (PRESENT(detect_missing_value_)) THEN
222        CALL cxios_get_interpolate_domain_detect_missing_value &
223      (interpolate_domain_hdl%daddr, detect_missing_value__tmp)
224        detect_missing_value_ = detect_missing_value__tmp
225      ENDIF
226
227      IF (PRESENT(mode_)) THEN
228        CALL cxios_get_interpolate_domain_mode &
229      (interpolate_domain_hdl%daddr, mode_, len(mode_))
230      ENDIF
231
232      IF (PRESENT(order_)) THEN
233        CALL cxios_get_interpolate_domain_order &
234      (interpolate_domain_hdl%daddr, order_)
235      ENDIF
236
237      IF (PRESENT(quantity_)) THEN
238        CALL cxios_get_interpolate_domain_quantity &
239      (interpolate_domain_hdl%daddr, quantity__tmp)
240        quantity_ = quantity__tmp
241      ENDIF
242
243      IF (PRESENT(read_write_convention_)) THEN
244        CALL cxios_get_interpolate_domain_read_write_convention &
245      (interpolate_domain_hdl%daddr, read_write_convention_, len(read_write_convention_))
246      ENDIF
247
248      IF (PRESENT(renormalize_)) THEN
249        CALL cxios_get_interpolate_domain_renormalize &
250      (interpolate_domain_hdl%daddr, renormalize__tmp)
251        renormalize_ = renormalize__tmp
252      ENDIF
253
254      IF (PRESENT(use_area_)) THEN
255        CALL cxios_get_interpolate_domain_use_area &
256      (interpolate_domain_hdl%daddr, use_area__tmp)
257        use_area_ = use_area__tmp
258      ENDIF
259
260      IF (PRESENT(weight_filename_)) THEN
261        CALL cxios_get_interpolate_domain_weight_filename &
262      (interpolate_domain_hdl%daddr, weight_filename_, len(weight_filename_))
263      ENDIF
264
265      IF (PRESENT(write_weight_)) THEN
266        CALL cxios_get_interpolate_domain_write_weight &
267      (interpolate_domain_hdl%daddr, write_weight__tmp)
268        write_weight_ = write_weight__tmp
269      ENDIF
270
271  END SUBROUTINE xios(get_interpolate_domain_attr_hdl_)
272
273  SUBROUTINE xios(is_defined_interpolate_domain_attr)  &
274    ( interpolate_domain_id, detect_missing_value, mode, order, quantity, read_write_convention  &
275    , renormalize, use_area, weight_filename, write_weight )
276
277    IMPLICIT NONE
278      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
279      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
280      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
281      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
282      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
283      LOGICAL(KIND=C_BOOL) :: mode_tmp
284      LOGICAL, OPTIONAL, INTENT(OUT) :: order
285      LOGICAL(KIND=C_BOOL) :: order_tmp
286      LOGICAL, OPTIONAL, INTENT(OUT) :: quantity
287      LOGICAL(KIND=C_BOOL) :: quantity_tmp
288      LOGICAL, OPTIONAL, INTENT(OUT) :: read_write_convention
289      LOGICAL(KIND=C_BOOL) :: read_write_convention_tmp
290      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
291      LOGICAL(KIND=C_BOOL) :: renormalize_tmp
292      LOGICAL, OPTIONAL, INTENT(OUT) :: use_area
293      LOGICAL(KIND=C_BOOL) :: use_area_tmp
294      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename
295      LOGICAL(KIND=C_BOOL) :: weight_filename_tmp
296      LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight
297      LOGICAL(KIND=C_BOOL) :: write_weight_tmp
298
299      CALL xios(get_interpolate_domain_handle) &
300      (interpolate_domain_id,interpolate_domain_hdl)
301      CALL xios(is_defined_interpolate_domain_attr_hdl_)   &
302      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
303      , renormalize, use_area, weight_filename, write_weight )
304
305  END SUBROUTINE xios(is_defined_interpolate_domain_attr)
306
307  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)  &
308    ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
309    , renormalize, use_area, weight_filename, write_weight )
310
311    IMPLICIT NONE
312      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
313      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
314      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
315      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
316      LOGICAL(KIND=C_BOOL) :: mode_tmp
317      LOGICAL, OPTIONAL, INTENT(OUT) :: order
318      LOGICAL(KIND=C_BOOL) :: order_tmp
319      LOGICAL, OPTIONAL, INTENT(OUT) :: quantity
320      LOGICAL(KIND=C_BOOL) :: quantity_tmp
321      LOGICAL, OPTIONAL, INTENT(OUT) :: read_write_convention
322      LOGICAL(KIND=C_BOOL) :: read_write_convention_tmp
323      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
324      LOGICAL(KIND=C_BOOL) :: renormalize_tmp
325      LOGICAL, OPTIONAL, INTENT(OUT) :: use_area
326      LOGICAL(KIND=C_BOOL) :: use_area_tmp
327      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename
328      LOGICAL(KIND=C_BOOL) :: weight_filename_tmp
329      LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight
330      LOGICAL(KIND=C_BOOL) :: write_weight_tmp
331
332      CALL xios(is_defined_interpolate_domain_attr_hdl_)  &
333      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
334      , renormalize, use_area, weight_filename, write_weight )
335
336  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)
337
338  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)   &
339    ( interpolate_domain_hdl, detect_missing_value_, mode_, order_, quantity_, read_write_convention_  &
340    , renormalize_, use_area_, weight_filename_, write_weight_ )
341
342    IMPLICIT NONE
343      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
344      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
345      LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
346      LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
347      LOGICAL(KIND=C_BOOL) :: mode__tmp
348      LOGICAL, OPTIONAL, INTENT(OUT) :: order_
349      LOGICAL(KIND=C_BOOL) :: order__tmp
350      LOGICAL, OPTIONAL, INTENT(OUT) :: quantity_
351      LOGICAL(KIND=C_BOOL) :: quantity__tmp
352      LOGICAL, OPTIONAL, INTENT(OUT) :: read_write_convention_
353      LOGICAL(KIND=C_BOOL) :: read_write_convention__tmp
354      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize_
355      LOGICAL(KIND=C_BOOL) :: renormalize__tmp
356      LOGICAL, OPTIONAL, INTENT(OUT) :: use_area_
357      LOGICAL(KIND=C_BOOL) :: use_area__tmp
358      LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename_
359      LOGICAL(KIND=C_BOOL) :: weight_filename__tmp
360      LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight_
361      LOGICAL(KIND=C_BOOL) :: write_weight__tmp
362
363      IF (PRESENT(detect_missing_value_)) THEN
364        detect_missing_value__tmp = cxios_is_defined_interpolate_domain_detect_missing_value &
365      (interpolate_domain_hdl%daddr)
366        detect_missing_value_ = detect_missing_value__tmp
367      ENDIF
368
369      IF (PRESENT(mode_)) THEN
370        mode__tmp = cxios_is_defined_interpolate_domain_mode &
371      (interpolate_domain_hdl%daddr)
372        mode_ = mode__tmp
373      ENDIF
374
375      IF (PRESENT(order_)) THEN
376        order__tmp = cxios_is_defined_interpolate_domain_order &
377      (interpolate_domain_hdl%daddr)
378        order_ = order__tmp
379      ENDIF
380
381      IF (PRESENT(quantity_)) THEN
382        quantity__tmp = cxios_is_defined_interpolate_domain_quantity &
383      (interpolate_domain_hdl%daddr)
384        quantity_ = quantity__tmp
385      ENDIF
386
387      IF (PRESENT(read_write_convention_)) THEN
388        read_write_convention__tmp = cxios_is_defined_interpolate_domain_read_write_convention &
389      (interpolate_domain_hdl%daddr)
390        read_write_convention_ = read_write_convention__tmp
391      ENDIF
392
393      IF (PRESENT(renormalize_)) THEN
394        renormalize__tmp = cxios_is_defined_interpolate_domain_renormalize &
395      (interpolate_domain_hdl%daddr)
396        renormalize_ = renormalize__tmp
397      ENDIF
398
399      IF (PRESENT(use_area_)) THEN
400        use_area__tmp = cxios_is_defined_interpolate_domain_use_area &
401      (interpolate_domain_hdl%daddr)
402        use_area_ = use_area__tmp
403      ENDIF
404
405      IF (PRESENT(weight_filename_)) THEN
406        weight_filename__tmp = cxios_is_defined_interpolate_domain_weight_filename &
407      (interpolate_domain_hdl%daddr)
408        weight_filename_ = weight_filename__tmp
409      ENDIF
410
411      IF (PRESENT(write_weight_)) THEN
412        write_weight__tmp = cxios_is_defined_interpolate_domain_write_weight &
413      (interpolate_domain_hdl%daddr)
414        write_weight_ = write_weight__tmp
415      ENDIF
416
417  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)
418
419END MODULE iinterpolate_domain_attr
Note: See TracBrowser for help on using the repository browser.