source: XIOS/trunk/src/interface/fortran_attr/iinterpolate_domain_attr.F90 @ 2338

Last change on this file since 2338 was 1626, checked in by oabramkina, 6 years ago

Trunk: limiting the line length to 132 characters in the Fortran interface + updating the interface.
File size: 17.8 KB
RevLine 
[786]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)  &
[1492]14    ( interpolate_domain_id, detect_missing_value, mode, order, quantity, read_write_convention  &
[1626]15    , renormalize, use_area, weight_filename, write_weight )
[786]16
17    IMPLICIT NONE
18      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
19      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
[1492]20      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
21      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[1021]22      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
[786]23      INTEGER  , OPTIONAL, INTENT(IN) :: order
[1201]24      LOGICAL  , OPTIONAL, INTENT(IN) :: quantity
25      LOGICAL (KIND=C_BOOL) :: quantity_tmp
[1492]26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: read_write_convention
[891]27      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize
28      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
[1626]29      LOGICAL  , OPTIONAL, INTENT(IN) :: use_area
30      LOGICAL (KIND=C_BOOL) :: use_area_tmp
[1021]31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename
32      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight
33      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
[786]34
[966]35      CALL xios(get_interpolate_domain_handle) &
36      (interpolate_domain_id,interpolate_domain_hdl)
[786]37      CALL xios(set_interpolate_domain_attr_hdl_)   &
[1492]38      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
[1626]39      , renormalize, use_area, weight_filename, write_weight )
[786]40
41  END SUBROUTINE xios(set_interpolate_domain_attr)
42
43  SUBROUTINE xios(set_interpolate_domain_attr_hdl)  &
[1492]44    ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
[1626]45    , renormalize, use_area, weight_filename, write_weight )
[786]46
47    IMPLICIT NONE
48      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
[1492]49      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value
50      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[1021]51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode
[786]52      INTEGER  , OPTIONAL, INTENT(IN) :: order
[1201]53      LOGICAL  , OPTIONAL, INTENT(IN) :: quantity
54      LOGICAL (KIND=C_BOOL) :: quantity_tmp
[1492]55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: read_write_convention
[891]56      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize
57      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
[1626]58      LOGICAL  , OPTIONAL, INTENT(IN) :: use_area
59      LOGICAL (KIND=C_BOOL) :: use_area_tmp
[1021]60      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename
61      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight
62      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
[786]63
64      CALL xios(set_interpolate_domain_attr_hdl_)  &
[1492]65      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
[1626]66      , renormalize, use_area, weight_filename, write_weight )
[786]67
68  END SUBROUTINE xios(set_interpolate_domain_attr_hdl)
69
70  SUBROUTINE xios(set_interpolate_domain_attr_hdl_)   &
[1492]71    ( interpolate_domain_hdl, detect_missing_value_, mode_, order_, quantity_, read_write_convention_  &
[1626]72    , renormalize_, use_area_, weight_filename_, write_weight_ )
[786]73
74    IMPLICIT NONE
75      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
[1492]76      LOGICAL  , OPTIONAL, INTENT(IN) :: detect_missing_value_
77      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
[1021]78      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_
[786]79      INTEGER  , OPTIONAL, INTENT(IN) :: order_
[1201]80      LOGICAL  , OPTIONAL, INTENT(IN) :: quantity_
81      LOGICAL (KIND=C_BOOL) :: quantity__tmp
[1492]82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: read_write_convention_
[891]83      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize_
84      LOGICAL (KIND=C_BOOL) :: renormalize__tmp
[1626]85      LOGICAL  , OPTIONAL, INTENT(IN) :: use_area_
86      LOGICAL (KIND=C_BOOL) :: use_area__tmp
[1021]87      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename_
88      LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight_
89      LOGICAL (KIND=C_BOOL) :: write_weight__tmp
[786]90
[1492]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
[1021]97      IF (PRESENT(mode_)) THEN
98        CALL cxios_set_interpolate_domain_mode &
99      (interpolate_domain_hdl%daddr, mode_, len(mode_))
100      ENDIF
101
[786]102      IF (PRESENT(order_)) THEN
[966]103        CALL cxios_set_interpolate_domain_order &
104      (interpolate_domain_hdl%daddr, order_)
[786]105      ENDIF
106
[1201]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
[1492]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
[891]118      IF (PRESENT(renormalize_)) THEN
119        renormalize__tmp = renormalize_
[966]120        CALL cxios_set_interpolate_domain_renormalize &
121      (interpolate_domain_hdl%daddr, renormalize__tmp)
[891]122      ENDIF
123
[1626]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
[1021]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
[786]141  END SUBROUTINE xios(set_interpolate_domain_attr_hdl_)
142
143  SUBROUTINE xios(get_interpolate_domain_attr)  &
[1492]144    ( interpolate_domain_id, detect_missing_value, mode, order, quantity, read_write_convention  &
[1626]145    , renormalize, use_area, weight_filename, write_weight )
[786]146
147    IMPLICIT NONE
148      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
149      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
[1492]150      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
151      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[1021]152      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
[786]153      INTEGER  , OPTIONAL, INTENT(OUT) :: order
[1201]154      LOGICAL  , OPTIONAL, INTENT(OUT) :: quantity
155      LOGICAL (KIND=C_BOOL) :: quantity_tmp
[1492]156      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: read_write_convention
[891]157      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize
158      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
[1626]159      LOGICAL  , OPTIONAL, INTENT(OUT) :: use_area
160      LOGICAL (KIND=C_BOOL) :: use_area_tmp
[1021]161      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename
162      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight
163      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
[786]164
[966]165      CALL xios(get_interpolate_domain_handle) &
166      (interpolate_domain_id,interpolate_domain_hdl)
[786]167      CALL xios(get_interpolate_domain_attr_hdl_)   &
[1492]168      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
[1626]169      , renormalize, use_area, weight_filename, write_weight )
[786]170
171  END SUBROUTINE xios(get_interpolate_domain_attr)
172
173  SUBROUTINE xios(get_interpolate_domain_attr_hdl)  &
[1492]174    ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
[1626]175    , renormalize, use_area, weight_filename, write_weight )
[786]176
177    IMPLICIT NONE
178      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
[1492]179      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value
180      LOGICAL (KIND=C_BOOL) :: detect_missing_value_tmp
[1021]181      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode
[786]182      INTEGER  , OPTIONAL, INTENT(OUT) :: order
[1201]183      LOGICAL  , OPTIONAL, INTENT(OUT) :: quantity
184      LOGICAL (KIND=C_BOOL) :: quantity_tmp
[1492]185      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: read_write_convention
[891]186      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize
187      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
[1626]188      LOGICAL  , OPTIONAL, INTENT(OUT) :: use_area
189      LOGICAL (KIND=C_BOOL) :: use_area_tmp
[1021]190      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename
191      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight
192      LOGICAL (KIND=C_BOOL) :: write_weight_tmp
[786]193
194      CALL xios(get_interpolate_domain_attr_hdl_)  &
[1492]195      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
[1626]196      , renormalize, use_area, weight_filename, write_weight )
[786]197
198  END SUBROUTINE xios(get_interpolate_domain_attr_hdl)
199
200  SUBROUTINE xios(get_interpolate_domain_attr_hdl_)   &
[1492]201    ( interpolate_domain_hdl, detect_missing_value_, mode_, order_, quantity_, read_write_convention_  &
[1626]202    , renormalize_, use_area_, weight_filename_, write_weight_ )
[786]203
204    IMPLICIT NONE
205      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
[1492]206      LOGICAL  , OPTIONAL, INTENT(OUT) :: detect_missing_value_
207      LOGICAL (KIND=C_BOOL) :: detect_missing_value__tmp
[1021]208      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_
[786]209      INTEGER  , OPTIONAL, INTENT(OUT) :: order_
[1201]210      LOGICAL  , OPTIONAL, INTENT(OUT) :: quantity_
211      LOGICAL (KIND=C_BOOL) :: quantity__tmp
[1492]212      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: read_write_convention_
[891]213      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize_
214      LOGICAL (KIND=C_BOOL) :: renormalize__tmp
[1626]215      LOGICAL  , OPTIONAL, INTENT(OUT) :: use_area_
216      LOGICAL (KIND=C_BOOL) :: use_area__tmp
[1021]217      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename_
218      LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight_
219      LOGICAL (KIND=C_BOOL) :: write_weight__tmp
[786]220
[1492]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
[1021]227      IF (PRESENT(mode_)) THEN
228        CALL cxios_get_interpolate_domain_mode &
229      (interpolate_domain_hdl%daddr, mode_, len(mode_))
230      ENDIF
231
[786]232      IF (PRESENT(order_)) THEN
[966]233        CALL cxios_get_interpolate_domain_order &
234      (interpolate_domain_hdl%daddr, order_)
[786]235      ENDIF
236
[1201]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
[1492]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
[891]248      IF (PRESENT(renormalize_)) THEN
[966]249        CALL cxios_get_interpolate_domain_renormalize &
250      (interpolate_domain_hdl%daddr, renormalize__tmp)
[891]251        renormalize_ = renormalize__tmp
252      ENDIF
253
[1626]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
[1021]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
[786]271  END SUBROUTINE xios(get_interpolate_domain_attr_hdl_)
272
273  SUBROUTINE xios(is_defined_interpolate_domain_attr)  &
[1492]274    ( interpolate_domain_id, detect_missing_value, mode, order, quantity, read_write_convention  &
[1626]275    , renormalize, use_area, weight_filename, write_weight )
[786]276
277    IMPLICIT NONE
278      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
279      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
[1492]280      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
281      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
[1021]282      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
283      LOGICAL(KIND=C_BOOL) :: mode_tmp
[786]284      LOGICAL, OPTIONAL, INTENT(OUT) :: order
285      LOGICAL(KIND=C_BOOL) :: order_tmp
[1201]286      LOGICAL, OPTIONAL, INTENT(OUT) :: quantity
287      LOGICAL(KIND=C_BOOL) :: quantity_tmp
[1492]288      LOGICAL, OPTIONAL, INTENT(OUT) :: read_write_convention
289      LOGICAL(KIND=C_BOOL) :: read_write_convention_tmp
[891]290      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
291      LOGICAL(KIND=C_BOOL) :: renormalize_tmp
[1626]292      LOGICAL, OPTIONAL, INTENT(OUT) :: use_area
293      LOGICAL(KIND=C_BOOL) :: use_area_tmp
[1021]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
[786]298
[966]299      CALL xios(get_interpolate_domain_handle) &
300      (interpolate_domain_id,interpolate_domain_hdl)
[786]301      CALL xios(is_defined_interpolate_domain_attr_hdl_)   &
[1492]302      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
[1626]303      , renormalize, use_area, weight_filename, write_weight )
[786]304
305  END SUBROUTINE xios(is_defined_interpolate_domain_attr)
306
307  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)  &
[1492]308    ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
[1626]309    , renormalize, use_area, weight_filename, write_weight )
[786]310
311    IMPLICIT NONE
312      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
[1492]313      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value
314      LOGICAL(KIND=C_BOOL) :: detect_missing_value_tmp
[1021]315      LOGICAL, OPTIONAL, INTENT(OUT) :: mode
316      LOGICAL(KIND=C_BOOL) :: mode_tmp
[786]317      LOGICAL, OPTIONAL, INTENT(OUT) :: order
318      LOGICAL(KIND=C_BOOL) :: order_tmp
[1201]319      LOGICAL, OPTIONAL, INTENT(OUT) :: quantity
320      LOGICAL(KIND=C_BOOL) :: quantity_tmp
[1492]321      LOGICAL, OPTIONAL, INTENT(OUT) :: read_write_convention
322      LOGICAL(KIND=C_BOOL) :: read_write_convention_tmp
[891]323      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
324      LOGICAL(KIND=C_BOOL) :: renormalize_tmp
[1626]325      LOGICAL, OPTIONAL, INTENT(OUT) :: use_area
326      LOGICAL(KIND=C_BOOL) :: use_area_tmp
[1021]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
[786]331
332      CALL xios(is_defined_interpolate_domain_attr_hdl_)  &
[1492]333      ( interpolate_domain_hdl, detect_missing_value, mode, order, quantity, read_write_convention  &
[1626]334      , renormalize, use_area, weight_filename, write_weight )
[786]335
336  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)
337
338  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)   &
[1492]339    ( interpolate_domain_hdl, detect_missing_value_, mode_, order_, quantity_, read_write_convention_  &
[1626]340    , renormalize_, use_area_, weight_filename_, write_weight_ )
[786]341
342    IMPLICIT NONE
343      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
[1492]344      LOGICAL, OPTIONAL, INTENT(OUT) :: detect_missing_value_
345      LOGICAL(KIND=C_BOOL) :: detect_missing_value__tmp
[1021]346      LOGICAL, OPTIONAL, INTENT(OUT) :: mode_
347      LOGICAL(KIND=C_BOOL) :: mode__tmp
[786]348      LOGICAL, OPTIONAL, INTENT(OUT) :: order_
349      LOGICAL(KIND=C_BOOL) :: order__tmp
[1201]350      LOGICAL, OPTIONAL, INTENT(OUT) :: quantity_
351      LOGICAL(KIND=C_BOOL) :: quantity__tmp
[1492]352      LOGICAL, OPTIONAL, INTENT(OUT) :: read_write_convention_
353      LOGICAL(KIND=C_BOOL) :: read_write_convention__tmp
[891]354      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize_
355      LOGICAL(KIND=C_BOOL) :: renormalize__tmp
[1626]356      LOGICAL, OPTIONAL, INTENT(OUT) :: use_area_
357      LOGICAL(KIND=C_BOOL) :: use_area__tmp
[1021]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
[786]362
[1492]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
[1021]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
[786]375      IF (PRESENT(order_)) THEN
[966]376        order__tmp = cxios_is_defined_interpolate_domain_order &
377      (interpolate_domain_hdl%daddr)
[786]378        order_ = order__tmp
379      ENDIF
380
[1201]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
[1492]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
[891]393      IF (PRESENT(renormalize_)) THEN
[966]394        renormalize__tmp = cxios_is_defined_interpolate_domain_renormalize &
395      (interpolate_domain_hdl%daddr)
[891]396        renormalize_ = renormalize__tmp
397      ENDIF
398
[1626]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
[1021]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
[786]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.