HALO_NODYN_INTERP_SMOOTH_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_NODYN_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_NODYN_INTERP_SMOOTH_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 4, &
9 10 &
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%a_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%g_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%a_v_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
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%g_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_w_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
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_w_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
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%a_ph_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%g_ph_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%a_t_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%g_t_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_mu_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
73 mytask, ntasks, ntasks_x, ntasks_y, &
74 ids, ide, jds, jde, 1 , 1 , &
75 ims, ime, jms, jme, 1 , 1 , &
76 ips, ipe, jps, jpe, 1 , 1 )
77 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
78 mytask, ntasks, ntasks_x, ntasks_y, &
79 ids, ide, jds, jde, 1 , 1 , &
80 ims, ime, jms, jme, 1 , 1 , &
81 ips, ipe, jps, jpe, 1 , 1 )
82 DO itrace = PARAM_FIRST_SCALAR, num_moist
83 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
84 mytask, ntasks, ntasks_x, ntasks_y, &
85 ids, ide, jds, jde, kds, kde, &
86 ims, ime, jms, jme, kms, kme, &
87 ips, ipe, jps, jpe, kps, kpe )
88 ENDDO
89 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
90 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
91 mytask, ntasks, ntasks_x, ntasks_y, &
92 ids, ide, jds, jde, kds, kde, &
93 ims, ime, jms, jme, kms, kme, &
94 ips, ipe, jps, jpe, kps, kpe )
95 ENDDO
96 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
97 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 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 ENDDO
103 DO itrace = PARAM_FIRST_SCALAR, num_scalar
104 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
105 mytask, ntasks, ntasks_x, ntasks_y, &
106 ids, ide, jds, jde, kds, kde, &
107 ims, ime, jms, jme, kms, kme, &
108 ips, ipe, jps, jpe, kps, kpe )
109 ENDDO
110 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
111 mytask, ntasks, ntasks_x, ntasks_y, &
112 ids, ide, jds, jde, 1 , 1 , &
113 ims, ime, jms, jme, 1 , 1 , &
114 ips, ipe, jps, jpe, 1 , 1 )
115 CALL RSL_LITE_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
116 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
117 mytask, ntasks, ntasks_x, ntasks_y, &
118 ids, ide, jds, jde, kds, kde, &
119 ims, ime, jms, jme, kms, kme, &
120 ips, ipe, jps, jpe, kps, kpe )
121 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
122 mytask, ntasks, ntasks_x, ntasks_y, &
123 ids, ide, jds, jde, kds, kde, &
124 ims, ime, jms, jme, kms, kme, &
125 ips, ipe, jps, jpe, kps, kpe )
126 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
127 mytask, ntasks, ntasks_x, ntasks_y, &
128 ids, ide, jds, jde, kds, kde, &
129 ims, ime, jms, jme, kms, kme, &
130 ips, ipe, jps, jpe, kps, kpe )
131 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
132 mytask, ntasks, ntasks_x, ntasks_y, &
133 ids, ide, jds, jde, kds, kde, &
134 ims, ime, jms, jme, kms, kme, &
135 ips, ipe, jps, jpe, kps, kpe )
136 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
137 mytask, ntasks, ntasks_x, ntasks_y, &
138 ids, ide, jds, jde, kds, kde, &
139 ims, ime, jms, jme, kms, kme, &
140 ips, ipe, jps, jpe, kps, kpe )
141 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_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_ph_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_ph_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%a_t_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%g_t_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%a_mu_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
167 mytask, ntasks, ntasks_x, ntasks_y, &
168 ids, ide, jds, jde, 1 , 1 , &
169 ims, ime, jms, jme, 1 , 1 , &
170 ips, ipe, jps, jpe, 1 , 1 )
171 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
172 mytask, ntasks, ntasks_x, ntasks_y, &
173 ids, ide, jds, jde, 1 , 1 , &
174 ims, ime, jms, jme, 1 , 1 , &
175 ips, ipe, jps, jpe, 1 , 1 )
176 DO itrace = PARAM_FIRST_SCALAR, num_moist
177 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 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 ENDDO
183 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
184 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
185 mytask, ntasks, ntasks_x, ntasks_y, &
186 ids, ide, jds, jde, kds, kde, &
187 ims, ime, jms, jme, kms, kme, &
188 ips, ipe, jps, jpe, kps, kpe )
189 ENDDO
190 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
191 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 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 ENDDO
197 DO itrace = PARAM_FIRST_SCALAR, num_scalar
198 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
199 mytask, ntasks, ntasks_x, ntasks_y, &
200 ids, ide, jds, jde, kds, kde, &
201 ims, ime, jms, jme, kms, kme, &
202 ips, ipe, jps, jpe, kps, kpe )
203 ENDDO
204 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
205 mytask, ntasks, ntasks_x, ntasks_y, &
206 ids, ide, jds, jde, 1 , 1 , &
207 ims, ime, jms, jme, 1 , 1 , &
208 ips, ipe, jps, jpe, 1 , 1 )
209 CALL RSL_LITE_INIT_EXCH ( local_communicator, 4 , &
210 10 &
211 + num_moist &
212 + num_a_moist &
213 + num_g_moist &
214 + num_scalar &
215 , 3, RWORDSIZE, &
216 0, 0, IWORDSIZE, &
217 0, 0, DWORDSIZE, &
218 0, 0, LWORDSIZE, &
219 mytask, ntasks, ntasks_x, ntasks_y, &
220 ips, ipe, jps, jpe, kps, MAX(1,1&
221 ,kpe &
222 ))
223 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
224 mytask, ntasks, ntasks_x, ntasks_y, &
225 ids, ide, jds, jde, kds, kde, &
226 ims, ime, jms, jme, kms, kme, &
227 ips, ipe, jps, jpe, kps, kpe )
228 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
229 mytask, ntasks, ntasks_x, ntasks_y, &
230 ids, ide, jds, jde, kds, kde, &
231 ims, ime, jms, jme, kms, kme, &
232 ips, ipe, jps, jpe, kps, kpe )
233 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
234 mytask, ntasks, ntasks_x, ntasks_y, &
235 ids, ide, jds, jde, kds, kde, &
236 ims, ime, jms, jme, kms, kme, &
237 ips, ipe, jps, jpe, kps, kpe )
238 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
239 mytask, ntasks, ntasks_x, ntasks_y, &
240 ids, ide, jds, jde, kds, kde, &
241 ims, ime, jms, jme, kms, kme, &
242 ips, ipe, jps, jpe, kps, kpe )
243 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
244 mytask, ntasks, ntasks_x, ntasks_y, &
245 ids, ide, jds, jde, kds, kde, &
246 ims, ime, jms, jme, kms, kme, &
247 ips, ipe, jps, jpe, kps, kpe )
248 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
249 mytask, ntasks, ntasks_x, ntasks_y, &
250 ids, ide, jds, jde, kds, kde, &
251 ims, ime, jms, jme, kms, kme, &
252 ips, ipe, jps, jpe, kps, kpe )
253 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 4, RWORDSIZE, 1, 0, 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 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
259 mytask, ntasks, ntasks_x, ntasks_y, &
260 ids, ide, jds, jde, kds, kde, &
261 ims, ime, jms, jme, kms, kme, &
262 ips, ipe, jps, jpe, kps, kpe )
263 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
264 mytask, ntasks, ntasks_x, ntasks_y, &
265 ids, ide, jds, jde, kds, kde, &
266 ims, ime, jms, jme, kms, kme, &
267 ips, ipe, jps, jpe, kps, kpe )
268 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
269 mytask, ntasks, ntasks_x, ntasks_y, &
270 ids, ide, jds, jde, kds, kde, &
271 ims, ime, jms, jme, kms, kme, &
272 ips, ipe, jps, jpe, kps, kpe )
273 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
274 mytask, ntasks, ntasks_x, ntasks_y, &
275 ids, ide, jds, jde, 1 , 1 , &
276 ims, ime, jms, jme, 1 , 1 , &
277 ips, ipe, jps, jpe, 1 , 1 )
278 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
279 mytask, ntasks, ntasks_x, ntasks_y, &
280 ids, ide, jds, jde, 1 , 1 , &
281 ims, ime, jms, jme, 1 , 1 , &
282 ips, ipe, jps, jpe, 1 , 1 )
283 DO itrace = PARAM_FIRST_SCALAR, num_moist
284 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
285 mytask, ntasks, ntasks_x, ntasks_y, &
286 ids, ide, jds, jde, kds, kde, &
287 ims, ime, jms, jme, kms, kme, &
288 ips, ipe, jps, jpe, kps, kpe )
289 ENDDO
290 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
291 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 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 ENDDO
297 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
298 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 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 ENDDO
304 DO itrace = PARAM_FIRST_SCALAR, num_scalar
305 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
306 mytask, ntasks, ntasks_x, ntasks_y, &
307 ids, ide, jds, jde, kds, kde, &
308 ims, ime, jms, jme, kms, kme, &
309 ips, ipe, jps, jpe, kps, kpe )
310 ENDDO
311 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 4, RWORDSIZE, 1, 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_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
317 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
318 mytask, ntasks, ntasks_x, ntasks_y, &
319 ids, ide, jds, jde, kds, kde, &
320 ims, ime, jms, jme, kms, kme, &
321 ips, ipe, jps, jpe, kps, kpe )
322 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
323 mytask, ntasks, ntasks_x, ntasks_y, &
324 ids, ide, jds, jde, kds, kde, &
325 ims, ime, jms, jme, kms, kme, &
326 ips, ipe, jps, jpe, kps, kpe )
327 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
328 mytask, ntasks, ntasks_x, ntasks_y, &
329 ids, ide, jds, jde, kds, kde, &
330 ims, ime, jms, jme, kms, kme, &
331 ips, ipe, jps, jpe, kps, kpe )
332 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
333 mytask, ntasks, ntasks_x, ntasks_y, &
334 ids, ide, jds, jde, kds, kde, &
335 ims, ime, jms, jme, kms, kme, &
336 ips, ipe, jps, jpe, kps, kpe )
337 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
338 mytask, ntasks, ntasks_x, ntasks_y, &
339 ids, ide, jds, jde, kds, kde, &
340 ims, ime, jms, jme, kms, kme, &
341 ips, ipe, jps, jpe, kps, kpe )
342 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
343 mytask, ntasks, ntasks_x, ntasks_y, &
344 ids, ide, jds, jde, kds, kde, &
345 ims, ime, jms, jme, kms, kme, &
346 ips, ipe, jps, jpe, kps, kpe )
347 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
348 mytask, ntasks, ntasks_x, ntasks_y, &
349 ids, ide, jds, jde, kds, kde, &
350 ims, ime, jms, jme, kms, kme, &
351 ips, ipe, jps, jpe, kps, kpe )
352 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
353 mytask, ntasks, ntasks_x, ntasks_y, &
354 ids, ide, jds, jde, kds, kde, &
355 ims, ime, jms, jme, kms, kme, &
356 ips, ipe, jps, jpe, kps, kpe )
357 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
358 mytask, ntasks, ntasks_x, ntasks_y, &
359 ids, ide, jds, jde, kds, kde, &
360 ims, ime, jms, jme, kms, kme, &
361 ips, ipe, jps, jpe, kps, kpe )
362 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
363 mytask, ntasks, ntasks_x, ntasks_y, &
364 ids, ide, jds, jde, kds, kde, &
365 ims, ime, jms, jme, kms, kme, &
366 ips, ipe, jps, jpe, kps, kpe )
367 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
368 mytask, ntasks, ntasks_x, ntasks_y, &
369 ids, ide, jds, jde, 1 , 1 , &
370 ims, ime, jms, jme, 1 , 1 , &
371 ips, ipe, jps, jpe, 1 , 1 )
372 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
373 mytask, ntasks, ntasks_x, ntasks_y, &
374 ids, ide, jds, jde, 1 , 1 , &
375 ims, ime, jms, jme, 1 , 1 , &
376 ips, ipe, jps, jpe, 1 , 1 )
377 DO itrace = PARAM_FIRST_SCALAR, num_moist
378 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, 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_a_moist
385 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, 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 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
392 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 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 ENDDO
398 DO itrace = PARAM_FIRST_SCALAR, num_scalar
399 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
400 mytask, ntasks, ntasks_x, ntasks_y, &
401 ids, ide, jds, jde, kds, kde, &
402 ims, ime, jms, jme, kms, kme, &
403 ips, ipe, jps, jpe, kps, kpe )
404 ENDDO
405 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
406 mytask, ntasks, ntasks_x, ntasks_y, &
407 ids, ide, jds, jde, 1 , 1 , &
408 ims, ime, jms, jme, 1 , 1 , &
409 ips, ipe, jps, jpe, 1 , 1 )
410 !ENDOFREGISTRYGENERATEDINCLUDE