nodyn_shift_halo_y.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/nodyn_shift_halo_y.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/nodyn_shift_halo_y.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3, &
9 33 &
10 + num_moist &
11 + num_a_moist &
12 + num_g_moist &
13 + num_scalar &
14 + num_a_scalar &
15 + num_g_scalar &
16 , 67, RWORDSIZE, &
17 0, 8, IWORDSIZE, &
18 0, 0, DWORDSIZE, &
19 0, 0, LWORDSIZE, &
20 mytask, ntasks, ntasks_x, ntasks_y, &
21 ips, ipe, jps, jpe, kps, MAX(1,1&
22 ,kpe &
23 ,config_flags%num_soil_layers &
24 ))
25 CALL RSL_LITE_PACK ( local_communicator, grid%lu_index, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
26 mytask, ntasks, ntasks_x, ntasks_y, &
27 ids, ide, jds, jde, 1 , 1 , &
28 ims, ime, jms, jme, 1 , 1 , &
29 ips, ipe, jps, jpe, 1 , 1 )
30 CALL RSL_LITE_PACK ( local_communicator, grid%lu_mask, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
31 mytask, ntasks, ntasks_x, ntasks_y, &
32 ids, ide, jds, jde, 1 , 1 , &
33 ims, ime, jms, jme, 1 , 1 , &
34 ips, ipe, jps, jpe, 1 , 1 )
35 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
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%a_u_2, 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%g_u_1, 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%g_u_2, 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%a_v_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
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%a_v_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
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%g_v_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
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 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
71 mytask, ntasks, ntasks_x, ntasks_y, &
72 ids, ide, jds, jde, kds, kde, &
73 ims, ime, jms, jme, kms, kme, &
74 ips, ipe, jps, jpe, kps, kpe )
75 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
76 mytask, ntasks, ntasks_x, ntasks_y, &
77 ids, ide, jds, jde, kds, kde, &
78 ims, ime, jms, jme, kms, kme, &
79 ips, ipe, jps, jpe, kps, kpe )
80 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
81 mytask, ntasks, ntasks_x, ntasks_y, &
82 ids, ide, jds, jde, kds, kde, &
83 ims, ime, jms, jme, kms, kme, &
84 ips, ipe, jps, jpe, kps, kpe )
85 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
86 mytask, ntasks, ntasks_x, ntasks_y, &
87 ids, ide, jds, jde, kds, kde, &
88 ims, ime, jms, jme, kms, kme, &
89 ips, ipe, jps, jpe, kps, kpe )
90 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 3, 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 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_1, 3, RWORDSIZE, 0, 0, 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%a_ph_2, 3, RWORDSIZE, 0, 0, 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%g_ph_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
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%g_ph_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
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%a_t_1, 3, RWORDSIZE, 0, 0, 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%a_t_2, 3, 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 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_1, 3, RWORDSIZE, 0, 0, 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%g_t_2, 3, 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 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
136 mytask, ntasks, ntasks_x, ntasks_y, &
137 ids, ide, jds, jde, 1 , 1 , &
138 ims, ime, jms, jme, 1 , 1 , &
139 ips, ipe, jps, jpe, 1 , 1 )
140 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
141 mytask, ntasks, ntasks_x, ntasks_y, &
142 ids, ide, jds, jde, 1 , 1 , &
143 ims, ime, jms, jme, 1 , 1 , &
144 ips, ipe, jps, jpe, 1 , 1 )
145 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
146 mytask, ntasks, ntasks_x, ntasks_y, &
147 ids, ide, jds, jde, 1 , 1 , &
148 ims, ime, jms, jme, 1 , 1 , &
149 ips, ipe, jps, jpe, 1 , 1 )
150 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 3, 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_PACK ( local_communicator, grid%nest_pos, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
156 mytask, ntasks, ntasks_x, ntasks_y, &
157 ids, ide, jds, jde, 1 , 1 , &
158 ims, ime, jms, jme, 1 , 1 , &
159 ips, ipe, jps, jpe, 1 , 1 )
160 CALL RSL_LITE_PACK ( local_communicator, grid%nest_mask, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
161 mytask, ntasks, ntasks_x, ntasks_y, &
162 ids, ide, jds, jde, 1 , 1 , &
163 ims, ime, jms, jme, 1 , 1 , &
164 ips, ipe, jps, jpe, 1 , 1 )
165 CALL RSL_LITE_PACK ( local_communicator, grid%ht_coarse, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
166 mytask, ntasks, ntasks_x, ntasks_y, &
167 ids, ide, jds, jde, 1 , 1 , &
168 ims, ime, jms, jme, 1 , 1 , &
169 ips, ipe, jps, jpe, 1 , 1 )
170 CALL RSL_LITE_PACK ( local_communicator, grid%a_z, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
171 mytask, ntasks, ntasks_x, ntasks_y, &
172 ids, ide, jds, jde, kds, kde, &
173 ims, ime, jms, jme, kms, kme, &
174 ips, ipe, jps, jpe, kps, kpe )
175 CALL RSL_LITE_PACK ( local_communicator, grid%g_z, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
176 mytask, ntasks, ntasks_x, ntasks_y, &
177 ids, ide, jds, jde, kds, kde, &
178 ims, ime, jms, jme, kms, kme, &
179 ips, ipe, jps, jpe, kps, kpe )
180 CALL RSL_LITE_PACK ( local_communicator, grid%q2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
181 mytask, ntasks, ntasks_x, ntasks_y, &
182 ids, ide, jds, jde, 1 , 1 , &
183 ims, ime, jms, jme, 1 , 1 , &
184 ips, ipe, jps, jpe, 1 , 1 )
185 CALL RSL_LITE_PACK ( local_communicator, grid%t2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
186 mytask, ntasks, ntasks_x, ntasks_y, &
187 ids, ide, jds, jde, 1 , 1 , &
188 ims, ime, jms, jme, 1 , 1 , &
189 ips, ipe, jps, jpe, 1 , 1 )
190 CALL RSL_LITE_PACK ( local_communicator, grid%th2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
191 mytask, ntasks, ntasks_x, ntasks_y, &
192 ids, ide, jds, jde, 1 , 1 , &
193 ims, ime, jms, jme, 1 , 1 , &
194 ips, ipe, jps, jpe, 1 , 1 )
195 CALL RSL_LITE_PACK ( local_communicator, grid%psfc, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
196 mytask, ntasks, ntasks_x, ntasks_y, &
197 ids, ide, jds, jde, 1 , 1 , &
198 ims, ime, jms, jme, 1 , 1 , &
199 ips, ipe, jps, jpe, 1 , 1 )
200 CALL RSL_LITE_PACK ( local_communicator, grid%u10, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
201 mytask, ntasks, ntasks_x, ntasks_y, &
202 ids, ide, jds, jde, 1 , 1 , &
203 ims, ime, jms, jme, 1 , 1 , &
204 ips, ipe, jps, jpe, 1 , 1 )
205 CALL RSL_LITE_PACK ( local_communicator, grid%v10, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
206 mytask, ntasks, ntasks_x, ntasks_y, &
207 ids, ide, jds, jde, 1 , 1 , &
208 ims, ime, jms, jme, 1 , 1 , &
209 ips, ipe, jps, jpe, 1 , 1 )
210 CALL RSL_LITE_PACK ( local_communicator, grid%uratx, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
211 mytask, ntasks, ntasks_x, ntasks_y, &
212 ids, ide, jds, jde, 1 , 1 , &
213 ims, ime, jms, jme, 1 , 1 , &
214 ips, ipe, jps, jpe, 1 , 1 )
215 CALL RSL_LITE_PACK ( local_communicator, grid%vratx, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
216 mytask, ntasks, ntasks_x, ntasks_y, &
217 ids, ide, jds, jde, 1 , 1 , &
218 ims, ime, jms, jme, 1 , 1 , &
219 ips, ipe, jps, jpe, 1 , 1 )
220 CALL RSL_LITE_PACK ( local_communicator, grid%tratx, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
221 mytask, ntasks, ntasks_x, ntasks_y, &
222 ids, ide, jds, jde, 1 , 1 , &
223 ims, ime, jms, jme, 1 , 1 , &
224 ips, ipe, jps, jpe, 1 , 1 )
225 CALL RSL_LITE_PACK ( local_communicator, grid%imask_nostag, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
226 mytask, ntasks, ntasks_x, ntasks_y, &
227 ids, ide, jds, jde, 1 , 1 , &
228 ims, ime, jms, jme, 1 , 1 , &
229 ips, ipe, jps, jpe, 1 , 1 )
230 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xstag, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
231 mytask, ntasks, ntasks_x, ntasks_y, &
232 ids, ide, jds, jde, 1 , 1 , &
233 ims, ime, jms, jme, 1 , 1 , &
234 ips, ipe, jps, jpe, 1 , 1 )
235 CALL RSL_LITE_PACK ( local_communicator, grid%imask_ystag, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 1, &
236 mytask, ntasks, ntasks_x, ntasks_y, &
237 ids, ide, jds, jde, 1 , 1 , &
238 ims, ime, jms, jme, 1 , 1 , &
239 ips, ipe, jps, jpe, 1 , 1 )
240 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xystag, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 1, &
241 mytask, ntasks, ntasks_x, ntasks_y, &
242 ids, ide, jds, jde, 1 , 1 , &
243 ims, ime, jms, jme, 1 , 1 , &
244 ips, ipe, jps, jpe, 1 , 1 )
245 DO itrace = PARAM_FIRST_SCALAR, num_moist
246 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 0, 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_a_moist
253 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 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 ENDDO
259 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
260 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
261 mytask, ntasks, ntasks_x, ntasks_y, &
262 ids, ide, jds, jde, kds, kde, &
263 ims, ime, jms, jme, kms, kme, &
264 ips, ipe, jps, jpe, kps, kpe )
265 ENDDO
266 DO itrace = PARAM_FIRST_SCALAR, num_scalar
267 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
268 mytask, ntasks, ntasks_x, ntasks_y, &
269 ids, ide, jds, jde, kds, kde, &
270 ims, ime, jms, jme, kms, kme, &
271 ips, ipe, jps, jpe, kps, kpe )
272 ENDDO
273 DO itrace = PARAM_FIRST_SCALAR, num_a_scalar
274 CALL RSL_LITE_PACK ( local_communicator,a_scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 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_g_scalar
281 CALL RSL_LITE_PACK ( local_communicator,g_scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 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 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
288 mytask, ntasks, ntasks_x, ntasks_y, &
289 ids, ide, jds, jde, 1 , 1 , &
290 ims, ime, jms, jme, 1 , 1 , &
291 ips, ipe, jps, jpe, 1 , 1 )
292 CALL RSL_LITE_PACK ( local_communicator, grid%shdmax, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
293 mytask, ntasks, ntasks_x, ntasks_y, &
294 ids, ide, jds, jde, 1 , 1 , &
295 ims, ime, jms, jme, 1 , 1 , &
296 ips, ipe, jps, jpe, 1 , 1 )
297 CALL RSL_LITE_PACK ( local_communicator, grid%shdmin, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
298 mytask, ntasks, ntasks_x, ntasks_y, &
299 ids, ide, jds, jde, 1 , 1 , &
300 ims, ime, jms, jme, 1 , 1 , &
301 ips, ipe, jps, jpe, 1 , 1 )
302 CALL RSL_LITE_PACK ( local_communicator, grid%snoalb, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
303 mytask, ntasks, ntasks_x, ntasks_y, &
304 ids, ide, jds, jde, 1 , 1 , &
305 ims, ime, jms, jme, 1 , 1 , &
306 ips, ipe, jps, jpe, 1 , 1 )
307 CALL RSL_LITE_PACK ( local_communicator, grid%tslb, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
308 mytask, ntasks, ntasks_x, ntasks_y, &
309 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
310 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
311 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
312 CALL RSL_LITE_PACK ( local_communicator, grid%smois, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
313 mytask, ntasks, ntasks_x, ntasks_y, &
314 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
315 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
316 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
317 CALL RSL_LITE_PACK ( local_communicator, grid%sh2o, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
318 mytask, ntasks, ntasks_x, ntasks_y, &
319 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
320 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
321 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
322 CALL RSL_LITE_PACK ( local_communicator, grid%xice, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
323 mytask, ntasks, ntasks_x, ntasks_y, &
324 ids, ide, jds, jde, 1 , 1 , &
325 ims, ime, jms, jme, 1 , 1 , &
326 ips, ipe, jps, jpe, 1 , 1 )
327 CALL RSL_LITE_PACK ( local_communicator, grid%sfcrunoff, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
328 mytask, ntasks, ntasks_x, ntasks_y, &
329 ids, ide, jds, jde, 1 , 1 , &
330 ims, ime, jms, jme, 1 , 1 , &
331 ips, ipe, jps, jpe, 1 , 1 )
332 CALL RSL_LITE_PACK ( local_communicator, grid%udrunoff, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
333 mytask, ntasks, ntasks_x, ntasks_y, &
334 ids, ide, jds, jde, 1 , 1 , &
335 ims, ime, jms, jme, 1 , 1 , &
336 ips, ipe, jps, jpe, 1 , 1 )
337 CALL RSL_LITE_PACK ( local_communicator, grid%ivgtyp, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
338 mytask, ntasks, ntasks_x, ntasks_y, &
339 ids, ide, jds, jde, 1 , 1 , &
340 ims, ime, jms, jme, 1 , 1 , &
341 ips, ipe, jps, jpe, 1 , 1 )
342 CALL RSL_LITE_PACK ( local_communicator, grid%isltyp, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
343 mytask, ntasks, ntasks_x, ntasks_y, &
344 ids, ide, jds, jde, 1 , 1 , &
345 ims, ime, jms, jme, 1 , 1 , &
346 ips, ipe, jps, jpe, 1 , 1 )
347 CALL RSL_LITE_PACK ( local_communicator, grid%vegfra, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
348 mytask, ntasks, ntasks_x, ntasks_y, &
349 ids, ide, jds, jde, 1 , 1 , &
350 ims, ime, jms, jme, 1 , 1 , &
351 ips, ipe, jps, jpe, 1 , 1 )
352 CALL RSL_LITE_PACK ( local_communicator, grid%sfcevp, 3, RWORDSIZE, 0, 0, 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%acsnow, 3, RWORDSIZE, 0, 0, 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 CALL RSL_LITE_PACK ( local_communicator, grid%acsnom, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
363 mytask, ntasks, ntasks_x, ntasks_y, &
364 ids, ide, jds, jde, 1 , 1 , &
365 ims, ime, jms, jme, 1 , 1 , &
366 ips, ipe, jps, jpe, 1 , 1 )
367 CALL RSL_LITE_PACK ( local_communicator, grid%snow, 3, RWORDSIZE, 0, 0, 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%snowh, 3, RWORDSIZE, 0, 0, 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 CALL RSL_LITE_PACK ( local_communicator, grid%rhosn, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
378 mytask, ntasks, ntasks_x, ntasks_y, &
379 ids, ide, jds, jde, 1 , 1 , &
380 ims, ime, jms, jme, 1 , 1 , &
381 ips, ipe, jps, jpe, 1 , 1 )
382 CALL RSL_LITE_PACK ( local_communicator, grid%canwat, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
383 mytask, ntasks, ntasks_x, ntasks_y, &
384 ids, ide, jds, jde, 1 , 1 , &
385 ims, ime, jms, jme, 1 , 1 , &
386 ips, ipe, jps, jpe, 1 , 1 )
387 CALL RSL_LITE_PACK ( local_communicator, grid%sst, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
388 mytask, ntasks, ntasks_x, ntasks_y, &
389 ids, ide, jds, jde, 1 , 1 , &
390 ims, ime, jms, jme, 1 , 1 , &
391 ips, ipe, jps, jpe, 1 , 1 )
392 CALL RSL_LITE_PACK ( local_communicator, grid%htop, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
393 mytask, ntasks, ntasks_x, ntasks_y, &
394 ids, ide, jds, jde, 1 , 1 , &
395 ims, ime, jms, jme, 1 , 1 , &
396 ips, ipe, jps, jpe, 1 , 1 )
397 CALL RSL_LITE_PACK ( local_communicator, grid%hbot, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
398 mytask, ntasks, ntasks_x, ntasks_y, &
399 ids, ide, jds, jde, 1 , 1 , &
400 ims, ime, jms, jme, 1 , 1 , &
401 ips, ipe, jps, jpe, 1 , 1 )
402 CALL RSL_LITE_PACK ( local_communicator, grid%cuppt, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
403 mytask, ntasks, ntasks_x, ntasks_y, &
404 ids, ide, jds, jde, 1 , 1 , &
405 ims, ime, jms, jme, 1 , 1 , &
406 ips, ipe, jps, jpe, 1 , 1 )
407 CALL RSL_LITE_PACK ( local_communicator, grid%rswtoa, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
408 mytask, ntasks, ntasks_x, ntasks_y, &
409 ids, ide, jds, jde, 1 , 1 , &
410 ims, ime, jms, jme, 1 , 1 , &
411 ips, ipe, jps, jpe, 1 , 1 )
412 CALL RSL_LITE_PACK ( local_communicator, grid%rlwtoa, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
413 mytask, ntasks, ntasks_x, ntasks_y, &
414 ids, ide, jds, jde, 1 , 1 , &
415 ims, ime, jms, jme, 1 , 1 , &
416 ips, ipe, jps, jpe, 1 , 1 )
417 CALL RSL_LITE_PACK ( local_communicator, grid%czmean, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
418 mytask, ntasks, ntasks_x, ntasks_y, &
419 ids, ide, jds, jde, 1 , 1 , &
420 ims, ime, jms, jme, 1 , 1 , &
421 ips, ipe, jps, jpe, 1 , 1 )
422 CALL RSL_LITE_PACK ( local_communicator, grid%cfracl, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
423 mytask, ntasks, ntasks_x, ntasks_y, &
424 ids, ide, jds, jde, 1 , 1 , &
425 ims, ime, jms, jme, 1 , 1 , &
426 ips, ipe, jps, jpe, 1 , 1 )
427 CALL RSL_LITE_PACK ( local_communicator, grid%cfracm, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
428 mytask, ntasks, ntasks_x, ntasks_y, &
429 ids, ide, jds, jde, 1 , 1 , &
430 ims, ime, jms, jme, 1 , 1 , &
431 ips, ipe, jps, jpe, 1 , 1 )
432 CALL RSL_LITE_PACK ( local_communicator, grid%cfrach, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
433 mytask, ntasks, ntasks_x, ntasks_y, &
434 ids, ide, jds, jde, 1 , 1 , &
435 ims, ime, jms, jme, 1 , 1 , &
436 ips, ipe, jps, jpe, 1 , 1 )
437 CALL RSL_LITE_PACK ( local_communicator, grid%acfrst, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
438 mytask, ntasks, ntasks_x, ntasks_y, &
439 ids, ide, jds, jde, 1 , 1 , &
440 ims, ime, jms, jme, 1 , 1 , &
441 ips, ipe, jps, jpe, 1 , 1 )
442 CALL RSL_LITE_PACK ( local_communicator, grid%ncfrst, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
443 mytask, ntasks, ntasks_x, ntasks_y, &
444 ids, ide, jds, jde, 1 , 1 , &
445 ims, ime, jms, jme, 1 , 1 , &
446 ips, ipe, jps, jpe, 1 , 1 )
447 CALL RSL_LITE_PACK ( local_communicator, grid%acfrcv, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
448 mytask, ntasks, ntasks_x, ntasks_y, &
449 ids, ide, jds, jde, 1 , 1 , &
450 ims, ime, jms, jme, 1 , 1 , &
451 ips, ipe, jps, jpe, 1 , 1 )
452 CALL RSL_LITE_PACK ( local_communicator, grid%ncfrcv, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
453 mytask, ntasks, ntasks_x, ntasks_y, &
454 ids, ide, jds, jde, 1 , 1 , &
455 ims, ime, jms, jme, 1 , 1 , &
456 ips, ipe, jps, jpe, 1 , 1 )
457 CALL RSL_LITE_PACK ( local_communicator, grid%h_diabatic, 3, RWORDSIZE, 0, 0, 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%msft, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
463 mytask, ntasks, ntasks_x, ntasks_y, &
464 ids, ide, jds, jde, 1 , 1 , &
465 ims, ime, jms, jme, 1 , 1 , &
466 ips, ipe, jps, jpe, 1 , 1 )
467 CALL RSL_LITE_PACK ( local_communicator, grid%msfu, 3, RWORDSIZE, 0, 0, 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%msfv, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 1, &
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%f, 3, RWORDSIZE, 0, 0, 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 CALL RSL_LITE_PACK ( local_communicator, grid%e, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
483 mytask, ntasks, ntasks_x, ntasks_y, &
484 ids, ide, jds, jde, 1 , 1 , &
485 ims, ime, jms, jme, 1 , 1 , &
486 ips, ipe, jps, jpe, 1 , 1 )
487 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
488 mytask, ntasks, ntasks_x, ntasks_y, &
489 ids, ide, jds, jde, 1 , 1 , &
490 ims, ime, jms, jme, 1 , 1 , &
491 ips, ipe, jps, jpe, 1 , 1 )
492 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
493 mytask, ntasks, ntasks_x, ntasks_y, &
494 ids, ide, jds, jde, 1 , 1 , &
495 ims, ime, jms, jme, 1 , 1 , &
496 ips, ipe, jps, jpe, 1 , 1 )
497 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
498 mytask, ntasks, ntasks_x, ntasks_y, &
499 ids, ide, jds, jde, 1 , 1 , &
500 ims, ime, jms, jme, 1 , 1 , &
501 ips, ipe, jps, jpe, 1 , 1 )
502 CALL RSL_LITE_PACK ( local_communicator, grid%ht_fine, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
503 mytask, ntasks, ntasks_x, ntasks_y, &
504 ids, ide, jds, jde, 1 , 1 , &
505 ims, ime, jms, jme, 1 , 1 , &
506 ips, ipe, jps, jpe, 1 , 1 )
507 CALL RSL_LITE_PACK ( local_communicator, grid%ht_int, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
508 mytask, ntasks, ntasks_x, ntasks_y, &
509 ids, ide, jds, jde, 1 , 1 , &
510 ims, ime, jms, jme, 1 , 1 , &
511 ips, ipe, jps, jpe, 1 , 1 )
512 CALL RSL_LITE_PACK ( local_communicator, grid%ht_input, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
513 mytask, ntasks, ntasks_x, ntasks_y, &
514 ids, ide, jds, jde, 1 , 1 , &
515 ims, ime, jms, jme, 1 , 1 , &
516 ips, ipe, jps, jpe, 1 , 1 )
517 CALL RSL_LITE_PACK ( local_communicator, grid%tsk, 3, RWORDSIZE, 0, 0, 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%tsk_save, 3, RWORDSIZE, 0, 0, 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%rainc, 3, RWORDSIZE, 0, 0, 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%rainnc, 3, RWORDSIZE, 0, 0, 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 CALL RSL_LITE_PACK ( local_communicator, grid%xlat, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
538 mytask, ntasks, ntasks_x, ntasks_y, &
539 ids, ide, jds, jde, 1 , 1 , &
540 ims, ime, jms, jme, 1 , 1 , &
541 ips, ipe, jps, jpe, 1 , 1 )
542 CALL RSL_LITE_PACK ( local_communicator, grid%xlong, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
543 mytask, ntasks, ntasks_x, ntasks_y, &
544 ids, ide, jds, jde, 1 , 1 , &
545 ims, ime, jms, jme, 1 , 1 , &
546 ips, ipe, jps, jpe, 1 , 1 )
547 CALL RSL_LITE_PACK ( local_communicator, grid%albbck, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
548 mytask, ntasks, ntasks_x, ntasks_y, &
549 ids, ide, jds, jde, 1 , 1 , &
550 ims, ime, jms, jme, 1 , 1 , &
551 ips, ipe, jps, jpe, 1 , 1 )
552 CALL RSL_LITE_PACK ( local_communicator, grid%tmn, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
553 mytask, ntasks, ntasks_x, ntasks_y, &
554 ids, ide, jds, jde, 1 , 1 , &
555 ims, ime, jms, jme, 1 , 1 , &
556 ips, ipe, jps, jpe, 1 , 1 )
557 CALL RSL_LITE_PACK ( local_communicator, grid%xland, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
558 mytask, ntasks, ntasks_x, ntasks_y, &
559 ids, ide, jds, jde, 1 , 1 , &
560 ims, ime, jms, jme, 1 , 1 , &
561 ips, ipe, jps, jpe, 1 , 1 )
562 CALL RSL_LITE_PACK ( local_communicator, grid%znt, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
563 mytask, ntasks, ntasks_x, ntasks_y, &
564 ids, ide, jds, jde, 1 , 1 , &
565 ims, ime, jms, jme, 1 , 1 , &
566 ips, ipe, jps, jpe, 1 , 1 )
567 CALL RSL_LITE_PACK ( local_communicator, grid%snowc, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
568 mytask, ntasks, ntasks_x, ntasks_y, &
569 ids, ide, jds, jde, 1 , 1 , &
570 ims, ime, jms, jme, 1 , 1 , &
571 ips, ipe, jps, jpe, 1 , 1 )
572 CALL RSL_LITE_PACK ( local_communicator, grid%xkmv, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
573 mytask, ntasks, ntasks_x, ntasks_y, &
574 ids, ide, jds, jde, kds, kde, &
575 ims, ime, jms, jme, kms, kme, &
576 ips, ipe, jps, jpe, kps, kpe )
577 CALL RSL_LITE_PACK ( local_communicator, grid%xkmh, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
578 mytask, ntasks, ntasks_x, ntasks_y, &
579 ids, ide, jds, jde, kds, kde, &
580 ims, ime, jms, jme, kms, kme, &
581 ips, ipe, jps, jpe, kps, kpe )
582 CALL RSL_LITE_PACK ( local_communicator, grid%xkmhd, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
583 mytask, ntasks, ntasks_x, ntasks_y, &
584 ids, ide, jds, jde, kds, kde, &
585 ims, ime, jms, jme, kms, kme, &
586 ips, ipe, jps, jpe, kps, kpe )
587 CALL RSL_LITE_PACK ( local_communicator, grid%a_xkmhd, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
588 mytask, ntasks, ntasks_x, ntasks_y, &
589 ids, ide, jds, jde, kds, kde, &
590 ims, ime, jms, jme, kms, kme, &
591 ips, ipe, jps, jpe, kps, kpe )
592 CALL RSL_LITE_PACK ( local_communicator, grid%g_xkmhd, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
593 mytask, ntasks, ntasks_x, ntasks_y, &
594 ids, ide, jds, jde, kds, kde, &
595 ims, ime, jms, jme, kms, kme, &
596 ips, ipe, jps, jpe, kps, kpe )
597 CALL RSL_LITE_PACK ( local_communicator, grid%xkhv, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
598 mytask, ntasks, ntasks_x, ntasks_y, &
599 ids, ide, jds, jde, kds, kde, &
600 ims, ime, jms, jme, kms, kme, &
601 ips, ipe, jps, jpe, kps, kpe )
602 CALL RSL_LITE_PACK ( local_communicator, grid%xkhh, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
603 mytask, ntasks, ntasks_x, ntasks_y, &
604 ids, ide, jds, jde, kds, kde, &
605 ims, ime, jms, jme, kms, kme, &
606 ips, ipe, jps, jpe, kps, kpe )
607 CALL RSL_LITE_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
608 CALL RSL_LITE_PACK ( local_communicator, grid%lu_index, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
609 mytask, ntasks, ntasks_x, ntasks_y, &
610 ids, ide, jds, jde, 1 , 1 , &
611 ims, ime, jms, jme, 1 , 1 , &
612 ips, ipe, jps, jpe, 1 , 1 )
613 CALL RSL_LITE_PACK ( local_communicator, grid%lu_mask, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
614 mytask, ntasks, ntasks_x, ntasks_y, &
615 ids, ide, jds, jde, 1 , 1 , &
616 ims, ime, jms, jme, 1 , 1 , &
617 ips, ipe, jps, jpe, 1 , 1 )
618 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
619 mytask, ntasks, ntasks_x, ntasks_y, &
620 ids, ide, jds, jde, kds, kde, &
621 ims, ime, jms, jme, kms, kme, &
622 ips, ipe, jps, jpe, kps, kpe )
623 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
624 mytask, ntasks, ntasks_x, ntasks_y, &
625 ids, ide, jds, jde, kds, kde, &
626 ims, ime, jms, jme, kms, kme, &
627 ips, ipe, jps, jpe, kps, kpe )
628 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
629 mytask, ntasks, ntasks_x, ntasks_y, &
630 ids, ide, jds, jde, kds, kde, &
631 ims, ime, jms, jme, kms, kme, &
632 ips, ipe, jps, jpe, kps, kpe )
633 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
634 mytask, ntasks, ntasks_x, ntasks_y, &
635 ids, ide, jds, jde, kds, kde, &
636 ims, ime, jms, jme, kms, kme, &
637 ips, ipe, jps, jpe, kps, kpe )
638 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
639 mytask, ntasks, ntasks_x, ntasks_y, &
640 ids, ide, jds, jde, kds, kde, &
641 ims, ime, jms, jme, kms, kme, &
642 ips, ipe, jps, jpe, kps, kpe )
643 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
644 mytask, ntasks, ntasks_x, ntasks_y, &
645 ids, ide, jds, jde, kds, kde, &
646 ims, ime, jms, jme, kms, kme, &
647 ips, ipe, jps, jpe, kps, kpe )
648 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
649 mytask, ntasks, ntasks_x, ntasks_y, &
650 ids, ide, jds, jde, kds, kde, &
651 ims, ime, jms, jme, kms, kme, &
652 ips, ipe, jps, jpe, kps, kpe )
653 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
654 mytask, ntasks, ntasks_x, ntasks_y, &
655 ids, ide, jds, jde, kds, kde, &
656 ims, ime, jms, jme, kms, kme, &
657 ips, ipe, jps, jpe, kps, kpe )
658 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
659 mytask, ntasks, ntasks_x, ntasks_y, &
660 ids, ide, jds, jde, kds, kde, &
661 ims, ime, jms, jme, kms, kme, &
662 ips, ipe, jps, jpe, kps, kpe )
663 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
664 mytask, ntasks, ntasks_x, ntasks_y, &
665 ids, ide, jds, jde, kds, kde, &
666 ims, ime, jms, jme, kms, kme, &
667 ips, ipe, jps, jpe, kps, kpe )
668 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
669 mytask, ntasks, ntasks_x, ntasks_y, &
670 ids, ide, jds, jde, kds, kde, &
671 ims, ime, jms, jme, kms, kme, &
672 ips, ipe, jps, jpe, kps, kpe )
673 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
674 mytask, ntasks, ntasks_x, ntasks_y, &
675 ids, ide, jds, jde, kds, kde, &
676 ims, ime, jms, jme, kms, kme, &
677 ips, ipe, jps, jpe, kps, kpe )
678 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
679 mytask, ntasks, ntasks_x, ntasks_y, &
680 ids, ide, jds, jde, kds, kde, &
681 ims, ime, jms, jme, kms, kme, &
682 ips, ipe, jps, jpe, kps, kpe )
683 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
684 mytask, ntasks, ntasks_x, ntasks_y, &
685 ids, ide, jds, jde, kds, kde, &
686 ims, ime, jms, jme, kms, kme, &
687 ips, ipe, jps, jpe, kps, kpe )
688 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
689 mytask, ntasks, ntasks_x, ntasks_y, &
690 ids, ide, jds, jde, kds, kde, &
691 ims, ime, jms, jme, kms, kme, &
692 ips, ipe, jps, jpe, kps, kpe )
693 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
694 mytask, ntasks, ntasks_x, ntasks_y, &
695 ids, ide, jds, jde, kds, kde, &
696 ims, ime, jms, jme, kms, kme, &
697 ips, ipe, jps, jpe, kps, kpe )
698 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
699 mytask, ntasks, ntasks_x, ntasks_y, &
700 ids, ide, jds, jde, kds, kde, &
701 ims, ime, jms, jme, kms, kme, &
702 ips, ipe, jps, jpe, kps, kpe )
703 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
704 mytask, ntasks, ntasks_x, ntasks_y, &
705 ids, ide, jds, jde, kds, kde, &
706 ims, ime, jms, jme, kms, kme, &
707 ips, ipe, jps, jpe, kps, kpe )
708 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
709 mytask, ntasks, ntasks_x, ntasks_y, &
710 ids, ide, jds, jde, kds, kde, &
711 ims, ime, jms, jme, kms, kme, &
712 ips, ipe, jps, jpe, kps, kpe )
713 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
714 mytask, ntasks, ntasks_x, ntasks_y, &
715 ids, ide, jds, jde, kds, kde, &
716 ims, ime, jms, jme, kms, kme, &
717 ips, ipe, jps, jpe, kps, kpe )
718 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
719 mytask, ntasks, ntasks_x, ntasks_y, &
720 ids, ide, jds, jde, 1 , 1 , &
721 ims, ime, jms, jme, 1 , 1 , &
722 ips, ipe, jps, jpe, 1 , 1 )
723 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
724 mytask, ntasks, ntasks_x, ntasks_y, &
725 ids, ide, jds, jde, 1 , 1 , &
726 ims, ime, jms, jme, 1 , 1 , &
727 ips, ipe, jps, jpe, 1 , 1 )
728 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
729 mytask, ntasks, ntasks_x, ntasks_y, &
730 ids, ide, jds, jde, 1 , 1 , &
731 ims, ime, jms, jme, 1 , 1 , &
732 ips, ipe, jps, jpe, 1 , 1 )
733 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
734 mytask, ntasks, ntasks_x, ntasks_y, &
735 ids, ide, jds, jde, 1 , 1 , &
736 ims, ime, jms, jme, 1 , 1 , &
737 ips, ipe, jps, jpe, 1 , 1 )
738 CALL RSL_LITE_PACK ( local_communicator, grid%nest_pos, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
739 mytask, ntasks, ntasks_x, ntasks_y, &
740 ids, ide, jds, jde, 1 , 1 , &
741 ims, ime, jms, jme, 1 , 1 , &
742 ips, ipe, jps, jpe, 1 , 1 )
743 CALL RSL_LITE_PACK ( local_communicator, grid%nest_mask, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
744 mytask, ntasks, ntasks_x, ntasks_y, &
745 ids, ide, jds, jde, 1 , 1 , &
746 ims, ime, jms, jme, 1 , 1 , &
747 ips, ipe, jps, jpe, 1 , 1 )
748 CALL RSL_LITE_PACK ( local_communicator, grid%ht_coarse, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
749 mytask, ntasks, ntasks_x, ntasks_y, &
750 ids, ide, jds, jde, 1 , 1 , &
751 ims, ime, jms, jme, 1 , 1 , &
752 ips, ipe, jps, jpe, 1 , 1 )
753 CALL RSL_LITE_PACK ( local_communicator, grid%a_z, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
754 mytask, ntasks, ntasks_x, ntasks_y, &
755 ids, ide, jds, jde, kds, kde, &
756 ims, ime, jms, jme, kms, kme, &
757 ips, ipe, jps, jpe, kps, kpe )
758 CALL RSL_LITE_PACK ( local_communicator, grid%g_z, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
759 mytask, ntasks, ntasks_x, ntasks_y, &
760 ids, ide, jds, jde, kds, kde, &
761 ims, ime, jms, jme, kms, kme, &
762 ips, ipe, jps, jpe, kps, kpe )
763 CALL RSL_LITE_PACK ( local_communicator, grid%q2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
764 mytask, ntasks, ntasks_x, ntasks_y, &
765 ids, ide, jds, jde, 1 , 1 , &
766 ims, ime, jms, jme, 1 , 1 , &
767 ips, ipe, jps, jpe, 1 , 1 )
768 CALL RSL_LITE_PACK ( local_communicator, grid%t2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
769 mytask, ntasks, ntasks_x, ntasks_y, &
770 ids, ide, jds, jde, 1 , 1 , &
771 ims, ime, jms, jme, 1 , 1 , &
772 ips, ipe, jps, jpe, 1 , 1 )
773 CALL RSL_LITE_PACK ( local_communicator, grid%th2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
774 mytask, ntasks, ntasks_x, ntasks_y, &
775 ids, ide, jds, jde, 1 , 1 , &
776 ims, ime, jms, jme, 1 , 1 , &
777 ips, ipe, jps, jpe, 1 , 1 )
778 CALL RSL_LITE_PACK ( local_communicator, grid%psfc, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
779 mytask, ntasks, ntasks_x, ntasks_y, &
780 ids, ide, jds, jde, 1 , 1 , &
781 ims, ime, jms, jme, 1 , 1 , &
782 ips, ipe, jps, jpe, 1 , 1 )
783 CALL RSL_LITE_PACK ( local_communicator, grid%u10, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
784 mytask, ntasks, ntasks_x, ntasks_y, &
785 ids, ide, jds, jde, 1 , 1 , &
786 ims, ime, jms, jme, 1 , 1 , &
787 ips, ipe, jps, jpe, 1 , 1 )
788 CALL RSL_LITE_PACK ( local_communicator, grid%v10, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
789 mytask, ntasks, ntasks_x, ntasks_y, &
790 ids, ide, jds, jde, 1 , 1 , &
791 ims, ime, jms, jme, 1 , 1 , &
792 ips, ipe, jps, jpe, 1 , 1 )
793 CALL RSL_LITE_PACK ( local_communicator, grid%uratx, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
794 mytask, ntasks, ntasks_x, ntasks_y, &
795 ids, ide, jds, jde, 1 , 1 , &
796 ims, ime, jms, jme, 1 , 1 , &
797 ips, ipe, jps, jpe, 1 , 1 )
798 CALL RSL_LITE_PACK ( local_communicator, grid%vratx, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
799 mytask, ntasks, ntasks_x, ntasks_y, &
800 ids, ide, jds, jde, 1 , 1 , &
801 ims, ime, jms, jme, 1 , 1 , &
802 ips, ipe, jps, jpe, 1 , 1 )
803 CALL RSL_LITE_PACK ( local_communicator, grid%tratx, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
804 mytask, ntasks, ntasks_x, ntasks_y, &
805 ids, ide, jds, jde, 1 , 1 , &
806 ims, ime, jms, jme, 1 , 1 , &
807 ips, ipe, jps, jpe, 1 , 1 )
808 CALL RSL_LITE_PACK ( local_communicator, grid%imask_nostag, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
809 mytask, ntasks, ntasks_x, ntasks_y, &
810 ids, ide, jds, jde, 1 , 1 , &
811 ims, ime, jms, jme, 1 , 1 , &
812 ips, ipe, jps, jpe, 1 , 1 )
813 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xstag, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
814 mytask, ntasks, ntasks_x, ntasks_y, &
815 ids, ide, jds, jde, 1 , 1 , &
816 ims, ime, jms, jme, 1 , 1 , &
817 ips, ipe, jps, jpe, 1 , 1 )
818 CALL RSL_LITE_PACK ( local_communicator, grid%imask_ystag, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 1, &
819 mytask, ntasks, ntasks_x, ntasks_y, &
820 ids, ide, jds, jde, 1 , 1 , &
821 ims, ime, jms, jme, 1 , 1 , &
822 ips, ipe, jps, jpe, 1 , 1 )
823 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xystag, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 1, &
824 mytask, ntasks, ntasks_x, ntasks_y, &
825 ids, ide, jds, jde, 1 , 1 , &
826 ims, ime, jms, jme, 1 , 1 , &
827 ips, ipe, jps, jpe, 1 , 1 )
828 DO itrace = PARAM_FIRST_SCALAR, num_moist
829 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
830 mytask, ntasks, ntasks_x, ntasks_y, &
831 ids, ide, jds, jde, kds, kde, &
832 ims, ime, jms, jme, kms, kme, &
833 ips, ipe, jps, jpe, kps, kpe )
834 ENDDO
835 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
836 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
837 mytask, ntasks, ntasks_x, ntasks_y, &
838 ids, ide, jds, jde, kds, kde, &
839 ims, ime, jms, jme, kms, kme, &
840 ips, ipe, jps, jpe, kps, kpe )
841 ENDDO
842 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
843 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
844 mytask, ntasks, ntasks_x, ntasks_y, &
845 ids, ide, jds, jde, kds, kde, &
846 ims, ime, jms, jme, kms, kme, &
847 ips, ipe, jps, jpe, kps, kpe )
848 ENDDO
849 DO itrace = PARAM_FIRST_SCALAR, num_scalar
850 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
851 mytask, ntasks, ntasks_x, ntasks_y, &
852 ids, ide, jds, jde, kds, kde, &
853 ims, ime, jms, jme, kms, kme, &
854 ips, ipe, jps, jpe, kps, kpe )
855 ENDDO
856 DO itrace = PARAM_FIRST_SCALAR, num_a_scalar
857 CALL RSL_LITE_PACK ( local_communicator,a_scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
858 mytask, ntasks, ntasks_x, ntasks_y, &
859 ids, ide, jds, jde, kds, kde, &
860 ims, ime, jms, jme, kms, kme, &
861 ips, ipe, jps, jpe, kps, kpe )
862 ENDDO
863 DO itrace = PARAM_FIRST_SCALAR, num_g_scalar
864 CALL RSL_LITE_PACK ( local_communicator,g_scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
865 mytask, ntasks, ntasks_x, ntasks_y, &
866 ids, ide, jds, jde, kds, kde, &
867 ims, ime, jms, jme, kms, kme, &
868 ips, ipe, jps, jpe, kps, kpe )
869 ENDDO
870 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
871 mytask, ntasks, ntasks_x, ntasks_y, &
872 ids, ide, jds, jde, 1 , 1 , &
873 ims, ime, jms, jme, 1 , 1 , &
874 ips, ipe, jps, jpe, 1 , 1 )
875 CALL RSL_LITE_PACK ( local_communicator, grid%shdmax, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
876 mytask, ntasks, ntasks_x, ntasks_y, &
877 ids, ide, jds, jde, 1 , 1 , &
878 ims, ime, jms, jme, 1 , 1 , &
879 ips, ipe, jps, jpe, 1 , 1 )
880 CALL RSL_LITE_PACK ( local_communicator, grid%shdmin, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
881 mytask, ntasks, ntasks_x, ntasks_y, &
882 ids, ide, jds, jde, 1 , 1 , &
883 ims, ime, jms, jme, 1 , 1 , &
884 ips, ipe, jps, jpe, 1 , 1 )
885 CALL RSL_LITE_PACK ( local_communicator, grid%snoalb, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
886 mytask, ntasks, ntasks_x, ntasks_y, &
887 ids, ide, jds, jde, 1 , 1 , &
888 ims, ime, jms, jme, 1 , 1 , &
889 ips, ipe, jps, jpe, 1 , 1 )
890 CALL RSL_LITE_PACK ( local_communicator, grid%tslb, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
891 mytask, ntasks, ntasks_x, ntasks_y, &
892 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
893 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
894 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
895 CALL RSL_LITE_PACK ( local_communicator, grid%smois, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
896 mytask, ntasks, ntasks_x, ntasks_y, &
897 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
898 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
899 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
900 CALL RSL_LITE_PACK ( local_communicator, grid%sh2o, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
901 mytask, ntasks, ntasks_x, ntasks_y, &
902 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
903 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
904 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
905 CALL RSL_LITE_PACK ( local_communicator, grid%xice, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
906 mytask, ntasks, ntasks_x, ntasks_y, &
907 ids, ide, jds, jde, 1 , 1 , &
908 ims, ime, jms, jme, 1 , 1 , &
909 ips, ipe, jps, jpe, 1 , 1 )
910 CALL RSL_LITE_PACK ( local_communicator, grid%sfcrunoff, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
911 mytask, ntasks, ntasks_x, ntasks_y, &
912 ids, ide, jds, jde, 1 , 1 , &
913 ims, ime, jms, jme, 1 , 1 , &
914 ips, ipe, jps, jpe, 1 , 1 )
915 CALL RSL_LITE_PACK ( local_communicator, grid%udrunoff, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
916 mytask, ntasks, ntasks_x, ntasks_y, &
917 ids, ide, jds, jde, 1 , 1 , &
918 ims, ime, jms, jme, 1 , 1 , &
919 ips, ipe, jps, jpe, 1 , 1 )
920 CALL RSL_LITE_PACK ( local_communicator, grid%ivgtyp, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
921 mytask, ntasks, ntasks_x, ntasks_y, &
922 ids, ide, jds, jde, 1 , 1 , &
923 ims, ime, jms, jme, 1 , 1 , &
924 ips, ipe, jps, jpe, 1 , 1 )
925 CALL RSL_LITE_PACK ( local_communicator, grid%isltyp, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
926 mytask, ntasks, ntasks_x, ntasks_y, &
927 ids, ide, jds, jde, 1 , 1 , &
928 ims, ime, jms, jme, 1 , 1 , &
929 ips, ipe, jps, jpe, 1 , 1 )
930 CALL RSL_LITE_PACK ( local_communicator, grid%vegfra, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
931 mytask, ntasks, ntasks_x, ntasks_y, &
932 ids, ide, jds, jde, 1 , 1 , &
933 ims, ime, jms, jme, 1 , 1 , &
934 ips, ipe, jps, jpe, 1 , 1 )
935 CALL RSL_LITE_PACK ( local_communicator, grid%sfcevp, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
936 mytask, ntasks, ntasks_x, ntasks_y, &
937 ids, ide, jds, jde, 1 , 1 , &
938 ims, ime, jms, jme, 1 , 1 , &
939 ips, ipe, jps, jpe, 1 , 1 )
940 CALL RSL_LITE_PACK ( local_communicator, grid%acsnow, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
941 mytask, ntasks, ntasks_x, ntasks_y, &
942 ids, ide, jds, jde, 1 , 1 , &
943 ims, ime, jms, jme, 1 , 1 , &
944 ips, ipe, jps, jpe, 1 , 1 )
945 CALL RSL_LITE_PACK ( local_communicator, grid%acsnom, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
946 mytask, ntasks, ntasks_x, ntasks_y, &
947 ids, ide, jds, jde, 1 , 1 , &
948 ims, ime, jms, jme, 1 , 1 , &
949 ips, ipe, jps, jpe, 1 , 1 )
950 CALL RSL_LITE_PACK ( local_communicator, grid%snow, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
951 mytask, ntasks, ntasks_x, ntasks_y, &
952 ids, ide, jds, jde, 1 , 1 , &
953 ims, ime, jms, jme, 1 , 1 , &
954 ips, ipe, jps, jpe, 1 , 1 )
955 CALL RSL_LITE_PACK ( local_communicator, grid%snowh, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
956 mytask, ntasks, ntasks_x, ntasks_y, &
957 ids, ide, jds, jde, 1 , 1 , &
958 ims, ime, jms, jme, 1 , 1 , &
959 ips, ipe, jps, jpe, 1 , 1 )
960 CALL RSL_LITE_PACK ( local_communicator, grid%rhosn, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
961 mytask, ntasks, ntasks_x, ntasks_y, &
962 ids, ide, jds, jde, 1 , 1 , &
963 ims, ime, jms, jme, 1 , 1 , &
964 ips, ipe, jps, jpe, 1 , 1 )
965 CALL RSL_LITE_PACK ( local_communicator, grid%canwat, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
966 mytask, ntasks, ntasks_x, ntasks_y, &
967 ids, ide, jds, jde, 1 , 1 , &
968 ims, ime, jms, jme, 1 , 1 , &
969 ips, ipe, jps, jpe, 1 , 1 )
970 CALL RSL_LITE_PACK ( local_communicator, grid%sst, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
971 mytask, ntasks, ntasks_x, ntasks_y, &
972 ids, ide, jds, jde, 1 , 1 , &
973 ims, ime, jms, jme, 1 , 1 , &
974 ips, ipe, jps, jpe, 1 , 1 )
975 CALL RSL_LITE_PACK ( local_communicator, grid%htop, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
976 mytask, ntasks, ntasks_x, ntasks_y, &
977 ids, ide, jds, jde, 1 , 1 , &
978 ims, ime, jms, jme, 1 , 1 , &
979 ips, ipe, jps, jpe, 1 , 1 )
980 CALL RSL_LITE_PACK ( local_communicator, grid%hbot, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
981 mytask, ntasks, ntasks_x, ntasks_y, &
982 ids, ide, jds, jde, 1 , 1 , &
983 ims, ime, jms, jme, 1 , 1 , &
984 ips, ipe, jps, jpe, 1 , 1 )
985 CALL RSL_LITE_PACK ( local_communicator, grid%cuppt, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
986 mytask, ntasks, ntasks_x, ntasks_y, &
987 ids, ide, jds, jde, 1 , 1 , &
988 ims, ime, jms, jme, 1 , 1 , &
989 ips, ipe, jps, jpe, 1 , 1 )
990 CALL RSL_LITE_PACK ( local_communicator, grid%rswtoa, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
991 mytask, ntasks, ntasks_x, ntasks_y, &
992 ids, ide, jds, jde, 1 , 1 , &
993 ims, ime, jms, jme, 1 , 1 , &
994 ips, ipe, jps, jpe, 1 , 1 )
995 CALL RSL_LITE_PACK ( local_communicator, grid%rlwtoa, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
996 mytask, ntasks, ntasks_x, ntasks_y, &
997 ids, ide, jds, jde, 1 , 1 , &
998 ims, ime, jms, jme, 1 , 1 , &
999 ips, ipe, jps, jpe, 1 , 1 )
1000 CALL RSL_LITE_PACK ( local_communicator, grid%czmean, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1001 mytask, ntasks, ntasks_x, ntasks_y, &
1002 ids, ide, jds, jde, 1 , 1 , &
1003 ims, ime, jms, jme, 1 , 1 , &
1004 ips, ipe, jps, jpe, 1 , 1 )
1005 CALL RSL_LITE_PACK ( local_communicator, grid%cfracl, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1006 mytask, ntasks, ntasks_x, ntasks_y, &
1007 ids, ide, jds, jde, 1 , 1 , &
1008 ims, ime, jms, jme, 1 , 1 , &
1009 ips, ipe, jps, jpe, 1 , 1 )
1010 CALL RSL_LITE_PACK ( local_communicator, grid%cfracm, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1011 mytask, ntasks, ntasks_x, ntasks_y, &
1012 ids, ide, jds, jde, 1 , 1 , &
1013 ims, ime, jms, jme, 1 , 1 , &
1014 ips, ipe, jps, jpe, 1 , 1 )
1015 CALL RSL_LITE_PACK ( local_communicator, grid%cfrach, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1016 mytask, ntasks, ntasks_x, ntasks_y, &
1017 ids, ide, jds, jde, 1 , 1 , &
1018 ims, ime, jms, jme, 1 , 1 , &
1019 ips, ipe, jps, jpe, 1 , 1 )
1020 CALL RSL_LITE_PACK ( local_communicator, grid%acfrst, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1021 mytask, ntasks, ntasks_x, ntasks_y, &
1022 ids, ide, jds, jde, 1 , 1 , &
1023 ims, ime, jms, jme, 1 , 1 , &
1024 ips, ipe, jps, jpe, 1 , 1 )
1025 CALL RSL_LITE_PACK ( local_communicator, grid%ncfrst, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1026 mytask, ntasks, ntasks_x, ntasks_y, &
1027 ids, ide, jds, jde, 1 , 1 , &
1028 ims, ime, jms, jme, 1 , 1 , &
1029 ips, ipe, jps, jpe, 1 , 1 )
1030 CALL RSL_LITE_PACK ( local_communicator, grid%acfrcv, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1031 mytask, ntasks, ntasks_x, ntasks_y, &
1032 ids, ide, jds, jde, 1 , 1 , &
1033 ims, ime, jms, jme, 1 , 1 , &
1034 ips, ipe, jps, jpe, 1 , 1 )
1035 CALL RSL_LITE_PACK ( local_communicator, grid%ncfrcv, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1036 mytask, ntasks, ntasks_x, ntasks_y, &
1037 ids, ide, jds, jde, 1 , 1 , &
1038 ims, ime, jms, jme, 1 , 1 , &
1039 ips, ipe, jps, jpe, 1 , 1 )
1040 CALL RSL_LITE_PACK ( local_communicator, grid%h_diabatic, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1041 mytask, ntasks, ntasks_x, ntasks_y, &
1042 ids, ide, jds, jde, kds, kde, &
1043 ims, ime, jms, jme, kms, kme, &
1044 ips, ipe, jps, jpe, kps, kpe )
1045 CALL RSL_LITE_PACK ( local_communicator, grid%msft, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1046 mytask, ntasks, ntasks_x, ntasks_y, &
1047 ids, ide, jds, jde, 1 , 1 , &
1048 ims, ime, jms, jme, 1 , 1 , &
1049 ips, ipe, jps, jpe, 1 , 1 )
1050 CALL RSL_LITE_PACK ( local_communicator, grid%msfu, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1051 mytask, ntasks, ntasks_x, ntasks_y, &
1052 ids, ide, jds, jde, 1 , 1 , &
1053 ims, ime, jms, jme, 1 , 1 , &
1054 ips, ipe, jps, jpe, 1 , 1 )
1055 CALL RSL_LITE_PACK ( local_communicator, grid%msfv, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 1, &
1056 mytask, ntasks, ntasks_x, ntasks_y, &
1057 ids, ide, jds, jde, 1 , 1 , &
1058 ims, ime, jms, jme, 1 , 1 , &
1059 ips, ipe, jps, jpe, 1 , 1 )
1060 CALL RSL_LITE_PACK ( local_communicator, grid%f, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1061 mytask, ntasks, ntasks_x, ntasks_y, &
1062 ids, ide, jds, jde, 1 , 1 , &
1063 ims, ime, jms, jme, 1 , 1 , &
1064 ips, ipe, jps, jpe, 1 , 1 )
1065 CALL RSL_LITE_PACK ( local_communicator, grid%e, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1066 mytask, ntasks, ntasks_x, ntasks_y, &
1067 ids, ide, jds, jde, 1 , 1 , &
1068 ims, ime, jms, jme, 1 , 1 , &
1069 ips, ipe, jps, jpe, 1 , 1 )
1070 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1071 mytask, ntasks, ntasks_x, ntasks_y, &
1072 ids, ide, jds, jde, 1 , 1 , &
1073 ims, ime, jms, jme, 1 , 1 , &
1074 ips, ipe, jps, jpe, 1 , 1 )
1075 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1076 mytask, ntasks, ntasks_x, ntasks_y, &
1077 ids, ide, jds, jde, 1 , 1 , &
1078 ims, ime, jms, jme, 1 , 1 , &
1079 ips, ipe, jps, jpe, 1 , 1 )
1080 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1081 mytask, ntasks, ntasks_x, ntasks_y, &
1082 ids, ide, jds, jde, 1 , 1 , &
1083 ims, ime, jms, jme, 1 , 1 , &
1084 ips, ipe, jps, jpe, 1 , 1 )
1085 CALL RSL_LITE_PACK ( local_communicator, grid%ht_fine, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1086 mytask, ntasks, ntasks_x, ntasks_y, &
1087 ids, ide, jds, jde, 1 , 1 , &
1088 ims, ime, jms, jme, 1 , 1 , &
1089 ips, ipe, jps, jpe, 1 , 1 )
1090 CALL RSL_LITE_PACK ( local_communicator, grid%ht_int, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1091 mytask, ntasks, ntasks_x, ntasks_y, &
1092 ids, ide, jds, jde, 1 , 1 , &
1093 ims, ime, jms, jme, 1 , 1 , &
1094 ips, ipe, jps, jpe, 1 , 1 )
1095 CALL RSL_LITE_PACK ( local_communicator, grid%ht_input, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1096 mytask, ntasks, ntasks_x, ntasks_y, &
1097 ids, ide, jds, jde, 1 , 1 , &
1098 ims, ime, jms, jme, 1 , 1 , &
1099 ips, ipe, jps, jpe, 1 , 1 )
1100 CALL RSL_LITE_PACK ( local_communicator, grid%tsk, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1101 mytask, ntasks, ntasks_x, ntasks_y, &
1102 ids, ide, jds, jde, 1 , 1 , &
1103 ims, ime, jms, jme, 1 , 1 , &
1104 ips, ipe, jps, jpe, 1 , 1 )
1105 CALL RSL_LITE_PACK ( local_communicator, grid%tsk_save, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1106 mytask, ntasks, ntasks_x, ntasks_y, &
1107 ids, ide, jds, jde, 1 , 1 , &
1108 ims, ime, jms, jme, 1 , 1 , &
1109 ips, ipe, jps, jpe, 1 , 1 )
1110 CALL RSL_LITE_PACK ( local_communicator, grid%rainc, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1111 mytask, ntasks, ntasks_x, ntasks_y, &
1112 ids, ide, jds, jde, 1 , 1 , &
1113 ims, ime, jms, jme, 1 , 1 , &
1114 ips, ipe, jps, jpe, 1 , 1 )
1115 CALL RSL_LITE_PACK ( local_communicator, grid%rainnc, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1116 mytask, ntasks, ntasks_x, ntasks_y, &
1117 ids, ide, jds, jde, 1 , 1 , &
1118 ims, ime, jms, jme, 1 , 1 , &
1119 ips, ipe, jps, jpe, 1 , 1 )
1120 CALL RSL_LITE_PACK ( local_communicator, grid%xlat, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1121 mytask, ntasks, ntasks_x, ntasks_y, &
1122 ids, ide, jds, jde, 1 , 1 , &
1123 ims, ime, jms, jme, 1 , 1 , &
1124 ips, ipe, jps, jpe, 1 , 1 )
1125 CALL RSL_LITE_PACK ( local_communicator, grid%xlong, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1126 mytask, ntasks, ntasks_x, ntasks_y, &
1127 ids, ide, jds, jde, 1 , 1 , &
1128 ims, ime, jms, jme, 1 , 1 , &
1129 ips, ipe, jps, jpe, 1 , 1 )
1130 CALL RSL_LITE_PACK ( local_communicator, grid%albbck, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1131 mytask, ntasks, ntasks_x, ntasks_y, &
1132 ids, ide, jds, jde, 1 , 1 , &
1133 ims, ime, jms, jme, 1 , 1 , &
1134 ips, ipe, jps, jpe, 1 , 1 )
1135 CALL RSL_LITE_PACK ( local_communicator, grid%tmn, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1136 mytask, ntasks, ntasks_x, ntasks_y, &
1137 ids, ide, jds, jde, 1 , 1 , &
1138 ims, ime, jms, jme, 1 , 1 , &
1139 ips, ipe, jps, jpe, 1 , 1 )
1140 CALL RSL_LITE_PACK ( local_communicator, grid%xland, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1141 mytask, ntasks, ntasks_x, ntasks_y, &
1142 ids, ide, jds, jde, 1 , 1 , &
1143 ims, ime, jms, jme, 1 , 1 , &
1144 ips, ipe, jps, jpe, 1 , 1 )
1145 CALL RSL_LITE_PACK ( local_communicator, grid%znt, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1146 mytask, ntasks, ntasks_x, ntasks_y, &
1147 ids, ide, jds, jde, 1 , 1 , &
1148 ims, ime, jms, jme, 1 , 1 , &
1149 ips, ipe, jps, jpe, 1 , 1 )
1150 CALL RSL_LITE_PACK ( local_communicator, grid%snowc, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1151 mytask, ntasks, ntasks_x, ntasks_y, &
1152 ids, ide, jds, jde, 1 , 1 , &
1153 ims, ime, jms, jme, 1 , 1 , &
1154 ips, ipe, jps, jpe, 1 , 1 )
1155 CALL RSL_LITE_PACK ( local_communicator, grid%xkmv, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1156 mytask, ntasks, ntasks_x, ntasks_y, &
1157 ids, ide, jds, jde, kds, kde, &
1158 ims, ime, jms, jme, kms, kme, &
1159 ips, ipe, jps, jpe, kps, kpe )
1160 CALL RSL_LITE_PACK ( local_communicator, grid%xkmh, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1161 mytask, ntasks, ntasks_x, ntasks_y, &
1162 ids, ide, jds, jde, kds, kde, &
1163 ims, ime, jms, jme, kms, kme, &
1164 ips, ipe, jps, jpe, kps, kpe )
1165 CALL RSL_LITE_PACK ( local_communicator, grid%xkmhd, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1166 mytask, ntasks, ntasks_x, ntasks_y, &
1167 ids, ide, jds, jde, kds, kde, &
1168 ims, ime, jms, jme, kms, kme, &
1169 ips, ipe, jps, jpe, kps, kpe )
1170 CALL RSL_LITE_PACK ( local_communicator, grid%a_xkmhd, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1171 mytask, ntasks, ntasks_x, ntasks_y, &
1172 ids, ide, jds, jde, kds, kde, &
1173 ims, ime, jms, jme, kms, kme, &
1174 ips, ipe, jps, jpe, kps, kpe )
1175 CALL RSL_LITE_PACK ( local_communicator, grid%g_xkmhd, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1176 mytask, ntasks, ntasks_x, ntasks_y, &
1177 ids, ide, jds, jde, kds, kde, &
1178 ims, ime, jms, jme, kms, kme, &
1179 ips, ipe, jps, jpe, kps, kpe )
1180 CALL RSL_LITE_PACK ( local_communicator, grid%xkhv, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1181 mytask, ntasks, ntasks_x, ntasks_y, &
1182 ids, ide, jds, jde, kds, kde, &
1183 ims, ime, jms, jme, kms, kme, &
1184 ips, ipe, jps, jpe, kps, kpe )
1185 CALL RSL_LITE_PACK ( local_communicator, grid%xkhh, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1186 mytask, ntasks, ntasks_x, ntasks_y, &
1187 ids, ide, jds, jde, kds, kde, &
1188 ims, ime, jms, jme, kms, kme, &
1189 ips, ipe, jps, jpe, kps, kpe )
1190 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3 , &
1191 33 &
1192 + num_moist &
1193 + num_a_moist &
1194 + num_g_moist &
1195 + num_scalar &
1196 + num_a_scalar &
1197 + num_g_scalar &
1198 , 67, RWORDSIZE, &
1199 0, 8, IWORDSIZE, &
1200 0, 0, DWORDSIZE, &
1201 0, 0, LWORDSIZE, &
1202 mytask, ntasks, ntasks_x, ntasks_y, &
1203 ips, ipe, jps, jpe, kps, MAX(1,1&
1204 ,kpe &
1205 ,config_flags%num_soil_layers &
1206 ))
1207 CALL RSL_LITE_PACK ( local_communicator, grid%lu_index, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1208 mytask, ntasks, ntasks_x, ntasks_y, &
1209 ids, ide, jds, jde, 1 , 1 , &
1210 ims, ime, jms, jme, 1 , 1 , &
1211 ips, ipe, jps, jpe, 1 , 1 )
1212 CALL RSL_LITE_PACK ( local_communicator, grid%lu_mask, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1213 mytask, ntasks, ntasks_x, ntasks_y, &
1214 ids, ide, jds, jde, 1 , 1 , &
1215 ims, ime, jms, jme, 1 , 1 , &
1216 ips, ipe, jps, jpe, 1 , 1 )
1217 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
1218 mytask, ntasks, ntasks_x, ntasks_y, &
1219 ids, ide, jds, jde, kds, kde, &
1220 ims, ime, jms, jme, kms, kme, &
1221 ips, ipe, jps, jpe, kps, kpe )
1222 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
1223 mytask, ntasks, ntasks_x, ntasks_y, &
1224 ids, ide, jds, jde, kds, kde, &
1225 ims, ime, jms, jme, kms, kme, &
1226 ips, ipe, jps, jpe, kps, kpe )
1227 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
1228 mytask, ntasks, ntasks_x, ntasks_y, &
1229 ids, ide, jds, jde, kds, kde, &
1230 ims, ime, jms, jme, kms, kme, &
1231 ips, ipe, jps, jpe, kps, kpe )
1232 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
1233 mytask, ntasks, ntasks_x, ntasks_y, &
1234 ids, ide, jds, jde, kds, kde, &
1235 ims, ime, jms, jme, kms, kme, &
1236 ips, ipe, jps, jpe, kps, kpe )
1237 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1238 mytask, ntasks, ntasks_x, ntasks_y, &
1239 ids, ide, jds, jde, kds, kde, &
1240 ims, ime, jms, jme, kms, kme, &
1241 ips, ipe, jps, jpe, kps, kpe )
1242 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1243 mytask, ntasks, ntasks_x, ntasks_y, &
1244 ids, ide, jds, jde, kds, kde, &
1245 ims, ime, jms, jme, kms, kme, &
1246 ips, ipe, jps, jpe, kps, kpe )
1247 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1248 mytask, ntasks, ntasks_x, ntasks_y, &
1249 ids, ide, jds, jde, kds, kde, &
1250 ims, ime, jms, jme, kms, kme, &
1251 ips, ipe, jps, jpe, kps, kpe )
1252 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1253 mytask, ntasks, ntasks_x, ntasks_y, &
1254 ids, ide, jds, jde, kds, kde, &
1255 ims, ime, jms, jme, kms, kme, &
1256 ips, ipe, jps, jpe, kps, kpe )
1257 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1258 mytask, ntasks, ntasks_x, ntasks_y, &
1259 ids, ide, jds, jde, kds, kde, &
1260 ims, ime, jms, jme, kms, kme, &
1261 ips, ipe, jps, jpe, kps, kpe )
1262 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1263 mytask, ntasks, ntasks_x, ntasks_y, &
1264 ids, ide, jds, jde, kds, kde, &
1265 ims, ime, jms, jme, kms, kme, &
1266 ips, ipe, jps, jpe, kps, kpe )
1267 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1268 mytask, ntasks, ntasks_x, ntasks_y, &
1269 ids, ide, jds, jde, kds, kde, &
1270 ims, ime, jms, jme, kms, kme, &
1271 ips, ipe, jps, jpe, kps, kpe )
1272 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1273 mytask, ntasks, ntasks_x, ntasks_y, &
1274 ids, ide, jds, jde, kds, kde, &
1275 ims, ime, jms, jme, kms, kme, &
1276 ips, ipe, jps, jpe, kps, kpe )
1277 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1278 mytask, ntasks, ntasks_x, ntasks_y, &
1279 ids, ide, jds, jde, kds, kde, &
1280 ims, ime, jms, jme, kms, kme, &
1281 ips, ipe, jps, jpe, kps, kpe )
1282 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1283 mytask, ntasks, ntasks_x, ntasks_y, &
1284 ids, ide, jds, jde, kds, kde, &
1285 ims, ime, jms, jme, kms, kme, &
1286 ips, ipe, jps, jpe, kps, kpe )
1287 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1288 mytask, ntasks, ntasks_x, ntasks_y, &
1289 ids, ide, jds, jde, kds, kde, &
1290 ims, ime, jms, jme, kms, kme, &
1291 ips, ipe, jps, jpe, kps, kpe )
1292 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1293 mytask, ntasks, ntasks_x, ntasks_y, &
1294 ids, ide, jds, jde, kds, kde, &
1295 ims, ime, jms, jme, kms, kme, &
1296 ips, ipe, jps, jpe, kps, kpe )
1297 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1298 mytask, ntasks, ntasks_x, ntasks_y, &
1299 ids, ide, jds, jde, kds, kde, &
1300 ims, ime, jms, jme, kms, kme, &
1301 ips, ipe, jps, jpe, kps, kpe )
1302 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1303 mytask, ntasks, ntasks_x, ntasks_y, &
1304 ids, ide, jds, jde, kds, kde, &
1305 ims, ime, jms, jme, kms, kme, &
1306 ips, ipe, jps, jpe, kps, kpe )
1307 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1308 mytask, ntasks, ntasks_x, ntasks_y, &
1309 ids, ide, jds, jde, kds, kde, &
1310 ims, ime, jms, jme, kms, kme, &
1311 ips, ipe, jps, jpe, kps, kpe )
1312 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1313 mytask, ntasks, ntasks_x, ntasks_y, &
1314 ids, ide, jds, jde, kds, kde, &
1315 ims, ime, jms, jme, kms, kme, &
1316 ips, ipe, jps, jpe, kps, kpe )
1317 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1318 mytask, ntasks, ntasks_x, ntasks_y, &
1319 ids, ide, jds, jde, 1 , 1 , &
1320 ims, ime, jms, jme, 1 , 1 , &
1321 ips, ipe, jps, jpe, 1 , 1 )
1322 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1323 mytask, ntasks, ntasks_x, ntasks_y, &
1324 ids, ide, jds, jde, 1 , 1 , &
1325 ims, ime, jms, jme, 1 , 1 , &
1326 ips, ipe, jps, jpe, 1 , 1 )
1327 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1328 mytask, ntasks, ntasks_x, ntasks_y, &
1329 ids, ide, jds, jde, 1 , 1 , &
1330 ims, ime, jms, jme, 1 , 1 , &
1331 ips, ipe, jps, jpe, 1 , 1 )
1332 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1333 mytask, ntasks, ntasks_x, ntasks_y, &
1334 ids, ide, jds, jde, 1 , 1 , &
1335 ims, ime, jms, jme, 1 , 1 , &
1336 ips, ipe, jps, jpe, 1 , 1 )
1337 CALL RSL_LITE_PACK ( local_communicator, grid%nest_pos, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1338 mytask, ntasks, ntasks_x, ntasks_y, &
1339 ids, ide, jds, jde, 1 , 1 , &
1340 ims, ime, jms, jme, 1 , 1 , &
1341 ips, ipe, jps, jpe, 1 , 1 )
1342 CALL RSL_LITE_PACK ( local_communicator, grid%nest_mask, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1343 mytask, ntasks, ntasks_x, ntasks_y, &
1344 ids, ide, jds, jde, 1 , 1 , &
1345 ims, ime, jms, jme, 1 , 1 , &
1346 ips, ipe, jps, jpe, 1 , 1 )
1347 CALL RSL_LITE_PACK ( local_communicator, grid%ht_coarse, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1348 mytask, ntasks, ntasks_x, ntasks_y, &
1349 ids, ide, jds, jde, 1 , 1 , &
1350 ims, ime, jms, jme, 1 , 1 , &
1351 ips, ipe, jps, jpe, 1 , 1 )
1352 CALL RSL_LITE_PACK ( local_communicator, grid%a_z, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1353 mytask, ntasks, ntasks_x, ntasks_y, &
1354 ids, ide, jds, jde, kds, kde, &
1355 ims, ime, jms, jme, kms, kme, &
1356 ips, ipe, jps, jpe, kps, kpe )
1357 CALL RSL_LITE_PACK ( local_communicator, grid%g_z, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1358 mytask, ntasks, ntasks_x, ntasks_y, &
1359 ids, ide, jds, jde, kds, kde, &
1360 ims, ime, jms, jme, kms, kme, &
1361 ips, ipe, jps, jpe, kps, kpe )
1362 CALL RSL_LITE_PACK ( local_communicator, grid%q2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1363 mytask, ntasks, ntasks_x, ntasks_y, &
1364 ids, ide, jds, jde, 1 , 1 , &
1365 ims, ime, jms, jme, 1 , 1 , &
1366 ips, ipe, jps, jpe, 1 , 1 )
1367 CALL RSL_LITE_PACK ( local_communicator, grid%t2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1368 mytask, ntasks, ntasks_x, ntasks_y, &
1369 ids, ide, jds, jde, 1 , 1 , &
1370 ims, ime, jms, jme, 1 , 1 , &
1371 ips, ipe, jps, jpe, 1 , 1 )
1372 CALL RSL_LITE_PACK ( local_communicator, grid%th2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1373 mytask, ntasks, ntasks_x, ntasks_y, &
1374 ids, ide, jds, jde, 1 , 1 , &
1375 ims, ime, jms, jme, 1 , 1 , &
1376 ips, ipe, jps, jpe, 1 , 1 )
1377 CALL RSL_LITE_PACK ( local_communicator, grid%psfc, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1378 mytask, ntasks, ntasks_x, ntasks_y, &
1379 ids, ide, jds, jde, 1 , 1 , &
1380 ims, ime, jms, jme, 1 , 1 , &
1381 ips, ipe, jps, jpe, 1 , 1 )
1382 CALL RSL_LITE_PACK ( local_communicator, grid%u10, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1383 mytask, ntasks, ntasks_x, ntasks_y, &
1384 ids, ide, jds, jde, 1 , 1 , &
1385 ims, ime, jms, jme, 1 , 1 , &
1386 ips, ipe, jps, jpe, 1 , 1 )
1387 CALL RSL_LITE_PACK ( local_communicator, grid%v10, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1388 mytask, ntasks, ntasks_x, ntasks_y, &
1389 ids, ide, jds, jde, 1 , 1 , &
1390 ims, ime, jms, jme, 1 , 1 , &
1391 ips, ipe, jps, jpe, 1 , 1 )
1392 CALL RSL_LITE_PACK ( local_communicator, grid%uratx, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1393 mytask, ntasks, ntasks_x, ntasks_y, &
1394 ids, ide, jds, jde, 1 , 1 , &
1395 ims, ime, jms, jme, 1 , 1 , &
1396 ips, ipe, jps, jpe, 1 , 1 )
1397 CALL RSL_LITE_PACK ( local_communicator, grid%vratx, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1398 mytask, ntasks, ntasks_x, ntasks_y, &
1399 ids, ide, jds, jde, 1 , 1 , &
1400 ims, ime, jms, jme, 1 , 1 , &
1401 ips, ipe, jps, jpe, 1 , 1 )
1402 CALL RSL_LITE_PACK ( local_communicator, grid%tratx, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1403 mytask, ntasks, ntasks_x, ntasks_y, &
1404 ids, ide, jds, jde, 1 , 1 , &
1405 ims, ime, jms, jme, 1 , 1 , &
1406 ips, ipe, jps, jpe, 1 , 1 )
1407 CALL RSL_LITE_PACK ( local_communicator, grid%imask_nostag, 3, IWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1408 mytask, ntasks, ntasks_x, ntasks_y, &
1409 ids, ide, jds, jde, 1 , 1 , &
1410 ims, ime, jms, jme, 1 , 1 , &
1411 ips, ipe, jps, jpe, 1 , 1 )
1412 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xstag, 3, IWORDSIZE, 1, 0, DATA_ORDER_XY, 1, &
1413 mytask, ntasks, ntasks_x, ntasks_y, &
1414 ids, ide, jds, jde, 1 , 1 , &
1415 ims, ime, jms, jme, 1 , 1 , &
1416 ips, ipe, jps, jpe, 1 , 1 )
1417 CALL RSL_LITE_PACK ( local_communicator, grid%imask_ystag, 3, IWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1418 mytask, ntasks, ntasks_x, ntasks_y, &
1419 ids, ide, jds, jde, 1 , 1 , &
1420 ims, ime, jms, jme, 1 , 1 , &
1421 ips, ipe, jps, jpe, 1 , 1 )
1422 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xystag, 3, IWORDSIZE, 1, 0, DATA_ORDER_XY, 1, &
1423 mytask, ntasks, ntasks_x, ntasks_y, &
1424 ids, ide, jds, jde, 1 , 1 , &
1425 ims, ime, jms, jme, 1 , 1 , &
1426 ips, ipe, jps, jpe, 1 , 1 )
1427 DO itrace = PARAM_FIRST_SCALAR, num_moist
1428 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1429 mytask, ntasks, ntasks_x, ntasks_y, &
1430 ids, ide, jds, jde, kds, kde, &
1431 ims, ime, jms, jme, kms, kme, &
1432 ips, ipe, jps, jpe, kps, kpe )
1433 ENDDO
1434 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
1435 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1436 mytask, ntasks, ntasks_x, ntasks_y, &
1437 ids, ide, jds, jde, kds, kde, &
1438 ims, ime, jms, jme, kms, kme, &
1439 ips, ipe, jps, jpe, kps, kpe )
1440 ENDDO
1441 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
1442 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1443 mytask, ntasks, ntasks_x, ntasks_y, &
1444 ids, ide, jds, jde, kds, kde, &
1445 ims, ime, jms, jme, kms, kme, &
1446 ips, ipe, jps, jpe, kps, kpe )
1447 ENDDO
1448 DO itrace = PARAM_FIRST_SCALAR, num_scalar
1449 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1450 mytask, ntasks, ntasks_x, ntasks_y, &
1451 ids, ide, jds, jde, kds, kde, &
1452 ims, ime, jms, jme, kms, kme, &
1453 ips, ipe, jps, jpe, kps, kpe )
1454 ENDDO
1455 DO itrace = PARAM_FIRST_SCALAR, num_a_scalar
1456 CALL RSL_LITE_PACK ( local_communicator,a_scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1457 mytask, ntasks, ntasks_x, ntasks_y, &
1458 ids, ide, jds, jde, kds, kde, &
1459 ims, ime, jms, jme, kms, kme, &
1460 ips, ipe, jps, jpe, kps, kpe )
1461 ENDDO
1462 DO itrace = PARAM_FIRST_SCALAR, num_g_scalar
1463 CALL RSL_LITE_PACK ( local_communicator,g_scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1464 mytask, ntasks, ntasks_x, ntasks_y, &
1465 ids, ide, jds, jde, kds, kde, &
1466 ims, ime, jms, jme, kms, kme, &
1467 ips, ipe, jps, jpe, kps, kpe )
1468 ENDDO
1469 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1470 mytask, ntasks, ntasks_x, ntasks_y, &
1471 ids, ide, jds, jde, 1 , 1 , &
1472 ims, ime, jms, jme, 1 , 1 , &
1473 ips, ipe, jps, jpe, 1 , 1 )
1474 CALL RSL_LITE_PACK ( local_communicator, grid%shdmax, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1475 mytask, ntasks, ntasks_x, ntasks_y, &
1476 ids, ide, jds, jde, 1 , 1 , &
1477 ims, ime, jms, jme, 1 , 1 , &
1478 ips, ipe, jps, jpe, 1 , 1 )
1479 CALL RSL_LITE_PACK ( local_communicator, grid%shdmin, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1480 mytask, ntasks, ntasks_x, ntasks_y, &
1481 ids, ide, jds, jde, 1 , 1 , &
1482 ims, ime, jms, jme, 1 , 1 , &
1483 ips, ipe, jps, jpe, 1 , 1 )
1484 CALL RSL_LITE_PACK ( local_communicator, grid%snoalb, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1485 mytask, ntasks, ntasks_x, ntasks_y, &
1486 ids, ide, jds, jde, 1 , 1 , &
1487 ims, ime, jms, jme, 1 , 1 , &
1488 ips, ipe, jps, jpe, 1 , 1 )
1489 CALL RSL_LITE_PACK ( local_communicator, grid%tslb, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1490 mytask, ntasks, ntasks_x, ntasks_y, &
1491 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
1492 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
1493 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
1494 CALL RSL_LITE_PACK ( local_communicator, grid%smois, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1495 mytask, ntasks, ntasks_x, ntasks_y, &
1496 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
1497 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
1498 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
1499 CALL RSL_LITE_PACK ( local_communicator, grid%sh2o, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1500 mytask, ntasks, ntasks_x, ntasks_y, &
1501 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
1502 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
1503 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
1504 CALL RSL_LITE_PACK ( local_communicator, grid%xice, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1505 mytask, ntasks, ntasks_x, ntasks_y, &
1506 ids, ide, jds, jde, 1 , 1 , &
1507 ims, ime, jms, jme, 1 , 1 , &
1508 ips, ipe, jps, jpe, 1 , 1 )
1509 CALL RSL_LITE_PACK ( local_communicator, grid%sfcrunoff, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1510 mytask, ntasks, ntasks_x, ntasks_y, &
1511 ids, ide, jds, jde, 1 , 1 , &
1512 ims, ime, jms, jme, 1 , 1 , &
1513 ips, ipe, jps, jpe, 1 , 1 )
1514 CALL RSL_LITE_PACK ( local_communicator, grid%udrunoff, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1515 mytask, ntasks, ntasks_x, ntasks_y, &
1516 ids, ide, jds, jde, 1 , 1 , &
1517 ims, ime, jms, jme, 1 , 1 , &
1518 ips, ipe, jps, jpe, 1 , 1 )
1519 CALL RSL_LITE_PACK ( local_communicator, grid%ivgtyp, 3, IWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1520 mytask, ntasks, ntasks_x, ntasks_y, &
1521 ids, ide, jds, jde, 1 , 1 , &
1522 ims, ime, jms, jme, 1 , 1 , &
1523 ips, ipe, jps, jpe, 1 , 1 )
1524 CALL RSL_LITE_PACK ( local_communicator, grid%isltyp, 3, IWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1525 mytask, ntasks, ntasks_x, ntasks_y, &
1526 ids, ide, jds, jde, 1 , 1 , &
1527 ims, ime, jms, jme, 1 , 1 , &
1528 ips, ipe, jps, jpe, 1 , 1 )
1529 CALL RSL_LITE_PACK ( local_communicator, grid%vegfra, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1530 mytask, ntasks, ntasks_x, ntasks_y, &
1531 ids, ide, jds, jde, 1 , 1 , &
1532 ims, ime, jms, jme, 1 , 1 , &
1533 ips, ipe, jps, jpe, 1 , 1 )
1534 CALL RSL_LITE_PACK ( local_communicator, grid%sfcevp, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1535 mytask, ntasks, ntasks_x, ntasks_y, &
1536 ids, ide, jds, jde, 1 , 1 , &
1537 ims, ime, jms, jme, 1 , 1 , &
1538 ips, ipe, jps, jpe, 1 , 1 )
1539 CALL RSL_LITE_PACK ( local_communicator, grid%acsnow, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1540 mytask, ntasks, ntasks_x, ntasks_y, &
1541 ids, ide, jds, jde, 1 , 1 , &
1542 ims, ime, jms, jme, 1 , 1 , &
1543 ips, ipe, jps, jpe, 1 , 1 )
1544 CALL RSL_LITE_PACK ( local_communicator, grid%acsnom, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1545 mytask, ntasks, ntasks_x, ntasks_y, &
1546 ids, ide, jds, jde, 1 , 1 , &
1547 ims, ime, jms, jme, 1 , 1 , &
1548 ips, ipe, jps, jpe, 1 , 1 )
1549 CALL RSL_LITE_PACK ( local_communicator, grid%snow, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1550 mytask, ntasks, ntasks_x, ntasks_y, &
1551 ids, ide, jds, jde, 1 , 1 , &
1552 ims, ime, jms, jme, 1 , 1 , &
1553 ips, ipe, jps, jpe, 1 , 1 )
1554 CALL RSL_LITE_PACK ( local_communicator, grid%snowh, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1555 mytask, ntasks, ntasks_x, ntasks_y, &
1556 ids, ide, jds, jde, 1 , 1 , &
1557 ims, ime, jms, jme, 1 , 1 , &
1558 ips, ipe, jps, jpe, 1 , 1 )
1559 CALL RSL_LITE_PACK ( local_communicator, grid%rhosn, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1560 mytask, ntasks, ntasks_x, ntasks_y, &
1561 ids, ide, jds, jde, 1 , 1 , &
1562 ims, ime, jms, jme, 1 , 1 , &
1563 ips, ipe, jps, jpe, 1 , 1 )
1564 CALL RSL_LITE_PACK ( local_communicator, grid%canwat, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1565 mytask, ntasks, ntasks_x, ntasks_y, &
1566 ids, ide, jds, jde, 1 , 1 , &
1567 ims, ime, jms, jme, 1 , 1 , &
1568 ips, ipe, jps, jpe, 1 , 1 )
1569 CALL RSL_LITE_PACK ( local_communicator, grid%sst, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1570 mytask, ntasks, ntasks_x, ntasks_y, &
1571 ids, ide, jds, jde, 1 , 1 , &
1572 ims, ime, jms, jme, 1 , 1 , &
1573 ips, ipe, jps, jpe, 1 , 1 )
1574 CALL RSL_LITE_PACK ( local_communicator, grid%htop, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1575 mytask, ntasks, ntasks_x, ntasks_y, &
1576 ids, ide, jds, jde, 1 , 1 , &
1577 ims, ime, jms, jme, 1 , 1 , &
1578 ips, ipe, jps, jpe, 1 , 1 )
1579 CALL RSL_LITE_PACK ( local_communicator, grid%hbot, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1580 mytask, ntasks, ntasks_x, ntasks_y, &
1581 ids, ide, jds, jde, 1 , 1 , &
1582 ims, ime, jms, jme, 1 , 1 , &
1583 ips, ipe, jps, jpe, 1 , 1 )
1584 CALL RSL_LITE_PACK ( local_communicator, grid%cuppt, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1585 mytask, ntasks, ntasks_x, ntasks_y, &
1586 ids, ide, jds, jde, 1 , 1 , &
1587 ims, ime, jms, jme, 1 , 1 , &
1588 ips, ipe, jps, jpe, 1 , 1 )
1589 CALL RSL_LITE_PACK ( local_communicator, grid%rswtoa, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1590 mytask, ntasks, ntasks_x, ntasks_y, &
1591 ids, ide, jds, jde, 1 , 1 , &
1592 ims, ime, jms, jme, 1 , 1 , &
1593 ips, ipe, jps, jpe, 1 , 1 )
1594 CALL RSL_LITE_PACK ( local_communicator, grid%rlwtoa, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1595 mytask, ntasks, ntasks_x, ntasks_y, &
1596 ids, ide, jds, jde, 1 , 1 , &
1597 ims, ime, jms, jme, 1 , 1 , &
1598 ips, ipe, jps, jpe, 1 , 1 )
1599 CALL RSL_LITE_PACK ( local_communicator, grid%czmean, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1600 mytask, ntasks, ntasks_x, ntasks_y, &
1601 ids, ide, jds, jde, 1 , 1 , &
1602 ims, ime, jms, jme, 1 , 1 , &
1603 ips, ipe, jps, jpe, 1 , 1 )
1604 CALL RSL_LITE_PACK ( local_communicator, grid%cfracl, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1605 mytask, ntasks, ntasks_x, ntasks_y, &
1606 ids, ide, jds, jde, 1 , 1 , &
1607 ims, ime, jms, jme, 1 , 1 , &
1608 ips, ipe, jps, jpe, 1 , 1 )
1609 CALL RSL_LITE_PACK ( local_communicator, grid%cfracm, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1610 mytask, ntasks, ntasks_x, ntasks_y, &
1611 ids, ide, jds, jde, 1 , 1 , &
1612 ims, ime, jms, jme, 1 , 1 , &
1613 ips, ipe, jps, jpe, 1 , 1 )
1614 CALL RSL_LITE_PACK ( local_communicator, grid%cfrach, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1615 mytask, ntasks, ntasks_x, ntasks_y, &
1616 ids, ide, jds, jde, 1 , 1 , &
1617 ims, ime, jms, jme, 1 , 1 , &
1618 ips, ipe, jps, jpe, 1 , 1 )
1619 CALL RSL_LITE_PACK ( local_communicator, grid%acfrst, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1620 mytask, ntasks, ntasks_x, ntasks_y, &
1621 ids, ide, jds, jde, 1 , 1 , &
1622 ims, ime, jms, jme, 1 , 1 , &
1623 ips, ipe, jps, jpe, 1 , 1 )
1624 CALL RSL_LITE_PACK ( local_communicator, grid%ncfrst, 3, IWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1625 mytask, ntasks, ntasks_x, ntasks_y, &
1626 ids, ide, jds, jde, 1 , 1 , &
1627 ims, ime, jms, jme, 1 , 1 , &
1628 ips, ipe, jps, jpe, 1 , 1 )
1629 CALL RSL_LITE_PACK ( local_communicator, grid%acfrcv, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1630 mytask, ntasks, ntasks_x, ntasks_y, &
1631 ids, ide, jds, jde, 1 , 1 , &
1632 ims, ime, jms, jme, 1 , 1 , &
1633 ips, ipe, jps, jpe, 1 , 1 )
1634 CALL RSL_LITE_PACK ( local_communicator, grid%ncfrcv, 3, IWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1635 mytask, ntasks, ntasks_x, ntasks_y, &
1636 ids, ide, jds, jde, 1 , 1 , &
1637 ims, ime, jms, jme, 1 , 1 , &
1638 ips, ipe, jps, jpe, 1 , 1 )
1639 CALL RSL_LITE_PACK ( local_communicator, grid%h_diabatic, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1640 mytask, ntasks, ntasks_x, ntasks_y, &
1641 ids, ide, jds, jde, kds, kde, &
1642 ims, ime, jms, jme, kms, kme, &
1643 ips, ipe, jps, jpe, kps, kpe )
1644 CALL RSL_LITE_PACK ( local_communicator, grid%msft, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1645 mytask, ntasks, ntasks_x, ntasks_y, &
1646 ids, ide, jds, jde, 1 , 1 , &
1647 ims, ime, jms, jme, 1 , 1 , &
1648 ips, ipe, jps, jpe, 1 , 1 )
1649 CALL RSL_LITE_PACK ( local_communicator, grid%msfu, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 1, &
1650 mytask, ntasks, ntasks_x, ntasks_y, &
1651 ids, ide, jds, jde, 1 , 1 , &
1652 ims, ime, jms, jme, 1 , 1 , &
1653 ips, ipe, jps, jpe, 1 , 1 )
1654 CALL RSL_LITE_PACK ( local_communicator, grid%msfv, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1655 mytask, ntasks, ntasks_x, ntasks_y, &
1656 ids, ide, jds, jde, 1 , 1 , &
1657 ims, ime, jms, jme, 1 , 1 , &
1658 ips, ipe, jps, jpe, 1 , 1 )
1659 CALL RSL_LITE_PACK ( local_communicator, grid%f, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1660 mytask, ntasks, ntasks_x, ntasks_y, &
1661 ids, ide, jds, jde, 1 , 1 , &
1662 ims, ime, jms, jme, 1 , 1 , &
1663 ips, ipe, jps, jpe, 1 , 1 )
1664 CALL RSL_LITE_PACK ( local_communicator, grid%e, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1665 mytask, ntasks, ntasks_x, ntasks_y, &
1666 ids, ide, jds, jde, 1 , 1 , &
1667 ims, ime, jms, jme, 1 , 1 , &
1668 ips, ipe, jps, jpe, 1 , 1 )
1669 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1670 mytask, ntasks, ntasks_x, ntasks_y, &
1671 ids, ide, jds, jde, 1 , 1 , &
1672 ims, ime, jms, jme, 1 , 1 , &
1673 ips, ipe, jps, jpe, 1 , 1 )
1674 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1675 mytask, ntasks, ntasks_x, ntasks_y, &
1676 ids, ide, jds, jde, 1 , 1 , &
1677 ims, ime, jms, jme, 1 , 1 , &
1678 ips, ipe, jps, jpe, 1 , 1 )
1679 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1680 mytask, ntasks, ntasks_x, ntasks_y, &
1681 ids, ide, jds, jde, 1 , 1 , &
1682 ims, ime, jms, jme, 1 , 1 , &
1683 ips, ipe, jps, jpe, 1 , 1 )
1684 CALL RSL_LITE_PACK ( local_communicator, grid%ht_fine, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1685 mytask, ntasks, ntasks_x, ntasks_y, &
1686 ids, ide, jds, jde, 1 , 1 , &
1687 ims, ime, jms, jme, 1 , 1 , &
1688 ips, ipe, jps, jpe, 1 , 1 )
1689 CALL RSL_LITE_PACK ( local_communicator, grid%ht_int, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1690 mytask, ntasks, ntasks_x, ntasks_y, &
1691 ids, ide, jds, jde, 1 , 1 , &
1692 ims, ime, jms, jme, 1 , 1 , &
1693 ips, ipe, jps, jpe, 1 , 1 )
1694 CALL RSL_LITE_PACK ( local_communicator, grid%ht_input, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1695 mytask, ntasks, ntasks_x, ntasks_y, &
1696 ids, ide, jds, jde, 1 , 1 , &
1697 ims, ime, jms, jme, 1 , 1 , &
1698 ips, ipe, jps, jpe, 1 , 1 )
1699 CALL RSL_LITE_PACK ( local_communicator, grid%tsk, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1700 mytask, ntasks, ntasks_x, ntasks_y, &
1701 ids, ide, jds, jde, 1 , 1 , &
1702 ims, ime, jms, jme, 1 , 1 , &
1703 ips, ipe, jps, jpe, 1 , 1 )
1704 CALL RSL_LITE_PACK ( local_communicator, grid%tsk_save, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1705 mytask, ntasks, ntasks_x, ntasks_y, &
1706 ids, ide, jds, jde, 1 , 1 , &
1707 ims, ime, jms, jme, 1 , 1 , &
1708 ips, ipe, jps, jpe, 1 , 1 )
1709 CALL RSL_LITE_PACK ( local_communicator, grid%rainc, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1710 mytask, ntasks, ntasks_x, ntasks_y, &
1711 ids, ide, jds, jde, 1 , 1 , &
1712 ims, ime, jms, jme, 1 , 1 , &
1713 ips, ipe, jps, jpe, 1 , 1 )
1714 CALL RSL_LITE_PACK ( local_communicator, grid%rainnc, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1715 mytask, ntasks, ntasks_x, ntasks_y, &
1716 ids, ide, jds, jde, 1 , 1 , &
1717 ims, ime, jms, jme, 1 , 1 , &
1718 ips, ipe, jps, jpe, 1 , 1 )
1719 CALL RSL_LITE_PACK ( local_communicator, grid%xlat, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1720 mytask, ntasks, ntasks_x, ntasks_y, &
1721 ids, ide, jds, jde, 1 , 1 , &
1722 ims, ime, jms, jme, 1 , 1 , &
1723 ips, ipe, jps, jpe, 1 , 1 )
1724 CALL RSL_LITE_PACK ( local_communicator, grid%xlong, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1725 mytask, ntasks, ntasks_x, ntasks_y, &
1726 ids, ide, jds, jde, 1 , 1 , &
1727 ims, ime, jms, jme, 1 , 1 , &
1728 ips, ipe, jps, jpe, 1 , 1 )
1729 CALL RSL_LITE_PACK ( local_communicator, grid%albbck, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1730 mytask, ntasks, ntasks_x, ntasks_y, &
1731 ids, ide, jds, jde, 1 , 1 , &
1732 ims, ime, jms, jme, 1 , 1 , &
1733 ips, ipe, jps, jpe, 1 , 1 )
1734 CALL RSL_LITE_PACK ( local_communicator, grid%tmn, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1735 mytask, ntasks, ntasks_x, ntasks_y, &
1736 ids, ide, jds, jde, 1 , 1 , &
1737 ims, ime, jms, jme, 1 , 1 , &
1738 ips, ipe, jps, jpe, 1 , 1 )
1739 CALL RSL_LITE_PACK ( local_communicator, grid%xland, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1740 mytask, ntasks, ntasks_x, ntasks_y, &
1741 ids, ide, jds, jde, 1 , 1 , &
1742 ims, ime, jms, jme, 1 , 1 , &
1743 ips, ipe, jps, jpe, 1 , 1 )
1744 CALL RSL_LITE_PACK ( local_communicator, grid%znt, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1745 mytask, ntasks, ntasks_x, ntasks_y, &
1746 ids, ide, jds, jde, 1 , 1 , &
1747 ims, ime, jms, jme, 1 , 1 , &
1748 ips, ipe, jps, jpe, 1 , 1 )
1749 CALL RSL_LITE_PACK ( local_communicator, grid%snowc, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1750 mytask, ntasks, ntasks_x, ntasks_y, &
1751 ids, ide, jds, jde, 1 , 1 , &
1752 ims, ime, jms, jme, 1 , 1 , &
1753 ips, ipe, jps, jpe, 1 , 1 )
1754 CALL RSL_LITE_PACK ( local_communicator, grid%xkmv, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1755 mytask, ntasks, ntasks_x, ntasks_y, &
1756 ids, ide, jds, jde, kds, kde, &
1757 ims, ime, jms, jme, kms, kme, &
1758 ips, ipe, jps, jpe, kps, kpe )
1759 CALL RSL_LITE_PACK ( local_communicator, grid%xkmh, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1760 mytask, ntasks, ntasks_x, ntasks_y, &
1761 ids, ide, jds, jde, kds, kde, &
1762 ims, ime, jms, jme, kms, kme, &
1763 ips, ipe, jps, jpe, kps, kpe )
1764 CALL RSL_LITE_PACK ( local_communicator, grid%xkmhd, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1765 mytask, ntasks, ntasks_x, ntasks_y, &
1766 ids, ide, jds, jde, kds, kde, &
1767 ims, ime, jms, jme, kms, kme, &
1768 ips, ipe, jps, jpe, kps, kpe )
1769 CALL RSL_LITE_PACK ( local_communicator, grid%a_xkmhd, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1770 mytask, ntasks, ntasks_x, ntasks_y, &
1771 ids, ide, jds, jde, kds, kde, &
1772 ims, ime, jms, jme, kms, kme, &
1773 ips, ipe, jps, jpe, kps, kpe )
1774 CALL RSL_LITE_PACK ( local_communicator, grid%g_xkmhd, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1775 mytask, ntasks, ntasks_x, ntasks_y, &
1776 ids, ide, jds, jde, kds, kde, &
1777 ims, ime, jms, jme, kms, kme, &
1778 ips, ipe, jps, jpe, kps, kpe )
1779 CALL RSL_LITE_PACK ( local_communicator, grid%xkhv, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1780 mytask, ntasks, ntasks_x, ntasks_y, &
1781 ids, ide, jds, jde, kds, kde, &
1782 ims, ime, jms, jme, kms, kme, &
1783 ips, ipe, jps, jpe, kps, kpe )
1784 CALL RSL_LITE_PACK ( local_communicator, grid%xkhh, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1785 mytask, ntasks, ntasks_x, ntasks_y, &
1786 ids, ide, jds, jde, kds, kde, &
1787 ims, ime, jms, jme, kms, kme, &
1788 ips, ipe, jps, jpe, kps, kpe )
1789 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
1790 CALL RSL_LITE_PACK ( local_communicator, grid%lu_index, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1791 mytask, ntasks, ntasks_x, ntasks_y, &
1792 ids, ide, jds, jde, 1 , 1 , &
1793 ims, ime, jms, jme, 1 , 1 , &
1794 ips, ipe, jps, jpe, 1 , 1 )
1795 CALL RSL_LITE_PACK ( local_communicator, grid%lu_mask, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1796 mytask, ntasks, ntasks_x, ntasks_y, &
1797 ids, ide, jds, jde, 1 , 1 , &
1798 ims, ime, jms, jme, 1 , 1 , &
1799 ips, ipe, jps, jpe, 1 , 1 )
1800 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
1801 mytask, ntasks, ntasks_x, ntasks_y, &
1802 ids, ide, jds, jde, kds, kde, &
1803 ims, ime, jms, jme, kms, kme, &
1804 ips, ipe, jps, jpe, kps, kpe )
1805 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
1806 mytask, ntasks, ntasks_x, ntasks_y, &
1807 ids, ide, jds, jde, kds, kde, &
1808 ims, ime, jms, jme, kms, kme, &
1809 ips, ipe, jps, jpe, kps, kpe )
1810 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
1811 mytask, ntasks, ntasks_x, ntasks_y, &
1812 ids, ide, jds, jde, kds, kde, &
1813 ims, ime, jms, jme, kms, kme, &
1814 ips, ipe, jps, jpe, kps, kpe )
1815 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
1816 mytask, ntasks, ntasks_x, ntasks_y, &
1817 ids, ide, jds, jde, kds, kde, &
1818 ims, ime, jms, jme, kms, kme, &
1819 ips, ipe, jps, jpe, kps, kpe )
1820 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1821 mytask, ntasks, ntasks_x, ntasks_y, &
1822 ids, ide, jds, jde, kds, kde, &
1823 ims, ime, jms, jme, kms, kme, &
1824 ips, ipe, jps, jpe, kps, kpe )
1825 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1826 mytask, ntasks, ntasks_x, ntasks_y, &
1827 ids, ide, jds, jde, kds, kde, &
1828 ims, ime, jms, jme, kms, kme, &
1829 ips, ipe, jps, jpe, kps, kpe )
1830 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1831 mytask, ntasks, ntasks_x, ntasks_y, &
1832 ids, ide, jds, jde, kds, kde, &
1833 ims, ime, jms, jme, kms, kme, &
1834 ips, ipe, jps, jpe, kps, kpe )
1835 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1836 mytask, ntasks, ntasks_x, ntasks_y, &
1837 ids, ide, jds, jde, kds, kde, &
1838 ims, ime, jms, jme, kms, kme, &
1839 ips, ipe, jps, jpe, kps, kpe )
1840 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1841 mytask, ntasks, ntasks_x, ntasks_y, &
1842 ids, ide, jds, jde, kds, kde, &
1843 ims, ime, jms, jme, kms, kme, &
1844 ips, ipe, jps, jpe, kps, kpe )
1845 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1846 mytask, ntasks, ntasks_x, ntasks_y, &
1847 ids, ide, jds, jde, kds, kde, &
1848 ims, ime, jms, jme, kms, kme, &
1849 ips, ipe, jps, jpe, kps, kpe )
1850 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1851 mytask, ntasks, ntasks_x, ntasks_y, &
1852 ids, ide, jds, jde, kds, kde, &
1853 ims, ime, jms, jme, kms, kme, &
1854 ips, ipe, jps, jpe, kps, kpe )
1855 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1856 mytask, ntasks, ntasks_x, ntasks_y, &
1857 ids, ide, jds, jde, kds, kde, &
1858 ims, ime, jms, jme, kms, kme, &
1859 ips, ipe, jps, jpe, kps, kpe )
1860 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1861 mytask, ntasks, ntasks_x, ntasks_y, &
1862 ids, ide, jds, jde, kds, kde, &
1863 ims, ime, jms, jme, kms, kme, &
1864 ips, ipe, jps, jpe, kps, kpe )
1865 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1866 mytask, ntasks, ntasks_x, ntasks_y, &
1867 ids, ide, jds, jde, kds, kde, &
1868 ims, ime, jms, jme, kms, kme, &
1869 ips, ipe, jps, jpe, kps, kpe )
1870 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1871 mytask, ntasks, ntasks_x, ntasks_y, &
1872 ids, ide, jds, jde, kds, kde, &
1873 ims, ime, jms, jme, kms, kme, &
1874 ips, ipe, jps, jpe, kps, kpe )
1875 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1876 mytask, ntasks, ntasks_x, ntasks_y, &
1877 ids, ide, jds, jde, kds, kde, &
1878 ims, ime, jms, jme, kms, kme, &
1879 ips, ipe, jps, jpe, kps, kpe )
1880 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1881 mytask, ntasks, ntasks_x, ntasks_y, &
1882 ids, ide, jds, jde, kds, kde, &
1883 ims, ime, jms, jme, kms, kme, &
1884 ips, ipe, jps, jpe, kps, kpe )
1885 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1886 mytask, ntasks, ntasks_x, ntasks_y, &
1887 ids, ide, jds, jde, kds, kde, &
1888 ims, ime, jms, jme, kms, kme, &
1889 ips, ipe, jps, jpe, kps, kpe )
1890 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1891 mytask, ntasks, ntasks_x, ntasks_y, &
1892 ids, ide, jds, jde, kds, kde, &
1893 ims, ime, jms, jme, kms, kme, &
1894 ips, ipe, jps, jpe, kps, kpe )
1895 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1896 mytask, ntasks, ntasks_x, ntasks_y, &
1897 ids, ide, jds, jde, kds, kde, &
1898 ims, ime, jms, jme, kms, kme, &
1899 ips, ipe, jps, jpe, kps, kpe )
1900 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1901 mytask, ntasks, ntasks_x, ntasks_y, &
1902 ids, ide, jds, jde, 1 , 1 , &
1903 ims, ime, jms, jme, 1 , 1 , &
1904 ips, ipe, jps, jpe, 1 , 1 )
1905 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1906 mytask, ntasks, ntasks_x, ntasks_y, &
1907 ids, ide, jds, jde, 1 , 1 , &
1908 ims, ime, jms, jme, 1 , 1 , &
1909 ips, ipe, jps, jpe, 1 , 1 )
1910 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1911 mytask, ntasks, ntasks_x, ntasks_y, &
1912 ids, ide, jds, jde, 1 , 1 , &
1913 ims, ime, jms, jme, 1 , 1 , &
1914 ips, ipe, jps, jpe, 1 , 1 )
1915 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1916 mytask, ntasks, ntasks_x, ntasks_y, &
1917 ids, ide, jds, jde, 1 , 1 , &
1918 ims, ime, jms, jme, 1 , 1 , &
1919 ips, ipe, jps, jpe, 1 , 1 )
1920 CALL RSL_LITE_PACK ( local_communicator, grid%nest_pos, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1921 mytask, ntasks, ntasks_x, ntasks_y, &
1922 ids, ide, jds, jde, 1 , 1 , &
1923 ims, ime, jms, jme, 1 , 1 , &
1924 ips, ipe, jps, jpe, 1 , 1 )
1925 CALL RSL_LITE_PACK ( local_communicator, grid%nest_mask, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1926 mytask, ntasks, ntasks_x, ntasks_y, &
1927 ids, ide, jds, jde, 1 , 1 , &
1928 ims, ime, jms, jme, 1 , 1 , &
1929 ips, ipe, jps, jpe, 1 , 1 )
1930 CALL RSL_LITE_PACK ( local_communicator, grid%ht_coarse, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1931 mytask, ntasks, ntasks_x, ntasks_y, &
1932 ids, ide, jds, jde, 1 , 1 , &
1933 ims, ime, jms, jme, 1 , 1 , &
1934 ips, ipe, jps, jpe, 1 , 1 )
1935 CALL RSL_LITE_PACK ( local_communicator, grid%a_z, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1936 mytask, ntasks, ntasks_x, ntasks_y, &
1937 ids, ide, jds, jde, kds, kde, &
1938 ims, ime, jms, jme, kms, kme, &
1939 ips, ipe, jps, jpe, kps, kpe )
1940 CALL RSL_LITE_PACK ( local_communicator, grid%g_z, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1941 mytask, ntasks, ntasks_x, ntasks_y, &
1942 ids, ide, jds, jde, kds, kde, &
1943 ims, ime, jms, jme, kms, kme, &
1944 ips, ipe, jps, jpe, kps, kpe )
1945 CALL RSL_LITE_PACK ( local_communicator, grid%q2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1946 mytask, ntasks, ntasks_x, ntasks_y, &
1947 ids, ide, jds, jde, 1 , 1 , &
1948 ims, ime, jms, jme, 1 , 1 , &
1949 ips, ipe, jps, jpe, 1 , 1 )
1950 CALL RSL_LITE_PACK ( local_communicator, grid%t2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1951 mytask, ntasks, ntasks_x, ntasks_y, &
1952 ids, ide, jds, jde, 1 , 1 , &
1953 ims, ime, jms, jme, 1 , 1 , &
1954 ips, ipe, jps, jpe, 1 , 1 )
1955 CALL RSL_LITE_PACK ( local_communicator, grid%th2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1956 mytask, ntasks, ntasks_x, ntasks_y, &
1957 ids, ide, jds, jde, 1 , 1 , &
1958 ims, ime, jms, jme, 1 , 1 , &
1959 ips, ipe, jps, jpe, 1 , 1 )
1960 CALL RSL_LITE_PACK ( local_communicator, grid%psfc, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1961 mytask, ntasks, ntasks_x, ntasks_y, &
1962 ids, ide, jds, jde, 1 , 1 , &
1963 ims, ime, jms, jme, 1 , 1 , &
1964 ips, ipe, jps, jpe, 1 , 1 )
1965 CALL RSL_LITE_PACK ( local_communicator, grid%u10, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1966 mytask, ntasks, ntasks_x, ntasks_y, &
1967 ids, ide, jds, jde, 1 , 1 , &
1968 ims, ime, jms, jme, 1 , 1 , &
1969 ips, ipe, jps, jpe, 1 , 1 )
1970 CALL RSL_LITE_PACK ( local_communicator, grid%v10, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1971 mytask, ntasks, ntasks_x, ntasks_y, &
1972 ids, ide, jds, jde, 1 , 1 , &
1973 ims, ime, jms, jme, 1 , 1 , &
1974 ips, ipe, jps, jpe, 1 , 1 )
1975 CALL RSL_LITE_PACK ( local_communicator, grid%uratx, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1976 mytask, ntasks, ntasks_x, ntasks_y, &
1977 ids, ide, jds, jde, 1 , 1 , &
1978 ims, ime, jms, jme, 1 , 1 , &
1979 ips, ipe, jps, jpe, 1 , 1 )
1980 CALL RSL_LITE_PACK ( local_communicator, grid%vratx, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1981 mytask, ntasks, ntasks_x, ntasks_y, &
1982 ids, ide, jds, jde, 1 , 1 , &
1983 ims, ime, jms, jme, 1 , 1 , &
1984 ips, ipe, jps, jpe, 1 , 1 )
1985 CALL RSL_LITE_PACK ( local_communicator, grid%tratx, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1986 mytask, ntasks, ntasks_x, ntasks_y, &
1987 ids, ide, jds, jde, 1 , 1 , &
1988 ims, ime, jms, jme, 1 , 1 , &
1989 ips, ipe, jps, jpe, 1 , 1 )
1990 CALL RSL_LITE_PACK ( local_communicator, grid%imask_nostag, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1991 mytask, ntasks, ntasks_x, ntasks_y, &
1992 ids, ide, jds, jde, 1 , 1 , &
1993 ims, ime, jms, jme, 1 , 1 , &
1994 ips, ipe, jps, jpe, 1 , 1 )
1995 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xstag, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 1, &
1996 mytask, ntasks, ntasks_x, ntasks_y, &
1997 ids, ide, jds, jde, 1 , 1 , &
1998 ims, ime, jms, jme, 1 , 1 , &
1999 ips, ipe, jps, jpe, 1 , 1 )
2000 CALL RSL_LITE_PACK ( local_communicator, grid%imask_ystag, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2001 mytask, ntasks, ntasks_x, ntasks_y, &
2002 ids, ide, jds, jde, 1 , 1 , &
2003 ims, ime, jms, jme, 1 , 1 , &
2004 ips, ipe, jps, jpe, 1 , 1 )
2005 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xystag, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 1, &
2006 mytask, ntasks, ntasks_x, ntasks_y, &
2007 ids, ide, jds, jde, 1 , 1 , &
2008 ims, ime, jms, jme, 1 , 1 , &
2009 ips, ipe, jps, jpe, 1 , 1 )
2010 DO itrace = PARAM_FIRST_SCALAR, num_moist
2011 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2012 mytask, ntasks, ntasks_x, ntasks_y, &
2013 ids, ide, jds, jde, kds, kde, &
2014 ims, ime, jms, jme, kms, kme, &
2015 ips, ipe, jps, jpe, kps, kpe )
2016 ENDDO
2017 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
2018 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2019 mytask, ntasks, ntasks_x, ntasks_y, &
2020 ids, ide, jds, jde, kds, kde, &
2021 ims, ime, jms, jme, kms, kme, &
2022 ips, ipe, jps, jpe, kps, kpe )
2023 ENDDO
2024 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
2025 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2026 mytask, ntasks, ntasks_x, ntasks_y, &
2027 ids, ide, jds, jde, kds, kde, &
2028 ims, ime, jms, jme, kms, kme, &
2029 ips, ipe, jps, jpe, kps, kpe )
2030 ENDDO
2031 DO itrace = PARAM_FIRST_SCALAR, num_scalar
2032 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2033 mytask, ntasks, ntasks_x, ntasks_y, &
2034 ids, ide, jds, jde, kds, kde, &
2035 ims, ime, jms, jme, kms, kme, &
2036 ips, ipe, jps, jpe, kps, kpe )
2037 ENDDO
2038 DO itrace = PARAM_FIRST_SCALAR, num_a_scalar
2039 CALL RSL_LITE_PACK ( local_communicator,a_scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2040 mytask, ntasks, ntasks_x, ntasks_y, &
2041 ids, ide, jds, jde, kds, kde, &
2042 ims, ime, jms, jme, kms, kme, &
2043 ips, ipe, jps, jpe, kps, kpe )
2044 ENDDO
2045 DO itrace = PARAM_FIRST_SCALAR, num_g_scalar
2046 CALL RSL_LITE_PACK ( local_communicator,g_scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2047 mytask, ntasks, ntasks_x, ntasks_y, &
2048 ids, ide, jds, jde, kds, kde, &
2049 ims, ime, jms, jme, kms, kme, &
2050 ips, ipe, jps, jpe, kps, kpe )
2051 ENDDO
2052 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2053 mytask, ntasks, ntasks_x, ntasks_y, &
2054 ids, ide, jds, jde, 1 , 1 , &
2055 ims, ime, jms, jme, 1 , 1 , &
2056 ips, ipe, jps, jpe, 1 , 1 )
2057 CALL RSL_LITE_PACK ( local_communicator, grid%shdmax, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2058 mytask, ntasks, ntasks_x, ntasks_y, &
2059 ids, ide, jds, jde, 1 , 1 , &
2060 ims, ime, jms, jme, 1 , 1 , &
2061 ips, ipe, jps, jpe, 1 , 1 )
2062 CALL RSL_LITE_PACK ( local_communicator, grid%shdmin, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2063 mytask, ntasks, ntasks_x, ntasks_y, &
2064 ids, ide, jds, jde, 1 , 1 , &
2065 ims, ime, jms, jme, 1 , 1 , &
2066 ips, ipe, jps, jpe, 1 , 1 )
2067 CALL RSL_LITE_PACK ( local_communicator, grid%snoalb, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2068 mytask, ntasks, ntasks_x, ntasks_y, &
2069 ids, ide, jds, jde, 1 , 1 , &
2070 ims, ime, jms, jme, 1 , 1 , &
2071 ips, ipe, jps, jpe, 1 , 1 )
2072 CALL RSL_LITE_PACK ( local_communicator, grid%tslb, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2073 mytask, ntasks, ntasks_x, ntasks_y, &
2074 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
2075 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
2076 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
2077 CALL RSL_LITE_PACK ( local_communicator, grid%smois, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2078 mytask, ntasks, ntasks_x, ntasks_y, &
2079 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
2080 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
2081 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
2082 CALL RSL_LITE_PACK ( local_communicator, grid%sh2o, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2083 mytask, ntasks, ntasks_x, ntasks_y, &
2084 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
2085 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
2086 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
2087 CALL RSL_LITE_PACK ( local_communicator, grid%xice, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2088 mytask, ntasks, ntasks_x, ntasks_y, &
2089 ids, ide, jds, jde, 1 , 1 , &
2090 ims, ime, jms, jme, 1 , 1 , &
2091 ips, ipe, jps, jpe, 1 , 1 )
2092 CALL RSL_LITE_PACK ( local_communicator, grid%sfcrunoff, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2093 mytask, ntasks, ntasks_x, ntasks_y, &
2094 ids, ide, jds, jde, 1 , 1 , &
2095 ims, ime, jms, jme, 1 , 1 , &
2096 ips, ipe, jps, jpe, 1 , 1 )
2097 CALL RSL_LITE_PACK ( local_communicator, grid%udrunoff, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2098 mytask, ntasks, ntasks_x, ntasks_y, &
2099 ids, ide, jds, jde, 1 , 1 , &
2100 ims, ime, jms, jme, 1 , 1 , &
2101 ips, ipe, jps, jpe, 1 , 1 )
2102 CALL RSL_LITE_PACK ( local_communicator, grid%ivgtyp, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2103 mytask, ntasks, ntasks_x, ntasks_y, &
2104 ids, ide, jds, jde, 1 , 1 , &
2105 ims, ime, jms, jme, 1 , 1 , &
2106 ips, ipe, jps, jpe, 1 , 1 )
2107 CALL RSL_LITE_PACK ( local_communicator, grid%isltyp, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2108 mytask, ntasks, ntasks_x, ntasks_y, &
2109 ids, ide, jds, jde, 1 , 1 , &
2110 ims, ime, jms, jme, 1 , 1 , &
2111 ips, ipe, jps, jpe, 1 , 1 )
2112 CALL RSL_LITE_PACK ( local_communicator, grid%vegfra, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2113 mytask, ntasks, ntasks_x, ntasks_y, &
2114 ids, ide, jds, jde, 1 , 1 , &
2115 ims, ime, jms, jme, 1 , 1 , &
2116 ips, ipe, jps, jpe, 1 , 1 )
2117 CALL RSL_LITE_PACK ( local_communicator, grid%sfcevp, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2118 mytask, ntasks, ntasks_x, ntasks_y, &
2119 ids, ide, jds, jde, 1 , 1 , &
2120 ims, ime, jms, jme, 1 , 1 , &
2121 ips, ipe, jps, jpe, 1 , 1 )
2122 CALL RSL_LITE_PACK ( local_communicator, grid%acsnow, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2123 mytask, ntasks, ntasks_x, ntasks_y, &
2124 ids, ide, jds, jde, 1 , 1 , &
2125 ims, ime, jms, jme, 1 , 1 , &
2126 ips, ipe, jps, jpe, 1 , 1 )
2127 CALL RSL_LITE_PACK ( local_communicator, grid%acsnom, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2128 mytask, ntasks, ntasks_x, ntasks_y, &
2129 ids, ide, jds, jde, 1 , 1 , &
2130 ims, ime, jms, jme, 1 , 1 , &
2131 ips, ipe, jps, jpe, 1 , 1 )
2132 CALL RSL_LITE_PACK ( local_communicator, grid%snow, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2133 mytask, ntasks, ntasks_x, ntasks_y, &
2134 ids, ide, jds, jde, 1 , 1 , &
2135 ims, ime, jms, jme, 1 , 1 , &
2136 ips, ipe, jps, jpe, 1 , 1 )
2137 CALL RSL_LITE_PACK ( local_communicator, grid%snowh, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2138 mytask, ntasks, ntasks_x, ntasks_y, &
2139 ids, ide, jds, jde, 1 , 1 , &
2140 ims, ime, jms, jme, 1 , 1 , &
2141 ips, ipe, jps, jpe, 1 , 1 )
2142 CALL RSL_LITE_PACK ( local_communicator, grid%rhosn, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2143 mytask, ntasks, ntasks_x, ntasks_y, &
2144 ids, ide, jds, jde, 1 , 1 , &
2145 ims, ime, jms, jme, 1 , 1 , &
2146 ips, ipe, jps, jpe, 1 , 1 )
2147 CALL RSL_LITE_PACK ( local_communicator, grid%canwat, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2148 mytask, ntasks, ntasks_x, ntasks_y, &
2149 ids, ide, jds, jde, 1 , 1 , &
2150 ims, ime, jms, jme, 1 , 1 , &
2151 ips, ipe, jps, jpe, 1 , 1 )
2152 CALL RSL_LITE_PACK ( local_communicator, grid%sst, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2153 mytask, ntasks, ntasks_x, ntasks_y, &
2154 ids, ide, jds, jde, 1 , 1 , &
2155 ims, ime, jms, jme, 1 , 1 , &
2156 ips, ipe, jps, jpe, 1 , 1 )
2157 CALL RSL_LITE_PACK ( local_communicator, grid%htop, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2158 mytask, ntasks, ntasks_x, ntasks_y, &
2159 ids, ide, jds, jde, 1 , 1 , &
2160 ims, ime, jms, jme, 1 , 1 , &
2161 ips, ipe, jps, jpe, 1 , 1 )
2162 CALL RSL_LITE_PACK ( local_communicator, grid%hbot, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2163 mytask, ntasks, ntasks_x, ntasks_y, &
2164 ids, ide, jds, jde, 1 , 1 , &
2165 ims, ime, jms, jme, 1 , 1 , &
2166 ips, ipe, jps, jpe, 1 , 1 )
2167 CALL RSL_LITE_PACK ( local_communicator, grid%cuppt, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2168 mytask, ntasks, ntasks_x, ntasks_y, &
2169 ids, ide, jds, jde, 1 , 1 , &
2170 ims, ime, jms, jme, 1 , 1 , &
2171 ips, ipe, jps, jpe, 1 , 1 )
2172 CALL RSL_LITE_PACK ( local_communicator, grid%rswtoa, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2173 mytask, ntasks, ntasks_x, ntasks_y, &
2174 ids, ide, jds, jde, 1 , 1 , &
2175 ims, ime, jms, jme, 1 , 1 , &
2176 ips, ipe, jps, jpe, 1 , 1 )
2177 CALL RSL_LITE_PACK ( local_communicator, grid%rlwtoa, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2178 mytask, ntasks, ntasks_x, ntasks_y, &
2179 ids, ide, jds, jde, 1 , 1 , &
2180 ims, ime, jms, jme, 1 , 1 , &
2181 ips, ipe, jps, jpe, 1 , 1 )
2182 CALL RSL_LITE_PACK ( local_communicator, grid%czmean, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2183 mytask, ntasks, ntasks_x, ntasks_y, &
2184 ids, ide, jds, jde, 1 , 1 , &
2185 ims, ime, jms, jme, 1 , 1 , &
2186 ips, ipe, jps, jpe, 1 , 1 )
2187 CALL RSL_LITE_PACK ( local_communicator, grid%cfracl, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2188 mytask, ntasks, ntasks_x, ntasks_y, &
2189 ids, ide, jds, jde, 1 , 1 , &
2190 ims, ime, jms, jme, 1 , 1 , &
2191 ips, ipe, jps, jpe, 1 , 1 )
2192 CALL RSL_LITE_PACK ( local_communicator, grid%cfracm, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2193 mytask, ntasks, ntasks_x, ntasks_y, &
2194 ids, ide, jds, jde, 1 , 1 , &
2195 ims, ime, jms, jme, 1 , 1 , &
2196 ips, ipe, jps, jpe, 1 , 1 )
2197 CALL RSL_LITE_PACK ( local_communicator, grid%cfrach, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2198 mytask, ntasks, ntasks_x, ntasks_y, &
2199 ids, ide, jds, jde, 1 , 1 , &
2200 ims, ime, jms, jme, 1 , 1 , &
2201 ips, ipe, jps, jpe, 1 , 1 )
2202 CALL RSL_LITE_PACK ( local_communicator, grid%acfrst, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2203 mytask, ntasks, ntasks_x, ntasks_y, &
2204 ids, ide, jds, jde, 1 , 1 , &
2205 ims, ime, jms, jme, 1 , 1 , &
2206 ips, ipe, jps, jpe, 1 , 1 )
2207 CALL RSL_LITE_PACK ( local_communicator, grid%ncfrst, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2208 mytask, ntasks, ntasks_x, ntasks_y, &
2209 ids, ide, jds, jde, 1 , 1 , &
2210 ims, ime, jms, jme, 1 , 1 , &
2211 ips, ipe, jps, jpe, 1 , 1 )
2212 CALL RSL_LITE_PACK ( local_communicator, grid%acfrcv, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2213 mytask, ntasks, ntasks_x, ntasks_y, &
2214 ids, ide, jds, jde, 1 , 1 , &
2215 ims, ime, jms, jme, 1 , 1 , &
2216 ips, ipe, jps, jpe, 1 , 1 )
2217 CALL RSL_LITE_PACK ( local_communicator, grid%ncfrcv, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2218 mytask, ntasks, ntasks_x, ntasks_y, &
2219 ids, ide, jds, jde, 1 , 1 , &
2220 ims, ime, jms, jme, 1 , 1 , &
2221 ips, ipe, jps, jpe, 1 , 1 )
2222 CALL RSL_LITE_PACK ( local_communicator, grid%h_diabatic, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2223 mytask, ntasks, ntasks_x, ntasks_y, &
2224 ids, ide, jds, jde, kds, kde, &
2225 ims, ime, jms, jme, kms, kme, &
2226 ips, ipe, jps, jpe, kps, kpe )
2227 CALL RSL_LITE_PACK ( local_communicator, grid%msft, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2228 mytask, ntasks, ntasks_x, ntasks_y, &
2229 ids, ide, jds, jde, 1 , 1 , &
2230 ims, ime, jms, jme, 1 , 1 , &
2231 ips, ipe, jps, jpe, 1 , 1 )
2232 CALL RSL_LITE_PACK ( local_communicator, grid%msfu, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 1, &
2233 mytask, ntasks, ntasks_x, ntasks_y, &
2234 ids, ide, jds, jde, 1 , 1 , &
2235 ims, ime, jms, jme, 1 , 1 , &
2236 ips, ipe, jps, jpe, 1 , 1 )
2237 CALL RSL_LITE_PACK ( local_communicator, grid%msfv, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2238 mytask, ntasks, ntasks_x, ntasks_y, &
2239 ids, ide, jds, jde, 1 , 1 , &
2240 ims, ime, jms, jme, 1 , 1 , &
2241 ips, ipe, jps, jpe, 1 , 1 )
2242 CALL RSL_LITE_PACK ( local_communicator, grid%f, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2243 mytask, ntasks, ntasks_x, ntasks_y, &
2244 ids, ide, jds, jde, 1 , 1 , &
2245 ims, ime, jms, jme, 1 , 1 , &
2246 ips, ipe, jps, jpe, 1 , 1 )
2247 CALL RSL_LITE_PACK ( local_communicator, grid%e, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2248 mytask, ntasks, ntasks_x, ntasks_y, &
2249 ids, ide, jds, jde, 1 , 1 , &
2250 ims, ime, jms, jme, 1 , 1 , &
2251 ips, ipe, jps, jpe, 1 , 1 )
2252 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2253 mytask, ntasks, ntasks_x, ntasks_y, &
2254 ids, ide, jds, jde, 1 , 1 , &
2255 ims, ime, jms, jme, 1 , 1 , &
2256 ips, ipe, jps, jpe, 1 , 1 )
2257 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2258 mytask, ntasks, ntasks_x, ntasks_y, &
2259 ids, ide, jds, jde, 1 , 1 , &
2260 ims, ime, jms, jme, 1 , 1 , &
2261 ips, ipe, jps, jpe, 1 , 1 )
2262 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2263 mytask, ntasks, ntasks_x, ntasks_y, &
2264 ids, ide, jds, jde, 1 , 1 , &
2265 ims, ime, jms, jme, 1 , 1 , &
2266 ips, ipe, jps, jpe, 1 , 1 )
2267 CALL RSL_LITE_PACK ( local_communicator, grid%ht_fine, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2268 mytask, ntasks, ntasks_x, ntasks_y, &
2269 ids, ide, jds, jde, 1 , 1 , &
2270 ims, ime, jms, jme, 1 , 1 , &
2271 ips, ipe, jps, jpe, 1 , 1 )
2272 CALL RSL_LITE_PACK ( local_communicator, grid%ht_int, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2273 mytask, ntasks, ntasks_x, ntasks_y, &
2274 ids, ide, jds, jde, 1 , 1 , &
2275 ims, ime, jms, jme, 1 , 1 , &
2276 ips, ipe, jps, jpe, 1 , 1 )
2277 CALL RSL_LITE_PACK ( local_communicator, grid%ht_input, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2278 mytask, ntasks, ntasks_x, ntasks_y, &
2279 ids, ide, jds, jde, 1 , 1 , &
2280 ims, ime, jms, jme, 1 , 1 , &
2281 ips, ipe, jps, jpe, 1 , 1 )
2282 CALL RSL_LITE_PACK ( local_communicator, grid%tsk, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2283 mytask, ntasks, ntasks_x, ntasks_y, &
2284 ids, ide, jds, jde, 1 , 1 , &
2285 ims, ime, jms, jme, 1 , 1 , &
2286 ips, ipe, jps, jpe, 1 , 1 )
2287 CALL RSL_LITE_PACK ( local_communicator, grid%tsk_save, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2288 mytask, ntasks, ntasks_x, ntasks_y, &
2289 ids, ide, jds, jde, 1 , 1 , &
2290 ims, ime, jms, jme, 1 , 1 , &
2291 ips, ipe, jps, jpe, 1 , 1 )
2292 CALL RSL_LITE_PACK ( local_communicator, grid%rainc, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2293 mytask, ntasks, ntasks_x, ntasks_y, &
2294 ids, ide, jds, jde, 1 , 1 , &
2295 ims, ime, jms, jme, 1 , 1 , &
2296 ips, ipe, jps, jpe, 1 , 1 )
2297 CALL RSL_LITE_PACK ( local_communicator, grid%rainnc, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2298 mytask, ntasks, ntasks_x, ntasks_y, &
2299 ids, ide, jds, jde, 1 , 1 , &
2300 ims, ime, jms, jme, 1 , 1 , &
2301 ips, ipe, jps, jpe, 1 , 1 )
2302 CALL RSL_LITE_PACK ( local_communicator, grid%xlat, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2303 mytask, ntasks, ntasks_x, ntasks_y, &
2304 ids, ide, jds, jde, 1 , 1 , &
2305 ims, ime, jms, jme, 1 , 1 , &
2306 ips, ipe, jps, jpe, 1 , 1 )
2307 CALL RSL_LITE_PACK ( local_communicator, grid%xlong, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2308 mytask, ntasks, ntasks_x, ntasks_y, &
2309 ids, ide, jds, jde, 1 , 1 , &
2310 ims, ime, jms, jme, 1 , 1 , &
2311 ips, ipe, jps, jpe, 1 , 1 )
2312 CALL RSL_LITE_PACK ( local_communicator, grid%albbck, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2313 mytask, ntasks, ntasks_x, ntasks_y, &
2314 ids, ide, jds, jde, 1 , 1 , &
2315 ims, ime, jms, jme, 1 , 1 , &
2316 ips, ipe, jps, jpe, 1 , 1 )
2317 CALL RSL_LITE_PACK ( local_communicator, grid%tmn, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2318 mytask, ntasks, ntasks_x, ntasks_y, &
2319 ids, ide, jds, jde, 1 , 1 , &
2320 ims, ime, jms, jme, 1 , 1 , &
2321 ips, ipe, jps, jpe, 1 , 1 )
2322 CALL RSL_LITE_PACK ( local_communicator, grid%xland, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2323 mytask, ntasks, ntasks_x, ntasks_y, &
2324 ids, ide, jds, jde, 1 , 1 , &
2325 ims, ime, jms, jme, 1 , 1 , &
2326 ips, ipe, jps, jpe, 1 , 1 )
2327 CALL RSL_LITE_PACK ( local_communicator, grid%znt, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2328 mytask, ntasks, ntasks_x, ntasks_y, &
2329 ids, ide, jds, jde, 1 , 1 , &
2330 ims, ime, jms, jme, 1 , 1 , &
2331 ips, ipe, jps, jpe, 1 , 1 )
2332 CALL RSL_LITE_PACK ( local_communicator, grid%snowc, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2333 mytask, ntasks, ntasks_x, ntasks_y, &
2334 ids, ide, jds, jde, 1 , 1 , &
2335 ims, ime, jms, jme, 1 , 1 , &
2336 ips, ipe, jps, jpe, 1 , 1 )
2337 CALL RSL_LITE_PACK ( local_communicator, grid%xkmv, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2338 mytask, ntasks, ntasks_x, ntasks_y, &
2339 ids, ide, jds, jde, kds, kde, &
2340 ims, ime, jms, jme, kms, kme, &
2341 ips, ipe, jps, jpe, kps, kpe )
2342 CALL RSL_LITE_PACK ( local_communicator, grid%xkmh, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2343 mytask, ntasks, ntasks_x, ntasks_y, &
2344 ids, ide, jds, jde, kds, kde, &
2345 ims, ime, jms, jme, kms, kme, &
2346 ips, ipe, jps, jpe, kps, kpe )
2347 CALL RSL_LITE_PACK ( local_communicator, grid%xkmhd, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2348 mytask, ntasks, ntasks_x, ntasks_y, &
2349 ids, ide, jds, jde, kds, kde, &
2350 ims, ime, jms, jme, kms, kme, &
2351 ips, ipe, jps, jpe, kps, kpe )
2352 CALL RSL_LITE_PACK ( local_communicator, grid%a_xkmhd, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2353 mytask, ntasks, ntasks_x, ntasks_y, &
2354 ids, ide, jds, jde, kds, kde, &
2355 ims, ime, jms, jme, kms, kme, &
2356 ips, ipe, jps, jpe, kps, kpe )
2357 CALL RSL_LITE_PACK ( local_communicator, grid%g_xkmhd, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2358 mytask, ntasks, ntasks_x, ntasks_y, &
2359 ids, ide, jds, jde, kds, kde, &
2360 ims, ime, jms, jme, kms, kme, &
2361 ips, ipe, jps, jpe, kps, kpe )
2362 CALL RSL_LITE_PACK ( local_communicator, grid%xkhv, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2363 mytask, ntasks, ntasks_x, ntasks_y, &
2364 ids, ide, jds, jde, kds, kde, &
2365 ims, ime, jms, jme, kms, kme, &
2366 ips, ipe, jps, jpe, kps, kpe )
2367 CALL RSL_LITE_PACK ( local_communicator, grid%xkhh, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2368 mytask, ntasks, ntasks_x, ntasks_y, &
2369 ids, ide, jds, jde, kds, kde, &
2370 ims, ime, jms, jme, kms, kme, &
2371 ips, ipe, jps, jpe, kps, kpe )
2372 !ENDOFREGISTRYGENERATEDINCLUDE
2373 grid%lu_index (ims:ime,jps:min(jde-1,jpe)) = grid%lu_index (ims:ime,jps+py:min(jde-1,jpe)+py)
2374 grid%lu_mask (ims:ime,jps:min(jde-1,jpe)) = grid%lu_mask (ims:ime,jps+py:min(jde-1,jpe)+py)
2375 grid%a_u_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_u_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2376 grid%a_u_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_u_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2377 grid%g_u_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_u_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2378 grid%g_u_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_u_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2379 grid%a_v_1 (ims:ime,:,jps:min(jde,jpe)) = grid%a_v_1 (ims:ime,:,jps+py:min(jde,jpe)+py)
2380 grid%a_v_2 (ims:ime,:,jps:min(jde,jpe)) = grid%a_v_2 (ims:ime,:,jps+py:min(jde,jpe)+py)
2381 grid%g_v_1 (ims:ime,:,jps:min(jde,jpe)) = grid%g_v_1 (ims:ime,:,jps+py:min(jde,jpe)+py)
2382 grid%g_v_2 (ims:ime,:,jps:min(jde,jpe)) = grid%g_v_2 (ims:ime,:,jps+py:min(jde,jpe)+py)
2383 grid%a_w_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_w_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2384 grid%a_w_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_w_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2385 grid%g_w_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_w_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2386 grid%g_w_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_w_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2387 grid%a_ph_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_ph_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2388 grid%a_ph_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_ph_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2389 grid%g_ph_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_ph_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2390 grid%g_ph_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_ph_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2391 grid%a_t_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_t_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2392 grid%a_t_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_t_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2393 grid%g_t_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_t_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2394 grid%g_t_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_t_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2395 grid%a_mu_1 (ims:ime,jps:min(jde-1,jpe)) = grid%a_mu_1 (ims:ime,jps+py:min(jde-1,jpe)+py)
2396 grid%a_mu_2 (ims:ime,jps:min(jde-1,jpe)) = grid%a_mu_2 (ims:ime,jps+py:min(jde-1,jpe)+py)
2397 grid%g_mu_1 (ims:ime,jps:min(jde-1,jpe)) = grid%g_mu_1 (ims:ime,jps+py:min(jde-1,jpe)+py)
2398 grid%g_mu_2 (ims:ime,jps:min(jde-1,jpe)) = grid%g_mu_2 (ims:ime,jps+py:min(jde-1,jpe)+py)
2399 grid%nest_pos (ims:ime,jps:min(jde-1,jpe)) = grid%nest_pos (ims:ime,jps+py:min(jde-1,jpe)+py)
2400 grid%nest_mask (ims:ime,jps:min(jde-1,jpe)) = grid%nest_mask (ims:ime,jps+py:min(jde-1,jpe)+py)
2401 grid%ht_coarse (ims:ime,jps:min(jde-1,jpe)) = grid%ht_coarse (ims:ime,jps+py:min(jde-1,jpe)+py)
2402 grid%a_z (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_z (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2403 grid%g_z (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_z (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2404 grid%q2 (ims:ime,jps:min(jde-1,jpe)) = grid%q2 (ims:ime,jps+py:min(jde-1,jpe)+py)
2405 grid%t2 (ims:ime,jps:min(jde-1,jpe)) = grid%t2 (ims:ime,jps+py:min(jde-1,jpe)+py)
2406 grid%th2 (ims:ime,jps:min(jde-1,jpe)) = grid%th2 (ims:ime,jps+py:min(jde-1,jpe)+py)
2407 grid%psfc (ims:ime,jps:min(jde-1,jpe)) = grid%psfc (ims:ime,jps+py:min(jde-1,jpe)+py)
2408 grid%u10 (ims:ime,jps:min(jde-1,jpe)) = grid%u10 (ims:ime,jps+py:min(jde-1,jpe)+py)
2409 grid%v10 (ims:ime,jps:min(jde-1,jpe)) = grid%v10 (ims:ime,jps+py:min(jde-1,jpe)+py)
2410 grid%uratx (ims:ime,jps:min(jde-1,jpe)) = grid%uratx (ims:ime,jps+py:min(jde-1,jpe)+py)
2411 grid%vratx (ims:ime,jps:min(jde-1,jpe)) = grid%vratx (ims:ime,jps+py:min(jde-1,jpe)+py)
2412 grid%tratx (ims:ime,jps:min(jde-1,jpe)) = grid%tratx (ims:ime,jps+py:min(jde-1,jpe)+py)
2413 grid%imask_nostag (ims:ime,jps:min(jde-1,jpe)) = grid%imask_nostag (ims:ime,jps+py:min(jde-1,jpe)+py)
2414 grid%imask_xstag (ims:ime,jps:min(jde-1,jpe)) = grid%imask_xstag (ims:ime,jps+py:min(jde-1,jpe)+py)
2415 grid%imask_ystag (ims:ime,jps:min(jde,jpe)) = grid%imask_ystag (ims:ime,jps+py:min(jde,jpe)+py)
2416 grid%imask_xystag (ims:ime,jps:min(jde,jpe)) = grid%imask_xystag (ims:ime,jps+py:min(jde,jpe)+py)
2417 DO itrace = PARAM_FIRST_SCALAR, num_moist
2418 moist ( ims:ime,:,jps:min(jde-1,jpe),itrace) = moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,itrace)
2419 ENDDO
2420 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
2421 a_moist ( ims:ime,:,jps:min(jde-1,jpe),itrace) = a_moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,itrace)
2422 ENDDO
2423 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
2424 g_moist ( ims:ime,:,jps:min(jde-1,jpe),itrace) = g_moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,itrace)
2425 ENDDO
2426 DO itrace = PARAM_FIRST_SCALAR, num_scalar
2427 scalar ( ims:ime,:,jps:min(jde-1,jpe),itrace) = scalar (ims:ime,:,jps+py:min(jde-1,jpe)+py,itrace)
2428 ENDDO
2429 DO itrace = PARAM_FIRST_SCALAR, num_a_scalar
2430 a_scalar ( ims:ime,:,jps:min(jde-1,jpe),itrace) = a_scalar (ims:ime,:,jps+py:min(jde-1,jpe)+py,itrace)
2431 ENDDO
2432 DO itrace = PARAM_FIRST_SCALAR, num_g_scalar
2433 g_scalar ( ims:ime,:,jps:min(jde-1,jpe),itrace) = g_scalar (ims:ime,:,jps+py:min(jde-1,jpe)+py,itrace)
2434 ENDDO
2435 grid%landmask (ims:ime,jps:min(jde-1,jpe)) = grid%landmask (ims:ime,jps+py:min(jde-1,jpe)+py)
2436 grid%shdmax (ims:ime,jps:min(jde-1,jpe)) = grid%shdmax (ims:ime,jps+py:min(jde-1,jpe)+py)
2437 grid%shdmin (ims:ime,jps:min(jde-1,jpe)) = grid%shdmin (ims:ime,jps+py:min(jde-1,jpe)+py)
2438 grid%snoalb (ims:ime,jps:min(jde-1,jpe)) = grid%snoalb (ims:ime,jps+py:min(jde-1,jpe)+py)
2439 grid%tslb (ims:ime,:,jps:min(jde-1,jpe)) = grid%tslb (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2440 grid%smois (ims:ime,:,jps:min(jde-1,jpe)) = grid%smois (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2441 grid%sh2o (ims:ime,:,jps:min(jde-1,jpe)) = grid%sh2o (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2442 grid%xice (ims:ime,jps:min(jde-1,jpe)) = grid%xice (ims:ime,jps+py:min(jde-1,jpe)+py)
2443 grid%sfcrunoff (ims:ime,jps:min(jde-1,jpe)) = grid%sfcrunoff (ims:ime,jps+py:min(jde-1,jpe)+py)
2444 grid%udrunoff (ims:ime,jps:min(jde-1,jpe)) = grid%udrunoff (ims:ime,jps+py:min(jde-1,jpe)+py)
2445 grid%ivgtyp (ims:ime,jps:min(jde-1,jpe)) = grid%ivgtyp (ims:ime,jps+py:min(jde-1,jpe)+py)
2446 grid%isltyp (ims:ime,jps:min(jde-1,jpe)) = grid%isltyp (ims:ime,jps+py:min(jde-1,jpe)+py)
2447 grid%vegfra (ims:ime,jps:min(jde-1,jpe)) = grid%vegfra (ims:ime,jps+py:min(jde-1,jpe)+py)
2448 grid%sfcevp (ims:ime,jps:min(jde-1,jpe)) = grid%sfcevp (ims:ime,jps+py:min(jde-1,jpe)+py)
2449 grid%acsnow (ims:ime,jps:min(jde-1,jpe)) = grid%acsnow (ims:ime,jps+py:min(jde-1,jpe)+py)
2450 grid%acsnom (ims:ime,jps:min(jde-1,jpe)) = grid%acsnom (ims:ime,jps+py:min(jde-1,jpe)+py)
2451 grid%snow (ims:ime,jps:min(jde-1,jpe)) = grid%snow (ims:ime,jps+py:min(jde-1,jpe)+py)
2452 grid%snowh (ims:ime,jps:min(jde-1,jpe)) = grid%snowh (ims:ime,jps+py:min(jde-1,jpe)+py)
2453 grid%rhosn (ims:ime,jps:min(jde-1,jpe)) = grid%rhosn (ims:ime,jps+py:min(jde-1,jpe)+py)
2454 grid%canwat (ims:ime,jps:min(jde-1,jpe)) = grid%canwat (ims:ime,jps+py:min(jde-1,jpe)+py)
2455 grid%sst (ims:ime,jps:min(jde-1,jpe)) = grid%sst (ims:ime,jps+py:min(jde-1,jpe)+py)
2456 grid%htop (ims:ime,jps:min(jde-1,jpe)) = grid%htop (ims:ime,jps+py:min(jde-1,jpe)+py)
2457 grid%hbot (ims:ime,jps:min(jde-1,jpe)) = grid%hbot (ims:ime,jps+py:min(jde-1,jpe)+py)
2458 grid%cuppt (ims:ime,jps:min(jde-1,jpe)) = grid%cuppt (ims:ime,jps+py:min(jde-1,jpe)+py)
2459 grid%rswtoa (ims:ime,jps:min(jde-1,jpe)) = grid%rswtoa (ims:ime,jps+py:min(jde-1,jpe)+py)
2460 grid%rlwtoa (ims:ime,jps:min(jde-1,jpe)) = grid%rlwtoa (ims:ime,jps+py:min(jde-1,jpe)+py)
2461 grid%czmean (ims:ime,jps:min(jde-1,jpe)) = grid%czmean (ims:ime,jps+py:min(jde-1,jpe)+py)
2462 grid%cfracl (ims:ime,jps:min(jde-1,jpe)) = grid%cfracl (ims:ime,jps+py:min(jde-1,jpe)+py)
2463 grid%cfracm (ims:ime,jps:min(jde-1,jpe)) = grid%cfracm (ims:ime,jps+py:min(jde-1,jpe)+py)
2464 grid%cfrach (ims:ime,jps:min(jde-1,jpe)) = grid%cfrach (ims:ime,jps+py:min(jde-1,jpe)+py)
2465 grid%acfrst (ims:ime,jps:min(jde-1,jpe)) = grid%acfrst (ims:ime,jps+py:min(jde-1,jpe)+py)
2466 grid%ncfrst (ims:ime,jps:min(jde-1,jpe)) = grid%ncfrst (ims:ime,jps+py:min(jde-1,jpe)+py)
2467 grid%acfrcv (ims:ime,jps:min(jde-1,jpe)) = grid%acfrcv (ims:ime,jps+py:min(jde-1,jpe)+py)
2468 grid%ncfrcv (ims:ime,jps:min(jde-1,jpe)) = grid%ncfrcv (ims:ime,jps+py:min(jde-1,jpe)+py)
2469 grid%h_diabatic (ims:ime,:,jps:min(jde-1,jpe)) = grid%h_diabatic (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2470 grid%msft (ims:ime,jps:min(jde-1,jpe)) = grid%msft (ims:ime,jps+py:min(jde-1,jpe)+py)
2471 grid%msfu (ims:ime,jps:min(jde-1,jpe)) = grid%msfu (ims:ime,jps+py:min(jde-1,jpe)+py)
2472 grid%msfv (ims:ime,jps:min(jde,jpe)) = grid%msfv (ims:ime,jps+py:min(jde,jpe)+py)
2473 grid%f (ims:ime,jps:min(jde-1,jpe)) = grid%f (ims:ime,jps+py:min(jde-1,jpe)+py)
2474 grid%e (ims:ime,jps:min(jde-1,jpe)) = grid%e (ims:ime,jps+py:min(jde-1,jpe)+py)
2475 grid%sina (ims:ime,jps:min(jde-1,jpe)) = grid%sina (ims:ime,jps+py:min(jde-1,jpe)+py)
2476 grid%cosa (ims:ime,jps:min(jde-1,jpe)) = grid%cosa (ims:ime,jps+py:min(jde-1,jpe)+py)
2477 grid%ht (ims:ime,jps:min(jde-1,jpe)) = grid%ht (ims:ime,jps+py:min(jde-1,jpe)+py)
2478 grid%ht_fine (ims:ime,jps:min(jde-1,jpe)) = grid%ht_fine (ims:ime,jps+py:min(jde-1,jpe)+py)
2479 grid%ht_int (ims:ime,jps:min(jde-1,jpe)) = grid%ht_int (ims:ime,jps+py:min(jde-1,jpe)+py)
2480 grid%ht_input (ims:ime,jps:min(jde-1,jpe)) = grid%ht_input (ims:ime,jps+py:min(jde-1,jpe)+py)
2481 grid%tsk (ims:ime,jps:min(jde-1,jpe)) = grid%tsk (ims:ime,jps+py:min(jde-1,jpe)+py)
2482 grid%tsk_save (ims:ime,jps:min(jde-1,jpe)) = grid%tsk_save (ims:ime,jps+py:min(jde-1,jpe)+py)
2483 grid%rainc (ims:ime,jps:min(jde-1,jpe)) = grid%rainc (ims:ime,jps+py:min(jde-1,jpe)+py)
2484 grid%rainnc (ims:ime,jps:min(jde-1,jpe)) = grid%rainnc (ims:ime,jps+py:min(jde-1,jpe)+py)
2485 grid%xlat (ims:ime,jps:min(jde-1,jpe)) = grid%xlat (ims:ime,jps+py:min(jde-1,jpe)+py)
2486 grid%xlong (ims:ime,jps:min(jde-1,jpe)) = grid%xlong (ims:ime,jps+py:min(jde-1,jpe)+py)
2487 grid%albbck (ims:ime,jps:min(jde-1,jpe)) = grid%albbck (ims:ime,jps+py:min(jde-1,jpe)+py)
2488 grid%tmn (ims:ime,jps:min(jde-1,jpe)) = grid%tmn (ims:ime,jps+py:min(jde-1,jpe)+py)
2489 grid%xland (ims:ime,jps:min(jde-1,jpe)) = grid%xland (ims:ime,jps+py:min(jde-1,jpe)+py)
2490 grid%znt (ims:ime,jps:min(jde-1,jpe)) = grid%znt (ims:ime,jps+py:min(jde-1,jpe)+py)
2491 grid%snowc (ims:ime,jps:min(jde-1,jpe)) = grid%snowc (ims:ime,jps+py:min(jde-1,jpe)+py)
2492 grid%xkmv (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkmv (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2493 grid%xkmh (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkmh (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2494 grid%xkmhd (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkmhd (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2495 grid%a_xkmhd (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_xkmhd (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2496 grid%g_xkmhd (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_xkmhd (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2497 grid%xkhv (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkhv (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2498 grid%xkhh (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkhh (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2499 !ENDOFREGISTRYGENERATEDINCLUDE