HALO_EM_D3_5_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_D3_5_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/HALO_EM_D3_5_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3, &
9 10 &
10 + num_moist &
11 + num_scalar &
12 , 2, RWORDSIZE, &
13 0, 0, IWORDSIZE, &
14 0, 0, DWORDSIZE, &
15 0, 0, LWORDSIZE, &
16 mytask, ntasks, ntasks_x, ntasks_y, &
17 ips, ipe, jps, jpe, kps, MAX(1,1&
18 ,kpe &
19 ))
20 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
21 mytask, ntasks, ntasks_x, ntasks_y, &
22 ids, ide, jds, jde, kds, kde, &
23 ims, ime, jms, jme, kms, kme, &
24 ips, ipe, jps, jpe, kps, kpe )
25 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
26 mytask, ntasks, ntasks_x, ntasks_y, &
27 ids, ide, jds, jde, kds, kde, &
28 ims, ime, jms, jme, kms, kme, &
29 ips, ipe, jps, jpe, kps, kpe )
30 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
31 mytask, ntasks, ntasks_x, ntasks_y, &
32 ids, ide, jds, jde, kds, kde, &
33 ims, ime, jms, jme, kms, kme, &
34 ips, ipe, jps, jpe, kps, kpe )
35 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
36 mytask, ntasks, ntasks_x, ntasks_y, &
37 ids, ide, jds, jde, kds, kde, &
38 ims, ime, jms, jme, kms, kme, &
39 ips, ipe, jps, jpe, kps, kpe )
40 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
41 mytask, ntasks, ntasks_x, ntasks_y, &
42 ids, ide, jds, jde, kds, kde, &
43 ims, ime, jms, jme, kms, kme, &
44 ips, ipe, jps, jpe, kps, kpe )
45 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
46 mytask, ntasks, ntasks_x, ntasks_y, &
47 ids, ide, jds, jde, kds, kde, &
48 ims, ime, jms, jme, kms, kme, &
49 ips, ipe, jps, jpe, kps, kpe )
50 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
51 mytask, ntasks, ntasks_x, ntasks_y, &
52 ids, ide, jds, jde, kds, kde, &
53 ims, ime, jms, jme, kms, kme, &
54 ips, ipe, jps, jpe, kps, kpe )
55 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
56 mytask, ntasks, ntasks_x, ntasks_y, &
57 ids, ide, jds, jde, kds, kde, &
58 ims, ime, jms, jme, kms, kme, &
59 ips, ipe, jps, jpe, kps, kpe )
60 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
61 mytask, ntasks, ntasks_x, ntasks_y, &
62 ids, ide, jds, jde, kds, kde, &
63 ims, ime, jms, jme, kms, kme, &
64 ips, ipe, jps, jpe, kps, kpe )
65 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
66 mytask, ntasks, ntasks_x, ntasks_y, &
67 ids, ide, jds, jde, kds, kde, &
68 ims, ime, jms, jme, kms, kme, &
69 ips, ipe, jps, jpe, kps, kpe )
70 DO itrace = PARAM_FIRST_SCALAR, num_moist
71 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
72 mytask, ntasks, ntasks_x, ntasks_y, &
73 ids, ide, jds, jde, kds, kde, &
74 ims, ime, jms, jme, kms, kme, &
75 ips, ipe, jps, jpe, kps, kpe )
76 ENDDO
77 DO itrace = PARAM_FIRST_SCALAR, num_scalar
78 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
79 mytask, ntasks, ntasks_x, ntasks_y, &
80 ids, ide, jds, jde, kds, kde, &
81 ims, ime, jms, jme, kms, kme, &
82 ips, ipe, jps, jpe, kps, kpe )
83 ENDDO
84 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
85 mytask, ntasks, ntasks_x, ntasks_y, &
86 ids, ide, jds, jde, 1 , 1 , &
87 ims, ime, jms, jme, 1 , 1 , &
88 ips, ipe, jps, jpe, 1 , 1 )
89 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
90 mytask, ntasks, ntasks_x, ntasks_y, &
91 ids, ide, jds, jde, 1 , 1 , &
92 ims, ime, jms, jme, 1 , 1 , &
93 ips, ipe, jps, jpe, 1 , 1 )
94 CALL RSL_LITE_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
95 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
96 mytask, ntasks, ntasks_x, ntasks_y, &
97 ids, ide, jds, jde, kds, kde, &
98 ims, ime, jms, jme, kms, kme, &
99 ips, ipe, jps, jpe, kps, kpe )
100 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
101 mytask, ntasks, ntasks_x, ntasks_y, &
102 ids, ide, jds, jde, kds, kde, &
103 ims, ime, jms, jme, kms, kme, &
104 ips, ipe, jps, jpe, kps, kpe )
105 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
106 mytask, ntasks, ntasks_x, ntasks_y, &
107 ids, ide, jds, jde, kds, kde, &
108 ims, ime, jms, jme, kms, kme, &
109 ips, ipe, jps, jpe, kps, kpe )
110 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
111 mytask, ntasks, ntasks_x, ntasks_y, &
112 ids, ide, jds, jde, kds, kde, &
113 ims, ime, jms, jme, kms, kme, &
114 ips, ipe, jps, jpe, kps, kpe )
115 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
116 mytask, ntasks, ntasks_x, ntasks_y, &
117 ids, ide, jds, jde, kds, kde, &
118 ims, ime, jms, jme, kms, kme, &
119 ips, ipe, jps, jpe, kps, kpe )
120 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
121 mytask, ntasks, ntasks_x, ntasks_y, &
122 ids, ide, jds, jde, kds, kde, &
123 ims, ime, jms, jme, kms, kme, &
124 ips, ipe, jps, jpe, kps, kpe )
125 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
126 mytask, ntasks, ntasks_x, ntasks_y, &
127 ids, ide, jds, jde, kds, kde, &
128 ims, ime, jms, jme, kms, kme, &
129 ips, ipe, jps, jpe, kps, kpe )
130 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
131 mytask, ntasks, ntasks_x, ntasks_y, &
132 ids, ide, jds, jde, kds, kde, &
133 ims, ime, jms, jme, kms, kme, &
134 ips, ipe, jps, jpe, kps, kpe )
135 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
136 mytask, ntasks, ntasks_x, ntasks_y, &
137 ids, ide, jds, jde, kds, kde, &
138 ims, ime, jms, jme, kms, kme, &
139 ips, ipe, jps, jpe, kps, kpe )
140 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
141 mytask, ntasks, ntasks_x, ntasks_y, &
142 ids, ide, jds, jde, kds, kde, &
143 ims, ime, jms, jme, kms, kme, &
144 ips, ipe, jps, jpe, kps, kpe )
145 DO itrace = PARAM_FIRST_SCALAR, num_moist
146 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, 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 ENDDO
152 DO itrace = PARAM_FIRST_SCALAR, num_scalar
153 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
154 mytask, ntasks, ntasks_x, ntasks_y, &
155 ids, ide, jds, jde, kds, kde, &
156 ims, ime, jms, jme, kms, kme, &
157 ips, ipe, jps, jpe, kps, kpe )
158 ENDDO
159 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
160 mytask, ntasks, ntasks_x, ntasks_y, &
161 ids, ide, jds, jde, 1 , 1 , &
162 ims, ime, jms, jme, 1 , 1 , &
163 ips, ipe, jps, jpe, 1 , 1 )
164 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
165 mytask, ntasks, ntasks_x, ntasks_y, &
166 ids, ide, jds, jde, 1 , 1 , &
167 ims, ime, jms, jme, 1 , 1 , &
168 ips, ipe, jps, jpe, 1 , 1 )
169 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3 , &
170 10 &
171 + num_moist &
172 + num_scalar &
173 , 2, RWORDSIZE, &
174 0, 0, IWORDSIZE, &
175 0, 0, DWORDSIZE, &
176 0, 0, LWORDSIZE, &
177 mytask, ntasks, ntasks_x, ntasks_y, &
178 ips, ipe, jps, jpe, kps, MAX(1,1&
179 ,kpe &
180 ))
181 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
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 ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
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 ( local_communicator, grid%em_v_1, 3, RWORDSIZE, 1, 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 ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
197 mytask, ntasks, ntasks_x, ntasks_y, &
198 ids, ide, jds, jde, kds, kde, &
199 ims, ime, jms, jme, kms, kme, &
200 ips, ipe, jps, jpe, kps, kpe )
201 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
202 mytask, ntasks, ntasks_x, ntasks_y, &
203 ids, ide, jds, jde, kds, kde, &
204 ims, ime, jms, jme, kms, kme, &
205 ips, ipe, jps, jpe, kps, kpe )
206 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
207 mytask, ntasks, ntasks_x, ntasks_y, &
208 ids, ide, jds, jde, kds, kde, &
209 ims, ime, jms, jme, kms, kme, &
210 ips, ipe, jps, jpe, kps, kpe )
211 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
212 mytask, ntasks, ntasks_x, ntasks_y, &
213 ids, ide, jds, jde, kds, kde, &
214 ims, ime, jms, jme, kms, kme, &
215 ips, ipe, jps, jpe, kps, kpe )
216 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
217 mytask, ntasks, ntasks_x, ntasks_y, &
218 ids, ide, jds, jde, kds, kde, &
219 ims, ime, jms, jme, kms, kme, &
220 ips, ipe, jps, jpe, kps, kpe )
221 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
222 mytask, ntasks, ntasks_x, ntasks_y, &
223 ids, ide, jds, jde, kds, kde, &
224 ims, ime, jms, jme, kms, kme, &
225 ips, ipe, jps, jpe, kps, kpe )
226 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
227 mytask, ntasks, ntasks_x, ntasks_y, &
228 ids, ide, jds, jde, kds, kde, &
229 ims, ime, jms, jme, kms, kme, &
230 ips, ipe, jps, jpe, kps, kpe )
231 DO itrace = PARAM_FIRST_SCALAR, num_moist
232 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, 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 ENDDO
238 DO itrace = PARAM_FIRST_SCALAR, num_scalar
239 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
240 mytask, ntasks, ntasks_x, ntasks_y, &
241 ids, ide, jds, jde, kds, kde, &
242 ims, ime, jms, jme, kms, kme, &
243 ips, ipe, jps, jpe, kps, kpe )
244 ENDDO
245 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
246 mytask, ntasks, ntasks_x, ntasks_y, &
247 ids, ide, jds, jde, 1 , 1 , &
248 ims, ime, jms, jme, 1 , 1 , &
249 ips, ipe, jps, jpe, 1 , 1 )
250 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
251 mytask, ntasks, ntasks_x, ntasks_y, &
252 ids, ide, jds, jde, 1 , 1 , &
253 ims, ime, jms, jme, 1 , 1 , &
254 ips, ipe, jps, jpe, 1 , 1 )
255 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
256 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
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 ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
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 ( local_communicator, grid%em_v_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
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 ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
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 ( local_communicator, grid%em_w_1, 3, RWORDSIZE, 1, 1, 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 ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 1, 1, 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 ( local_communicator, grid%em_t_1, 3, RWORDSIZE, 1, 1, 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 ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 1, 1, 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 ( local_communicator, grid%em_ph_1, 3, RWORDSIZE, 1, 1, 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 ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 1, 1, 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 DO itrace = PARAM_FIRST_SCALAR, num_moist
307 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
308 mytask, ntasks, ntasks_x, ntasks_y, &
309 ids, ide, jds, jde, kds, kde, &
310 ims, ime, jms, jme, kms, kme, &
311 ips, ipe, jps, jpe, kps, kpe )
312 ENDDO
313 DO itrace = PARAM_FIRST_SCALAR, num_scalar
314 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
315 mytask, ntasks, ntasks_x, ntasks_y, &
316 ids, ide, jds, jde, kds, kde, &
317 ims, ime, jms, jme, kms, kme, &
318 ips, ipe, jps, jpe, kps, kpe )
319 ENDDO
320 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
321 mytask, ntasks, ntasks_x, ntasks_y, &
322 ids, ide, jds, jde, 1 , 1 , &
323 ims, ime, jms, jme, 1 , 1 , &
324 ips, ipe, jps, jpe, 1 , 1 )
325 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
326 mytask, ntasks, ntasks_x, ntasks_y, &
327 ids, ide, jds, jde, 1 , 1 , &
328 ims, ime, jms, jme, 1 , 1 , &
329 ips, ipe, jps, jpe, 1 , 1 )
330 !ENDOFREGISTRYGENERATEDINCLUDE