HALO_EM_FORCE_DOWN_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_FORCE_DOWN_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_FORCE_DOWN_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 4, &
9 15 &
10 + num_moist &
11 + num_a_moist &
12 + num_g_moist &
13 + num_scalar &
14 , 3, RWORDSIZE, &
15 0, 0, IWORDSIZE, &
16 0, 0, DWORDSIZE, &
17 0, 0, LWORDSIZE, &
18 mytask, ntasks, ntasks_x, ntasks_y, &
19 ips, ipe, jps, jpe, kps, MAX(1,1&
20 ,kpe &
21 ))
22 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
23 mytask, ntasks, ntasks_x, ntasks_y, &
24 ids, ide, jds, jde, kds, kde, &
25 ims, ime, jms, jme, kms, kme, &
26 ips, ipe, jps, jpe, kps, kpe )
27 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
28 mytask, ntasks, ntasks_x, ntasks_y, &
29 ids, ide, jds, jde, kds, kde, &
30 ims, ime, jms, jme, kms, kme, &
31 ips, ipe, jps, jpe, kps, kpe )
32 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
33 mytask, ntasks, ntasks_x, ntasks_y, &
34 ids, ide, jds, jde, kds, kde, &
35 ims, ime, jms, jme, kms, kme, &
36 ips, ipe, jps, jpe, kps, kpe )
37 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
38 mytask, ntasks, ntasks_x, ntasks_y, &
39 ids, ide, jds, jde, kds, kde, &
40 ims, ime, jms, jme, kms, kme, &
41 ips, ipe, jps, jpe, kps, kpe )
42 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
43 mytask, ntasks, ntasks_x, ntasks_y, &
44 ids, ide, jds, jde, kds, kde, &
45 ims, ime, jms, jme, kms, kme, &
46 ips, ipe, jps, jpe, kps, kpe )
47 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
48 mytask, ntasks, ntasks_x, ntasks_y, &
49 ids, ide, jds, jde, kds, kde, &
50 ims, ime, jms, jme, kms, kme, &
51 ips, ipe, jps, jpe, kps, kpe )
52 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
53 mytask, ntasks, ntasks_x, ntasks_y, &
54 ids, ide, jds, jde, kds, kde, &
55 ims, ime, jms, jme, kms, kme, &
56 ips, ipe, jps, jpe, kps, kpe )
57 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
58 mytask, ntasks, ntasks_x, ntasks_y, &
59 ids, ide, jds, jde, kds, kde, &
60 ims, ime, jms, jme, kms, kme, &
61 ips, ipe, jps, jpe, kps, kpe )
62 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
63 mytask, ntasks, ntasks_x, ntasks_y, &
64 ids, ide, jds, jde, kds, kde, &
65 ims, ime, jms, jme, kms, kme, &
66 ips, ipe, jps, jpe, kps, kpe )
67 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
68 mytask, ntasks, ntasks_x, ntasks_y, &
69 ids, ide, jds, jde, kds, kde, &
70 ims, ime, jms, jme, kms, kme, &
71 ips, ipe, jps, jpe, kps, kpe )
72 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
73 mytask, ntasks, ntasks_x, ntasks_y, &
74 ids, ide, jds, jde, kds, kde, &
75 ims, ime, jms, jme, kms, kme, &
76 ips, ipe, jps, jpe, kps, kpe )
77 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
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 ( local_communicator, grid%em_t_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
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 ( local_communicator, grid%a_t_2, 4, RWORDSIZE, 0, 0, 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 ( local_communicator, grid%g_t_2, 4, RWORDSIZE, 0, 0, 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 ( local_communicator, grid%em_mu_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
98 mytask, ntasks, ntasks_x, ntasks_y, &
99 ids, ide, jds, jde, 1 , 1 , &
100 ims, ime, jms, jme, 1 , 1 , &
101 ips, ipe, jps, jpe, 1 , 1 )
102 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
103 mytask, ntasks, ntasks_x, ntasks_y, &
104 ids, ide, jds, jde, 1 , 1 , &
105 ims, ime, jms, jme, 1 , 1 , &
106 ips, ipe, jps, jpe, 1 , 1 )
107 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
108 mytask, ntasks, ntasks_x, ntasks_y, &
109 ids, ide, jds, jde, 1 , 1 , &
110 ims, ime, jms, jme, 1 , 1 , &
111 ips, ipe, jps, jpe, 1 , 1 )
112 DO itrace = PARAM_FIRST_SCALAR, num_moist
113 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
114 mytask, ntasks, ntasks_x, ntasks_y, &
115 ids, ide, jds, jde, kds, kde, &
116 ims, ime, jms, jme, kms, kme, &
117 ips, ipe, jps, jpe, kps, kpe )
118 ENDDO
119 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
120 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, 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 ENDDO
126 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
127 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
128 mytask, ntasks, ntasks_x, ntasks_y, &
129 ids, ide, jds, jde, kds, kde, &
130 ims, ime, jms, jme, kms, kme, &
131 ips, ipe, jps, jpe, kps, kpe )
132 ENDDO
133 DO itrace = PARAM_FIRST_SCALAR, num_scalar
134 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
135 mytask, ntasks, ntasks_x, ntasks_y, &
136 ids, ide, jds, jde, kds, kde, &
137 ims, ime, jms, jme, kms, kme, &
138 ips, ipe, jps, jpe, kps, kpe )
139 ENDDO
140 CALL RSL_LITE_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
141 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
142 mytask, ntasks, ntasks_x, ntasks_y, &
143 ids, ide, jds, jde, kds, kde, &
144 ims, ime, jms, jme, kms, kme, &
145 ips, ipe, jps, jpe, kps, kpe )
146 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 4, 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 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 4, RWORDSIZE, 0, 1, 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 ( local_communicator, grid%em_v_2, 4, RWORDSIZE, 0, 1, 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 ( local_communicator, grid%a_v_2, 4, RWORDSIZE, 0, 1, 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 ( local_communicator, grid%g_v_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
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 ( local_communicator, grid%em_w_2, 4, RWORDSIZE, 0, 1, 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 ( local_communicator, grid%a_w_2, 4, RWORDSIZE, 0, 1, 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 ( local_communicator, grid%g_w_2, 4, RWORDSIZE, 0, 1, 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 ( local_communicator, grid%em_ph_2, 4, RWORDSIZE, 0, 1, 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 ( local_communicator, grid%a_ph_2, 4, RWORDSIZE, 0, 1, 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%g_ph_2, 4, RWORDSIZE, 0, 1, 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_t_2, 4, RWORDSIZE, 0, 1, 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%a_t_2, 4, RWORDSIZE, 0, 1, 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%g_t_2, 4, RWORDSIZE, 0, 1, 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_mu_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
217 mytask, ntasks, ntasks_x, ntasks_y, &
218 ids, ide, jds, jde, 1 , 1 , &
219 ims, ime, jms, jme, 1 , 1 , &
220 ips, ipe, jps, jpe, 1 , 1 )
221 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
222 mytask, ntasks, ntasks_x, ntasks_y, &
223 ids, ide, jds, jde, 1 , 1 , &
224 ims, ime, jms, jme, 1 , 1 , &
225 ips, ipe, jps, jpe, 1 , 1 )
226 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
227 mytask, ntasks, ntasks_x, ntasks_y, &
228 ids, ide, jds, jde, 1 , 1 , &
229 ims, ime, jms, jme, 1 , 1 , &
230 ips, ipe, jps, jpe, 1 , 1 )
231 DO itrace = PARAM_FIRST_SCALAR, num_moist
232 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, 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 ENDDO
238 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
239 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, 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 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
246 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
247 mytask, ntasks, ntasks_x, ntasks_y, &
248 ids, ide, jds, jde, kds, kde, &
249 ims, ime, jms, jme, kms, kme, &
250 ips, ipe, jps, jpe, kps, kpe )
251 ENDDO
252 DO itrace = PARAM_FIRST_SCALAR, num_scalar
253 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
254 mytask, ntasks, ntasks_x, ntasks_y, &
255 ids, ide, jds, jde, kds, kde, &
256 ims, ime, jms, jme, kms, kme, &
257 ips, ipe, jps, jpe, kps, kpe )
258 ENDDO
259 CALL RSL_LITE_INIT_EXCH ( local_communicator, 4 , &
260 15 &
261 + num_moist &
262 + num_a_moist &
263 + num_g_moist &
264 + num_scalar &
265 , 3, RWORDSIZE, &
266 0, 0, IWORDSIZE, &
267 0, 0, DWORDSIZE, &
268 0, 0, LWORDSIZE, &
269 mytask, ntasks, ntasks_x, ntasks_y, &
270 ips, ipe, jps, jpe, kps, MAX(1,1&
271 ,kpe &
272 ))
273 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
274 mytask, ntasks, ntasks_x, ntasks_y, &
275 ids, ide, jds, jde, kds, kde, &
276 ims, ime, jms, jme, kms, kme, &
277 ips, ipe, jps, jpe, kps, kpe )
278 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
279 mytask, ntasks, ntasks_x, ntasks_y, &
280 ids, ide, jds, jde, kds, kde, &
281 ims, ime, jms, jme, kms, kme, &
282 ips, ipe, jps, jpe, kps, kpe )
283 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
284 mytask, ntasks, ntasks_x, ntasks_y, &
285 ids, ide, jds, jde, kds, kde, &
286 ims, ime, jms, jme, kms, kme, &
287 ips, ipe, jps, jpe, kps, kpe )
288 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
289 mytask, ntasks, ntasks_x, ntasks_y, &
290 ids, ide, jds, jde, kds, kde, &
291 ims, ime, jms, jme, kms, kme, &
292 ips, ipe, jps, jpe, kps, kpe )
293 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
294 mytask, ntasks, ntasks_x, ntasks_y, &
295 ids, ide, jds, jde, kds, kde, &
296 ims, ime, jms, jme, kms, kme, &
297 ips, ipe, jps, jpe, kps, kpe )
298 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
299 mytask, ntasks, ntasks_x, ntasks_y, &
300 ids, ide, jds, jde, kds, kde, &
301 ims, ime, jms, jme, kms, kme, &
302 ips, ipe, jps, jpe, kps, kpe )
303 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
304 mytask, ntasks, ntasks_x, ntasks_y, &
305 ids, ide, jds, jde, kds, kde, &
306 ims, ime, jms, jme, kms, kme, &
307 ips, ipe, jps, jpe, kps, kpe )
308 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
309 mytask, ntasks, ntasks_x, ntasks_y, &
310 ids, ide, jds, jde, kds, kde, &
311 ims, ime, jms, jme, kms, kme, &
312 ips, ipe, jps, jpe, kps, kpe )
313 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
314 mytask, ntasks, ntasks_x, ntasks_y, &
315 ids, ide, jds, jde, kds, kde, &
316 ims, ime, jms, jme, kms, kme, &
317 ips, ipe, jps, jpe, kps, kpe )
318 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
319 mytask, ntasks, ntasks_x, ntasks_y, &
320 ids, ide, jds, jde, kds, kde, &
321 ims, ime, jms, jme, kms, kme, &
322 ips, ipe, jps, jpe, kps, kpe )
323 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
324 mytask, ntasks, ntasks_x, ntasks_y, &
325 ids, ide, jds, jde, kds, kde, &
326 ims, ime, jms, jme, kms, kme, &
327 ips, ipe, jps, jpe, kps, kpe )
328 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
329 mytask, ntasks, ntasks_x, ntasks_y, &
330 ids, ide, jds, jde, kds, kde, &
331 ims, ime, jms, jme, kms, kme, &
332 ips, ipe, jps, jpe, kps, kpe )
333 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
334 mytask, ntasks, ntasks_x, ntasks_y, &
335 ids, ide, jds, jde, kds, kde, &
336 ims, ime, jms, jme, kms, kme, &
337 ips, ipe, jps, jpe, kps, kpe )
338 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
339 mytask, ntasks, ntasks_x, ntasks_y, &
340 ids, ide, jds, jde, kds, kde, &
341 ims, ime, jms, jme, kms, kme, &
342 ips, ipe, jps, jpe, kps, kpe )
343 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
344 mytask, ntasks, ntasks_x, ntasks_y, &
345 ids, ide, jds, jde, kds, kde, &
346 ims, ime, jms, jme, kms, kme, &
347 ips, ipe, jps, jpe, kps, kpe )
348 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
349 mytask, ntasks, ntasks_x, ntasks_y, &
350 ids, ide, jds, jde, 1 , 1 , &
351 ims, ime, jms, jme, 1 , 1 , &
352 ips, ipe, jps, jpe, 1 , 1 )
353 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
354 mytask, ntasks, ntasks_x, ntasks_y, &
355 ids, ide, jds, jde, 1 , 1 , &
356 ims, ime, jms, jme, 1 , 1 , &
357 ips, ipe, jps, jpe, 1 , 1 )
358 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
359 mytask, ntasks, ntasks_x, ntasks_y, &
360 ids, ide, jds, jde, 1 , 1 , &
361 ims, ime, jms, jme, 1 , 1 , &
362 ips, ipe, jps, jpe, 1 , 1 )
363 DO itrace = PARAM_FIRST_SCALAR, num_moist
364 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
365 mytask, ntasks, ntasks_x, ntasks_y, &
366 ids, ide, jds, jde, kds, kde, &
367 ims, ime, jms, jme, kms, kme, &
368 ips, ipe, jps, jpe, kps, kpe )
369 ENDDO
370 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
371 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
372 mytask, ntasks, ntasks_x, ntasks_y, &
373 ids, ide, jds, jde, kds, kde, &
374 ims, ime, jms, jme, kms, kme, &
375 ips, ipe, jps, jpe, kps, kpe )
376 ENDDO
377 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
378 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
379 mytask, ntasks, ntasks_x, ntasks_y, &
380 ids, ide, jds, jde, kds, kde, &
381 ims, ime, jms, jme, kms, kme, &
382 ips, ipe, jps, jpe, kps, kpe )
383 ENDDO
384 DO itrace = PARAM_FIRST_SCALAR, num_scalar
385 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
386 mytask, ntasks, ntasks_x, ntasks_y, &
387 ids, ide, jds, jde, kds, kde, &
388 ims, ime, jms, jme, kms, kme, &
389 ips, ipe, jps, jpe, kps, kpe )
390 ENDDO
391 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
392 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
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 ( local_communicator, grid%a_u_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
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 ( local_communicator, grid%g_u_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
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 ( local_communicator, grid%em_v_2, 4, RWORDSIZE, 1, 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 ( local_communicator, grid%a_v_2, 4, RWORDSIZE, 1, 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 ( local_communicator, grid%g_v_2, 4, RWORDSIZE, 1, 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 ( local_communicator, grid%em_w_2, 4, RWORDSIZE, 1, 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 ( local_communicator, grid%a_w_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
428 mytask, ntasks, ntasks_x, ntasks_y, &
429 ids, ide, jds, jde, kds, kde, &
430 ims, ime, jms, jme, kms, kme, &
431 ips, ipe, jps, jpe, kps, kpe )
432 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
433 mytask, ntasks, ntasks_x, ntasks_y, &
434 ids, ide, jds, jde, kds, kde, &
435 ims, ime, jms, jme, kms, kme, &
436 ips, ipe, jps, jpe, kps, kpe )
437 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
438 mytask, ntasks, ntasks_x, ntasks_y, &
439 ids, ide, jds, jde, kds, kde, &
440 ims, ime, jms, jme, kms, kme, &
441 ips, ipe, jps, jpe, kps, kpe )
442 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
443 mytask, ntasks, ntasks_x, ntasks_y, &
444 ids, ide, jds, jde, kds, kde, &
445 ims, ime, jms, jme, kms, kme, &
446 ips, ipe, jps, jpe, kps, kpe )
447 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
448 mytask, ntasks, ntasks_x, ntasks_y, &
449 ids, ide, jds, jde, kds, kde, &
450 ims, ime, jms, jme, kms, kme, &
451 ips, ipe, jps, jpe, kps, kpe )
452 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
453 mytask, ntasks, ntasks_x, ntasks_y, &
454 ids, ide, jds, jde, kds, kde, &
455 ims, ime, jms, jme, kms, kme, &
456 ips, ipe, jps, jpe, kps, kpe )
457 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
458 mytask, ntasks, ntasks_x, ntasks_y, &
459 ids, ide, jds, jde, kds, kde, &
460 ims, ime, jms, jme, kms, kme, &
461 ips, ipe, jps, jpe, kps, kpe )
462 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
463 mytask, ntasks, ntasks_x, ntasks_y, &
464 ids, ide, jds, jde, kds, kde, &
465 ims, ime, jms, jme, kms, kme, &
466 ips, ipe, jps, jpe, kps, kpe )
467 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 4, RWORDSIZE, 1, 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 ( local_communicator, grid%a_mu_2, 4, RWORDSIZE, 1, 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 ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 1, 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 DO itrace = PARAM_FIRST_SCALAR, num_moist
483 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
484 mytask, ntasks, ntasks_x, ntasks_y, &
485 ids, ide, jds, jde, kds, kde, &
486 ims, ime, jms, jme, kms, kme, &
487 ips, ipe, jps, jpe, kps, kpe )
488 ENDDO
489 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
490 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
491 mytask, ntasks, ntasks_x, ntasks_y, &
492 ids, ide, jds, jde, kds, kde, &
493 ims, ime, jms, jme, kms, kme, &
494 ips, ipe, jps, jpe, kps, kpe )
495 ENDDO
496 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
497 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
498 mytask, ntasks, ntasks_x, ntasks_y, &
499 ids, ide, jds, jde, kds, kde, &
500 ims, ime, jms, jme, kms, kme, &
501 ips, ipe, jps, jpe, kps, kpe )
502 ENDDO
503 DO itrace = PARAM_FIRST_SCALAR, num_scalar
504 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
505 mytask, ntasks, ntasks_x, ntasks_y, &
506 ids, ide, jds, jde, kds, kde, &
507 ims, ime, jms, jme, kms, kme, &
508 ips, ipe, jps, jpe, kps, kpe )
509 ENDDO
510 !ENDOFREGISTRYGENERATEDINCLUDE