HALO_NODYN_FORCE_DOWN_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_NODYN_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_NODYN_FORCE_DOWN_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 , 2, 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_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
111 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
112 mytask, ntasks, ntasks_x, ntasks_y, &
113 ids, ide, jds, jde, kds, kde, &
114 ims, ime, jms, jme, kms, kme, &
115 ips, ipe, jps, jpe, kps, kpe )
116 CALL RSL_LITE_PACK ( local_communicator, grid%g_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%a_v_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
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%g_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%a_w_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
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%g_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%a_ph_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%g_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%a_t_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%g_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%a_mu_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
162 mytask, ntasks, ntasks_x, ntasks_y, &
163 ids, ide, jds, jde, 1 , 1 , &
164 ims, ime, jms, jme, 1 , 1 , &
165 ips, ipe, jps, jpe, 1 , 1 )
166 CALL RSL_LITE_PACK ( local_communicator, grid%g_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 DO itrace = PARAM_FIRST_SCALAR, num_moist
172 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 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 ENDDO
178 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
179 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
180 mytask, ntasks, ntasks_x, ntasks_y, &
181 ids, ide, jds, jde, kds, kde, &
182 ims, ime, jms, jme, kms, kme, &
183 ips, ipe, jps, jpe, kps, kpe )
184 ENDDO
185 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
186 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 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 ENDDO
192 DO itrace = PARAM_FIRST_SCALAR, num_scalar
193 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
194 mytask, ntasks, ntasks_x, ntasks_y, &
195 ids, ide, jds, jde, kds, kde, &
196 ims, ime, jms, jme, kms, kme, &
197 ips, ipe, jps, jpe, kps, kpe )
198 ENDDO
199 CALL RSL_LITE_INIT_EXCH ( local_communicator, 4 , &
200 10 &
201 + num_moist &
202 + num_a_moist &
203 + num_g_moist &
204 + num_scalar &
205 , 2, RWORDSIZE, &
206 0, 0, IWORDSIZE, &
207 0, 0, DWORDSIZE, &
208 0, 0, LWORDSIZE, &
209 mytask, ntasks, ntasks_x, ntasks_y, &
210 ips, ipe, jps, jpe, kps, MAX(1,1&
211 ,kpe &
212 ))
213 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
214 mytask, ntasks, ntasks_x, ntasks_y, &
215 ids, ide, jds, jde, kds, kde, &
216 ims, ime, jms, jme, kms, kme, &
217 ips, ipe, jps, jpe, kps, kpe )
218 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
219 mytask, ntasks, ntasks_x, ntasks_y, &
220 ids, ide, jds, jde, kds, kde, &
221 ims, ime, jms, jme, kms, kme, &
222 ips, ipe, jps, jpe, kps, kpe )
223 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
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_v_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
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_w_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_w_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_ph_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_ph_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_t_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_t_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_mu_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
264 mytask, ntasks, ntasks_x, ntasks_y, &
265 ids, ide, jds, jde, 1 , 1 , &
266 ims, ime, jms, jme, 1 , 1 , &
267 ips, ipe, jps, jpe, 1 , 1 )
268 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
269 mytask, ntasks, ntasks_x, ntasks_y, &
270 ids, ide, jds, jde, 1 , 1 , &
271 ims, ime, jms, jme, 1 , 1 , &
272 ips, ipe, jps, jpe, 1 , 1 )
273 DO itrace = PARAM_FIRST_SCALAR, num_moist
274 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
275 mytask, ntasks, ntasks_x, ntasks_y, &
276 ids, ide, jds, jde, kds, kde, &
277 ims, ime, jms, jme, kms, kme, &
278 ips, ipe, jps, jpe, kps, kpe )
279 ENDDO
280 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
281 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 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 ENDDO
287 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
288 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 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 ENDDO
294 DO itrace = PARAM_FIRST_SCALAR, num_scalar
295 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
296 mytask, ntasks, ntasks_x, ntasks_y, &
297 ids, ide, jds, jde, kds, kde, &
298 ims, ime, jms, jme, kms, kme, &
299 ips, ipe, jps, jpe, kps, kpe )
300 ENDDO
301 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
302 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
303 mytask, ntasks, ntasks_x, ntasks_y, &
304 ids, ide, jds, jde, kds, kde, &
305 ims, ime, jms, jme, kms, kme, &
306 ips, ipe, jps, jpe, kps, kpe )
307 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
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 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
313 mytask, ntasks, ntasks_x, ntasks_y, &
314 ids, ide, jds, jde, kds, kde, &
315 ims, ime, jms, jme, kms, kme, &
316 ips, ipe, jps, jpe, kps, kpe )
317 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
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%a_w_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
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%g_w_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%a_ph_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%g_ph_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%a_t_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%g_t_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%a_mu_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
353 mytask, ntasks, ntasks_x, ntasks_y, &
354 ids, ide, jds, jde, 1 , 1 , &
355 ims, ime, jms, jme, 1 , 1 , &
356 ips, ipe, jps, jpe, 1 , 1 )
357 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
358 mytask, ntasks, ntasks_x, ntasks_y, &
359 ids, ide, jds, jde, 1 , 1 , &
360 ims, ime, jms, jme, 1 , 1 , &
361 ips, ipe, jps, jpe, 1 , 1 )
362 DO itrace = PARAM_FIRST_SCALAR, num_moist
363 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, 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 ENDDO
369 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
370 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
371 mytask, ntasks, ntasks_x, ntasks_y, &
372 ids, ide, jds, jde, kds, kde, &
373 ims, ime, jms, jme, kms, kme, &
374 ips, ipe, jps, jpe, kps, kpe )
375 ENDDO
376 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
377 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 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 ENDDO
383 DO itrace = PARAM_FIRST_SCALAR, num_scalar
384 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
385 mytask, ntasks, ntasks_x, ntasks_y, &
386 ids, ide, jds, jde, kds, kde, &
387 ims, ime, jms, jme, kms, kme, &
388 ips, ipe, jps, jpe, kps, kpe )
389 ENDDO
390 !ENDOFREGISTRYGENERATEDINCLUDE