source: XIOS/dev/branch_yushan/src/interface/fortran_attr/iinterpolate_domain_attr.F90 @ 1037

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

initialize the branch

File size: 7.4 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, order, renormalize )
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      INTEGER  , OPTIONAL, INTENT(IN) :: order
21      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize
22      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
23
24      CALL xios(get_interpolate_domain_handle) &
25      (interpolate_domain_id,interpolate_domain_hdl)
26      CALL xios(set_interpolate_domain_attr_hdl_)   &
27      ( interpolate_domain_hdl, file, order, renormalize )
28
29  END SUBROUTINE xios(set_interpolate_domain_attr)
30
31  SUBROUTINE xios(set_interpolate_domain_attr_hdl)  &
32    ( interpolate_domain_hdl, file, order, renormalize )
33
34    IMPLICIT NONE
35      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file
37      INTEGER  , OPTIONAL, INTENT(IN) :: order
38      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize
39      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
40
41      CALL xios(set_interpolate_domain_attr_hdl_)  &
42      ( interpolate_domain_hdl, file, order, renormalize )
43
44  END SUBROUTINE xios(set_interpolate_domain_attr_hdl)
45
46  SUBROUTINE xios(set_interpolate_domain_attr_hdl_)   &
47    ( interpolate_domain_hdl, file_, order_, renormalize_ )
48
49    IMPLICIT NONE
50      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file_
52      INTEGER  , OPTIONAL, INTENT(IN) :: order_
53      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize_
54      LOGICAL (KIND=C_BOOL) :: renormalize__tmp
55
56      IF (PRESENT(file_)) THEN
57        CALL cxios_set_interpolate_domain_file &
58      (interpolate_domain_hdl%daddr, file_, len(file_))
59      ENDIF
60
61      IF (PRESENT(order_)) THEN
62        CALL cxios_set_interpolate_domain_order &
63      (interpolate_domain_hdl%daddr, order_)
64      ENDIF
65
66      IF (PRESENT(renormalize_)) THEN
67        renormalize__tmp = renormalize_
68        CALL cxios_set_interpolate_domain_renormalize &
69      (interpolate_domain_hdl%daddr, renormalize__tmp)
70      ENDIF
71
72  END SUBROUTINE xios(set_interpolate_domain_attr_hdl_)
73
74  SUBROUTINE xios(get_interpolate_domain_attr)  &
75    ( interpolate_domain_id, file, order, renormalize )
76
77    IMPLICIT NONE
78      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
79      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
80      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file
81      INTEGER  , OPTIONAL, INTENT(OUT) :: order
82      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize
83      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
84
85      CALL xios(get_interpolate_domain_handle) &
86      (interpolate_domain_id,interpolate_domain_hdl)
87      CALL xios(get_interpolate_domain_attr_hdl_)   &
88      ( interpolate_domain_hdl, file, order, renormalize )
89
90  END SUBROUTINE xios(get_interpolate_domain_attr)
91
92  SUBROUTINE xios(get_interpolate_domain_attr_hdl)  &
93    ( interpolate_domain_hdl, file, order, renormalize )
94
95    IMPLICIT NONE
96      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
97      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file
98      INTEGER  , OPTIONAL, INTENT(OUT) :: order
99      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize
100      LOGICAL (KIND=C_BOOL) :: renormalize_tmp
101
102      CALL xios(get_interpolate_domain_attr_hdl_)  &
103      ( interpolate_domain_hdl, file, order, renormalize )
104
105  END SUBROUTINE xios(get_interpolate_domain_attr_hdl)
106
107  SUBROUTINE xios(get_interpolate_domain_attr_hdl_)   &
108    ( interpolate_domain_hdl, file_, order_, renormalize_ )
109
110    IMPLICIT NONE
111      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
112      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file_
113      INTEGER  , OPTIONAL, INTENT(OUT) :: order_
114      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize_
115      LOGICAL (KIND=C_BOOL) :: renormalize__tmp
116
117      IF (PRESENT(file_)) THEN
118        CALL cxios_get_interpolate_domain_file &
119      (interpolate_domain_hdl%daddr, file_, len(file_))
120      ENDIF
121
122      IF (PRESENT(order_)) THEN
123        CALL cxios_get_interpolate_domain_order &
124      (interpolate_domain_hdl%daddr, order_)
125      ENDIF
126
127      IF (PRESENT(renormalize_)) THEN
128        CALL cxios_get_interpolate_domain_renormalize &
129      (interpolate_domain_hdl%daddr, renormalize__tmp)
130        renormalize_ = renormalize__tmp
131      ENDIF
132
133  END SUBROUTINE xios(get_interpolate_domain_attr_hdl_)
134
135  SUBROUTINE xios(is_defined_interpolate_domain_attr)  &
136    ( interpolate_domain_id, file, order, renormalize )
137
138    IMPLICIT NONE
139      TYPE(txios(interpolate_domain))  :: interpolate_domain_hdl
140      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id
141      LOGICAL, OPTIONAL, INTENT(OUT) :: file
142      LOGICAL(KIND=C_BOOL) :: file_tmp
143      LOGICAL, OPTIONAL, INTENT(OUT) :: order
144      LOGICAL(KIND=C_BOOL) :: order_tmp
145      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
146      LOGICAL(KIND=C_BOOL) :: renormalize_tmp
147
148      CALL xios(get_interpolate_domain_handle) &
149      (interpolate_domain_id,interpolate_domain_hdl)
150      CALL xios(is_defined_interpolate_domain_attr_hdl_)   &
151      ( interpolate_domain_hdl, file, order, renormalize )
152
153  END SUBROUTINE xios(is_defined_interpolate_domain_attr)
154
155  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)  &
156    ( interpolate_domain_hdl, file, order, renormalize )
157
158    IMPLICIT NONE
159      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
160      LOGICAL, OPTIONAL, INTENT(OUT) :: file
161      LOGICAL(KIND=C_BOOL) :: file_tmp
162      LOGICAL, OPTIONAL, INTENT(OUT) :: order
163      LOGICAL(KIND=C_BOOL) :: order_tmp
164      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize
165      LOGICAL(KIND=C_BOOL) :: renormalize_tmp
166
167      CALL xios(is_defined_interpolate_domain_attr_hdl_)  &
168      ( interpolate_domain_hdl, file, order, renormalize )
169
170  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)
171
172  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)   &
173    ( interpolate_domain_hdl, file_, order_, renormalize_ )
174
175    IMPLICIT NONE
176      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl
177      LOGICAL, OPTIONAL, INTENT(OUT) :: file_
178      LOGICAL(KIND=C_BOOL) :: file__tmp
179      LOGICAL, OPTIONAL, INTENT(OUT) :: order_
180      LOGICAL(KIND=C_BOOL) :: order__tmp
181      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize_
182      LOGICAL(KIND=C_BOOL) :: renormalize__tmp
183
184      IF (PRESENT(file_)) THEN
185        file__tmp = cxios_is_defined_interpolate_domain_file &
186      (interpolate_domain_hdl%daddr)
187        file_ = file__tmp
188      ENDIF
189
190      IF (PRESENT(order_)) THEN
191        order__tmp = cxios_is_defined_interpolate_domain_order &
192      (interpolate_domain_hdl%daddr)
193        order_ = order__tmp
194      ENDIF
195
196      IF (PRESENT(renormalize_)) THEN
197        renormalize__tmp = cxios_is_defined_interpolate_domain_renormalize &
198      (interpolate_domain_hdl%daddr)
199        renormalize_ = renormalize__tmp
200      ENDIF
201
202  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)
203
204END MODULE iinterpolate_domain_attr
Note: See TracBrowser for help on using the repository browser.