PERIOD_BDY_EM_D3_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/PERIOD_BDY_EM_D3_inline.inc'
2 !
3 ! WARNING This file is generated automatically by use_registry
4 ! using the data base in the file named Registry.
5 ! Do not edit. Your changes to this file will be lost.
6 !
7 CALL wrf_debug(2,'calling inc/PERIOD_BDY_EM_D3_inline.inc')
8 IF ( config_flags%periodic_x ) THEN
9 CALL RSL_LITE_INIT_PERIOD ( local_communicator_periodic, 3 , &
10 10, 2, RWORDSIZE, &
11 0, 0, IWORDSIZE, &
12 0, 0, DWORDSIZE, &
13 0, 0, LWORDSIZE, &
14 mytask, ntasks, ntasks_x, ntasks_y, &
15 ips, ipe, jps, jpe, kps, kpe )
16 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_u_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
17 mytask, ntasks, ntasks_x, ntasks_y, &
18 ids, ide, jds, jde, kds, kde, &
19 ims, ime, jms, jme, kms, kme, &
20 ips, ipe, jps, jpe, kps, kpe )
21 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_u_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
22 mytask, ntasks, ntasks_x, ntasks_y, &
23 ids, ide, jds, jde, kds, kde, &
24 ims, ime, jms, jme, kms, kme, &
25 ips, ipe, jps, jpe, kps, kpe )
26 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_v_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
27 mytask, ntasks, ntasks_x, ntasks_y, &
28 ids, ide, jds, jde, kds, kde, &
29 ims, ime, jms, jme, kms, kme, &
30 ips, ipe, jps, jpe, kps, kpe )
31 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_v_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
32 mytask, ntasks, ntasks_x, ntasks_y, &
33 ids, ide, jds, jde, kds, kde, &
34 ims, ime, jms, jme, kms, kme, &
35 ips, ipe, jps, jpe, kps, kpe )
36 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_w_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
37 mytask, ntasks, ntasks_x, ntasks_y, &
38 ids, ide, jds, jde, kds, kde, &
39 ims, ime, jms, jme, kms, kme, &
40 ips, ipe, jps, jpe, kps, kpe )
41 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_w_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
42 mytask, ntasks, ntasks_x, ntasks_y, &
43 ids, ide, jds, jde, kds, kde, &
44 ims, ime, jms, jme, kms, kme, &
45 ips, ipe, jps, jpe, kps, kpe )
46 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_t_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
47 mytask, ntasks, ntasks_x, ntasks_y, &
48 ids, ide, jds, jde, kds, kde, &
49 ims, ime, jms, jme, kms, kme, &
50 ips, ipe, jps, jpe, kps, kpe )
51 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_t_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
52 mytask, ntasks, ntasks_x, ntasks_y, &
53 ids, ide, jds, jde, kds, kde, &
54 ims, ime, jms, jme, kms, kme, &
55 ips, ipe, jps, jpe, kps, kpe )
56 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
57 mytask, ntasks, ntasks_x, ntasks_y, &
58 ids, ide, jds, jde, kds, kde, &
59 ims, ime, jms, jme, kms, kme, &
60 ips, ipe, jps, jpe, kps, kpe )
61 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
62 mytask, ntasks, ntasks_x, ntasks_y, &
63 ids, ide, jds, jde, kds, kde, &
64 ims, ime, jms, jme, kms, kme, &
65 ips, ipe, jps, jpe, kps, kpe )
66 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
67 mytask, ntasks, ntasks_x, ntasks_y, &
68 ids, ide, jds, jde, 1 , 1 , &
69 ims, ime, jms, jme, 1 , 1 , &
70 ips, ipe, jps, jpe, 1 , 1 )
71 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
72 mytask, ntasks, ntasks_x, ntasks_y, &
73 ids, ide, jds, jde, 1 , 1 , &
74 ims, ime, jms, jme, 1 , 1 , &
75 ips, ipe, jps, jpe, 1 , 1 )
76 CALL RSL_LITE_EXCH_PERIOD_X ( local_communicator_periodic , mytask, ntasks, ntasks_x, ntasks_y )
77 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_u_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
78 mytask, ntasks, ntasks_x, ntasks_y, &
79 ids, ide, jds, jde, kds, kde, &
80 ims, ime, jms, jme, kms, kme, &
81 ips, ipe, jps, jpe, kps, kpe )
82 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_u_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
83 mytask, ntasks, ntasks_x, ntasks_y, &
84 ids, ide, jds, jde, kds, kde, &
85 ims, ime, jms, jme, kms, kme, &
86 ips, ipe, jps, jpe, kps, kpe )
87 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_v_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
88 mytask, ntasks, ntasks_x, ntasks_y, &
89 ids, ide, jds, jde, kds, kde, &
90 ims, ime, jms, jme, kms, kme, &
91 ips, ipe, jps, jpe, kps, kpe )
92 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_v_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
93 mytask, ntasks, ntasks_x, ntasks_y, &
94 ids, ide, jds, jde, kds, kde, &
95 ims, ime, jms, jme, kms, kme, &
96 ips, ipe, jps, jpe, kps, kpe )
97 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_w_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
98 mytask, ntasks, ntasks_x, ntasks_y, &
99 ids, ide, jds, jde, kds, kde, &
100 ims, ime, jms, jme, kms, kme, &
101 ips, ipe, jps, jpe, kps, kpe )
102 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_w_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
103 mytask, ntasks, ntasks_x, ntasks_y, &
104 ids, ide, jds, jde, kds, kde, &
105 ims, ime, jms, jme, kms, kme, &
106 ips, ipe, jps, jpe, kps, kpe )
107 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_t_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
108 mytask, ntasks, ntasks_x, ntasks_y, &
109 ids, ide, jds, jde, kds, kde, &
110 ims, ime, jms, jme, kms, kme, &
111 ips, ipe, jps, jpe, kps, kpe )
112 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_t_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
113 mytask, ntasks, ntasks_x, ntasks_y, &
114 ids, ide, jds, jde, kds, kde, &
115 ims, ime, jms, jme, kms, kme, &
116 ips, ipe, jps, jpe, kps, kpe )
117 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
118 mytask, ntasks, ntasks_x, ntasks_y, &
119 ids, ide, jds, jde, kds, kde, &
120 ims, ime, jms, jme, kms, kme, &
121 ips, ipe, jps, jpe, kps, kpe )
122 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
123 mytask, ntasks, ntasks_x, ntasks_y, &
124 ids, ide, jds, jde, kds, kde, &
125 ims, ime, jms, jme, kms, kme, &
126 ips, ipe, jps, jpe, kps, kpe )
127 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
128 mytask, ntasks, ntasks_x, ntasks_y, &
129 ids, ide, jds, jde, 1 , 1 , &
130 ims, ime, jms, jme, 1 , 1 , &
131 ips, ipe, jps, jpe, 1 , 1 )
132 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
133 mytask, ntasks, ntasks_x, ntasks_y, &
134 ids, ide, jds, jde, 1 , 1 , &
135 ims, ime, jms, jme, 1 , 1 , &
136 ips, ipe, jps, jpe, 1 , 1 )
137 END IF
138 IF ( config_flags%periodic_y ) THEN
139 CALL RSL_LITE_INIT_PERIOD ( local_communicator_periodic, 3 , &
140 10, 2, RWORDSIZE, &
141 0, 0, IWORDSIZE, &
142 0, 0, DWORDSIZE, &
143 0, 0, LWORDSIZE, &
144 mytask, ntasks, ntasks_x, ntasks_y, &
145 ips, ipe, jps, jpe, kps, kpe )
146 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_u_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
147 mytask, ntasks, ntasks_x, ntasks_y, &
148 ids, ide, jds, jde, kds, kde, &
149 ims, ime, jms, jme, kms, kme, &
150 ips, ipe, jps, jpe, kps, kpe )
151 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_u_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
152 mytask, ntasks, ntasks_x, ntasks_y, &
153 ids, ide, jds, jde, kds, kde, &
154 ims, ime, jms, jme, kms, kme, &
155 ips, ipe, jps, jpe, kps, kpe )
156 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_v_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
157 mytask, ntasks, ntasks_x, ntasks_y, &
158 ids, ide, jds, jde, kds, kde, &
159 ims, ime, jms, jme, kms, kme, &
160 ips, ipe, jps, jpe, kps, kpe )
161 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_v_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
162 mytask, ntasks, ntasks_x, ntasks_y, &
163 ids, ide, jds, jde, kds, kde, &
164 ims, ime, jms, jme, kms, kme, &
165 ips, ipe, jps, jpe, kps, kpe )
166 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_w_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
167 mytask, ntasks, ntasks_x, ntasks_y, &
168 ids, ide, jds, jde, kds, kde, &
169 ims, ime, jms, jme, kms, kme, &
170 ips, ipe, jps, jpe, kps, kpe )
171 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_w_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
172 mytask, ntasks, ntasks_x, ntasks_y, &
173 ids, ide, jds, jde, kds, kde, &
174 ims, ime, jms, jme, kms, kme, &
175 ips, ipe, jps, jpe, kps, kpe )
176 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_t_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
177 mytask, ntasks, ntasks_x, ntasks_y, &
178 ids, ide, jds, jde, kds, kde, &
179 ims, ime, jms, jme, kms, kme, &
180 ips, ipe, jps, jpe, kps, kpe )
181 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_t_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
182 mytask, ntasks, ntasks_x, ntasks_y, &
183 ids, ide, jds, jde, kds, kde, &
184 ims, ime, jms, jme, kms, kme, &
185 ips, ipe, jps, jpe, kps, kpe )
186 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
187 mytask, ntasks, ntasks_x, ntasks_y, &
188 ids, ide, jds, jde, kds, kde, &
189 ims, ime, jms, jme, kms, kme, &
190 ips, ipe, jps, jpe, kps, kpe )
191 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
192 mytask, ntasks, ntasks_x, ntasks_y, &
193 ids, ide, jds, jde, kds, kde, &
194 ims, ime, jms, jme, kms, kme, &
195 ips, ipe, jps, jpe, kps, kpe )
196 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
197 mytask, ntasks, ntasks_x, ntasks_y, &
198 ids, ide, jds, jde, 1 , 1 , &
199 ims, ime, jms, jme, 1 , 1 , &
200 ips, ipe, jps, jpe, 1 , 1 )
201 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
202 mytask, ntasks, ntasks_x, ntasks_y, &
203 ids, ide, jds, jde, 1 , 1 , &
204 ims, ime, jms, jme, 1 , 1 , &
205 ips, ipe, jps, jpe, 1 , 1 )
206 CALL RSL_LITE_EXCH_PERIOD_Y ( local_communicator_periodic , mytask, ntasks, ntasks_x, ntasks_y )
207 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_u_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
208 mytask, ntasks, ntasks_x, ntasks_y, &
209 ids, ide, jds, jde, kds, kde, &
210 ims, ime, jms, jme, kms, kme, &
211 ips, ipe, jps, jpe, kps, kpe )
212 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_u_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
213 mytask, ntasks, ntasks_x, ntasks_y, &
214 ids, ide, jds, jde, kds, kde, &
215 ims, ime, jms, jme, kms, kme, &
216 ips, ipe, jps, jpe, kps, kpe )
217 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_v_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
218 mytask, ntasks, ntasks_x, ntasks_y, &
219 ids, ide, jds, jde, kds, kde, &
220 ims, ime, jms, jme, kms, kme, &
221 ips, ipe, jps, jpe, kps, kpe )
222 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_v_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
223 mytask, ntasks, ntasks_x, ntasks_y, &
224 ids, ide, jds, jde, kds, kde, &
225 ims, ime, jms, jme, kms, kme, &
226 ips, ipe, jps, jpe, kps, kpe )
227 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_w_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
228 mytask, ntasks, ntasks_x, ntasks_y, &
229 ids, ide, jds, jde, kds, kde, &
230 ims, ime, jms, jme, kms, kme, &
231 ips, ipe, jps, jpe, kps, kpe )
232 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_w_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
233 mytask, ntasks, ntasks_x, ntasks_y, &
234 ids, ide, jds, jde, kds, kde, &
235 ims, ime, jms, jme, kms, kme, &
236 ips, ipe, jps, jpe, kps, kpe )
237 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_t_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
238 mytask, ntasks, ntasks_x, ntasks_y, &
239 ids, ide, jds, jde, kds, kde, &
240 ims, ime, jms, jme, kms, kme, &
241 ips, ipe, jps, jpe, kps, kpe )
242 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_t_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
243 mytask, ntasks, ntasks_x, ntasks_y, &
244 ids, ide, jds, jde, kds, kde, &
245 ims, ime, jms, jme, kms, kme, &
246 ips, ipe, jps, jpe, kps, kpe )
247 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
248 mytask, ntasks, ntasks_x, ntasks_y, &
249 ids, ide, jds, jde, kds, kde, &
250 ims, ime, jms, jme, kms, kme, &
251 ips, ipe, jps, jpe, kps, kpe )
252 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
253 mytask, ntasks, ntasks_x, ntasks_y, &
254 ids, ide, jds, jde, kds, kde, &
255 ims, ime, jms, jme, kms, kme, &
256 ips, ipe, jps, jpe, kps, kpe )
257 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
258 mytask, ntasks, ntasks_x, ntasks_y, &
259 ids, ide, jds, jde, 1 , 1 , &
260 ims, ime, jms, jme, 1 , 1 , &
261 ips, ipe, jps, jpe, 1 , 1 )
262 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
263 mytask, ntasks, ntasks_x, ntasks_y, &
264 ids, ide, jds, jde, 1 , 1 , &
265 ims, ime, jms, jme, 1 , 1 , &
266 ips, ipe, jps, jpe, 1 , 1 )
267 END IF
268 !ENDOFREGISTRYGENERATEDINCLUDE