HALO_EM_INTERP_SMOOTH_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_INTERP_SMOOTH_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_INTERP_SMOOTH_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 4, &
9 16 &
10 + num_moist &
11 + num_a_moist &
12 + num_g_moist &
13 + num_scalar &
14 , 5, 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_phb, 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%em_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%a_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%g_t_2, 4, RWORDSIZE, 0, 0, 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 ( local_communicator, grid%em_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%a_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 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
113 mytask, ntasks, ntasks_x, ntasks_y, &
114 ids, ide, jds, jde, 1 , 1 , &
115 ims, ime, jms, jme, 1 , 1 , &
116 ips, ipe, jps, jpe, 1 , 1 )
117 CALL RSL_LITE_PACK ( local_communicator, grid%em_mub, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
118 mytask, ntasks, ntasks_x, ntasks_y, &
119 ids, ide, jds, jde, 1 , 1 , &
120 ims, ime, jms, jme, 1 , 1 , &
121 ips, ipe, jps, jpe, 1 , 1 )
122 DO itrace = PARAM_FIRST_SCALAR, num_moist
123 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
124 mytask, ntasks, ntasks_x, ntasks_y, &
125 ids, ide, jds, jde, kds, kde, &
126 ims, ime, jms, jme, kms, kme, &
127 ips, ipe, jps, jpe, kps, kpe )
128 ENDDO
129 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
130 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, 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 ENDDO
136 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
137 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
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 ENDDO
143 DO itrace = PARAM_FIRST_SCALAR, num_scalar
144 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
145 mytask, ntasks, ntasks_x, ntasks_y, &
146 ids, ide, jds, jde, kds, kde, &
147 ims, ime, jms, jme, kms, kme, &
148 ips, ipe, jps, jpe, kps, kpe )
149 ENDDO
150 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
151 mytask, ntasks, ntasks_x, ntasks_y, &
152 ids, ide, jds, jde, 1 , 1 , &
153 ims, ime, jms, jme, 1 , 1 , &
154 ips, ipe, jps, jpe, 1 , 1 )
155 CALL RSL_LITE_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
156 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
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_u_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
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_u_2, 4, RWORDSIZE, 0, 1, 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 ( local_communicator, grid%em_v_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
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_v_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
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_v_2, 4, RWORDSIZE, 0, 1, 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_w_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_w_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_w_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_ph_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_ph_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_ph_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_phb, 4, RWORDSIZE, 0, 1, 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_t_2, 4, RWORDSIZE, 0, 1, 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%a_t_2, 4, RWORDSIZE, 0, 1, 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 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
232 mytask, ntasks, ntasks_x, ntasks_y, &
233 ids, ide, jds, jde, kds, kde, &
234 ims, ime, jms, jme, kms, kme, &
235 ips, ipe, jps, jpe, kps, kpe )
236 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
237 mytask, ntasks, ntasks_x, ntasks_y, &
238 ids, ide, jds, jde, 1 , 1 , &
239 ims, ime, jms, jme, 1 , 1 , &
240 ips, ipe, jps, jpe, 1 , 1 )
241 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
242 mytask, ntasks, ntasks_x, ntasks_y, &
243 ids, ide, jds, jde, 1 , 1 , &
244 ims, ime, jms, jme, 1 , 1 , &
245 ips, ipe, jps, jpe, 1 , 1 )
246 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
247 mytask, ntasks, ntasks_x, ntasks_y, &
248 ids, ide, jds, jde, 1 , 1 , &
249 ims, ime, jms, jme, 1 , 1 , &
250 ips, ipe, jps, jpe, 1 , 1 )
251 CALL RSL_LITE_PACK ( local_communicator, grid%em_mub, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
252 mytask, ntasks, ntasks_x, ntasks_y, &
253 ids, ide, jds, jde, 1 , 1 , &
254 ims, ime, jms, jme, 1 , 1 , &
255 ips, ipe, jps, jpe, 1 , 1 )
256 DO itrace = PARAM_FIRST_SCALAR, num_moist
257 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
258 mytask, ntasks, ntasks_x, ntasks_y, &
259 ids, ide, jds, jde, kds, kde, &
260 ims, ime, jms, jme, kms, kme, &
261 ips, ipe, jps, jpe, kps, kpe )
262 ENDDO
263 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
264 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
265 mytask, ntasks, ntasks_x, ntasks_y, &
266 ids, ide, jds, jde, kds, kde, &
267 ims, ime, jms, jme, kms, kme, &
268 ips, ipe, jps, jpe, kps, kpe )
269 ENDDO
270 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
271 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 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 ENDDO
277 DO itrace = PARAM_FIRST_SCALAR, num_scalar
278 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
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 ENDDO
284 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
285 mytask, ntasks, ntasks_x, ntasks_y, &
286 ids, ide, jds, jde, 1 , 1 , &
287 ims, ime, jms, jme, 1 , 1 , &
288 ips, ipe, jps, jpe, 1 , 1 )
289 CALL RSL_LITE_INIT_EXCH ( local_communicator, 4 , &
290 16 &
291 + num_moist &
292 + num_a_moist &
293 + num_g_moist &
294 + num_scalar &
295 , 5, RWORDSIZE, &
296 0, 0, IWORDSIZE, &
297 0, 0, DWORDSIZE, &
298 0, 0, LWORDSIZE, &
299 mytask, ntasks, ntasks_x, ntasks_y, &
300 ips, ipe, jps, jpe, kps, MAX(1,1&
301 ,kpe &
302 ))
303 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
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_u_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
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_u_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
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_v_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_v_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_v_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_w_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_w_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_w_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_ph_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
349 mytask, ntasks, ntasks_x, ntasks_y, &
350 ids, ide, jds, jde, kds, kde, &
351 ims, ime, jms, jme, kms, kme, &
352 ips, ipe, jps, jpe, kps, kpe )
353 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
354 mytask, ntasks, ntasks_x, ntasks_y, &
355 ids, ide, jds, jde, kds, kde, &
356 ims, ime, jms, jme, kms, kme, &
357 ips, ipe, jps, jpe, kps, kpe )
358 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
359 mytask, ntasks, ntasks_x, ntasks_y, &
360 ids, ide, jds, jde, kds, kde, &
361 ims, ime, jms, jme, kms, kme, &
362 ips, ipe, jps, jpe, kps, kpe )
363 CALL RSL_LITE_PACK ( local_communicator, grid%em_phb, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
364 mytask, ntasks, ntasks_x, ntasks_y, &
365 ids, ide, jds, jde, kds, kde, &
366 ims, ime, jms, jme, kms, kme, &
367 ips, ipe, jps, jpe, kps, kpe )
368 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
369 mytask, ntasks, ntasks_x, ntasks_y, &
370 ids, ide, jds, jde, kds, kde, &
371 ims, ime, jms, jme, kms, kme, &
372 ips, ipe, jps, jpe, kps, kpe )
373 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
374 mytask, ntasks, ntasks_x, ntasks_y, &
375 ids, ide, jds, jde, kds, kde, &
376 ims, ime, jms, jme, kms, kme, &
377 ips, ipe, jps, jpe, kps, kpe )
378 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 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 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
384 mytask, ntasks, ntasks_x, ntasks_y, &
385 ids, ide, jds, jde, 1 , 1 , &
386 ims, ime, jms, jme, 1 , 1 , &
387 ips, ipe, jps, jpe, 1 , 1 )
388 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
389 mytask, ntasks, ntasks_x, ntasks_y, &
390 ids, ide, jds, jde, 1 , 1 , &
391 ims, ime, jms, jme, 1 , 1 , &
392 ips, ipe, jps, jpe, 1 , 1 )
393 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
394 mytask, ntasks, ntasks_x, ntasks_y, &
395 ids, ide, jds, jde, 1 , 1 , &
396 ims, ime, jms, jme, 1 , 1 , &
397 ips, ipe, jps, jpe, 1 , 1 )
398 CALL RSL_LITE_PACK ( local_communicator, grid%em_mub, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
399 mytask, ntasks, ntasks_x, ntasks_y, &
400 ids, ide, jds, jde, 1 , 1 , &
401 ims, ime, jms, jme, 1 , 1 , &
402 ips, ipe, jps, jpe, 1 , 1 )
403 DO itrace = PARAM_FIRST_SCALAR, num_moist
404 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
405 mytask, ntasks, ntasks_x, ntasks_y, &
406 ids, ide, jds, jde, kds, kde, &
407 ims, ime, jms, jme, kms, kme, &
408 ips, ipe, jps, jpe, kps, kpe )
409 ENDDO
410 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
411 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
412 mytask, ntasks, ntasks_x, ntasks_y, &
413 ids, ide, jds, jde, kds, kde, &
414 ims, ime, jms, jme, kms, kme, &
415 ips, ipe, jps, jpe, kps, kpe )
416 ENDDO
417 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
418 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
419 mytask, ntasks, ntasks_x, ntasks_y, &
420 ids, ide, jds, jde, kds, kde, &
421 ims, ime, jms, jme, kms, kme, &
422 ips, ipe, jps, jpe, kps, kpe )
423 ENDDO
424 DO itrace = PARAM_FIRST_SCALAR, num_scalar
425 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
426 mytask, ntasks, ntasks_x, ntasks_y, &
427 ids, ide, jds, jde, kds, kde, &
428 ims, ime, jms, jme, kms, kme, &
429 ips, ipe, jps, jpe, kps, kpe )
430 ENDDO
431 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
432 mytask, ntasks, ntasks_x, ntasks_y, &
433 ids, ide, jds, jde, 1 , 1 , &
434 ims, ime, jms, jme, 1 , 1 , &
435 ips, ipe, jps, jpe, 1 , 1 )
436 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
437 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
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_u_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
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_u_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
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_v_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_v_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_v_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_w_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
468 mytask, ntasks, ntasks_x, ntasks_y, &
469 ids, ide, jds, jde, kds, kde, &
470 ims, ime, jms, jme, kms, kme, &
471 ips, ipe, jps, jpe, kps, kpe )
472 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
473 mytask, ntasks, ntasks_x, ntasks_y, &
474 ids, ide, jds, jde, kds, kde, &
475 ims, ime, jms, jme, kms, kme, &
476 ips, ipe, jps, jpe, kps, kpe )
477 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
478 mytask, ntasks, ntasks_x, ntasks_y, &
479 ids, ide, jds, jde, kds, kde, &
480 ims, ime, jms, jme, kms, kme, &
481 ips, ipe, jps, jpe, kps, kpe )
482 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
483 mytask, ntasks, ntasks_x, ntasks_y, &
484 ids, ide, jds, jde, kds, kde, &
485 ims, ime, jms, jme, kms, kme, &
486 ips, ipe, jps, jpe, kps, kpe )
487 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
488 mytask, ntasks, ntasks_x, ntasks_y, &
489 ids, ide, jds, jde, kds, kde, &
490 ims, ime, jms, jme, kms, kme, &
491 ips, ipe, jps, jpe, kps, kpe )
492 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
493 mytask, ntasks, ntasks_x, ntasks_y, &
494 ids, ide, jds, jde, kds, kde, &
495 ims, ime, jms, jme, kms, kme, &
496 ips, ipe, jps, jpe, kps, kpe )
497 CALL RSL_LITE_PACK ( local_communicator, grid%em_phb, 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 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
503 mytask, ntasks, ntasks_x, ntasks_y, &
504 ids, ide, jds, jde, kds, kde, &
505 ims, ime, jms, jme, kms, kme, &
506 ips, ipe, jps, jpe, kps, kpe )
507 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
508 mytask, ntasks, ntasks_x, ntasks_y, &
509 ids, ide, jds, jde, kds, kde, &
510 ims, ime, jms, jme, kms, kme, &
511 ips, ipe, jps, jpe, kps, kpe )
512 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
513 mytask, ntasks, ntasks_x, ntasks_y, &
514 ids, ide, jds, jde, kds, kde, &
515 ims, ime, jms, jme, kms, kme, &
516 ips, ipe, jps, jpe, kps, kpe )
517 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
518 mytask, ntasks, ntasks_x, ntasks_y, &
519 ids, ide, jds, jde, 1 , 1 , &
520 ims, ime, jms, jme, 1 , 1 , &
521 ips, ipe, jps, jpe, 1 , 1 )
522 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
523 mytask, ntasks, ntasks_x, ntasks_y, &
524 ids, ide, jds, jde, 1 , 1 , &
525 ims, ime, jms, jme, 1 , 1 , &
526 ips, ipe, jps, jpe, 1 , 1 )
527 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
528 mytask, ntasks, ntasks_x, ntasks_y, &
529 ids, ide, jds, jde, 1 , 1 , &
530 ims, ime, jms, jme, 1 , 1 , &
531 ips, ipe, jps, jpe, 1 , 1 )
532 CALL RSL_LITE_PACK ( local_communicator, grid%em_mub, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
533 mytask, ntasks, ntasks_x, ntasks_y, &
534 ids, ide, jds, jde, 1 , 1 , &
535 ims, ime, jms, jme, 1 , 1 , &
536 ips, ipe, jps, jpe, 1 , 1 )
537 DO itrace = PARAM_FIRST_SCALAR, num_moist
538 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
539 mytask, ntasks, ntasks_x, ntasks_y, &
540 ids, ide, jds, jde, kds, kde, &
541 ims, ime, jms, jme, kms, kme, &
542 ips, ipe, jps, jpe, kps, kpe )
543 ENDDO
544 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
545 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
546 mytask, ntasks, ntasks_x, ntasks_y, &
547 ids, ide, jds, jde, kds, kde, &
548 ims, ime, jms, jme, kms, kme, &
549 ips, ipe, jps, jpe, kps, kpe )
550 ENDDO
551 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
552 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
553 mytask, ntasks, ntasks_x, ntasks_y, &
554 ids, ide, jds, jde, kds, kde, &
555 ims, ime, jms, jme, kms, kme, &
556 ips, ipe, jps, jpe, kps, kpe )
557 ENDDO
558 DO itrace = PARAM_FIRST_SCALAR, num_scalar
559 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
560 mytask, ntasks, ntasks_x, ntasks_y, &
561 ids, ide, jds, jde, kds, kde, &
562 ims, ime, jms, jme, kms, kme, &
563 ips, ipe, jps, jpe, kps, kpe )
564 ENDDO
565 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
566 mytask, ntasks, ntasks_x, ntasks_y, &
567 ids, ide, jds, jde, 1 , 1 , &
568 ims, ime, jms, jme, 1 , 1 , &
569 ips, ipe, jps, jpe, 1 , 1 )
570 !ENDOFREGISTRYGENERATEDINCLUDE