PERIOD_BDY_EM_INIT_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/PERIOD_BDY_EM_INIT_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_INIT_inline.inc')
8 IF ( config_flags%periodic_x ) THEN
9 CALL RSL_LITE_INIT_PERIOD ( local_communicator_periodic, 3 , &
10 11, 12, 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_phb, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
67 mytask, ntasks, ntasks_x, ntasks_y, &
68 ids, ide, jds, jde, kds, kde, &
69 ims, ime, jms, jme, kms, kme, &
70 ips, ipe, jps, jpe, kps, kpe )
71 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_1, 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_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
77 mytask, ntasks, ntasks_x, ntasks_y, &
78 ids, ide, jds, jde, 1 , 1 , &
79 ims, ime, jms, jme, 1 , 1 , &
80 ips, ipe, jps, jpe, 1 , 1 )
81 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mub, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
82 mytask, ntasks, ntasks_x, ntasks_y, &
83 ids, ide, jds, jde, 1 , 1 , &
84 ims, ime, jms, jme, 1 , 1 , &
85 ips, ipe, jps, jpe, 1 , 1 )
86 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu0, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
87 mytask, ntasks, ntasks_x, ntasks_y, &
88 ids, ide, jds, jde, 1 , 1 , &
89 ims, ime, jms, jme, 1 , 1 , &
90 ips, ipe, jps, jpe, 1 , 1 )
91 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%ht, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
92 mytask, ntasks, ntasks_x, ntasks_y, &
93 ids, ide, jds, jde, 1 , 1 , &
94 ims, ime, jms, jme, 1 , 1 , &
95 ips, ipe, jps, jpe, 1 , 1 )
96 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%msft, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
97 mytask, ntasks, ntasks_x, ntasks_y, &
98 ids, ide, jds, jde, 1 , 1 , &
99 ims, ime, jms, jme, 1 , 1 , &
100 ips, ipe, jps, jpe, 1 , 1 )
101 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%msfu, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 1, &
102 mytask, ntasks, ntasks_x, ntasks_y, &
103 ids, ide, jds, jde, 1 , 1 , &
104 ims, ime, jms, jme, 1 , 1 , &
105 ips, ipe, jps, jpe, 1 , 1 )
106 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%msfv, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
107 mytask, ntasks, ntasks_x, ntasks_y, &
108 ids, ide, jds, jde, 1 , 1 , &
109 ims, ime, jms, jme, 1 , 1 , &
110 ips, ipe, jps, jpe, 1 , 1 )
111 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%sina, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
112 mytask, ntasks, ntasks_x, ntasks_y, &
113 ids, ide, jds, jde, 1 , 1 , &
114 ims, ime, jms, jme, 1 , 1 , &
115 ips, ipe, jps, jpe, 1 , 1 )
116 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%cosa, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
117 mytask, ntasks, ntasks_x, ntasks_y, &
118 ids, ide, jds, jde, 1 , 1 , &
119 ims, ime, jms, jme, 1 , 1 , &
120 ips, ipe, jps, jpe, 1 , 1 )
121 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%e, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
122 mytask, ntasks, ntasks_x, ntasks_y, &
123 ids, ide, jds, jde, 1 , 1 , &
124 ims, ime, jms, jme, 1 , 1 , &
125 ips, ipe, jps, jpe, 1 , 1 )
126 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%f, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
127 mytask, ntasks, ntasks_x, ntasks_y, &
128 ids, ide, jds, jde, 1 , 1 , &
129 ims, ime, jms, jme, 1 , 1 , &
130 ips, ipe, jps, jpe, 1 , 1 )
131 CALL RSL_LITE_EXCH_PERIOD_X ( local_communicator_periodic , mytask, ntasks, ntasks_x, ntasks_y )
132 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_u_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
133 mytask, ntasks, ntasks_x, ntasks_y, &
134 ids, ide, jds, jde, kds, kde, &
135 ims, ime, jms, jme, kms, kme, &
136 ips, ipe, jps, jpe, kps, kpe )
137 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_u_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
138 mytask, ntasks, ntasks_x, ntasks_y, &
139 ids, ide, jds, jde, kds, kde, &
140 ims, ime, jms, jme, kms, kme, &
141 ips, ipe, jps, jpe, kps, kpe )
142 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_v_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
143 mytask, ntasks, ntasks_x, ntasks_y, &
144 ids, ide, jds, jde, kds, kde, &
145 ims, ime, jms, jme, kms, kme, &
146 ips, ipe, jps, jpe, kps, kpe )
147 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_v_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
148 mytask, ntasks, ntasks_x, ntasks_y, &
149 ids, ide, jds, jde, kds, kde, &
150 ims, ime, jms, jme, kms, kme, &
151 ips, ipe, jps, jpe, kps, kpe )
152 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_w_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
153 mytask, ntasks, ntasks_x, ntasks_y, &
154 ids, ide, jds, jde, kds, kde, &
155 ims, ime, jms, jme, kms, kme, &
156 ips, ipe, jps, jpe, kps, kpe )
157 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_w_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
158 mytask, ntasks, ntasks_x, ntasks_y, &
159 ids, ide, jds, jde, kds, kde, &
160 ims, ime, jms, jme, kms, kme, &
161 ips, ipe, jps, jpe, kps, kpe )
162 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_t_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
163 mytask, ntasks, ntasks_x, ntasks_y, &
164 ids, ide, jds, jde, kds, kde, &
165 ims, ime, jms, jme, kms, kme, &
166 ips, ipe, jps, jpe, kps, kpe )
167 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_t_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
168 mytask, ntasks, ntasks_x, ntasks_y, &
169 ids, ide, jds, jde, kds, kde, &
170 ims, ime, jms, jme, kms, kme, &
171 ips, ipe, jps, jpe, kps, kpe )
172 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
173 mytask, ntasks, ntasks_x, ntasks_y, &
174 ids, ide, jds, jde, kds, kde, &
175 ims, ime, jms, jme, kms, kme, &
176 ips, ipe, jps, jpe, kps, kpe )
177 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
178 mytask, ntasks, ntasks_x, ntasks_y, &
179 ids, ide, jds, jde, kds, kde, &
180 ims, ime, jms, jme, kms, kme, &
181 ips, ipe, jps, jpe, kps, kpe )
182 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_phb, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
183 mytask, ntasks, ntasks_x, ntasks_y, &
184 ids, ide, jds, jde, kds, kde, &
185 ims, ime, jms, jme, kms, kme, &
186 ips, ipe, jps, jpe, kps, kpe )
187 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
188 mytask, ntasks, ntasks_x, ntasks_y, &
189 ids, ide, jds, jde, 1 , 1 , &
190 ims, ime, jms, jme, 1 , 1 , &
191 ips, ipe, jps, jpe, 1 , 1 )
192 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
193 mytask, ntasks, ntasks_x, ntasks_y, &
194 ids, ide, jds, jde, 1 , 1 , &
195 ims, ime, jms, jme, 1 , 1 , &
196 ips, ipe, jps, jpe, 1 , 1 )
197 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mub, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
198 mytask, ntasks, ntasks_x, ntasks_y, &
199 ids, ide, jds, jde, 1 , 1 , &
200 ims, ime, jms, jme, 1 , 1 , &
201 ips, ipe, jps, jpe, 1 , 1 )
202 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu0, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
203 mytask, ntasks, ntasks_x, ntasks_y, &
204 ids, ide, jds, jde, 1 , 1 , &
205 ims, ime, jms, jme, 1 , 1 , &
206 ips, ipe, jps, jpe, 1 , 1 )
207 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%ht, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
208 mytask, ntasks, ntasks_x, ntasks_y, &
209 ids, ide, jds, jde, 1 , 1 , &
210 ims, ime, jms, jme, 1 , 1 , &
211 ips, ipe, jps, jpe, 1 , 1 )
212 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%msft, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
213 mytask, ntasks, ntasks_x, ntasks_y, &
214 ids, ide, jds, jde, 1 , 1 , &
215 ims, ime, jms, jme, 1 , 1 , &
216 ips, ipe, jps, jpe, 1 , 1 )
217 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%msfu, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 1, &
218 mytask, ntasks, ntasks_x, ntasks_y, &
219 ids, ide, jds, jde, 1 , 1 , &
220 ims, ime, jms, jme, 1 , 1 , &
221 ips, ipe, jps, jpe, 1 , 1 )
222 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%msfv, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
223 mytask, ntasks, ntasks_x, ntasks_y, &
224 ids, ide, jds, jde, 1 , 1 , &
225 ims, ime, jms, jme, 1 , 1 , &
226 ips, ipe, jps, jpe, 1 , 1 )
227 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%sina, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
228 mytask, ntasks, ntasks_x, ntasks_y, &
229 ids, ide, jds, jde, 1 , 1 , &
230 ims, ime, jms, jme, 1 , 1 , &
231 ips, ipe, jps, jpe, 1 , 1 )
232 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%cosa, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
233 mytask, ntasks, ntasks_x, ntasks_y, &
234 ids, ide, jds, jde, 1 , 1 , &
235 ims, ime, jms, jme, 1 , 1 , &
236 ips, ipe, jps, jpe, 1 , 1 )
237 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%e, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
238 mytask, ntasks, ntasks_x, ntasks_y, &
239 ids, ide, jds, jde, 1 , 1 , &
240 ims, ime, jms, jme, 1 , 1 , &
241 ips, ipe, jps, jpe, 1 , 1 )
242 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%f, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
243 mytask, ntasks, ntasks_x, ntasks_y, &
244 ids, ide, jds, jde, 1 , 1 , &
245 ims, ime, jms, jme, 1 , 1 , &
246 ips, ipe, jps, jpe, 1 , 1 )
247 END IF
248 IF ( config_flags%periodic_y ) THEN
249 CALL RSL_LITE_INIT_PERIOD ( local_communicator_periodic, 3 , &
250 11, 12, RWORDSIZE, &
251 0, 0, IWORDSIZE, &
252 0, 0, DWORDSIZE, &
253 0, 0, LWORDSIZE, &
254 mytask, ntasks, ntasks_x, ntasks_y, &
255 ips, ipe, jps, jpe, kps, kpe )
256 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_u_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
257 mytask, ntasks, ntasks_x, ntasks_y, &
258 ids, ide, jds, jde, kds, kde, &
259 ims, ime, jms, jme, kms, kme, &
260 ips, ipe, jps, jpe, kps, kpe )
261 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_u_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
262 mytask, ntasks, ntasks_x, ntasks_y, &
263 ids, ide, jds, jde, kds, kde, &
264 ims, ime, jms, jme, kms, kme, &
265 ips, ipe, jps, jpe, kps, kpe )
266 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_v_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
267 mytask, ntasks, ntasks_x, ntasks_y, &
268 ids, ide, jds, jde, kds, kde, &
269 ims, ime, jms, jme, kms, kme, &
270 ips, ipe, jps, jpe, kps, kpe )
271 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_v_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
272 mytask, ntasks, ntasks_x, ntasks_y, &
273 ids, ide, jds, jde, kds, kde, &
274 ims, ime, jms, jme, kms, kme, &
275 ips, ipe, jps, jpe, kps, kpe )
276 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_w_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
277 mytask, ntasks, ntasks_x, ntasks_y, &
278 ids, ide, jds, jde, kds, kde, &
279 ims, ime, jms, jme, kms, kme, &
280 ips, ipe, jps, jpe, kps, kpe )
281 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_w_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
282 mytask, ntasks, ntasks_x, ntasks_y, &
283 ids, ide, jds, jde, kds, kde, &
284 ims, ime, jms, jme, kms, kme, &
285 ips, ipe, jps, jpe, kps, kpe )
286 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_t_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
287 mytask, ntasks, ntasks_x, ntasks_y, &
288 ids, ide, jds, jde, kds, kde, &
289 ims, ime, jms, jme, kms, kme, &
290 ips, ipe, jps, jpe, kps, kpe )
291 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_t_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
292 mytask, ntasks, ntasks_x, ntasks_y, &
293 ids, ide, jds, jde, kds, kde, &
294 ims, ime, jms, jme, kms, kme, &
295 ips, ipe, jps, jpe, kps, kpe )
296 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
297 mytask, ntasks, ntasks_x, ntasks_y, &
298 ids, ide, jds, jde, kds, kde, &
299 ims, ime, jms, jme, kms, kme, &
300 ips, ipe, jps, jpe, kps, kpe )
301 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
302 mytask, ntasks, ntasks_x, ntasks_y, &
303 ids, ide, jds, jde, kds, kde, &
304 ims, ime, jms, jme, kms, kme, &
305 ips, ipe, jps, jpe, kps, kpe )
306 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_phb, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
307 mytask, ntasks, ntasks_x, ntasks_y, &
308 ids, ide, jds, jde, kds, kde, &
309 ims, ime, jms, jme, kms, kme, &
310 ips, ipe, jps, jpe, kps, kpe )
311 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
312 mytask, ntasks, ntasks_x, ntasks_y, &
313 ids, ide, jds, jde, 1 , 1 , &
314 ims, ime, jms, jme, 1 , 1 , &
315 ips, ipe, jps, jpe, 1 , 1 )
316 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
317 mytask, ntasks, ntasks_x, ntasks_y, &
318 ids, ide, jds, jde, 1 , 1 , &
319 ims, ime, jms, jme, 1 , 1 , &
320 ips, ipe, jps, jpe, 1 , 1 )
321 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mub, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
322 mytask, ntasks, ntasks_x, ntasks_y, &
323 ids, ide, jds, jde, 1 , 1 , &
324 ims, ime, jms, jme, 1 , 1 , &
325 ips, ipe, jps, jpe, 1 , 1 )
326 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu0, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
327 mytask, ntasks, ntasks_x, ntasks_y, &
328 ids, ide, jds, jde, 1 , 1 , &
329 ims, ime, jms, jme, 1 , 1 , &
330 ips, ipe, jps, jpe, 1 , 1 )
331 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%ht, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
332 mytask, ntasks, ntasks_x, ntasks_y, &
333 ids, ide, jds, jde, 1 , 1 , &
334 ims, ime, jms, jme, 1 , 1 , &
335 ips, ipe, jps, jpe, 1 , 1 )
336 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%msft, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
337 mytask, ntasks, ntasks_x, ntasks_y, &
338 ids, ide, jds, jde, 1 , 1 , &
339 ims, ime, jms, jme, 1 , 1 , &
340 ips, ipe, jps, jpe, 1 , 1 )
341 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%msfu, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
342 mytask, ntasks, ntasks_x, ntasks_y, &
343 ids, ide, jds, jde, 1 , 1 , &
344 ims, ime, jms, jme, 1 , 1 , &
345 ips, ipe, jps, jpe, 1 , 1 )
346 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%msfv, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 1, &
347 mytask, ntasks, ntasks_x, ntasks_y, &
348 ids, ide, jds, jde, 1 , 1 , &
349 ims, ime, jms, jme, 1 , 1 , &
350 ips, ipe, jps, jpe, 1 , 1 )
351 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%sina, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
352 mytask, ntasks, ntasks_x, ntasks_y, &
353 ids, ide, jds, jde, 1 , 1 , &
354 ims, ime, jms, jme, 1 , 1 , &
355 ips, ipe, jps, jpe, 1 , 1 )
356 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%cosa, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
357 mytask, ntasks, ntasks_x, ntasks_y, &
358 ids, ide, jds, jde, 1 , 1 , &
359 ims, ime, jms, jme, 1 , 1 , &
360 ips, ipe, jps, jpe, 1 , 1 )
361 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%e, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
362 mytask, ntasks, ntasks_x, ntasks_y, &
363 ids, ide, jds, jde, 1 , 1 , &
364 ims, ime, jms, jme, 1 , 1 , &
365 ips, ipe, jps, jpe, 1 , 1 )
366 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%f, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
367 mytask, ntasks, ntasks_x, ntasks_y, &
368 ids, ide, jds, jde, 1 , 1 , &
369 ims, ime, jms, jme, 1 , 1 , &
370 ips, ipe, jps, jpe, 1 , 1 )
371 CALL RSL_LITE_EXCH_PERIOD_Y ( local_communicator_periodic , mytask, ntasks, ntasks_x, ntasks_y )
372 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_u_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
373 mytask, ntasks, ntasks_x, ntasks_y, &
374 ids, ide, jds, jde, kds, kde, &
375 ims, ime, jms, jme, kms, kme, &
376 ips, ipe, jps, jpe, kps, kpe )
377 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_u_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
378 mytask, ntasks, ntasks_x, ntasks_y, &
379 ids, ide, jds, jde, kds, kde, &
380 ims, ime, jms, jme, kms, kme, &
381 ips, ipe, jps, jpe, kps, kpe )
382 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_v_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
383 mytask, ntasks, ntasks_x, ntasks_y, &
384 ids, ide, jds, jde, kds, kde, &
385 ims, ime, jms, jme, kms, kme, &
386 ips, ipe, jps, jpe, kps, kpe )
387 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_v_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
388 mytask, ntasks, ntasks_x, ntasks_y, &
389 ids, ide, jds, jde, kds, kde, &
390 ims, ime, jms, jme, kms, kme, &
391 ips, ipe, jps, jpe, kps, kpe )
392 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_w_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
393 mytask, ntasks, ntasks_x, ntasks_y, &
394 ids, ide, jds, jde, kds, kde, &
395 ims, ime, jms, jme, kms, kme, &
396 ips, ipe, jps, jpe, kps, kpe )
397 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_w_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
398 mytask, ntasks, ntasks_x, ntasks_y, &
399 ids, ide, jds, jde, kds, kde, &
400 ims, ime, jms, jme, kms, kme, &
401 ips, ipe, jps, jpe, kps, kpe )
402 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_t_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
403 mytask, ntasks, ntasks_x, ntasks_y, &
404 ids, ide, jds, jde, kds, kde, &
405 ims, ime, jms, jme, kms, kme, &
406 ips, ipe, jps, jpe, kps, kpe )
407 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_t_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
408 mytask, ntasks, ntasks_x, ntasks_y, &
409 ids, ide, jds, jde, kds, kde, &
410 ims, ime, jms, jme, kms, kme, &
411 ips, ipe, jps, jpe, kps, kpe )
412 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
413 mytask, ntasks, ntasks_x, ntasks_y, &
414 ids, ide, jds, jde, kds, kde, &
415 ims, ime, jms, jme, kms, kme, &
416 ips, ipe, jps, jpe, kps, kpe )
417 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_ph_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
418 mytask, ntasks, ntasks_x, ntasks_y, &
419 ids, ide, jds, jde, kds, kde, &
420 ims, ime, jms, jme, kms, kme, &
421 ips, ipe, jps, jpe, kps, kpe )
422 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_phb, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
423 mytask, ntasks, ntasks_x, ntasks_y, &
424 ids, ide, jds, jde, kds, kde, &
425 ims, ime, jms, jme, kms, kme, &
426 ips, ipe, jps, jpe, kps, kpe )
427 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
428 mytask, ntasks, ntasks_x, ntasks_y, &
429 ids, ide, jds, jde, 1 , 1 , &
430 ims, ime, jms, jme, 1 , 1 , &
431 ips, ipe, jps, jpe, 1 , 1 )
432 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
433 mytask, ntasks, ntasks_x, ntasks_y, &
434 ids, ide, jds, jde, 1 , 1 , &
435 ims, ime, jms, jme, 1 , 1 , &
436 ips, ipe, jps, jpe, 1 , 1 )
437 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mub, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
438 mytask, ntasks, ntasks_x, ntasks_y, &
439 ids, ide, jds, jde, 1 , 1 , &
440 ims, ime, jms, jme, 1 , 1 , &
441 ips, ipe, jps, jpe, 1 , 1 )
442 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%em_mu0, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
443 mytask, ntasks, ntasks_x, ntasks_y, &
444 ids, ide, jds, jde, 1 , 1 , &
445 ims, ime, jms, jme, 1 , 1 , &
446 ips, ipe, jps, jpe, 1 , 1 )
447 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%ht, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
448 mytask, ntasks, ntasks_x, ntasks_y, &
449 ids, ide, jds, jde, 1 , 1 , &
450 ims, ime, jms, jme, 1 , 1 , &
451 ips, ipe, jps, jpe, 1 , 1 )
452 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%msft, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
453 mytask, ntasks, ntasks_x, ntasks_y, &
454 ids, ide, jds, jde, 1 , 1 , &
455 ims, ime, jms, jme, 1 , 1 , &
456 ips, ipe, jps, jpe, 1 , 1 )
457 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%msfu, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
458 mytask, ntasks, ntasks_x, ntasks_y, &
459 ids, ide, jds, jde, 1 , 1 , &
460 ims, ime, jms, jme, 1 , 1 , &
461 ips, ipe, jps, jpe, 1 , 1 )
462 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%msfv, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 1, &
463 mytask, ntasks, ntasks_x, ntasks_y, &
464 ids, ide, jds, jde, 1 , 1 , &
465 ims, ime, jms, jme, 1 , 1 , &
466 ips, ipe, jps, jpe, 1 , 1 )
467 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%sina, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
468 mytask, ntasks, ntasks_x, ntasks_y, &
469 ids, ide, jds, jde, 1 , 1 , &
470 ims, ime, jms, jme, 1 , 1 , &
471 ips, ipe, jps, jpe, 1 , 1 )
472 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%cosa, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
473 mytask, ntasks, ntasks_x, ntasks_y, &
474 ids, ide, jds, jde, 1 , 1 , &
475 ims, ime, jms, jme, 1 , 1 , &
476 ips, ipe, jps, jpe, 1 , 1 )
477 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%e, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
478 mytask, ntasks, ntasks_x, ntasks_y, &
479 ids, ide, jds, jde, 1 , 1 , &
480 ims, ime, jms, jme, 1 , 1 , &
481 ips, ipe, jps, jpe, 1 , 1 )
482 CALL RSL_LITE_PACK_PERIOD ( local_communicator_periodic, grid%f, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
483 mytask, ntasks, ntasks_x, ntasks_y, &
484 ids, ide, jds, jde, 1 , 1 , &
485 ims, ime, jms, jme, 1 , 1 , &
486 ips, ipe, jps, jpe, 1 , 1 )
487 END IF
488 !ENDOFREGISTRYGENERATEDINCLUDE