em_shift_halo_y.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_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/em_shift_halo_y.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3, &
9 47 &
10 + num_moist &
11 + num_a_moist &
12 + num_g_moist &
13 + num_scalar &
14 + num_a_scalar &
15 + num_g_scalar &
16 , 76, 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 ,config_flags%num_metgrid_levels &
23 ,kpe &
24 ,config_flags%num_soil_layers &
25 ))
26 CALL RSL_LITE_PACK ( local_communicator, grid%lu_index, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
27 mytask, ntasks, ntasks_x, ntasks_y, &
28 ids, ide, jds, jde, 1 , 1 , &
29 ims, ime, jms, jme, 1 , 1 , &
30 ips, ipe, jps, jpe, 1 , 1 )
31 CALL RSL_LITE_PACK ( local_communicator, grid%lu_mask, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
32 mytask, ntasks, ntasks_x, ntasks_y, &
33 ids, ide, jds, jde, 1 , 1 , &
34 ims, ime, jms, jme, 1 , 1 , &
35 ips, ipe, jps, jpe, 1 , 1 )
36 CALL RSL_LITE_PACK ( local_communicator, grid%em_qv_gc, 3, RWORDSIZE, 0, 0, DATA_ORDER_XZY, 0, &
37 mytask, ntasks, ntasks_x, ntasks_y, &
38 ids, ide, jds, jde, 1, config_flags%num_metgrid_levels, &
39 ims, ime, jms, jme, 1, config_flags%num_metgrid_levels, &
40 ips, ipe, jps, jpe, 1, config_flags%num_metgrid_levels )
41 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
42 mytask, ntasks, ntasks_x, ntasks_y, &
43 ids, ide, jds, jde, kds, kde, &
44 ims, ime, jms, jme, kms, kme, &
45 ips, ipe, jps, jpe, kps, kpe )
46 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
47 mytask, ntasks, ntasks_x, ntasks_y, &
48 ids, ide, jds, jde, kds, kde, &
49 ims, ime, jms, jme, kms, kme, &
50 ips, ipe, jps, jpe, kps, kpe )
51 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
52 mytask, ntasks, ntasks_x, ntasks_y, &
53 ids, ide, jds, jde, kds, kde, &
54 ims, ime, jms, jme, kms, kme, &
55 ips, ipe, jps, jpe, kps, kpe )
56 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
57 mytask, ntasks, ntasks_x, ntasks_y, &
58 ids, ide, jds, jde, kds, kde, &
59 ims, ime, jms, jme, kms, kme, &
60 ips, ipe, jps, jpe, kps, kpe )
61 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
62 mytask, ntasks, ntasks_x, ntasks_y, &
63 ids, ide, jds, jde, kds, kde, &
64 ims, ime, jms, jme, kms, kme, &
65 ips, ipe, jps, jpe, kps, kpe )
66 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
67 mytask, ntasks, ntasks_x, ntasks_y, &
68 ids, ide, jds, jde, kds, kde, &
69 ims, ime, jms, jme, kms, kme, &
70 ips, ipe, jps, jpe, kps, kpe )
71 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
72 mytask, ntasks, ntasks_x, ntasks_y, &
73 ids, ide, jds, jde, kds, kde, &
74 ims, ime, jms, jme, kms, kme, &
75 ips, ipe, jps, jpe, kps, kpe )
76 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
77 mytask, ntasks, ntasks_x, ntasks_y, &
78 ids, ide, jds, jde, kds, kde, &
79 ims, ime, jms, jme, kms, kme, &
80 ips, ipe, jps, jpe, kps, kpe )
81 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
82 mytask, ntasks, ntasks_x, ntasks_y, &
83 ids, ide, jds, jde, kds, kde, &
84 ims, ime, jms, jme, kms, kme, &
85 ips, ipe, jps, jpe, kps, kpe )
86 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
87 mytask, ntasks, ntasks_x, ntasks_y, &
88 ids, ide, jds, jde, kds, kde, &
89 ims, ime, jms, jme, kms, kme, &
90 ips, ipe, jps, jpe, kps, kpe )
91 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
92 mytask, ntasks, ntasks_x, ntasks_y, &
93 ids, ide, jds, jde, kds, kde, &
94 ims, ime, jms, jme, kms, kme, &
95 ips, ipe, jps, jpe, kps, kpe )
96 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
97 mytask, ntasks, ntasks_x, ntasks_y, &
98 ids, ide, jds, jde, kds, kde, &
99 ims, ime, jms, jme, kms, kme, &
100 ips, ipe, jps, jpe, kps, kpe )
101 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
102 mytask, ntasks, ntasks_x, ntasks_y, &
103 ids, ide, jds, jde, kds, kde, &
104 ims, ime, jms, jme, kms, kme, &
105 ips, ipe, jps, jpe, kps, kpe )
106 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
107 mytask, ntasks, ntasks_x, ntasks_y, &
108 ids, ide, jds, jde, kds, kde, &
109 ims, ime, jms, jme, kms, kme, &
110 ips, ipe, jps, jpe, kps, kpe )
111 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
112 mytask, ntasks, ntasks_x, ntasks_y, &
113 ids, ide, jds, jde, kds, kde, &
114 ims, ime, jms, jme, kms, kme, &
115 ips, ipe, jps, jpe, kps, kpe )
116 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
117 mytask, ntasks, ntasks_x, ntasks_y, &
118 ids, ide, jds, jde, kds, kde, &
119 ims, ime, jms, jme, kms, kme, &
120 ips, ipe, jps, jpe, kps, kpe )
121 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
122 mytask, ntasks, ntasks_x, ntasks_y, &
123 ids, ide, jds, jde, kds, kde, &
124 ims, ime, jms, jme, kms, kme, &
125 ips, ipe, jps, jpe, kps, kpe )
126 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
127 mytask, ntasks, ntasks_x, ntasks_y, &
128 ids, ide, jds, jde, kds, kde, &
129 ims, ime, jms, jme, kms, kme, &
130 ips, ipe, jps, jpe, kps, kpe )
131 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
132 mytask, ntasks, ntasks_x, ntasks_y, &
133 ids, ide, jds, jde, kds, kde, &
134 ims, ime, jms, jme, kms, kme, &
135 ips, ipe, jps, jpe, kps, kpe )
136 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
137 mytask, ntasks, ntasks_x, ntasks_y, &
138 ids, ide, jds, jde, kds, kde, &
139 ims, ime, jms, jme, kms, kme, &
140 ips, ipe, jps, jpe, kps, kpe )
141 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
142 mytask, ntasks, ntasks_x, ntasks_y, &
143 ids, ide, jds, jde, kds, kde, &
144 ims, ime, jms, jme, kms, kme, &
145 ips, ipe, jps, jpe, kps, kpe )
146 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
147 mytask, ntasks, ntasks_x, ntasks_y, &
148 ids, ide, jds, jde, kds, kde, &
149 ims, ime, jms, jme, kms, kme, &
150 ips, ipe, jps, jpe, kps, kpe )
151 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
152 mytask, ntasks, ntasks_x, ntasks_y, &
153 ids, ide, jds, jde, kds, kde, &
154 ims, ime, jms, jme, kms, kme, &
155 ips, ipe, jps, jpe, kps, kpe )
156 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
157 mytask, ntasks, ntasks_x, ntasks_y, &
158 ids, ide, jds, jde, kds, kde, &
159 ims, ime, jms, jme, kms, kme, &
160 ips, ipe, jps, jpe, kps, kpe )
161 CALL RSL_LITE_PACK ( local_communicator, grid%em_phb, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
162 mytask, ntasks, ntasks_x, ntasks_y, &
163 ids, ide, jds, jde, kds, kde, &
164 ims, ime, jms, jme, kms, kme, &
165 ips, ipe, jps, jpe, kps, kpe )
166 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
167 mytask, ntasks, ntasks_x, ntasks_y, &
168 ids, ide, jds, jde, kds, kde, &
169 ims, ime, jms, jme, kms, kme, &
170 ips, ipe, jps, jpe, kps, kpe )
171 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
172 mytask, ntasks, ntasks_x, ntasks_y, &
173 ids, ide, jds, jde, kds, kde, &
174 ims, ime, jms, jme, kms, kme, &
175 ips, ipe, jps, jpe, kps, kpe )
176 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
177 mytask, ntasks, ntasks_x, ntasks_y, &
178 ids, ide, jds, jde, kds, kde, &
179 ims, ime, jms, jme, kms, kme, &
180 ips, ipe, jps, jpe, kps, kpe )
181 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
182 mytask, ntasks, ntasks_x, ntasks_y, &
183 ids, ide, jds, jde, kds, kde, &
184 ims, ime, jms, jme, kms, kme, &
185 ips, ipe, jps, jpe, kps, kpe )
186 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
187 mytask, ntasks, ntasks_x, ntasks_y, &
188 ids, ide, jds, jde, kds, kde, &
189 ims, ime, jms, jme, kms, kme, &
190 ips, ipe, jps, jpe, kps, kpe )
191 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
192 mytask, ntasks, ntasks_x, ntasks_y, &
193 ids, ide, jds, jde, kds, kde, &
194 ims, ime, jms, jme, kms, kme, &
195 ips, ipe, jps, jpe, kps, kpe )
196 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
197 mytask, ntasks, ntasks_x, ntasks_y, &
198 ids, ide, jds, jde, 1 , 1 , &
199 ims, ime, jms, jme, 1 , 1 , &
200 ips, ipe, jps, jpe, 1 , 1 )
201 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
202 mytask, ntasks, ntasks_x, ntasks_y, &
203 ids, ide, jds, jde, 1 , 1 , &
204 ims, ime, jms, jme, 1 , 1 , &
205 ips, ipe, jps, jpe, 1 , 1 )
206 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
207 mytask, ntasks, ntasks_x, ntasks_y, &
208 ids, ide, jds, jde, 1 , 1 , &
209 ims, ime, jms, jme, 1 , 1 , &
210 ips, ipe, jps, jpe, 1 , 1 )
211 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
212 mytask, ntasks, ntasks_x, ntasks_y, &
213 ids, ide, jds, jde, 1 , 1 , &
214 ims, ime, jms, jme, 1 , 1 , &
215 ips, ipe, jps, jpe, 1 , 1 )
216 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_1, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
217 mytask, ntasks, ntasks_x, ntasks_y, &
218 ids, ide, jds, jde, 1 , 1 , &
219 ims, ime, jms, jme, 1 , 1 , &
220 ips, ipe, jps, jpe, 1 , 1 )
221 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
222 mytask, ntasks, ntasks_x, ntasks_y, &
223 ids, ide, jds, jde, 1 , 1 , &
224 ims, ime, jms, jme, 1 , 1 , &
225 ips, ipe, jps, jpe, 1 , 1 )
226 CALL RSL_LITE_PACK ( local_communicator, grid%em_mub, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
227 mytask, ntasks, ntasks_x, ntasks_y, &
228 ids, ide, jds, jde, 1 , 1 , &
229 ims, ime, jms, jme, 1 , 1 , &
230 ips, ipe, jps, jpe, 1 , 1 )
231 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu0, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
232 mytask, ntasks, ntasks_x, ntasks_y, &
233 ids, ide, jds, jde, 1 , 1 , &
234 ims, ime, jms, jme, 1 , 1 , &
235 ips, ipe, jps, jpe, 1 , 1 )
236 CALL RSL_LITE_PACK ( local_communicator, grid%nest_pos, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
237 mytask, ntasks, ntasks_x, ntasks_y, &
238 ids, ide, jds, jde, 1 , 1 , &
239 ims, ime, jms, jme, 1 , 1 , &
240 ips, ipe, jps, jpe, 1 , 1 )
241 CALL RSL_LITE_PACK ( local_communicator, grid%nest_mask, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
242 mytask, ntasks, ntasks_x, ntasks_y, &
243 ids, ide, jds, jde, 1 , 1 , &
244 ims, ime, jms, jme, 1 , 1 , &
245 ips, ipe, jps, jpe, 1 , 1 )
246 CALL RSL_LITE_PACK ( local_communicator, grid%ht_coarse, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
247 mytask, ntasks, ntasks_x, ntasks_y, &
248 ids, ide, jds, jde, 1 , 1 , &
249 ims, ime, jms, jme, 1 , 1 , &
250 ips, ipe, jps, jpe, 1 , 1 )
251 CALL RSL_LITE_PACK ( local_communicator, grid%em_p, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
252 mytask, ntasks, ntasks_x, ntasks_y, &
253 ids, ide, jds, jde, kds, kde, &
254 ims, ime, jms, jme, kms, kme, &
255 ips, ipe, jps, jpe, kps, kpe )
256 CALL RSL_LITE_PACK ( local_communicator, grid%em_sr, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
257 mytask, ntasks, ntasks_x, ntasks_y, &
258 ids, ide, jds, jde, 1 , 1 , &
259 ims, ime, jms, jme, 1 , 1 , &
260 ips, ipe, jps, jpe, 1 , 1 )
261 CALL RSL_LITE_PACK ( local_communicator, grid%em_z, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
262 mytask, ntasks, ntasks_x, ntasks_y, &
263 ids, ide, jds, jde, kds, kde, &
264 ims, ime, jms, jme, kms, kme, &
265 ips, ipe, jps, jpe, kps, kpe )
266 CALL RSL_LITE_PACK ( local_communicator, grid%a_z, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
267 mytask, ntasks, ntasks_x, ntasks_y, &
268 ids, ide, jds, jde, kds, kde, &
269 ims, ime, jms, jme, kms, kme, &
270 ips, ipe, jps, jpe, kps, kpe )
271 CALL RSL_LITE_PACK ( local_communicator, grid%g_z, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
272 mytask, ntasks, ntasks_x, ntasks_y, &
273 ids, ide, jds, jde, kds, kde, &
274 ims, ime, jms, jme, kms, kme, &
275 ips, ipe, jps, jpe, kps, kpe )
276 CALL RSL_LITE_PACK ( local_communicator, grid%q2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
277 mytask, ntasks, ntasks_x, ntasks_y, &
278 ids, ide, jds, jde, 1 , 1 , &
279 ims, ime, jms, jme, 1 , 1 , &
280 ips, ipe, jps, jpe, 1 , 1 )
281 CALL RSL_LITE_PACK ( local_communicator, grid%t2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
282 mytask, ntasks, ntasks_x, ntasks_y, &
283 ids, ide, jds, jde, 1 , 1 , &
284 ims, ime, jms, jme, 1 , 1 , &
285 ips, ipe, jps, jpe, 1 , 1 )
286 CALL RSL_LITE_PACK ( local_communicator, grid%th2, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
287 mytask, ntasks, ntasks_x, ntasks_y, &
288 ids, ide, jds, jde, 1 , 1 , &
289 ims, ime, jms, jme, 1 , 1 , &
290 ips, ipe, jps, jpe, 1 , 1 )
291 CALL RSL_LITE_PACK ( local_communicator, grid%psfc, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
292 mytask, ntasks, ntasks_x, ntasks_y, &
293 ids, ide, jds, jde, 1 , 1 , &
294 ims, ime, jms, jme, 1 , 1 , &
295 ips, ipe, jps, jpe, 1 , 1 )
296 CALL RSL_LITE_PACK ( local_communicator, grid%u10, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
297 mytask, ntasks, ntasks_x, ntasks_y, &
298 ids, ide, jds, jde, 1 , 1 , &
299 ims, ime, jms, jme, 1 , 1 , &
300 ips, ipe, jps, jpe, 1 , 1 )
301 CALL RSL_LITE_PACK ( local_communicator, grid%v10, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
302 mytask, ntasks, ntasks_x, ntasks_y, &
303 ids, ide, jds, jde, 1 , 1 , &
304 ims, ime, jms, jme, 1 , 1 , &
305 ips, ipe, jps, jpe, 1 , 1 )
306 CALL RSL_LITE_PACK ( local_communicator, grid%uratx, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
307 mytask, ntasks, ntasks_x, ntasks_y, &
308 ids, ide, jds, jde, 1 , 1 , &
309 ims, ime, jms, jme, 1 , 1 , &
310 ips, ipe, jps, jpe, 1 , 1 )
311 CALL RSL_LITE_PACK ( local_communicator, grid%vratx, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
312 mytask, ntasks, ntasks_x, ntasks_y, &
313 ids, ide, jds, jde, 1 , 1 , &
314 ims, ime, jms, jme, 1 , 1 , &
315 ips, ipe, jps, jpe, 1 , 1 )
316 CALL RSL_LITE_PACK ( local_communicator, grid%tratx, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
317 mytask, ntasks, ntasks_x, ntasks_y, &
318 ids, ide, jds, jde, 1 , 1 , &
319 ims, ime, jms, jme, 1 , 1 , &
320 ips, ipe, jps, jpe, 1 , 1 )
321 CALL RSL_LITE_PACK ( local_communicator, grid%imask_nostag, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
322 mytask, ntasks, ntasks_x, ntasks_y, &
323 ids, ide, jds, jde, 1 , 1 , &
324 ims, ime, jms, jme, 1 , 1 , &
325 ips, ipe, jps, jpe, 1 , 1 )
326 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xstag, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
327 mytask, ntasks, ntasks_x, ntasks_y, &
328 ids, ide, jds, jde, 1 , 1 , &
329 ims, ime, jms, jme, 1 , 1 , &
330 ips, ipe, jps, jpe, 1 , 1 )
331 CALL RSL_LITE_PACK ( local_communicator, grid%imask_ystag, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 1, &
332 mytask, ntasks, ntasks_x, ntasks_y, &
333 ids, ide, jds, jde, 1 , 1 , &
334 ims, ime, jms, jme, 1 , 1 , &
335 ips, ipe, jps, jpe, 1 , 1 )
336 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xystag, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 1, &
337 mytask, ntasks, ntasks_x, ntasks_y, &
338 ids, ide, jds, jde, 1 , 1 , &
339 ims, ime, jms, jme, 1 , 1 , &
340 ips, ipe, jps, jpe, 1 , 1 )
341 DO itrace = PARAM_FIRST_SCALAR, num_moist
342 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
343 mytask, ntasks, ntasks_x, ntasks_y, &
344 ids, ide, jds, jde, kds, kde, &
345 ims, ime, jms, jme, kms, kme, &
346 ips, ipe, jps, jpe, kps, kpe )
347 ENDDO
348 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
349 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
350 mytask, ntasks, ntasks_x, ntasks_y, &
351 ids, ide, jds, jde, kds, kde, &
352 ims, ime, jms, jme, kms, kme, &
353 ips, ipe, jps, jpe, kps, kpe )
354 ENDDO
355 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
356 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
357 mytask, ntasks, ntasks_x, ntasks_y, &
358 ids, ide, jds, jde, kds, kde, &
359 ims, ime, jms, jme, kms, kme, &
360 ips, ipe, jps, jpe, kps, kpe )
361 ENDDO
362 DO itrace = PARAM_FIRST_SCALAR, num_scalar
363 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
364 mytask, ntasks, ntasks_x, ntasks_y, &
365 ids, ide, jds, jde, kds, kde, &
366 ims, ime, jms, jme, kms, kme, &
367 ips, ipe, jps, jpe, kps, kpe )
368 ENDDO
369 DO itrace = PARAM_FIRST_SCALAR, num_a_scalar
370 CALL RSL_LITE_PACK ( local_communicator,a_scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
371 mytask, ntasks, ntasks_x, ntasks_y, &
372 ids, ide, jds, jde, kds, kde, &
373 ims, ime, jms, jme, kms, kme, &
374 ips, ipe, jps, jpe, kps, kpe )
375 ENDDO
376 DO itrace = PARAM_FIRST_SCALAR, num_g_scalar
377 CALL RSL_LITE_PACK ( local_communicator,g_scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
378 mytask, ntasks, ntasks_x, ntasks_y, &
379 ids, ide, jds, jde, kds, kde, &
380 ims, ime, jms, jme, kms, kme, &
381 ips, ipe, jps, jpe, kps, kpe )
382 ENDDO
383 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
384 mytask, ntasks, ntasks_x, ntasks_y, &
385 ids, ide, jds, jde, 1 , 1 , &
386 ims, ime, jms, jme, 1 , 1 , &
387 ips, ipe, jps, jpe, 1 , 1 )
388 CALL RSL_LITE_PACK ( local_communicator, grid%shdmax, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
389 mytask, ntasks, ntasks_x, ntasks_y, &
390 ids, ide, jds, jde, 1 , 1 , &
391 ims, ime, jms, jme, 1 , 1 , &
392 ips, ipe, jps, jpe, 1 , 1 )
393 CALL RSL_LITE_PACK ( local_communicator, grid%shdmin, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
394 mytask, ntasks, ntasks_x, ntasks_y, &
395 ids, ide, jds, jde, 1 , 1 , &
396 ims, ime, jms, jme, 1 , 1 , &
397 ips, ipe, jps, jpe, 1 , 1 )
398 CALL RSL_LITE_PACK ( local_communicator, grid%snoalb, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
399 mytask, ntasks, ntasks_x, ntasks_y, &
400 ids, ide, jds, jde, 1 , 1 , &
401 ims, ime, jms, jme, 1 , 1 , &
402 ips, ipe, jps, jpe, 1 , 1 )
403 CALL RSL_LITE_PACK ( local_communicator, grid%tslb, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
404 mytask, ntasks, ntasks_x, ntasks_y, &
405 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
406 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
407 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
408 CALL RSL_LITE_PACK ( local_communicator, grid%smois, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
409 mytask, ntasks, ntasks_x, ntasks_y, &
410 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
411 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
412 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
413 CALL RSL_LITE_PACK ( local_communicator, grid%sh2o, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
414 mytask, ntasks, ntasks_x, ntasks_y, &
415 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
416 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
417 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
418 CALL RSL_LITE_PACK ( local_communicator, grid%xice, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
419 mytask, ntasks, ntasks_x, ntasks_y, &
420 ids, ide, jds, jde, 1 , 1 , &
421 ims, ime, jms, jme, 1 , 1 , &
422 ips, ipe, jps, jpe, 1 , 1 )
423 CALL RSL_LITE_PACK ( local_communicator, grid%sfcrunoff, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
424 mytask, ntasks, ntasks_x, ntasks_y, &
425 ids, ide, jds, jde, 1 , 1 , &
426 ims, ime, jms, jme, 1 , 1 , &
427 ips, ipe, jps, jpe, 1 , 1 )
428 CALL RSL_LITE_PACK ( local_communicator, grid%udrunoff, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
429 mytask, ntasks, ntasks_x, ntasks_y, &
430 ids, ide, jds, jde, 1 , 1 , &
431 ims, ime, jms, jme, 1 , 1 , &
432 ips, ipe, jps, jpe, 1 , 1 )
433 CALL RSL_LITE_PACK ( local_communicator, grid%ivgtyp, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
434 mytask, ntasks, ntasks_x, ntasks_y, &
435 ids, ide, jds, jde, 1 , 1 , &
436 ims, ime, jms, jme, 1 , 1 , &
437 ips, ipe, jps, jpe, 1 , 1 )
438 CALL RSL_LITE_PACK ( local_communicator, grid%isltyp, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
439 mytask, ntasks, ntasks_x, ntasks_y, &
440 ids, ide, jds, jde, 1 , 1 , &
441 ims, ime, jms, jme, 1 , 1 , &
442 ips, ipe, jps, jpe, 1 , 1 )
443 CALL RSL_LITE_PACK ( local_communicator, grid%vegfra, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
444 mytask, ntasks, ntasks_x, ntasks_y, &
445 ids, ide, jds, jde, 1 , 1 , &
446 ims, ime, jms, jme, 1 , 1 , &
447 ips, ipe, jps, jpe, 1 , 1 )
448 CALL RSL_LITE_PACK ( local_communicator, grid%sfcevp, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
449 mytask, ntasks, ntasks_x, ntasks_y, &
450 ids, ide, jds, jde, 1 , 1 , &
451 ims, ime, jms, jme, 1 , 1 , &
452 ips, ipe, jps, jpe, 1 , 1 )
453 CALL RSL_LITE_PACK ( local_communicator, grid%acsnow, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
454 mytask, ntasks, ntasks_x, ntasks_y, &
455 ids, ide, jds, jde, 1 , 1 , &
456 ims, ime, jms, jme, 1 , 1 , &
457 ips, ipe, jps, jpe, 1 , 1 )
458 CALL RSL_LITE_PACK ( local_communicator, grid%acsnom, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
459 mytask, ntasks, ntasks_x, ntasks_y, &
460 ids, ide, jds, jde, 1 , 1 , &
461 ims, ime, jms, jme, 1 , 1 , &
462 ips, ipe, jps, jpe, 1 , 1 )
463 CALL RSL_LITE_PACK ( local_communicator, grid%snow, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
464 mytask, ntasks, ntasks_x, ntasks_y, &
465 ids, ide, jds, jde, 1 , 1 , &
466 ims, ime, jms, jme, 1 , 1 , &
467 ips, ipe, jps, jpe, 1 , 1 )
468 CALL RSL_LITE_PACK ( local_communicator, grid%snowh, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
469 mytask, ntasks, ntasks_x, ntasks_y, &
470 ids, ide, jds, jde, 1 , 1 , &
471 ims, ime, jms, jme, 1 , 1 , &
472 ips, ipe, jps, jpe, 1 , 1 )
473 CALL RSL_LITE_PACK ( local_communicator, grid%rhosn, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
474 mytask, ntasks, ntasks_x, ntasks_y, &
475 ids, ide, jds, jde, 1 , 1 , &
476 ims, ime, jms, jme, 1 , 1 , &
477 ips, ipe, jps, jpe, 1 , 1 )
478 CALL RSL_LITE_PACK ( local_communicator, grid%canwat, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
479 mytask, ntasks, ntasks_x, ntasks_y, &
480 ids, ide, jds, jde, 1 , 1 , &
481 ims, ime, jms, jme, 1 , 1 , &
482 ips, ipe, jps, jpe, 1 , 1 )
483 CALL RSL_LITE_PACK ( local_communicator, grid%sst, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
484 mytask, ntasks, ntasks_x, ntasks_y, &
485 ids, ide, jds, jde, 1 , 1 , &
486 ims, ime, jms, jme, 1 , 1 , &
487 ips, ipe, jps, jpe, 1 , 1 )
488 CALL RSL_LITE_PACK ( local_communicator, grid%htop, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
489 mytask, ntasks, ntasks_x, ntasks_y, &
490 ids, ide, jds, jde, 1 , 1 , &
491 ims, ime, jms, jme, 1 , 1 , &
492 ips, ipe, jps, jpe, 1 , 1 )
493 CALL RSL_LITE_PACK ( local_communicator, grid%hbot, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
494 mytask, ntasks, ntasks_x, ntasks_y, &
495 ids, ide, jds, jde, 1 , 1 , &
496 ims, ime, jms, jme, 1 , 1 , &
497 ips, ipe, jps, jpe, 1 , 1 )
498 CALL RSL_LITE_PACK ( local_communicator, grid%cuppt, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
499 mytask, ntasks, ntasks_x, ntasks_y, &
500 ids, ide, jds, jde, 1 , 1 , &
501 ims, ime, jms, jme, 1 , 1 , &
502 ips, ipe, jps, jpe, 1 , 1 )
503 CALL RSL_LITE_PACK ( local_communicator, grid%rswtoa, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
504 mytask, ntasks, ntasks_x, ntasks_y, &
505 ids, ide, jds, jde, 1 , 1 , &
506 ims, ime, jms, jme, 1 , 1 , &
507 ips, ipe, jps, jpe, 1 , 1 )
508 CALL RSL_LITE_PACK ( local_communicator, grid%rlwtoa, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
509 mytask, ntasks, ntasks_x, ntasks_y, &
510 ids, ide, jds, jde, 1 , 1 , &
511 ims, ime, jms, jme, 1 , 1 , &
512 ips, ipe, jps, jpe, 1 , 1 )
513 CALL RSL_LITE_PACK ( local_communicator, grid%czmean, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
514 mytask, ntasks, ntasks_x, ntasks_y, &
515 ids, ide, jds, jde, 1 , 1 , &
516 ims, ime, jms, jme, 1 , 1 , &
517 ips, ipe, jps, jpe, 1 , 1 )
518 CALL RSL_LITE_PACK ( local_communicator, grid%cfracl, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
519 mytask, ntasks, ntasks_x, ntasks_y, &
520 ids, ide, jds, jde, 1 , 1 , &
521 ims, ime, jms, jme, 1 , 1 , &
522 ips, ipe, jps, jpe, 1 , 1 )
523 CALL RSL_LITE_PACK ( local_communicator, grid%cfracm, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
524 mytask, ntasks, ntasks_x, ntasks_y, &
525 ids, ide, jds, jde, 1 , 1 , &
526 ims, ime, jms, jme, 1 , 1 , &
527 ips, ipe, jps, jpe, 1 , 1 )
528 CALL RSL_LITE_PACK ( local_communicator, grid%cfrach, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
529 mytask, ntasks, ntasks_x, ntasks_y, &
530 ids, ide, jds, jde, 1 , 1 , &
531 ims, ime, jms, jme, 1 , 1 , &
532 ips, ipe, jps, jpe, 1 , 1 )
533 CALL RSL_LITE_PACK ( local_communicator, grid%acfrst, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
534 mytask, ntasks, ntasks_x, ntasks_y, &
535 ids, ide, jds, jde, 1 , 1 , &
536 ims, ime, jms, jme, 1 , 1 , &
537 ips, ipe, jps, jpe, 1 , 1 )
538 CALL RSL_LITE_PACK ( local_communicator, grid%ncfrst, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
539 mytask, ntasks, ntasks_x, ntasks_y, &
540 ids, ide, jds, jde, 1 , 1 , &
541 ims, ime, jms, jme, 1 , 1 , &
542 ips, ipe, jps, jpe, 1 , 1 )
543 CALL RSL_LITE_PACK ( local_communicator, grid%acfrcv, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
544 mytask, ntasks, ntasks_x, ntasks_y, &
545 ids, ide, jds, jde, 1 , 1 , &
546 ims, ime, jms, jme, 1 , 1 , &
547 ips, ipe, jps, jpe, 1 , 1 )
548 CALL RSL_LITE_PACK ( local_communicator, grid%ncfrcv, 3, IWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
549 mytask, ntasks, ntasks_x, ntasks_y, &
550 ids, ide, jds, jde, 1 , 1 , &
551 ims, ime, jms, jme, 1 , 1 , &
552 ips, ipe, jps, jpe, 1 , 1 )
553 CALL RSL_LITE_PACK ( local_communicator, grid%h_diabatic, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
554 mytask, ntasks, ntasks_x, ntasks_y, &
555 ids, ide, jds, jde, kds, kde, &
556 ims, ime, jms, jme, kms, kme, &
557 ips, ipe, jps, jpe, kps, kpe )
558 CALL RSL_LITE_PACK ( local_communicator, grid%msft, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
559 mytask, ntasks, ntasks_x, ntasks_y, &
560 ids, ide, jds, jde, 1 , 1 , &
561 ims, ime, jms, jme, 1 , 1 , &
562 ips, ipe, jps, jpe, 1 , 1 )
563 CALL RSL_LITE_PACK ( local_communicator, grid%msfu, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
564 mytask, ntasks, ntasks_x, ntasks_y, &
565 ids, ide, jds, jde, 1 , 1 , &
566 ims, ime, jms, jme, 1 , 1 , &
567 ips, ipe, jps, jpe, 1 , 1 )
568 CALL RSL_LITE_PACK ( local_communicator, grid%msfv, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 1, &
569 mytask, ntasks, ntasks_x, ntasks_y, &
570 ids, ide, jds, jde, 1 , 1 , &
571 ims, ime, jms, jme, 1 , 1 , &
572 ips, ipe, jps, jpe, 1 , 1 )
573 CALL RSL_LITE_PACK ( local_communicator, grid%f, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
574 mytask, ntasks, ntasks_x, ntasks_y, &
575 ids, ide, jds, jde, 1 , 1 , &
576 ims, ime, jms, jme, 1 , 1 , &
577 ips, ipe, jps, jpe, 1 , 1 )
578 CALL RSL_LITE_PACK ( local_communicator, grid%e, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
579 mytask, ntasks, ntasks_x, ntasks_y, &
580 ids, ide, jds, jde, 1 , 1 , &
581 ims, ime, jms, jme, 1 , 1 , &
582 ips, ipe, jps, jpe, 1 , 1 )
583 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
584 mytask, ntasks, ntasks_x, ntasks_y, &
585 ids, ide, jds, jde, 1 , 1 , &
586 ims, ime, jms, jme, 1 , 1 , &
587 ips, ipe, jps, jpe, 1 , 1 )
588 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
589 mytask, ntasks, ntasks_x, ntasks_y, &
590 ids, ide, jds, jde, 1 , 1 , &
591 ims, ime, jms, jme, 1 , 1 , &
592 ips, ipe, jps, jpe, 1 , 1 )
593 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
594 mytask, ntasks, ntasks_x, ntasks_y, &
595 ids, ide, jds, jde, 1 , 1 , &
596 ims, ime, jms, jme, 1 , 1 , &
597 ips, ipe, jps, jpe, 1 , 1 )
598 CALL RSL_LITE_PACK ( local_communicator, grid%ht_fine, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
599 mytask, ntasks, ntasks_x, ntasks_y, &
600 ids, ide, jds, jde, 1 , 1 , &
601 ims, ime, jms, jme, 1 , 1 , &
602 ips, ipe, jps, jpe, 1 , 1 )
603 CALL RSL_LITE_PACK ( local_communicator, grid%ht_int, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
604 mytask, ntasks, ntasks_x, ntasks_y, &
605 ids, ide, jds, jde, 1 , 1 , &
606 ims, ime, jms, jme, 1 , 1 , &
607 ips, ipe, jps, jpe, 1 , 1 )
608 CALL RSL_LITE_PACK ( local_communicator, grid%ht_input, 3, RWORDSIZE, 0, 0, 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%tsk, 3, RWORDSIZE, 0, 0, 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%tsk_save, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
619 mytask, ntasks, ntasks_x, ntasks_y, &
620 ids, ide, jds, jde, 1 , 1 , &
621 ims, ime, jms, jme, 1 , 1 , &
622 ips, ipe, jps, jpe, 1 , 1 )
623 CALL RSL_LITE_PACK ( local_communicator, grid%rainc, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
624 mytask, ntasks, ntasks_x, ntasks_y, &
625 ids, ide, jds, jde, 1 , 1 , &
626 ims, ime, jms, jme, 1 , 1 , &
627 ips, ipe, jps, jpe, 1 , 1 )
628 CALL RSL_LITE_PACK ( local_communicator, grid%rainnc, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
629 mytask, ntasks, ntasks_x, ntasks_y, &
630 ids, ide, jds, jde, 1 , 1 , &
631 ims, ime, jms, jme, 1 , 1 , &
632 ips, ipe, jps, jpe, 1 , 1 )
633 CALL RSL_LITE_PACK ( local_communicator, grid%xlat, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
634 mytask, ntasks, ntasks_x, ntasks_y, &
635 ids, ide, jds, jde, 1 , 1 , &
636 ims, ime, jms, jme, 1 , 1 , &
637 ips, ipe, jps, jpe, 1 , 1 )
638 CALL RSL_LITE_PACK ( local_communicator, grid%xlong, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
639 mytask, ntasks, ntasks_x, ntasks_y, &
640 ids, ide, jds, jde, 1 , 1 , &
641 ims, ime, jms, jme, 1 , 1 , &
642 ips, ipe, jps, jpe, 1 , 1 )
643 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlat_u, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
644 mytask, ntasks, ntasks_x, ntasks_y, &
645 ids, ide, jds, jde, 1 , 1 , &
646 ims, ime, jms, jme, 1 , 1 , &
647 ips, ipe, jps, jpe, 1 , 1 )
648 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlong_u, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
649 mytask, ntasks, ntasks_x, ntasks_y, &
650 ids, ide, jds, jde, 1 , 1 , &
651 ims, ime, jms, jme, 1 , 1 , &
652 ips, ipe, jps, jpe, 1 , 1 )
653 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlat_v, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 1, &
654 mytask, ntasks, ntasks_x, ntasks_y, &
655 ids, ide, jds, jde, 1 , 1 , &
656 ims, ime, jms, jme, 1 , 1 , &
657 ips, ipe, jps, jpe, 1 , 1 )
658 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlong_v, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 1, &
659 mytask, ntasks, ntasks_x, ntasks_y, &
660 ids, ide, jds, jde, 1 , 1 , &
661 ims, ime, jms, jme, 1 , 1 , &
662 ips, ipe, jps, jpe, 1 , 1 )
663 CALL RSL_LITE_PACK ( local_communicator, grid%albbck, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
664 mytask, ntasks, ntasks_x, ntasks_y, &
665 ids, ide, jds, jde, 1 , 1 , &
666 ims, ime, jms, jme, 1 , 1 , &
667 ips, ipe, jps, jpe, 1 , 1 )
668 CALL RSL_LITE_PACK ( local_communicator, grid%tmn, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
669 mytask, ntasks, ntasks_x, ntasks_y, &
670 ids, ide, jds, jde, 1 , 1 , &
671 ims, ime, jms, jme, 1 , 1 , &
672 ips, ipe, jps, jpe, 1 , 1 )
673 CALL RSL_LITE_PACK ( local_communicator, grid%xland, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
674 mytask, ntasks, ntasks_x, ntasks_y, &
675 ids, ide, jds, jde, 1 , 1 , &
676 ims, ime, jms, jme, 1 , 1 , &
677 ips, ipe, jps, jpe, 1 , 1 )
678 CALL RSL_LITE_PACK ( local_communicator, grid%znt, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
679 mytask, ntasks, ntasks_x, ntasks_y, &
680 ids, ide, jds, jde, 1 , 1 , &
681 ims, ime, jms, jme, 1 , 1 , &
682 ips, ipe, jps, jpe, 1 , 1 )
683 CALL RSL_LITE_PACK ( local_communicator, grid%snowc, 3, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
684 mytask, ntasks, ntasks_x, ntasks_y, &
685 ids, ide, jds, jde, 1 , 1 , &
686 ims, ime, jms, jme, 1 , 1 , &
687 ips, ipe, jps, jpe, 1 , 1 )
688 CALL RSL_LITE_PACK ( local_communicator, grid%xkmv, 3, RWORDSIZE, 0, 0, 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%xkmh, 3, RWORDSIZE, 0, 0, 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%xkmhd, 3, RWORDSIZE, 0, 0, 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_xkmhd, 3, RWORDSIZE, 0, 0, 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_xkmhd, 3, RWORDSIZE, 0, 0, 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%xkhv, 3, RWORDSIZE, 0, 0, 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%xkhh, 3, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
719 mytask, ntasks, ntasks_x, ntasks_y, &
720 ids, ide, jds, jde, kds, kde, &
721 ims, ime, jms, jme, kms, kme, &
722 ips, ipe, jps, jpe, kps, kpe )
723 CALL RSL_LITE_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
724 CALL RSL_LITE_PACK ( local_communicator, grid%lu_index, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
725 mytask, ntasks, ntasks_x, ntasks_y, &
726 ids, ide, jds, jde, 1 , 1 , &
727 ims, ime, jms, jme, 1 , 1 , &
728 ips, ipe, jps, jpe, 1 , 1 )
729 CALL RSL_LITE_PACK ( local_communicator, grid%lu_mask, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
730 mytask, ntasks, ntasks_x, ntasks_y, &
731 ids, ide, jds, jde, 1 , 1 , &
732 ims, ime, jms, jme, 1 , 1 , &
733 ips, ipe, jps, jpe, 1 , 1 )
734 CALL RSL_LITE_PACK ( local_communicator, grid%em_qv_gc, 3, RWORDSIZE, 0, 1, DATA_ORDER_XZY, 0, &
735 mytask, ntasks, ntasks_x, ntasks_y, &
736 ids, ide, jds, jde, 1, config_flags%num_metgrid_levels, &
737 ims, ime, jms, jme, 1, config_flags%num_metgrid_levels, &
738 ips, ipe, jps, jpe, 1, config_flags%num_metgrid_levels )
739 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
740 mytask, ntasks, ntasks_x, ntasks_y, &
741 ids, ide, jds, jde, kds, kde, &
742 ims, ime, jms, jme, kms, kme, &
743 ips, ipe, jps, jpe, kps, kpe )
744 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
745 mytask, ntasks, ntasks_x, ntasks_y, &
746 ids, ide, jds, jde, kds, kde, &
747 ims, ime, jms, jme, kms, kme, &
748 ips, ipe, jps, jpe, kps, kpe )
749 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
750 mytask, ntasks, ntasks_x, ntasks_y, &
751 ids, ide, jds, jde, kds, kde, &
752 ims, ime, jms, jme, kms, kme, &
753 ips, ipe, jps, jpe, kps, kpe )
754 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
755 mytask, ntasks, ntasks_x, ntasks_y, &
756 ids, ide, jds, jde, kds, kde, &
757 ims, ime, jms, jme, kms, kme, &
758 ips, ipe, jps, jpe, kps, kpe )
759 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
760 mytask, ntasks, ntasks_x, ntasks_y, &
761 ids, ide, jds, jde, kds, kde, &
762 ims, ime, jms, jme, kms, kme, &
763 ips, ipe, jps, jpe, kps, kpe )
764 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
765 mytask, ntasks, ntasks_x, ntasks_y, &
766 ids, ide, jds, jde, kds, kde, &
767 ims, ime, jms, jme, kms, kme, &
768 ips, ipe, jps, jpe, kps, kpe )
769 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
770 mytask, ntasks, ntasks_x, ntasks_y, &
771 ids, ide, jds, jde, kds, kde, &
772 ims, ime, jms, jme, kms, kme, &
773 ips, ipe, jps, jpe, kps, kpe )
774 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
775 mytask, ntasks, ntasks_x, ntasks_y, &
776 ids, ide, jds, jde, kds, kde, &
777 ims, ime, jms, jme, kms, kme, &
778 ips, ipe, jps, jpe, kps, kpe )
779 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
780 mytask, ntasks, ntasks_x, ntasks_y, &
781 ids, ide, jds, jde, kds, kde, &
782 ims, ime, jms, jme, kms, kme, &
783 ips, ipe, jps, jpe, kps, kpe )
784 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
785 mytask, ntasks, ntasks_x, ntasks_y, &
786 ids, ide, jds, jde, kds, kde, &
787 ims, ime, jms, jme, kms, kme, &
788 ips, ipe, jps, jpe, kps, kpe )
789 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
790 mytask, ntasks, ntasks_x, ntasks_y, &
791 ids, ide, jds, jde, kds, kde, &
792 ims, ime, jms, jme, kms, kme, &
793 ips, ipe, jps, jpe, kps, kpe )
794 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
795 mytask, ntasks, ntasks_x, ntasks_y, &
796 ids, ide, jds, jde, kds, kde, &
797 ims, ime, jms, jme, kms, kme, &
798 ips, ipe, jps, jpe, kps, kpe )
799 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
800 mytask, ntasks, ntasks_x, ntasks_y, &
801 ids, ide, jds, jde, kds, kde, &
802 ims, ime, jms, jme, kms, kme, &
803 ips, ipe, jps, jpe, kps, kpe )
804 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
805 mytask, ntasks, ntasks_x, ntasks_y, &
806 ids, ide, jds, jde, kds, kde, &
807 ims, ime, jms, jme, kms, kme, &
808 ips, ipe, jps, jpe, kps, kpe )
809 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
810 mytask, ntasks, ntasks_x, ntasks_y, &
811 ids, ide, jds, jde, kds, kde, &
812 ims, ime, jms, jme, kms, kme, &
813 ips, ipe, jps, jpe, kps, kpe )
814 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
815 mytask, ntasks, ntasks_x, ntasks_y, &
816 ids, ide, jds, jde, kds, kde, &
817 ims, ime, jms, jme, kms, kme, &
818 ips, ipe, jps, jpe, kps, kpe )
819 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
820 mytask, ntasks, ntasks_x, ntasks_y, &
821 ids, ide, jds, jde, kds, kde, &
822 ims, ime, jms, jme, kms, kme, &
823 ips, ipe, jps, jpe, kps, kpe )
824 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
825 mytask, ntasks, ntasks_x, ntasks_y, &
826 ids, ide, jds, jde, kds, kde, &
827 ims, ime, jms, jme, kms, kme, &
828 ips, ipe, jps, jpe, kps, kpe )
829 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_1, 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 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
835 mytask, ntasks, ntasks_x, ntasks_y, &
836 ids, ide, jds, jde, kds, kde, &
837 ims, ime, jms, jme, kms, kme, &
838 ips, ipe, jps, jpe, kps, kpe )
839 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
840 mytask, ntasks, ntasks_x, ntasks_y, &
841 ids, ide, jds, jde, kds, kde, &
842 ims, ime, jms, jme, kms, kme, &
843 ips, ipe, jps, jpe, kps, kpe )
844 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
845 mytask, ntasks, ntasks_x, ntasks_y, &
846 ids, ide, jds, jde, kds, kde, &
847 ims, ime, jms, jme, kms, kme, &
848 ips, ipe, jps, jpe, kps, kpe )
849 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
850 mytask, ntasks, ntasks_x, ntasks_y, &
851 ids, ide, jds, jde, kds, kde, &
852 ims, ime, jms, jme, kms, kme, &
853 ips, ipe, jps, jpe, kps, kpe )
854 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
855 mytask, ntasks, ntasks_x, ntasks_y, &
856 ids, ide, jds, jde, kds, kde, &
857 ims, ime, jms, jme, kms, kme, &
858 ips, ipe, jps, jpe, kps, kpe )
859 CALL RSL_LITE_PACK ( local_communicator, grid%em_phb, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
860 mytask, ntasks, ntasks_x, ntasks_y, &
861 ids, ide, jds, jde, kds, kde, &
862 ims, ime, jms, jme, kms, kme, &
863 ips, ipe, jps, jpe, kps, kpe )
864 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_1, 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 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
870 mytask, ntasks, ntasks_x, ntasks_y, &
871 ids, ide, jds, jde, kds, kde, &
872 ims, ime, jms, jme, kms, kme, &
873 ips, ipe, jps, jpe, kps, kpe )
874 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
875 mytask, ntasks, ntasks_x, ntasks_y, &
876 ids, ide, jds, jde, kds, kde, &
877 ims, ime, jms, jme, kms, kme, &
878 ips, ipe, jps, jpe, kps, kpe )
879 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
880 mytask, ntasks, ntasks_x, ntasks_y, &
881 ids, ide, jds, jde, kds, kde, &
882 ims, ime, jms, jme, kms, kme, &
883 ips, ipe, jps, jpe, kps, kpe )
884 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
885 mytask, ntasks, ntasks_x, ntasks_y, &
886 ids, ide, jds, jde, kds, kde, &
887 ims, ime, jms, jme, kms, kme, &
888 ips, ipe, jps, jpe, kps, kpe )
889 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
890 mytask, ntasks, ntasks_x, ntasks_y, &
891 ids, ide, jds, jde, kds, kde, &
892 ims, ime, jms, jme, kms, kme, &
893 ips, ipe, jps, jpe, kps, kpe )
894 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
895 mytask, ntasks, ntasks_x, ntasks_y, &
896 ids, ide, jds, jde, 1 , 1 , &
897 ims, ime, jms, jme, 1 , 1 , &
898 ips, ipe, jps, jpe, 1 , 1 )
899 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
900 mytask, ntasks, ntasks_x, ntasks_y, &
901 ids, ide, jds, jde, 1 , 1 , &
902 ims, ime, jms, jme, 1 , 1 , &
903 ips, ipe, jps, jpe, 1 , 1 )
904 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
905 mytask, ntasks, ntasks_x, ntasks_y, &
906 ids, ide, jds, jde, 1 , 1 , &
907 ims, ime, jms, jme, 1 , 1 , &
908 ips, ipe, jps, jpe, 1 , 1 )
909 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
910 mytask, ntasks, ntasks_x, ntasks_y, &
911 ids, ide, jds, jde, 1 , 1 , &
912 ims, ime, jms, jme, 1 , 1 , &
913 ips, ipe, jps, jpe, 1 , 1 )
914 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_1, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
915 mytask, ntasks, ntasks_x, ntasks_y, &
916 ids, ide, jds, jde, 1 , 1 , &
917 ims, ime, jms, jme, 1 , 1 , &
918 ips, ipe, jps, jpe, 1 , 1 )
919 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
920 mytask, ntasks, ntasks_x, ntasks_y, &
921 ids, ide, jds, jde, 1 , 1 , &
922 ims, ime, jms, jme, 1 , 1 , &
923 ips, ipe, jps, jpe, 1 , 1 )
924 CALL RSL_LITE_PACK ( local_communicator, grid%em_mub, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
925 mytask, ntasks, ntasks_x, ntasks_y, &
926 ids, ide, jds, jde, 1 , 1 , &
927 ims, ime, jms, jme, 1 , 1 , &
928 ips, ipe, jps, jpe, 1 , 1 )
929 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu0, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
930 mytask, ntasks, ntasks_x, ntasks_y, &
931 ids, ide, jds, jde, 1 , 1 , &
932 ims, ime, jms, jme, 1 , 1 , &
933 ips, ipe, jps, jpe, 1 , 1 )
934 CALL RSL_LITE_PACK ( local_communicator, grid%nest_pos, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
935 mytask, ntasks, ntasks_x, ntasks_y, &
936 ids, ide, jds, jde, 1 , 1 , &
937 ims, ime, jms, jme, 1 , 1 , &
938 ips, ipe, jps, jpe, 1 , 1 )
939 CALL RSL_LITE_PACK ( local_communicator, grid%nest_mask, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
940 mytask, ntasks, ntasks_x, ntasks_y, &
941 ids, ide, jds, jde, 1 , 1 , &
942 ims, ime, jms, jme, 1 , 1 , &
943 ips, ipe, jps, jpe, 1 , 1 )
944 CALL RSL_LITE_PACK ( local_communicator, grid%ht_coarse, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
945 mytask, ntasks, ntasks_x, ntasks_y, &
946 ids, ide, jds, jde, 1 , 1 , &
947 ims, ime, jms, jme, 1 , 1 , &
948 ips, ipe, jps, jpe, 1 , 1 )
949 CALL RSL_LITE_PACK ( local_communicator, grid%em_p, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
950 mytask, ntasks, ntasks_x, ntasks_y, &
951 ids, ide, jds, jde, kds, kde, &
952 ims, ime, jms, jme, kms, kme, &
953 ips, ipe, jps, jpe, kps, kpe )
954 CALL RSL_LITE_PACK ( local_communicator, grid%em_sr, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
955 mytask, ntasks, ntasks_x, ntasks_y, &
956 ids, ide, jds, jde, 1 , 1 , &
957 ims, ime, jms, jme, 1 , 1 , &
958 ips, ipe, jps, jpe, 1 , 1 )
959 CALL RSL_LITE_PACK ( local_communicator, grid%em_z, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
960 mytask, ntasks, ntasks_x, ntasks_y, &
961 ids, ide, jds, jde, kds, kde, &
962 ims, ime, jms, jme, kms, kme, &
963 ips, ipe, jps, jpe, kps, kpe )
964 CALL RSL_LITE_PACK ( local_communicator, grid%a_z, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
965 mytask, ntasks, ntasks_x, ntasks_y, &
966 ids, ide, jds, jde, kds, kde, &
967 ims, ime, jms, jme, kms, kme, &
968 ips, ipe, jps, jpe, kps, kpe )
969 CALL RSL_LITE_PACK ( local_communicator, grid%g_z, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
970 mytask, ntasks, ntasks_x, ntasks_y, &
971 ids, ide, jds, jde, kds, kde, &
972 ims, ime, jms, jme, kms, kme, &
973 ips, ipe, jps, jpe, kps, kpe )
974 CALL RSL_LITE_PACK ( local_communicator, grid%q2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
975 mytask, ntasks, ntasks_x, ntasks_y, &
976 ids, ide, jds, jde, 1 , 1 , &
977 ims, ime, jms, jme, 1 , 1 , &
978 ips, ipe, jps, jpe, 1 , 1 )
979 CALL RSL_LITE_PACK ( local_communicator, grid%t2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
980 mytask, ntasks, ntasks_x, ntasks_y, &
981 ids, ide, jds, jde, 1 , 1 , &
982 ims, ime, jms, jme, 1 , 1 , &
983 ips, ipe, jps, jpe, 1 , 1 )
984 CALL RSL_LITE_PACK ( local_communicator, grid%th2, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
985 mytask, ntasks, ntasks_x, ntasks_y, &
986 ids, ide, jds, jde, 1 , 1 , &
987 ims, ime, jms, jme, 1 , 1 , &
988 ips, ipe, jps, jpe, 1 , 1 )
989 CALL RSL_LITE_PACK ( local_communicator, grid%psfc, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
990 mytask, ntasks, ntasks_x, ntasks_y, &
991 ids, ide, jds, jde, 1 , 1 , &
992 ims, ime, jms, jme, 1 , 1 , &
993 ips, ipe, jps, jpe, 1 , 1 )
994 CALL RSL_LITE_PACK ( local_communicator, grid%u10, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
995 mytask, ntasks, ntasks_x, ntasks_y, &
996 ids, ide, jds, jde, 1 , 1 , &
997 ims, ime, jms, jme, 1 , 1 , &
998 ips, ipe, jps, jpe, 1 , 1 )
999 CALL RSL_LITE_PACK ( local_communicator, grid%v10, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1000 mytask, ntasks, ntasks_x, ntasks_y, &
1001 ids, ide, jds, jde, 1 , 1 , &
1002 ims, ime, jms, jme, 1 , 1 , &
1003 ips, ipe, jps, jpe, 1 , 1 )
1004 CALL RSL_LITE_PACK ( local_communicator, grid%uratx, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1005 mytask, ntasks, ntasks_x, ntasks_y, &
1006 ids, ide, jds, jde, 1 , 1 , &
1007 ims, ime, jms, jme, 1 , 1 , &
1008 ips, ipe, jps, jpe, 1 , 1 )
1009 CALL RSL_LITE_PACK ( local_communicator, grid%vratx, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1010 mytask, ntasks, ntasks_x, ntasks_y, &
1011 ids, ide, jds, jde, 1 , 1 , &
1012 ims, ime, jms, jme, 1 , 1 , &
1013 ips, ipe, jps, jpe, 1 , 1 )
1014 CALL RSL_LITE_PACK ( local_communicator, grid%tratx, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1015 mytask, ntasks, ntasks_x, ntasks_y, &
1016 ids, ide, jds, jde, 1 , 1 , &
1017 ims, ime, jms, jme, 1 , 1 , &
1018 ips, ipe, jps, jpe, 1 , 1 )
1019 CALL RSL_LITE_PACK ( local_communicator, grid%imask_nostag, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1020 mytask, ntasks, ntasks_x, ntasks_y, &
1021 ids, ide, jds, jde, 1 , 1 , &
1022 ims, ime, jms, jme, 1 , 1 , &
1023 ips, ipe, jps, jpe, 1 , 1 )
1024 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xstag, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1025 mytask, ntasks, ntasks_x, ntasks_y, &
1026 ids, ide, jds, jde, 1 , 1 , &
1027 ims, ime, jms, jme, 1 , 1 , &
1028 ips, ipe, jps, jpe, 1 , 1 )
1029 CALL RSL_LITE_PACK ( local_communicator, grid%imask_ystag, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 1, &
1030 mytask, ntasks, ntasks_x, ntasks_y, &
1031 ids, ide, jds, jde, 1 , 1 , &
1032 ims, ime, jms, jme, 1 , 1 , &
1033 ips, ipe, jps, jpe, 1 , 1 )
1034 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xystag, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 1, &
1035 mytask, ntasks, ntasks_x, ntasks_y, &
1036 ids, ide, jds, jde, 1 , 1 , &
1037 ims, ime, jms, jme, 1 , 1 , &
1038 ips, ipe, jps, jpe, 1 , 1 )
1039 DO itrace = PARAM_FIRST_SCALAR, num_moist
1040 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 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 ENDDO
1046 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
1047 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1048 mytask, ntasks, ntasks_x, ntasks_y, &
1049 ids, ide, jds, jde, kds, kde, &
1050 ims, ime, jms, jme, kms, kme, &
1051 ips, ipe, jps, jpe, kps, kpe )
1052 ENDDO
1053 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
1054 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1055 mytask, ntasks, ntasks_x, ntasks_y, &
1056 ids, ide, jds, jde, kds, kde, &
1057 ims, ime, jms, jme, kms, kme, &
1058 ips, ipe, jps, jpe, kps, kpe )
1059 ENDDO
1060 DO itrace = PARAM_FIRST_SCALAR, num_scalar
1061 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1062 mytask, ntasks, ntasks_x, ntasks_y, &
1063 ids, ide, jds, jde, kds, kde, &
1064 ims, ime, jms, jme, kms, kme, &
1065 ips, ipe, jps, jpe, kps, kpe )
1066 ENDDO
1067 DO itrace = PARAM_FIRST_SCALAR, num_a_scalar
1068 CALL RSL_LITE_PACK ( local_communicator,a_scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1069 mytask, ntasks, ntasks_x, ntasks_y, &
1070 ids, ide, jds, jde, kds, kde, &
1071 ims, ime, jms, jme, kms, kme, &
1072 ips, ipe, jps, jpe, kps, kpe )
1073 ENDDO
1074 DO itrace = PARAM_FIRST_SCALAR, num_g_scalar
1075 CALL RSL_LITE_PACK ( local_communicator,g_scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1076 mytask, ntasks, ntasks_x, ntasks_y, &
1077 ids, ide, jds, jde, kds, kde, &
1078 ims, ime, jms, jme, kms, kme, &
1079 ips, ipe, jps, jpe, kps, kpe )
1080 ENDDO
1081 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1082 mytask, ntasks, ntasks_x, ntasks_y, &
1083 ids, ide, jds, jde, 1 , 1 , &
1084 ims, ime, jms, jme, 1 , 1 , &
1085 ips, ipe, jps, jpe, 1 , 1 )
1086 CALL RSL_LITE_PACK ( local_communicator, grid%shdmax, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1087 mytask, ntasks, ntasks_x, ntasks_y, &
1088 ids, ide, jds, jde, 1 , 1 , &
1089 ims, ime, jms, jme, 1 , 1 , &
1090 ips, ipe, jps, jpe, 1 , 1 )
1091 CALL RSL_LITE_PACK ( local_communicator, grid%shdmin, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1092 mytask, ntasks, ntasks_x, ntasks_y, &
1093 ids, ide, jds, jde, 1 , 1 , &
1094 ims, ime, jms, jme, 1 , 1 , &
1095 ips, ipe, jps, jpe, 1 , 1 )
1096 CALL RSL_LITE_PACK ( local_communicator, grid%snoalb, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1097 mytask, ntasks, ntasks_x, ntasks_y, &
1098 ids, ide, jds, jde, 1 , 1 , &
1099 ims, ime, jms, jme, 1 , 1 , &
1100 ips, ipe, jps, jpe, 1 , 1 )
1101 CALL RSL_LITE_PACK ( local_communicator, grid%tslb, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1102 mytask, ntasks, ntasks_x, ntasks_y, &
1103 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
1104 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
1105 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
1106 CALL RSL_LITE_PACK ( local_communicator, grid%smois, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1107 mytask, ntasks, ntasks_x, ntasks_y, &
1108 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
1109 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
1110 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
1111 CALL RSL_LITE_PACK ( local_communicator, grid%sh2o, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1112 mytask, ntasks, ntasks_x, ntasks_y, &
1113 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
1114 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
1115 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
1116 CALL RSL_LITE_PACK ( local_communicator, grid%xice, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1117 mytask, ntasks, ntasks_x, ntasks_y, &
1118 ids, ide, jds, jde, 1 , 1 , &
1119 ims, ime, jms, jme, 1 , 1 , &
1120 ips, ipe, jps, jpe, 1 , 1 )
1121 CALL RSL_LITE_PACK ( local_communicator, grid%sfcrunoff, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1122 mytask, ntasks, ntasks_x, ntasks_y, &
1123 ids, ide, jds, jde, 1 , 1 , &
1124 ims, ime, jms, jme, 1 , 1 , &
1125 ips, ipe, jps, jpe, 1 , 1 )
1126 CALL RSL_LITE_PACK ( local_communicator, grid%udrunoff, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1127 mytask, ntasks, ntasks_x, ntasks_y, &
1128 ids, ide, jds, jde, 1 , 1 , &
1129 ims, ime, jms, jme, 1 , 1 , &
1130 ips, ipe, jps, jpe, 1 , 1 )
1131 CALL RSL_LITE_PACK ( local_communicator, grid%ivgtyp, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1132 mytask, ntasks, ntasks_x, ntasks_y, &
1133 ids, ide, jds, jde, 1 , 1 , &
1134 ims, ime, jms, jme, 1 , 1 , &
1135 ips, ipe, jps, jpe, 1 , 1 )
1136 CALL RSL_LITE_PACK ( local_communicator, grid%isltyp, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1137 mytask, ntasks, ntasks_x, ntasks_y, &
1138 ids, ide, jds, jde, 1 , 1 , &
1139 ims, ime, jms, jme, 1 , 1 , &
1140 ips, ipe, jps, jpe, 1 , 1 )
1141 CALL RSL_LITE_PACK ( local_communicator, grid%vegfra, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1142 mytask, ntasks, ntasks_x, ntasks_y, &
1143 ids, ide, jds, jde, 1 , 1 , &
1144 ims, ime, jms, jme, 1 , 1 , &
1145 ips, ipe, jps, jpe, 1 , 1 )
1146 CALL RSL_LITE_PACK ( local_communicator, grid%sfcevp, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1147 mytask, ntasks, ntasks_x, ntasks_y, &
1148 ids, ide, jds, jde, 1 , 1 , &
1149 ims, ime, jms, jme, 1 , 1 , &
1150 ips, ipe, jps, jpe, 1 , 1 )
1151 CALL RSL_LITE_PACK ( local_communicator, grid%acsnow, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1152 mytask, ntasks, ntasks_x, ntasks_y, &
1153 ids, ide, jds, jde, 1 , 1 , &
1154 ims, ime, jms, jme, 1 , 1 , &
1155 ips, ipe, jps, jpe, 1 , 1 )
1156 CALL RSL_LITE_PACK ( local_communicator, grid%acsnom, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1157 mytask, ntasks, ntasks_x, ntasks_y, &
1158 ids, ide, jds, jde, 1 , 1 , &
1159 ims, ime, jms, jme, 1 , 1 , &
1160 ips, ipe, jps, jpe, 1 , 1 )
1161 CALL RSL_LITE_PACK ( local_communicator, grid%snow, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1162 mytask, ntasks, ntasks_x, ntasks_y, &
1163 ids, ide, jds, jde, 1 , 1 , &
1164 ims, ime, jms, jme, 1 , 1 , &
1165 ips, ipe, jps, jpe, 1 , 1 )
1166 CALL RSL_LITE_PACK ( local_communicator, grid%snowh, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1167 mytask, ntasks, ntasks_x, ntasks_y, &
1168 ids, ide, jds, jde, 1 , 1 , &
1169 ims, ime, jms, jme, 1 , 1 , &
1170 ips, ipe, jps, jpe, 1 , 1 )
1171 CALL RSL_LITE_PACK ( local_communicator, grid%rhosn, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1172 mytask, ntasks, ntasks_x, ntasks_y, &
1173 ids, ide, jds, jde, 1 , 1 , &
1174 ims, ime, jms, jme, 1 , 1 , &
1175 ips, ipe, jps, jpe, 1 , 1 )
1176 CALL RSL_LITE_PACK ( local_communicator, grid%canwat, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1177 mytask, ntasks, ntasks_x, ntasks_y, &
1178 ids, ide, jds, jde, 1 , 1 , &
1179 ims, ime, jms, jme, 1 , 1 , &
1180 ips, ipe, jps, jpe, 1 , 1 )
1181 CALL RSL_LITE_PACK ( local_communicator, grid%sst, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1182 mytask, ntasks, ntasks_x, ntasks_y, &
1183 ids, ide, jds, jde, 1 , 1 , &
1184 ims, ime, jms, jme, 1 , 1 , &
1185 ips, ipe, jps, jpe, 1 , 1 )
1186 CALL RSL_LITE_PACK ( local_communicator, grid%htop, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1187 mytask, ntasks, ntasks_x, ntasks_y, &
1188 ids, ide, jds, jde, 1 , 1 , &
1189 ims, ime, jms, jme, 1 , 1 , &
1190 ips, ipe, jps, jpe, 1 , 1 )
1191 CALL RSL_LITE_PACK ( local_communicator, grid%hbot, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1192 mytask, ntasks, ntasks_x, ntasks_y, &
1193 ids, ide, jds, jde, 1 , 1 , &
1194 ims, ime, jms, jme, 1 , 1 , &
1195 ips, ipe, jps, jpe, 1 , 1 )
1196 CALL RSL_LITE_PACK ( local_communicator, grid%cuppt, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1197 mytask, ntasks, ntasks_x, ntasks_y, &
1198 ids, ide, jds, jde, 1 , 1 , &
1199 ims, ime, jms, jme, 1 , 1 , &
1200 ips, ipe, jps, jpe, 1 , 1 )
1201 CALL RSL_LITE_PACK ( local_communicator, grid%rswtoa, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1202 mytask, ntasks, ntasks_x, ntasks_y, &
1203 ids, ide, jds, jde, 1 , 1 , &
1204 ims, ime, jms, jme, 1 , 1 , &
1205 ips, ipe, jps, jpe, 1 , 1 )
1206 CALL RSL_LITE_PACK ( local_communicator, grid%rlwtoa, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1207 mytask, ntasks, ntasks_x, ntasks_y, &
1208 ids, ide, jds, jde, 1 , 1 , &
1209 ims, ime, jms, jme, 1 , 1 , &
1210 ips, ipe, jps, jpe, 1 , 1 )
1211 CALL RSL_LITE_PACK ( local_communicator, grid%czmean, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1212 mytask, ntasks, ntasks_x, ntasks_y, &
1213 ids, ide, jds, jde, 1 , 1 , &
1214 ims, ime, jms, jme, 1 , 1 , &
1215 ips, ipe, jps, jpe, 1 , 1 )
1216 CALL RSL_LITE_PACK ( local_communicator, grid%cfracl, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1217 mytask, ntasks, ntasks_x, ntasks_y, &
1218 ids, ide, jds, jde, 1 , 1 , &
1219 ims, ime, jms, jme, 1 , 1 , &
1220 ips, ipe, jps, jpe, 1 , 1 )
1221 CALL RSL_LITE_PACK ( local_communicator, grid%cfracm, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1222 mytask, ntasks, ntasks_x, ntasks_y, &
1223 ids, ide, jds, jde, 1 , 1 , &
1224 ims, ime, jms, jme, 1 , 1 , &
1225 ips, ipe, jps, jpe, 1 , 1 )
1226 CALL RSL_LITE_PACK ( local_communicator, grid%cfrach, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1227 mytask, ntasks, ntasks_x, ntasks_y, &
1228 ids, ide, jds, jde, 1 , 1 , &
1229 ims, ime, jms, jme, 1 , 1 , &
1230 ips, ipe, jps, jpe, 1 , 1 )
1231 CALL RSL_LITE_PACK ( local_communicator, grid%acfrst, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1232 mytask, ntasks, ntasks_x, ntasks_y, &
1233 ids, ide, jds, jde, 1 , 1 , &
1234 ims, ime, jms, jme, 1 , 1 , &
1235 ips, ipe, jps, jpe, 1 , 1 )
1236 CALL RSL_LITE_PACK ( local_communicator, grid%ncfrst, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1237 mytask, ntasks, ntasks_x, ntasks_y, &
1238 ids, ide, jds, jde, 1 , 1 , &
1239 ims, ime, jms, jme, 1 , 1 , &
1240 ips, ipe, jps, jpe, 1 , 1 )
1241 CALL RSL_LITE_PACK ( local_communicator, grid%acfrcv, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1242 mytask, ntasks, ntasks_x, ntasks_y, &
1243 ids, ide, jds, jde, 1 , 1 , &
1244 ims, ime, jms, jme, 1 , 1 , &
1245 ips, ipe, jps, jpe, 1 , 1 )
1246 CALL RSL_LITE_PACK ( local_communicator, grid%ncfrcv, 3, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1247 mytask, ntasks, ntasks_x, ntasks_y, &
1248 ids, ide, jds, jde, 1 , 1 , &
1249 ims, ime, jms, jme, 1 , 1 , &
1250 ips, ipe, jps, jpe, 1 , 1 )
1251 CALL RSL_LITE_PACK ( local_communicator, grid%h_diabatic, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1252 mytask, ntasks, ntasks_x, ntasks_y, &
1253 ids, ide, jds, jde, kds, kde, &
1254 ims, ime, jms, jme, kms, kme, &
1255 ips, ipe, jps, jpe, kps, kpe )
1256 CALL RSL_LITE_PACK ( local_communicator, grid%msft, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1257 mytask, ntasks, ntasks_x, ntasks_y, &
1258 ids, ide, jds, jde, 1 , 1 , &
1259 ims, ime, jms, jme, 1 , 1 , &
1260 ips, ipe, jps, jpe, 1 , 1 )
1261 CALL RSL_LITE_PACK ( local_communicator, grid%msfu, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1262 mytask, ntasks, ntasks_x, ntasks_y, &
1263 ids, ide, jds, jde, 1 , 1 , &
1264 ims, ime, jms, jme, 1 , 1 , &
1265 ips, ipe, jps, jpe, 1 , 1 )
1266 CALL RSL_LITE_PACK ( local_communicator, grid%msfv, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 1, &
1267 mytask, ntasks, ntasks_x, ntasks_y, &
1268 ids, ide, jds, jde, 1 , 1 , &
1269 ims, ime, jms, jme, 1 , 1 , &
1270 ips, ipe, jps, jpe, 1 , 1 )
1271 CALL RSL_LITE_PACK ( local_communicator, grid%f, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1272 mytask, ntasks, ntasks_x, ntasks_y, &
1273 ids, ide, jds, jde, 1 , 1 , &
1274 ims, ime, jms, jme, 1 , 1 , &
1275 ips, ipe, jps, jpe, 1 , 1 )
1276 CALL RSL_LITE_PACK ( local_communicator, grid%e, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1277 mytask, ntasks, ntasks_x, ntasks_y, &
1278 ids, ide, jds, jde, 1 , 1 , &
1279 ims, ime, jms, jme, 1 , 1 , &
1280 ips, ipe, jps, jpe, 1 , 1 )
1281 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1282 mytask, ntasks, ntasks_x, ntasks_y, &
1283 ids, ide, jds, jde, 1 , 1 , &
1284 ims, ime, jms, jme, 1 , 1 , &
1285 ips, ipe, jps, jpe, 1 , 1 )
1286 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1287 mytask, ntasks, ntasks_x, ntasks_y, &
1288 ids, ide, jds, jde, 1 , 1 , &
1289 ims, ime, jms, jme, 1 , 1 , &
1290 ips, ipe, jps, jpe, 1 , 1 )
1291 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1292 mytask, ntasks, ntasks_x, ntasks_y, &
1293 ids, ide, jds, jde, 1 , 1 , &
1294 ims, ime, jms, jme, 1 , 1 , &
1295 ips, ipe, jps, jpe, 1 , 1 )
1296 CALL RSL_LITE_PACK ( local_communicator, grid%ht_fine, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1297 mytask, ntasks, ntasks_x, ntasks_y, &
1298 ids, ide, jds, jde, 1 , 1 , &
1299 ims, ime, jms, jme, 1 , 1 , &
1300 ips, ipe, jps, jpe, 1 , 1 )
1301 CALL RSL_LITE_PACK ( local_communicator, grid%ht_int, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1302 mytask, ntasks, ntasks_x, ntasks_y, &
1303 ids, ide, jds, jde, 1 , 1 , &
1304 ims, ime, jms, jme, 1 , 1 , &
1305 ips, ipe, jps, jpe, 1 , 1 )
1306 CALL RSL_LITE_PACK ( local_communicator, grid%ht_input, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1307 mytask, ntasks, ntasks_x, ntasks_y, &
1308 ids, ide, jds, jde, 1 , 1 , &
1309 ims, ime, jms, jme, 1 , 1 , &
1310 ips, ipe, jps, jpe, 1 , 1 )
1311 CALL RSL_LITE_PACK ( local_communicator, grid%tsk, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1312 mytask, ntasks, ntasks_x, ntasks_y, &
1313 ids, ide, jds, jde, 1 , 1 , &
1314 ims, ime, jms, jme, 1 , 1 , &
1315 ips, ipe, jps, jpe, 1 , 1 )
1316 CALL RSL_LITE_PACK ( local_communicator, grid%tsk_save, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1317 mytask, ntasks, ntasks_x, ntasks_y, &
1318 ids, ide, jds, jde, 1 , 1 , &
1319 ims, ime, jms, jme, 1 , 1 , &
1320 ips, ipe, jps, jpe, 1 , 1 )
1321 CALL RSL_LITE_PACK ( local_communicator, grid%rainc, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1322 mytask, ntasks, ntasks_x, ntasks_y, &
1323 ids, ide, jds, jde, 1 , 1 , &
1324 ims, ime, jms, jme, 1 , 1 , &
1325 ips, ipe, jps, jpe, 1 , 1 )
1326 CALL RSL_LITE_PACK ( local_communicator, grid%rainnc, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1327 mytask, ntasks, ntasks_x, ntasks_y, &
1328 ids, ide, jds, jde, 1 , 1 , &
1329 ims, ime, jms, jme, 1 , 1 , &
1330 ips, ipe, jps, jpe, 1 , 1 )
1331 CALL RSL_LITE_PACK ( local_communicator, grid%xlat, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1332 mytask, ntasks, ntasks_x, ntasks_y, &
1333 ids, ide, jds, jde, 1 , 1 , &
1334 ims, ime, jms, jme, 1 , 1 , &
1335 ips, ipe, jps, jpe, 1 , 1 )
1336 CALL RSL_LITE_PACK ( local_communicator, grid%xlong, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1337 mytask, ntasks, ntasks_x, ntasks_y, &
1338 ids, ide, jds, jde, 1 , 1 , &
1339 ims, ime, jms, jme, 1 , 1 , &
1340 ips, ipe, jps, jpe, 1 , 1 )
1341 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlat_u, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1342 mytask, ntasks, ntasks_x, ntasks_y, &
1343 ids, ide, jds, jde, 1 , 1 , &
1344 ims, ime, jms, jme, 1 , 1 , &
1345 ips, ipe, jps, jpe, 1 , 1 )
1346 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlong_u, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1347 mytask, ntasks, ntasks_x, ntasks_y, &
1348 ids, ide, jds, jde, 1 , 1 , &
1349 ims, ime, jms, jme, 1 , 1 , &
1350 ips, ipe, jps, jpe, 1 , 1 )
1351 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlat_v, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 1, &
1352 mytask, ntasks, ntasks_x, ntasks_y, &
1353 ids, ide, jds, jde, 1 , 1 , &
1354 ims, ime, jms, jme, 1 , 1 , &
1355 ips, ipe, jps, jpe, 1 , 1 )
1356 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlong_v, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 1, &
1357 mytask, ntasks, ntasks_x, ntasks_y, &
1358 ids, ide, jds, jde, 1 , 1 , &
1359 ims, ime, jms, jme, 1 , 1 , &
1360 ips, ipe, jps, jpe, 1 , 1 )
1361 CALL RSL_LITE_PACK ( local_communicator, grid%albbck, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1362 mytask, ntasks, ntasks_x, ntasks_y, &
1363 ids, ide, jds, jde, 1 , 1 , &
1364 ims, ime, jms, jme, 1 , 1 , &
1365 ips, ipe, jps, jpe, 1 , 1 )
1366 CALL RSL_LITE_PACK ( local_communicator, grid%tmn, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1367 mytask, ntasks, ntasks_x, ntasks_y, &
1368 ids, ide, jds, jde, 1 , 1 , &
1369 ims, ime, jms, jme, 1 , 1 , &
1370 ips, ipe, jps, jpe, 1 , 1 )
1371 CALL RSL_LITE_PACK ( local_communicator, grid%xland, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1372 mytask, ntasks, ntasks_x, ntasks_y, &
1373 ids, ide, jds, jde, 1 , 1 , &
1374 ims, ime, jms, jme, 1 , 1 , &
1375 ips, ipe, jps, jpe, 1 , 1 )
1376 CALL RSL_LITE_PACK ( local_communicator, grid%znt, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1377 mytask, ntasks, ntasks_x, ntasks_y, &
1378 ids, ide, jds, jde, 1 , 1 , &
1379 ims, ime, jms, jme, 1 , 1 , &
1380 ips, ipe, jps, jpe, 1 , 1 )
1381 CALL RSL_LITE_PACK ( local_communicator, grid%snowc, 3, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
1382 mytask, ntasks, ntasks_x, ntasks_y, &
1383 ids, ide, jds, jde, 1 , 1 , &
1384 ims, ime, jms, jme, 1 , 1 , &
1385 ips, ipe, jps, jpe, 1 , 1 )
1386 CALL RSL_LITE_PACK ( local_communicator, grid%xkmv, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1387 mytask, ntasks, ntasks_x, ntasks_y, &
1388 ids, ide, jds, jde, kds, kde, &
1389 ims, ime, jms, jme, kms, kme, &
1390 ips, ipe, jps, jpe, kps, kpe )
1391 CALL RSL_LITE_PACK ( local_communicator, grid%xkmh, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1392 mytask, ntasks, ntasks_x, ntasks_y, &
1393 ids, ide, jds, jde, kds, kde, &
1394 ims, ime, jms, jme, kms, kme, &
1395 ips, ipe, jps, jpe, kps, kpe )
1396 CALL RSL_LITE_PACK ( local_communicator, grid%xkmhd, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1397 mytask, ntasks, ntasks_x, ntasks_y, &
1398 ids, ide, jds, jde, kds, kde, &
1399 ims, ime, jms, jme, kms, kme, &
1400 ips, ipe, jps, jpe, kps, kpe )
1401 CALL RSL_LITE_PACK ( local_communicator, grid%a_xkmhd, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1402 mytask, ntasks, ntasks_x, ntasks_y, &
1403 ids, ide, jds, jde, kds, kde, &
1404 ims, ime, jms, jme, kms, kme, &
1405 ips, ipe, jps, jpe, kps, kpe )
1406 CALL RSL_LITE_PACK ( local_communicator, grid%g_xkmhd, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1407 mytask, ntasks, ntasks_x, ntasks_y, &
1408 ids, ide, jds, jde, kds, kde, &
1409 ims, ime, jms, jme, kms, kme, &
1410 ips, ipe, jps, jpe, kps, kpe )
1411 CALL RSL_LITE_PACK ( local_communicator, grid%xkhv, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1412 mytask, ntasks, ntasks_x, ntasks_y, &
1413 ids, ide, jds, jde, kds, kde, &
1414 ims, ime, jms, jme, kms, kme, &
1415 ips, ipe, jps, jpe, kps, kpe )
1416 CALL RSL_LITE_PACK ( local_communicator, grid%xkhh, 3, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
1417 mytask, ntasks, ntasks_x, ntasks_y, &
1418 ids, ide, jds, jde, kds, kde, &
1419 ims, ime, jms, jme, kms, kme, &
1420 ips, ipe, jps, jpe, kps, kpe )
1421 CALL RSL_LITE_INIT_EXCH ( local_communicator, 3 , &
1422 47 &
1423 + num_moist &
1424 + num_a_moist &
1425 + num_g_moist &
1426 + num_scalar &
1427 + num_a_scalar &
1428 + num_g_scalar &
1429 , 76, RWORDSIZE, &
1430 0, 8, IWORDSIZE, &
1431 0, 0, DWORDSIZE, &
1432 0, 0, LWORDSIZE, &
1433 mytask, ntasks, ntasks_x, ntasks_y, &
1434 ips, ipe, jps, jpe, kps, MAX(1,1&
1435 ,config_flags%num_metgrid_levels &
1436 ,kpe &
1437 ,config_flags%num_soil_layers &
1438 ))
1439 CALL RSL_LITE_PACK ( local_communicator, grid%lu_index, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1440 mytask, ntasks, ntasks_x, ntasks_y, &
1441 ids, ide, jds, jde, 1 , 1 , &
1442 ims, ime, jms, jme, 1 , 1 , &
1443 ips, ipe, jps, jpe, 1 , 1 )
1444 CALL RSL_LITE_PACK ( local_communicator, grid%lu_mask, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1445 mytask, ntasks, ntasks_x, ntasks_y, &
1446 ids, ide, jds, jde, 1 , 1 , &
1447 ims, ime, jms, jme, 1 , 1 , &
1448 ips, ipe, jps, jpe, 1 , 1 )
1449 CALL RSL_LITE_PACK ( local_communicator, grid%em_qv_gc, 3, RWORDSIZE, 1, 0, DATA_ORDER_XZY, 0, &
1450 mytask, ntasks, ntasks_x, ntasks_y, &
1451 ids, ide, jds, jde, 1, config_flags%num_metgrid_levels, &
1452 ims, ime, jms, jme, 1, config_flags%num_metgrid_levels, &
1453 ips, ipe, jps, jpe, 1, config_flags%num_metgrid_levels )
1454 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
1455 mytask, ntasks, ntasks_x, ntasks_y, &
1456 ids, ide, jds, jde, kds, kde, &
1457 ims, ime, jms, jme, kms, kme, &
1458 ips, ipe, jps, jpe, kps, kpe )
1459 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
1460 mytask, ntasks, ntasks_x, ntasks_y, &
1461 ids, ide, jds, jde, kds, kde, &
1462 ims, ime, jms, jme, kms, kme, &
1463 ips, ipe, jps, jpe, kps, kpe )
1464 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
1465 mytask, ntasks, ntasks_x, ntasks_y, &
1466 ids, ide, jds, jde, kds, kde, &
1467 ims, ime, jms, jme, kms, kme, &
1468 ips, ipe, jps, jpe, kps, kpe )
1469 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
1470 mytask, ntasks, ntasks_x, ntasks_y, &
1471 ids, ide, jds, jde, kds, kde, &
1472 ims, ime, jms, jme, kms, kme, &
1473 ips, ipe, jps, jpe, kps, kpe )
1474 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
1475 mytask, ntasks, ntasks_x, ntasks_y, &
1476 ids, ide, jds, jde, kds, kde, &
1477 ims, ime, jms, jme, kms, kme, &
1478 ips, ipe, jps, jpe, kps, kpe )
1479 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
1480 mytask, ntasks, ntasks_x, ntasks_y, &
1481 ids, ide, jds, jde, kds, kde, &
1482 ims, ime, jms, jme, kms, kme, &
1483 ips, ipe, jps, jpe, kps, kpe )
1484 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1485 mytask, ntasks, ntasks_x, ntasks_y, &
1486 ids, ide, jds, jde, kds, kde, &
1487 ims, ime, jms, jme, kms, kme, &
1488 ips, ipe, jps, jpe, kps, kpe )
1489 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1490 mytask, ntasks, ntasks_x, ntasks_y, &
1491 ids, ide, jds, jde, kds, kde, &
1492 ims, ime, jms, jme, kms, kme, &
1493 ips, ipe, jps, jpe, kps, kpe )
1494 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1495 mytask, ntasks, ntasks_x, ntasks_y, &
1496 ids, ide, jds, jde, kds, kde, &
1497 ims, ime, jms, jme, kms, kme, &
1498 ips, ipe, jps, jpe, kps, kpe )
1499 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1500 mytask, ntasks, ntasks_x, ntasks_y, &
1501 ids, ide, jds, jde, kds, kde, &
1502 ims, ime, jms, jme, kms, kme, &
1503 ips, ipe, jps, jpe, kps, kpe )
1504 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1505 mytask, ntasks, ntasks_x, ntasks_y, &
1506 ids, ide, jds, jde, kds, kde, &
1507 ims, ime, jms, jme, kms, kme, &
1508 ips, ipe, jps, jpe, kps, kpe )
1509 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1510 mytask, ntasks, ntasks_x, ntasks_y, &
1511 ids, ide, jds, jde, kds, kde, &
1512 ims, ime, jms, jme, kms, kme, &
1513 ips, ipe, jps, jpe, kps, kpe )
1514 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1515 mytask, ntasks, ntasks_x, ntasks_y, &
1516 ids, ide, jds, jde, kds, kde, &
1517 ims, ime, jms, jme, kms, kme, &
1518 ips, ipe, jps, jpe, kps, kpe )
1519 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1520 mytask, ntasks, ntasks_x, ntasks_y, &
1521 ids, ide, jds, jde, kds, kde, &
1522 ims, ime, jms, jme, kms, kme, &
1523 ips, ipe, jps, jpe, kps, kpe )
1524 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1525 mytask, ntasks, ntasks_x, ntasks_y, &
1526 ids, ide, jds, jde, kds, kde, &
1527 ims, ime, jms, jme, kms, kme, &
1528 ips, ipe, jps, jpe, kps, kpe )
1529 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1530 mytask, ntasks, ntasks_x, ntasks_y, &
1531 ids, ide, jds, jde, kds, kde, &
1532 ims, ime, jms, jme, kms, kme, &
1533 ips, ipe, jps, jpe, kps, kpe )
1534 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1535 mytask, ntasks, ntasks_x, ntasks_y, &
1536 ids, ide, jds, jde, kds, kde, &
1537 ims, ime, jms, jme, kms, kme, &
1538 ips, ipe, jps, jpe, kps, kpe )
1539 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1540 mytask, ntasks, ntasks_x, ntasks_y, &
1541 ids, ide, jds, jde, kds, kde, &
1542 ims, ime, jms, jme, kms, kme, &
1543 ips, ipe, jps, jpe, kps, kpe )
1544 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1545 mytask, ntasks, ntasks_x, ntasks_y, &
1546 ids, ide, jds, jde, kds, kde, &
1547 ims, ime, jms, jme, kms, kme, &
1548 ips, ipe, jps, jpe, kps, kpe )
1549 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1550 mytask, ntasks, ntasks_x, ntasks_y, &
1551 ids, ide, jds, jde, kds, kde, &
1552 ims, ime, jms, jme, kms, kme, &
1553 ips, ipe, jps, jpe, kps, kpe )
1554 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1555 mytask, ntasks, ntasks_x, ntasks_y, &
1556 ids, ide, jds, jde, kds, kde, &
1557 ims, ime, jms, jme, kms, kme, &
1558 ips, ipe, jps, jpe, kps, kpe )
1559 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1560 mytask, ntasks, ntasks_x, ntasks_y, &
1561 ids, ide, jds, jde, kds, kde, &
1562 ims, ime, jms, jme, kms, kme, &
1563 ips, ipe, jps, jpe, kps, kpe )
1564 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1565 mytask, ntasks, ntasks_x, ntasks_y, &
1566 ids, ide, jds, jde, kds, kde, &
1567 ims, ime, jms, jme, kms, kme, &
1568 ips, ipe, jps, jpe, kps, kpe )
1569 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1570 mytask, ntasks, ntasks_x, ntasks_y, &
1571 ids, ide, jds, jde, kds, kde, &
1572 ims, ime, jms, jme, kms, kme, &
1573 ips, ipe, jps, jpe, kps, kpe )
1574 CALL RSL_LITE_PACK ( local_communicator, grid%em_phb, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1575 mytask, ntasks, ntasks_x, ntasks_y, &
1576 ids, ide, jds, jde, kds, kde, &
1577 ims, ime, jms, jme, kms, kme, &
1578 ips, ipe, jps, jpe, kps, kpe )
1579 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1580 mytask, ntasks, ntasks_x, ntasks_y, &
1581 ids, ide, jds, jde, kds, kde, &
1582 ims, ime, jms, jme, kms, kme, &
1583 ips, ipe, jps, jpe, kps, kpe )
1584 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1585 mytask, ntasks, ntasks_x, ntasks_y, &
1586 ids, ide, jds, jde, kds, kde, &
1587 ims, ime, jms, jme, kms, kme, &
1588 ips, ipe, jps, jpe, kps, kpe )
1589 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1590 mytask, ntasks, ntasks_x, ntasks_y, &
1591 ids, ide, jds, jde, kds, kde, &
1592 ims, ime, jms, jme, kms, kme, &
1593 ips, ipe, jps, jpe, kps, kpe )
1594 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1595 mytask, ntasks, ntasks_x, ntasks_y, &
1596 ids, ide, jds, jde, kds, kde, &
1597 ims, ime, jms, jme, kms, kme, &
1598 ips, ipe, jps, jpe, kps, kpe )
1599 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_1, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1600 mytask, ntasks, ntasks_x, ntasks_y, &
1601 ids, ide, jds, jde, kds, kde, &
1602 ims, ime, jms, jme, kms, kme, &
1603 ips, ipe, jps, jpe, kps, kpe )
1604 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1605 mytask, ntasks, ntasks_x, ntasks_y, &
1606 ids, ide, jds, jde, kds, kde, &
1607 ims, ime, jms, jme, kms, kme, &
1608 ips, ipe, jps, jpe, kps, kpe )
1609 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_1, 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%em_mu_2, 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%a_mu_1, 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%a_mu_2, 3, RWORDSIZE, 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%g_mu_1, 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%g_mu_2, 3, RWORDSIZE, 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%em_mub, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1640 mytask, ntasks, ntasks_x, ntasks_y, &
1641 ids, ide, jds, jde, 1 , 1 , &
1642 ims, ime, jms, jme, 1 , 1 , &
1643 ips, ipe, jps, jpe, 1 , 1 )
1644 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu0, 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%nest_pos, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
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%nest_mask, 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%ht_coarse, 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%em_p, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1665 mytask, ntasks, ntasks_x, ntasks_y, &
1666 ids, ide, jds, jde, kds, kde, &
1667 ims, ime, jms, jme, kms, kme, &
1668 ips, ipe, jps, jpe, kps, kpe )
1669 CALL RSL_LITE_PACK ( local_communicator, grid%em_sr, 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%em_z, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1675 mytask, ntasks, ntasks_x, ntasks_y, &
1676 ids, ide, jds, jde, kds, kde, &
1677 ims, ime, jms, jme, kms, kme, &
1678 ips, ipe, jps, jpe, kps, kpe )
1679 CALL RSL_LITE_PACK ( local_communicator, grid%a_z, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1680 mytask, ntasks, ntasks_x, ntasks_y, &
1681 ids, ide, jds, jde, kds, kde, &
1682 ims, ime, jms, jme, kms, kme, &
1683 ips, ipe, jps, jpe, kps, kpe )
1684 CALL RSL_LITE_PACK ( local_communicator, grid%g_z, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1685 mytask, ntasks, ntasks_x, ntasks_y, &
1686 ids, ide, jds, jde, kds, kde, &
1687 ims, ime, jms, jme, kms, kme, &
1688 ips, ipe, jps, jpe, kps, kpe )
1689 CALL RSL_LITE_PACK ( local_communicator, grid%q2, 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%t2, 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%th2, 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%psfc, 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%u10, 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%v10, 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%uratx, 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%vratx, 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%tratx, 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%imask_nostag, 3, IWORDSIZE, 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%imask_xstag, 3, IWORDSIZE, 1, 0, DATA_ORDER_XY, 1, &
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%imask_ystag, 3, IWORDSIZE, 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%imask_xystag, 3, IWORDSIZE, 1, 0, DATA_ORDER_XY, 1, &
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 DO itrace = PARAM_FIRST_SCALAR, num_moist
1755 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1756 mytask, ntasks, ntasks_x, ntasks_y, &
1757 ids, ide, jds, jde, kds, kde, &
1758 ims, ime, jms, jme, kms, kme, &
1759 ips, ipe, jps, jpe, kps, kpe )
1760 ENDDO
1761 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
1762 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1763 mytask, ntasks, ntasks_x, ntasks_y, &
1764 ids, ide, jds, jde, kds, kde, &
1765 ims, ime, jms, jme, kms, kme, &
1766 ips, ipe, jps, jpe, kps, kpe )
1767 ENDDO
1768 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
1769 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 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 ENDDO
1775 DO itrace = PARAM_FIRST_SCALAR, num_scalar
1776 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1777 mytask, ntasks, ntasks_x, ntasks_y, &
1778 ids, ide, jds, jde, kds, kde, &
1779 ims, ime, jms, jme, kms, kme, &
1780 ips, ipe, jps, jpe, kps, kpe )
1781 ENDDO
1782 DO itrace = PARAM_FIRST_SCALAR, num_a_scalar
1783 CALL RSL_LITE_PACK ( local_communicator,a_scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1784 mytask, ntasks, ntasks_x, ntasks_y, &
1785 ids, ide, jds, jde, kds, kde, &
1786 ims, ime, jms, jme, kms, kme, &
1787 ips, ipe, jps, jpe, kps, kpe )
1788 ENDDO
1789 DO itrace = PARAM_FIRST_SCALAR, num_g_scalar
1790 CALL RSL_LITE_PACK ( local_communicator,g_scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1791 mytask, ntasks, ntasks_x, ntasks_y, &
1792 ids, ide, jds, jde, kds, kde, &
1793 ims, ime, jms, jme, kms, kme, &
1794 ips, ipe, jps, jpe, kps, kpe )
1795 ENDDO
1796 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1797 mytask, ntasks, ntasks_x, ntasks_y, &
1798 ids, ide, jds, jde, 1 , 1 , &
1799 ims, ime, jms, jme, 1 , 1 , &
1800 ips, ipe, jps, jpe, 1 , 1 )
1801 CALL RSL_LITE_PACK ( local_communicator, grid%shdmax, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1802 mytask, ntasks, ntasks_x, ntasks_y, &
1803 ids, ide, jds, jde, 1 , 1 , &
1804 ims, ime, jms, jme, 1 , 1 , &
1805 ips, ipe, jps, jpe, 1 , 1 )
1806 CALL RSL_LITE_PACK ( local_communicator, grid%shdmin, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1807 mytask, ntasks, ntasks_x, ntasks_y, &
1808 ids, ide, jds, jde, 1 , 1 , &
1809 ims, ime, jms, jme, 1 , 1 , &
1810 ips, ipe, jps, jpe, 1 , 1 )
1811 CALL RSL_LITE_PACK ( local_communicator, grid%snoalb, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1812 mytask, ntasks, ntasks_x, ntasks_y, &
1813 ids, ide, jds, jde, 1 , 1 , &
1814 ims, ime, jms, jme, 1 , 1 , &
1815 ips, ipe, jps, jpe, 1 , 1 )
1816 CALL RSL_LITE_PACK ( local_communicator, grid%tslb, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1817 mytask, ntasks, ntasks_x, ntasks_y, &
1818 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
1819 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
1820 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
1821 CALL RSL_LITE_PACK ( local_communicator, grid%smois, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1822 mytask, ntasks, ntasks_x, ntasks_y, &
1823 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
1824 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
1825 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
1826 CALL RSL_LITE_PACK ( local_communicator, grid%sh2o, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1827 mytask, ntasks, ntasks_x, ntasks_y, &
1828 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
1829 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
1830 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
1831 CALL RSL_LITE_PACK ( local_communicator, grid%xice, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1832 mytask, ntasks, ntasks_x, ntasks_y, &
1833 ids, ide, jds, jde, 1 , 1 , &
1834 ims, ime, jms, jme, 1 , 1 , &
1835 ips, ipe, jps, jpe, 1 , 1 )
1836 CALL RSL_LITE_PACK ( local_communicator, grid%sfcrunoff, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1837 mytask, ntasks, ntasks_x, ntasks_y, &
1838 ids, ide, jds, jde, 1 , 1 , &
1839 ims, ime, jms, jme, 1 , 1 , &
1840 ips, ipe, jps, jpe, 1 , 1 )
1841 CALL RSL_LITE_PACK ( local_communicator, grid%udrunoff, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1842 mytask, ntasks, ntasks_x, ntasks_y, &
1843 ids, ide, jds, jde, 1 , 1 , &
1844 ims, ime, jms, jme, 1 , 1 , &
1845 ips, ipe, jps, jpe, 1 , 1 )
1846 CALL RSL_LITE_PACK ( local_communicator, grid%ivgtyp, 3, IWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1847 mytask, ntasks, ntasks_x, ntasks_y, &
1848 ids, ide, jds, jde, 1 , 1 , &
1849 ims, ime, jms, jme, 1 , 1 , &
1850 ips, ipe, jps, jpe, 1 , 1 )
1851 CALL RSL_LITE_PACK ( local_communicator, grid%isltyp, 3, IWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1852 mytask, ntasks, ntasks_x, ntasks_y, &
1853 ids, ide, jds, jde, 1 , 1 , &
1854 ims, ime, jms, jme, 1 , 1 , &
1855 ips, ipe, jps, jpe, 1 , 1 )
1856 CALL RSL_LITE_PACK ( local_communicator, grid%vegfra, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1857 mytask, ntasks, ntasks_x, ntasks_y, &
1858 ids, ide, jds, jde, 1 , 1 , &
1859 ims, ime, jms, jme, 1 , 1 , &
1860 ips, ipe, jps, jpe, 1 , 1 )
1861 CALL RSL_LITE_PACK ( local_communicator, grid%sfcevp, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1862 mytask, ntasks, ntasks_x, ntasks_y, &
1863 ids, ide, jds, jde, 1 , 1 , &
1864 ims, ime, jms, jme, 1 , 1 , &
1865 ips, ipe, jps, jpe, 1 , 1 )
1866 CALL RSL_LITE_PACK ( local_communicator, grid%acsnow, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1867 mytask, ntasks, ntasks_x, ntasks_y, &
1868 ids, ide, jds, jde, 1 , 1 , &
1869 ims, ime, jms, jme, 1 , 1 , &
1870 ips, ipe, jps, jpe, 1 , 1 )
1871 CALL RSL_LITE_PACK ( local_communicator, grid%acsnom, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1872 mytask, ntasks, ntasks_x, ntasks_y, &
1873 ids, ide, jds, jde, 1 , 1 , &
1874 ims, ime, jms, jme, 1 , 1 , &
1875 ips, ipe, jps, jpe, 1 , 1 )
1876 CALL RSL_LITE_PACK ( local_communicator, grid%snow, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1877 mytask, ntasks, ntasks_x, ntasks_y, &
1878 ids, ide, jds, jde, 1 , 1 , &
1879 ims, ime, jms, jme, 1 , 1 , &
1880 ips, ipe, jps, jpe, 1 , 1 )
1881 CALL RSL_LITE_PACK ( local_communicator, grid%snowh, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1882 mytask, ntasks, ntasks_x, ntasks_y, &
1883 ids, ide, jds, jde, 1 , 1 , &
1884 ims, ime, jms, jme, 1 , 1 , &
1885 ips, ipe, jps, jpe, 1 , 1 )
1886 CALL RSL_LITE_PACK ( local_communicator, grid%rhosn, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1887 mytask, ntasks, ntasks_x, ntasks_y, &
1888 ids, ide, jds, jde, 1 , 1 , &
1889 ims, ime, jms, jme, 1 , 1 , &
1890 ips, ipe, jps, jpe, 1 , 1 )
1891 CALL RSL_LITE_PACK ( local_communicator, grid%canwat, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1892 mytask, ntasks, ntasks_x, ntasks_y, &
1893 ids, ide, jds, jde, 1 , 1 , &
1894 ims, ime, jms, jme, 1 , 1 , &
1895 ips, ipe, jps, jpe, 1 , 1 )
1896 CALL RSL_LITE_PACK ( local_communicator, grid%sst, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1897 mytask, ntasks, ntasks_x, ntasks_y, &
1898 ids, ide, jds, jde, 1 , 1 , &
1899 ims, ime, jms, jme, 1 , 1 , &
1900 ips, ipe, jps, jpe, 1 , 1 )
1901 CALL RSL_LITE_PACK ( local_communicator, grid%htop, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1902 mytask, ntasks, ntasks_x, ntasks_y, &
1903 ids, ide, jds, jde, 1 , 1 , &
1904 ims, ime, jms, jme, 1 , 1 , &
1905 ips, ipe, jps, jpe, 1 , 1 )
1906 CALL RSL_LITE_PACK ( local_communicator, grid%hbot, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1907 mytask, ntasks, ntasks_x, ntasks_y, &
1908 ids, ide, jds, jde, 1 , 1 , &
1909 ims, ime, jms, jme, 1 , 1 , &
1910 ips, ipe, jps, jpe, 1 , 1 )
1911 CALL RSL_LITE_PACK ( local_communicator, grid%cuppt, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1912 mytask, ntasks, ntasks_x, ntasks_y, &
1913 ids, ide, jds, jde, 1 , 1 , &
1914 ims, ime, jms, jme, 1 , 1 , &
1915 ips, ipe, jps, jpe, 1 , 1 )
1916 CALL RSL_LITE_PACK ( local_communicator, grid%rswtoa, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1917 mytask, ntasks, ntasks_x, ntasks_y, &
1918 ids, ide, jds, jde, 1 , 1 , &
1919 ims, ime, jms, jme, 1 , 1 , &
1920 ips, ipe, jps, jpe, 1 , 1 )
1921 CALL RSL_LITE_PACK ( local_communicator, grid%rlwtoa, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1922 mytask, ntasks, ntasks_x, ntasks_y, &
1923 ids, ide, jds, jde, 1 , 1 , &
1924 ims, ime, jms, jme, 1 , 1 , &
1925 ips, ipe, jps, jpe, 1 , 1 )
1926 CALL RSL_LITE_PACK ( local_communicator, grid%czmean, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1927 mytask, ntasks, ntasks_x, ntasks_y, &
1928 ids, ide, jds, jde, 1 , 1 , &
1929 ims, ime, jms, jme, 1 , 1 , &
1930 ips, ipe, jps, jpe, 1 , 1 )
1931 CALL RSL_LITE_PACK ( local_communicator, grid%cfracl, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1932 mytask, ntasks, ntasks_x, ntasks_y, &
1933 ids, ide, jds, jde, 1 , 1 , &
1934 ims, ime, jms, jme, 1 , 1 , &
1935 ips, ipe, jps, jpe, 1 , 1 )
1936 CALL RSL_LITE_PACK ( local_communicator, grid%cfracm, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1937 mytask, ntasks, ntasks_x, ntasks_y, &
1938 ids, ide, jds, jde, 1 , 1 , &
1939 ims, ime, jms, jme, 1 , 1 , &
1940 ips, ipe, jps, jpe, 1 , 1 )
1941 CALL RSL_LITE_PACK ( local_communicator, grid%cfrach, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1942 mytask, ntasks, ntasks_x, ntasks_y, &
1943 ids, ide, jds, jde, 1 , 1 , &
1944 ims, ime, jms, jme, 1 , 1 , &
1945 ips, ipe, jps, jpe, 1 , 1 )
1946 CALL RSL_LITE_PACK ( local_communicator, grid%acfrst, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1947 mytask, ntasks, ntasks_x, ntasks_y, &
1948 ids, ide, jds, jde, 1 , 1 , &
1949 ims, ime, jms, jme, 1 , 1 , &
1950 ips, ipe, jps, jpe, 1 , 1 )
1951 CALL RSL_LITE_PACK ( local_communicator, grid%ncfrst, 3, IWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1952 mytask, ntasks, ntasks_x, ntasks_y, &
1953 ids, ide, jds, jde, 1 , 1 , &
1954 ims, ime, jms, jme, 1 , 1 , &
1955 ips, ipe, jps, jpe, 1 , 1 )
1956 CALL RSL_LITE_PACK ( local_communicator, grid%acfrcv, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1957 mytask, ntasks, ntasks_x, ntasks_y, &
1958 ids, ide, jds, jde, 1 , 1 , &
1959 ims, ime, jms, jme, 1 , 1 , &
1960 ips, ipe, jps, jpe, 1 , 1 )
1961 CALL RSL_LITE_PACK ( local_communicator, grid%ncfrcv, 3, IWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1962 mytask, ntasks, ntasks_x, ntasks_y, &
1963 ids, ide, jds, jde, 1 , 1 , &
1964 ims, ime, jms, jme, 1 , 1 , &
1965 ips, ipe, jps, jpe, 1 , 1 )
1966 CALL RSL_LITE_PACK ( local_communicator, grid%h_diabatic, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
1967 mytask, ntasks, ntasks_x, ntasks_y, &
1968 ids, ide, jds, jde, kds, kde, &
1969 ims, ime, jms, jme, kms, kme, &
1970 ips, ipe, jps, jpe, kps, kpe )
1971 CALL RSL_LITE_PACK ( local_communicator, grid%msft, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1972 mytask, ntasks, ntasks_x, ntasks_y, &
1973 ids, ide, jds, jde, 1 , 1 , &
1974 ims, ime, jms, jme, 1 , 1 , &
1975 ips, ipe, jps, jpe, 1 , 1 )
1976 CALL RSL_LITE_PACK ( local_communicator, grid%msfu, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 1, &
1977 mytask, ntasks, ntasks_x, ntasks_y, &
1978 ids, ide, jds, jde, 1 , 1 , &
1979 ims, ime, jms, jme, 1 , 1 , &
1980 ips, ipe, jps, jpe, 1 , 1 )
1981 CALL RSL_LITE_PACK ( local_communicator, grid%msfv, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1982 mytask, ntasks, ntasks_x, ntasks_y, &
1983 ids, ide, jds, jde, 1 , 1 , &
1984 ims, ime, jms, jme, 1 , 1 , &
1985 ips, ipe, jps, jpe, 1 , 1 )
1986 CALL RSL_LITE_PACK ( local_communicator, grid%f, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1987 mytask, ntasks, ntasks_x, ntasks_y, &
1988 ids, ide, jds, jde, 1 , 1 , &
1989 ims, ime, jms, jme, 1 , 1 , &
1990 ips, ipe, jps, jpe, 1 , 1 )
1991 CALL RSL_LITE_PACK ( local_communicator, grid%e, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1992 mytask, ntasks, ntasks_x, ntasks_y, &
1993 ids, ide, jds, jde, 1 , 1 , &
1994 ims, ime, jms, jme, 1 , 1 , &
1995 ips, ipe, jps, jpe, 1 , 1 )
1996 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1997 mytask, ntasks, ntasks_x, ntasks_y, &
1998 ids, ide, jds, jde, 1 , 1 , &
1999 ims, ime, jms, jme, 1 , 1 , &
2000 ips, ipe, jps, jpe, 1 , 1 )
2001 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
2002 mytask, ntasks, ntasks_x, ntasks_y, &
2003 ids, ide, jds, jde, 1 , 1 , &
2004 ims, ime, jms, jme, 1 , 1 , &
2005 ips, ipe, jps, jpe, 1 , 1 )
2006 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
2007 mytask, ntasks, ntasks_x, ntasks_y, &
2008 ids, ide, jds, jde, 1 , 1 , &
2009 ims, ime, jms, jme, 1 , 1 , &
2010 ips, ipe, jps, jpe, 1 , 1 )
2011 CALL RSL_LITE_PACK ( local_communicator, grid%ht_fine, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
2012 mytask, ntasks, ntasks_x, ntasks_y, &
2013 ids, ide, jds, jde, 1 , 1 , &
2014 ims, ime, jms, jme, 1 , 1 , &
2015 ips, ipe, jps, jpe, 1 , 1 )
2016 CALL RSL_LITE_PACK ( local_communicator, grid%ht_int, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
2017 mytask, ntasks, ntasks_x, ntasks_y, &
2018 ids, ide, jds, jde, 1 , 1 , &
2019 ims, ime, jms, jme, 1 , 1 , &
2020 ips, ipe, jps, jpe, 1 , 1 )
2021 CALL RSL_LITE_PACK ( local_communicator, grid%ht_input, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
2022 mytask, ntasks, ntasks_x, ntasks_y, &
2023 ids, ide, jds, jde, 1 , 1 , &
2024 ims, ime, jms, jme, 1 , 1 , &
2025 ips, ipe, jps, jpe, 1 , 1 )
2026 CALL RSL_LITE_PACK ( local_communicator, grid%tsk, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
2027 mytask, ntasks, ntasks_x, ntasks_y, &
2028 ids, ide, jds, jde, 1 , 1 , &
2029 ims, ime, jms, jme, 1 , 1 , &
2030 ips, ipe, jps, jpe, 1 , 1 )
2031 CALL RSL_LITE_PACK ( local_communicator, grid%tsk_save, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
2032 mytask, ntasks, ntasks_x, ntasks_y, &
2033 ids, ide, jds, jde, 1 , 1 , &
2034 ims, ime, jms, jme, 1 , 1 , &
2035 ips, ipe, jps, jpe, 1 , 1 )
2036 CALL RSL_LITE_PACK ( local_communicator, grid%rainc, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
2037 mytask, ntasks, ntasks_x, ntasks_y, &
2038 ids, ide, jds, jde, 1 , 1 , &
2039 ims, ime, jms, jme, 1 , 1 , &
2040 ips, ipe, jps, jpe, 1 , 1 )
2041 CALL RSL_LITE_PACK ( local_communicator, grid%rainnc, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
2042 mytask, ntasks, ntasks_x, ntasks_y, &
2043 ids, ide, jds, jde, 1 , 1 , &
2044 ims, ime, jms, jme, 1 , 1 , &
2045 ips, ipe, jps, jpe, 1 , 1 )
2046 CALL RSL_LITE_PACK ( local_communicator, grid%xlat, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
2047 mytask, ntasks, ntasks_x, ntasks_y, &
2048 ids, ide, jds, jde, 1 , 1 , &
2049 ims, ime, jms, jme, 1 , 1 , &
2050 ips, ipe, jps, jpe, 1 , 1 )
2051 CALL RSL_LITE_PACK ( local_communicator, grid%xlong, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
2052 mytask, ntasks, ntasks_x, ntasks_y, &
2053 ids, ide, jds, jde, 1 , 1 , &
2054 ims, ime, jms, jme, 1 , 1 , &
2055 ips, ipe, jps, jpe, 1 , 1 )
2056 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlat_u, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 1, &
2057 mytask, ntasks, ntasks_x, ntasks_y, &
2058 ids, ide, jds, jde, 1 , 1 , &
2059 ims, ime, jms, jme, 1 , 1 , &
2060 ips, ipe, jps, jpe, 1 , 1 )
2061 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlong_u, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 1, &
2062 mytask, ntasks, ntasks_x, ntasks_y, &
2063 ids, ide, jds, jde, 1 , 1 , &
2064 ims, ime, jms, jme, 1 , 1 , &
2065 ips, ipe, jps, jpe, 1 , 1 )
2066 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlat_v, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
2067 mytask, ntasks, ntasks_x, ntasks_y, &
2068 ids, ide, jds, jde, 1 , 1 , &
2069 ims, ime, jms, jme, 1 , 1 , &
2070 ips, ipe, jps, jpe, 1 , 1 )
2071 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlong_v, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
2072 mytask, ntasks, ntasks_x, ntasks_y, &
2073 ids, ide, jds, jde, 1 , 1 , &
2074 ims, ime, jms, jme, 1 , 1 , &
2075 ips, ipe, jps, jpe, 1 , 1 )
2076 CALL RSL_LITE_PACK ( local_communicator, grid%albbck, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
2077 mytask, ntasks, ntasks_x, ntasks_y, &
2078 ids, ide, jds, jde, 1 , 1 , &
2079 ims, ime, jms, jme, 1 , 1 , &
2080 ips, ipe, jps, jpe, 1 , 1 )
2081 CALL RSL_LITE_PACK ( local_communicator, grid%tmn, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
2082 mytask, ntasks, ntasks_x, ntasks_y, &
2083 ids, ide, jds, jde, 1 , 1 , &
2084 ims, ime, jms, jme, 1 , 1 , &
2085 ips, ipe, jps, jpe, 1 , 1 )
2086 CALL RSL_LITE_PACK ( local_communicator, grid%xland, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
2087 mytask, ntasks, ntasks_x, ntasks_y, &
2088 ids, ide, jds, jde, 1 , 1 , &
2089 ims, ime, jms, jme, 1 , 1 , &
2090 ips, ipe, jps, jpe, 1 , 1 )
2091 CALL RSL_LITE_PACK ( local_communicator, grid%znt, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
2092 mytask, ntasks, ntasks_x, ntasks_y, &
2093 ids, ide, jds, jde, 1 , 1 , &
2094 ims, ime, jms, jme, 1 , 1 , &
2095 ips, ipe, jps, jpe, 1 , 1 )
2096 CALL RSL_LITE_PACK ( local_communicator, grid%snowc, 3, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
2097 mytask, ntasks, ntasks_x, ntasks_y, &
2098 ids, ide, jds, jde, 1 , 1 , &
2099 ims, ime, jms, jme, 1 , 1 , &
2100 ips, ipe, jps, jpe, 1 , 1 )
2101 CALL RSL_LITE_PACK ( local_communicator, grid%xkmv, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
2102 mytask, ntasks, ntasks_x, ntasks_y, &
2103 ids, ide, jds, jde, kds, kde, &
2104 ims, ime, jms, jme, kms, kme, &
2105 ips, ipe, jps, jpe, kps, kpe )
2106 CALL RSL_LITE_PACK ( local_communicator, grid%xkmh, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
2107 mytask, ntasks, ntasks_x, ntasks_y, &
2108 ids, ide, jds, jde, kds, kde, &
2109 ims, ime, jms, jme, kms, kme, &
2110 ips, ipe, jps, jpe, kps, kpe )
2111 CALL RSL_LITE_PACK ( local_communicator, grid%xkmhd, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
2112 mytask, ntasks, ntasks_x, ntasks_y, &
2113 ids, ide, jds, jde, kds, kde, &
2114 ims, ime, jms, jme, kms, kme, &
2115 ips, ipe, jps, jpe, kps, kpe )
2116 CALL RSL_LITE_PACK ( local_communicator, grid%a_xkmhd, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
2117 mytask, ntasks, ntasks_x, ntasks_y, &
2118 ids, ide, jds, jde, kds, kde, &
2119 ims, ime, jms, jme, kms, kme, &
2120 ips, ipe, jps, jpe, kps, kpe )
2121 CALL RSL_LITE_PACK ( local_communicator, grid%g_xkmhd, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
2122 mytask, ntasks, ntasks_x, ntasks_y, &
2123 ids, ide, jds, jde, kds, kde, &
2124 ims, ime, jms, jme, kms, kme, &
2125 ips, ipe, jps, jpe, kps, kpe )
2126 CALL RSL_LITE_PACK ( local_communicator, grid%xkhv, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
2127 mytask, ntasks, ntasks_x, ntasks_y, &
2128 ids, ide, jds, jde, kds, kde, &
2129 ims, ime, jms, jme, kms, kme, &
2130 ips, ipe, jps, jpe, kps, kpe )
2131 CALL RSL_LITE_PACK ( local_communicator, grid%xkhh, 3, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
2132 mytask, ntasks, ntasks_x, ntasks_y, &
2133 ids, ide, jds, jde, kds, kde, &
2134 ims, ime, jms, jme, kms, kme, &
2135 ips, ipe, jps, jpe, kps, kpe )
2136 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
2137 CALL RSL_LITE_PACK ( local_communicator, grid%lu_index, 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%lu_mask, 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%em_qv_gc, 3, RWORDSIZE, 1, 1, DATA_ORDER_XZY, 0, &
2148 mytask, ntasks, ntasks_x, ntasks_y, &
2149 ids, ide, jds, jde, 1, config_flags%num_metgrid_levels, &
2150 ims, ime, jms, jme, 1, config_flags%num_metgrid_levels, &
2151 ips, ipe, jps, jpe, 1, config_flags%num_metgrid_levels )
2152 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
2153 mytask, ntasks, ntasks_x, ntasks_y, &
2154 ids, ide, jds, jde, kds, kde, &
2155 ims, ime, jms, jme, kms, kme, &
2156 ips, ipe, jps, jpe, kps, kpe )
2157 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
2158 mytask, ntasks, ntasks_x, ntasks_y, &
2159 ids, ide, jds, jde, kds, kde, &
2160 ims, ime, jms, jme, kms, kme, &
2161 ips, ipe, jps, jpe, kps, kpe )
2162 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
2163 mytask, ntasks, ntasks_x, ntasks_y, &
2164 ids, ide, jds, jde, kds, kde, &
2165 ims, ime, jms, jme, kms, kme, &
2166 ips, ipe, jps, jpe, kps, kpe )
2167 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
2168 mytask, ntasks, ntasks_x, ntasks_y, &
2169 ids, ide, jds, jde, kds, kde, &
2170 ims, ime, jms, jme, kms, kme, &
2171 ips, ipe, jps, jpe, kps, kpe )
2172 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
2173 mytask, ntasks, ntasks_x, ntasks_y, &
2174 ids, ide, jds, jde, kds, kde, &
2175 ims, ime, jms, jme, kms, kme, &
2176 ips, ipe, jps, jpe, kps, kpe )
2177 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
2178 mytask, ntasks, ntasks_x, ntasks_y, &
2179 ids, ide, jds, jde, kds, kde, &
2180 ims, ime, jms, jme, kms, kme, &
2181 ips, ipe, jps, jpe, kps, kpe )
2182 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2183 mytask, ntasks, ntasks_x, ntasks_y, &
2184 ids, ide, jds, jde, kds, kde, &
2185 ims, ime, jms, jme, kms, kme, &
2186 ips, ipe, jps, jpe, kps, kpe )
2187 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2188 mytask, ntasks, ntasks_x, ntasks_y, &
2189 ids, ide, jds, jde, kds, kde, &
2190 ims, ime, jms, jme, kms, kme, &
2191 ips, ipe, jps, jpe, kps, kpe )
2192 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2193 mytask, ntasks, ntasks_x, ntasks_y, &
2194 ids, ide, jds, jde, kds, kde, &
2195 ims, ime, jms, jme, kms, kme, &
2196 ips, ipe, jps, jpe, kps, kpe )
2197 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2198 mytask, ntasks, ntasks_x, ntasks_y, &
2199 ids, ide, jds, jde, kds, kde, &
2200 ims, ime, jms, jme, kms, kme, &
2201 ips, ipe, jps, jpe, kps, kpe )
2202 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2203 mytask, ntasks, ntasks_x, ntasks_y, &
2204 ids, ide, jds, jde, kds, kde, &
2205 ims, ime, jms, jme, kms, kme, &
2206 ips, ipe, jps, jpe, kps, kpe )
2207 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2208 mytask, ntasks, ntasks_x, ntasks_y, &
2209 ids, ide, jds, jde, kds, kde, &
2210 ims, ime, jms, jme, kms, kme, &
2211 ips, ipe, jps, jpe, kps, kpe )
2212 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2213 mytask, ntasks, ntasks_x, ntasks_y, &
2214 ids, ide, jds, jde, kds, kde, &
2215 ims, ime, jms, jme, kms, kme, &
2216 ips, ipe, jps, jpe, kps, kpe )
2217 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2218 mytask, ntasks, ntasks_x, ntasks_y, &
2219 ids, ide, jds, jde, kds, kde, &
2220 ims, ime, jms, jme, kms, kme, &
2221 ips, ipe, jps, jpe, kps, kpe )
2222 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_1, 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%a_w_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2228 mytask, ntasks, ntasks_x, ntasks_y, &
2229 ids, ide, jds, jde, kds, kde, &
2230 ims, ime, jms, jme, kms, kme, &
2231 ips, ipe, jps, jpe, kps, kpe )
2232 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2233 mytask, ntasks, ntasks_x, ntasks_y, &
2234 ids, ide, jds, jde, kds, kde, &
2235 ims, ime, jms, jme, kms, kme, &
2236 ips, ipe, jps, jpe, kps, kpe )
2237 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2238 mytask, ntasks, ntasks_x, ntasks_y, &
2239 ids, ide, jds, jde, kds, kde, &
2240 ims, ime, jms, jme, kms, kme, &
2241 ips, ipe, jps, jpe, kps, kpe )
2242 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2243 mytask, ntasks, ntasks_x, ntasks_y, &
2244 ids, ide, jds, jde, kds, kde, &
2245 ims, ime, jms, jme, kms, kme, &
2246 ips, ipe, jps, jpe, kps, kpe )
2247 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2248 mytask, ntasks, ntasks_x, ntasks_y, &
2249 ids, ide, jds, jde, kds, kde, &
2250 ims, ime, jms, jme, kms, kme, &
2251 ips, ipe, jps, jpe, kps, kpe )
2252 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2253 mytask, ntasks, ntasks_x, ntasks_y, &
2254 ids, ide, jds, jde, kds, kde, &
2255 ims, ime, jms, jme, kms, kme, &
2256 ips, ipe, jps, jpe, kps, kpe )
2257 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2258 mytask, ntasks, ntasks_x, ntasks_y, &
2259 ids, ide, jds, jde, kds, kde, &
2260 ims, ime, jms, jme, kms, kme, &
2261 ips, ipe, jps, jpe, kps, kpe )
2262 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2263 mytask, ntasks, ntasks_x, ntasks_y, &
2264 ids, ide, jds, jde, kds, kde, &
2265 ims, ime, jms, jme, kms, kme, &
2266 ips, ipe, jps, jpe, kps, kpe )
2267 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2268 mytask, ntasks, ntasks_x, ntasks_y, &
2269 ids, ide, jds, jde, kds, kde, &
2270 ims, ime, jms, jme, kms, kme, &
2271 ips, ipe, jps, jpe, kps, kpe )
2272 CALL RSL_LITE_PACK ( local_communicator, grid%em_phb, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2273 mytask, ntasks, ntasks_x, ntasks_y, &
2274 ids, ide, jds, jde, kds, kde, &
2275 ims, ime, jms, jme, kms, kme, &
2276 ips, ipe, jps, jpe, kps, kpe )
2277 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2278 mytask, ntasks, ntasks_x, ntasks_y, &
2279 ids, ide, jds, jde, kds, kde, &
2280 ims, ime, jms, jme, kms, kme, &
2281 ips, ipe, jps, jpe, kps, kpe )
2282 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2283 mytask, ntasks, ntasks_x, ntasks_y, &
2284 ids, ide, jds, jde, kds, kde, &
2285 ims, ime, jms, jme, kms, kme, &
2286 ips, ipe, jps, jpe, kps, kpe )
2287 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2288 mytask, ntasks, ntasks_x, ntasks_y, &
2289 ids, ide, jds, jde, kds, kde, &
2290 ims, ime, jms, jme, kms, kme, &
2291 ips, ipe, jps, jpe, kps, kpe )
2292 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2293 mytask, ntasks, ntasks_x, ntasks_y, &
2294 ids, ide, jds, jde, kds, kde, &
2295 ims, ime, jms, jme, kms, kme, &
2296 ips, ipe, jps, jpe, kps, kpe )
2297 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_1, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2298 mytask, ntasks, ntasks_x, ntasks_y, &
2299 ids, ide, jds, jde, kds, kde, &
2300 ims, ime, jms, jme, kms, kme, &
2301 ips, ipe, jps, jpe, kps, kpe )
2302 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2303 mytask, ntasks, ntasks_x, ntasks_y, &
2304 ids, ide, jds, jde, kds, kde, &
2305 ims, ime, jms, jme, kms, kme, &
2306 ips, ipe, jps, jpe, kps, kpe )
2307 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_1, 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%em_mu_2, 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%a_mu_1, 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%a_mu_2, 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%g_mu_1, 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%g_mu_2, 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%em_mub, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2338 mytask, ntasks, ntasks_x, ntasks_y, &
2339 ids, ide, jds, jde, 1 , 1 , &
2340 ims, ime, jms, jme, 1 , 1 , &
2341 ips, ipe, jps, jpe, 1 , 1 )
2342 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu0, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2343 mytask, ntasks, ntasks_x, ntasks_y, &
2344 ids, ide, jds, jde, 1 , 1 , &
2345 ims, ime, jms, jme, 1 , 1 , &
2346 ips, ipe, jps, jpe, 1 , 1 )
2347 CALL RSL_LITE_PACK ( local_communicator, grid%nest_pos, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2348 mytask, ntasks, ntasks_x, ntasks_y, &
2349 ids, ide, jds, jde, 1 , 1 , &
2350 ims, ime, jms, jme, 1 , 1 , &
2351 ips, ipe, jps, jpe, 1 , 1 )
2352 CALL RSL_LITE_PACK ( local_communicator, grid%nest_mask, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2353 mytask, ntasks, ntasks_x, ntasks_y, &
2354 ids, ide, jds, jde, 1 , 1 , &
2355 ims, ime, jms, jme, 1 , 1 , &
2356 ips, ipe, jps, jpe, 1 , 1 )
2357 CALL RSL_LITE_PACK ( local_communicator, grid%ht_coarse, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2358 mytask, ntasks, ntasks_x, ntasks_y, &
2359 ids, ide, jds, jde, 1 , 1 , &
2360 ims, ime, jms, jme, 1 , 1 , &
2361 ips, ipe, jps, jpe, 1 , 1 )
2362 CALL RSL_LITE_PACK ( local_communicator, grid%em_p, 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%em_sr, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2368 mytask, ntasks, ntasks_x, ntasks_y, &
2369 ids, ide, jds, jde, 1 , 1 , &
2370 ims, ime, jms, jme, 1 , 1 , &
2371 ips, ipe, jps, jpe, 1 , 1 )
2372 CALL RSL_LITE_PACK ( local_communicator, grid%em_z, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2373 mytask, ntasks, ntasks_x, ntasks_y, &
2374 ids, ide, jds, jde, kds, kde, &
2375 ims, ime, jms, jme, kms, kme, &
2376 ips, ipe, jps, jpe, kps, kpe )
2377 CALL RSL_LITE_PACK ( local_communicator, grid%a_z, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2378 mytask, ntasks, ntasks_x, ntasks_y, &
2379 ids, ide, jds, jde, kds, kde, &
2380 ims, ime, jms, jme, kms, kme, &
2381 ips, ipe, jps, jpe, kps, kpe )
2382 CALL RSL_LITE_PACK ( local_communicator, grid%g_z, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2383 mytask, ntasks, ntasks_x, ntasks_y, &
2384 ids, ide, jds, jde, kds, kde, &
2385 ims, ime, jms, jme, kms, kme, &
2386 ips, ipe, jps, jpe, kps, kpe )
2387 CALL RSL_LITE_PACK ( local_communicator, grid%q2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2388 mytask, ntasks, ntasks_x, ntasks_y, &
2389 ids, ide, jds, jde, 1 , 1 , &
2390 ims, ime, jms, jme, 1 , 1 , &
2391 ips, ipe, jps, jpe, 1 , 1 )
2392 CALL RSL_LITE_PACK ( local_communicator, grid%t2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2393 mytask, ntasks, ntasks_x, ntasks_y, &
2394 ids, ide, jds, jde, 1 , 1 , &
2395 ims, ime, jms, jme, 1 , 1 , &
2396 ips, ipe, jps, jpe, 1 , 1 )
2397 CALL RSL_LITE_PACK ( local_communicator, grid%th2, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2398 mytask, ntasks, ntasks_x, ntasks_y, &
2399 ids, ide, jds, jde, 1 , 1 , &
2400 ims, ime, jms, jme, 1 , 1 , &
2401 ips, ipe, jps, jpe, 1 , 1 )
2402 CALL RSL_LITE_PACK ( local_communicator, grid%psfc, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2403 mytask, ntasks, ntasks_x, ntasks_y, &
2404 ids, ide, jds, jde, 1 , 1 , &
2405 ims, ime, jms, jme, 1 , 1 , &
2406 ips, ipe, jps, jpe, 1 , 1 )
2407 CALL RSL_LITE_PACK ( local_communicator, grid%u10, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2408 mytask, ntasks, ntasks_x, ntasks_y, &
2409 ids, ide, jds, jde, 1 , 1 , &
2410 ims, ime, jms, jme, 1 , 1 , &
2411 ips, ipe, jps, jpe, 1 , 1 )
2412 CALL RSL_LITE_PACK ( local_communicator, grid%v10, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2413 mytask, ntasks, ntasks_x, ntasks_y, &
2414 ids, ide, jds, jde, 1 , 1 , &
2415 ims, ime, jms, jme, 1 , 1 , &
2416 ips, ipe, jps, jpe, 1 , 1 )
2417 CALL RSL_LITE_PACK ( local_communicator, grid%uratx, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2418 mytask, ntasks, ntasks_x, ntasks_y, &
2419 ids, ide, jds, jde, 1 , 1 , &
2420 ims, ime, jms, jme, 1 , 1 , &
2421 ips, ipe, jps, jpe, 1 , 1 )
2422 CALL RSL_LITE_PACK ( local_communicator, grid%vratx, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2423 mytask, ntasks, ntasks_x, ntasks_y, &
2424 ids, ide, jds, jde, 1 , 1 , &
2425 ims, ime, jms, jme, 1 , 1 , &
2426 ips, ipe, jps, jpe, 1 , 1 )
2427 CALL RSL_LITE_PACK ( local_communicator, grid%tratx, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2428 mytask, ntasks, ntasks_x, ntasks_y, &
2429 ids, ide, jds, jde, 1 , 1 , &
2430 ims, ime, jms, jme, 1 , 1 , &
2431 ips, ipe, jps, jpe, 1 , 1 )
2432 CALL RSL_LITE_PACK ( local_communicator, grid%imask_nostag, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2433 mytask, ntasks, ntasks_x, ntasks_y, &
2434 ids, ide, jds, jde, 1 , 1 , &
2435 ims, ime, jms, jme, 1 , 1 , &
2436 ips, ipe, jps, jpe, 1 , 1 )
2437 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xstag, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 1, &
2438 mytask, ntasks, ntasks_x, ntasks_y, &
2439 ids, ide, jds, jde, 1 , 1 , &
2440 ims, ime, jms, jme, 1 , 1 , &
2441 ips, ipe, jps, jpe, 1 , 1 )
2442 CALL RSL_LITE_PACK ( local_communicator, grid%imask_ystag, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2443 mytask, ntasks, ntasks_x, ntasks_y, &
2444 ids, ide, jds, jde, 1 , 1 , &
2445 ims, ime, jms, jme, 1 , 1 , &
2446 ips, ipe, jps, jpe, 1 , 1 )
2447 CALL RSL_LITE_PACK ( local_communicator, grid%imask_xystag, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 1, &
2448 mytask, ntasks, ntasks_x, ntasks_y, &
2449 ids, ide, jds, jde, 1 , 1 , &
2450 ims, ime, jms, jme, 1 , 1 , &
2451 ips, ipe, jps, jpe, 1 , 1 )
2452 DO itrace = PARAM_FIRST_SCALAR, num_moist
2453 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2454 mytask, ntasks, ntasks_x, ntasks_y, &
2455 ids, ide, jds, jde, kds, kde, &
2456 ims, ime, jms, jme, kms, kme, &
2457 ips, ipe, jps, jpe, kps, kpe )
2458 ENDDO
2459 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
2460 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2461 mytask, ntasks, ntasks_x, ntasks_y, &
2462 ids, ide, jds, jde, kds, kde, &
2463 ims, ime, jms, jme, kms, kme, &
2464 ips, ipe, jps, jpe, kps, kpe )
2465 ENDDO
2466 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
2467 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2468 mytask, ntasks, ntasks_x, ntasks_y, &
2469 ids, ide, jds, jde, kds, kde, &
2470 ims, ime, jms, jme, kms, kme, &
2471 ips, ipe, jps, jpe, kps, kpe )
2472 ENDDO
2473 DO itrace = PARAM_FIRST_SCALAR, num_scalar
2474 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2475 mytask, ntasks, ntasks_x, ntasks_y, &
2476 ids, ide, jds, jde, kds, kde, &
2477 ims, ime, jms, jme, kms, kme, &
2478 ips, ipe, jps, jpe, kps, kpe )
2479 ENDDO
2480 DO itrace = PARAM_FIRST_SCALAR, num_a_scalar
2481 CALL RSL_LITE_PACK ( local_communicator,a_scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2482 mytask, ntasks, ntasks_x, ntasks_y, &
2483 ids, ide, jds, jde, kds, kde, &
2484 ims, ime, jms, jme, kms, kme, &
2485 ips, ipe, jps, jpe, kps, kpe )
2486 ENDDO
2487 DO itrace = PARAM_FIRST_SCALAR, num_g_scalar
2488 CALL RSL_LITE_PACK ( local_communicator,g_scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2489 mytask, ntasks, ntasks_x, ntasks_y, &
2490 ids, ide, jds, jde, kds, kde, &
2491 ims, ime, jms, jme, kms, kme, &
2492 ips, ipe, jps, jpe, kps, kpe )
2493 ENDDO
2494 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2495 mytask, ntasks, ntasks_x, ntasks_y, &
2496 ids, ide, jds, jde, 1 , 1 , &
2497 ims, ime, jms, jme, 1 , 1 , &
2498 ips, ipe, jps, jpe, 1 , 1 )
2499 CALL RSL_LITE_PACK ( local_communicator, grid%shdmax, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2500 mytask, ntasks, ntasks_x, ntasks_y, &
2501 ids, ide, jds, jde, 1 , 1 , &
2502 ims, ime, jms, jme, 1 , 1 , &
2503 ips, ipe, jps, jpe, 1 , 1 )
2504 CALL RSL_LITE_PACK ( local_communicator, grid%shdmin, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2505 mytask, ntasks, ntasks_x, ntasks_y, &
2506 ids, ide, jds, jde, 1 , 1 , &
2507 ims, ime, jms, jme, 1 , 1 , &
2508 ips, ipe, jps, jpe, 1 , 1 )
2509 CALL RSL_LITE_PACK ( local_communicator, grid%snoalb, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2510 mytask, ntasks, ntasks_x, ntasks_y, &
2511 ids, ide, jds, jde, 1 , 1 , &
2512 ims, ime, jms, jme, 1 , 1 , &
2513 ips, ipe, jps, jpe, 1 , 1 )
2514 CALL RSL_LITE_PACK ( local_communicator, grid%tslb, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2515 mytask, ntasks, ntasks_x, ntasks_y, &
2516 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
2517 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
2518 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
2519 CALL RSL_LITE_PACK ( local_communicator, grid%smois, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2520 mytask, ntasks, ntasks_x, ntasks_y, &
2521 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
2522 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
2523 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
2524 CALL RSL_LITE_PACK ( local_communicator, grid%sh2o, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2525 mytask, ntasks, ntasks_x, ntasks_y, &
2526 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
2527 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
2528 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
2529 CALL RSL_LITE_PACK ( local_communicator, grid%xice, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2530 mytask, ntasks, ntasks_x, ntasks_y, &
2531 ids, ide, jds, jde, 1 , 1 , &
2532 ims, ime, jms, jme, 1 , 1 , &
2533 ips, ipe, jps, jpe, 1 , 1 )
2534 CALL RSL_LITE_PACK ( local_communicator, grid%sfcrunoff, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2535 mytask, ntasks, ntasks_x, ntasks_y, &
2536 ids, ide, jds, jde, 1 , 1 , &
2537 ims, ime, jms, jme, 1 , 1 , &
2538 ips, ipe, jps, jpe, 1 , 1 )
2539 CALL RSL_LITE_PACK ( local_communicator, grid%udrunoff, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2540 mytask, ntasks, ntasks_x, ntasks_y, &
2541 ids, ide, jds, jde, 1 , 1 , &
2542 ims, ime, jms, jme, 1 , 1 , &
2543 ips, ipe, jps, jpe, 1 , 1 )
2544 CALL RSL_LITE_PACK ( local_communicator, grid%ivgtyp, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2545 mytask, ntasks, ntasks_x, ntasks_y, &
2546 ids, ide, jds, jde, 1 , 1 , &
2547 ims, ime, jms, jme, 1 , 1 , &
2548 ips, ipe, jps, jpe, 1 , 1 )
2549 CALL RSL_LITE_PACK ( local_communicator, grid%isltyp, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2550 mytask, ntasks, ntasks_x, ntasks_y, &
2551 ids, ide, jds, jde, 1 , 1 , &
2552 ims, ime, jms, jme, 1 , 1 , &
2553 ips, ipe, jps, jpe, 1 , 1 )
2554 CALL RSL_LITE_PACK ( local_communicator, grid%vegfra, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2555 mytask, ntasks, ntasks_x, ntasks_y, &
2556 ids, ide, jds, jde, 1 , 1 , &
2557 ims, ime, jms, jme, 1 , 1 , &
2558 ips, ipe, jps, jpe, 1 , 1 )
2559 CALL RSL_LITE_PACK ( local_communicator, grid%sfcevp, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2560 mytask, ntasks, ntasks_x, ntasks_y, &
2561 ids, ide, jds, jde, 1 , 1 , &
2562 ims, ime, jms, jme, 1 , 1 , &
2563 ips, ipe, jps, jpe, 1 , 1 )
2564 CALL RSL_LITE_PACK ( local_communicator, grid%acsnow, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2565 mytask, ntasks, ntasks_x, ntasks_y, &
2566 ids, ide, jds, jde, 1 , 1 , &
2567 ims, ime, jms, jme, 1 , 1 , &
2568 ips, ipe, jps, jpe, 1 , 1 )
2569 CALL RSL_LITE_PACK ( local_communicator, grid%acsnom, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2570 mytask, ntasks, ntasks_x, ntasks_y, &
2571 ids, ide, jds, jde, 1 , 1 , &
2572 ims, ime, jms, jme, 1 , 1 , &
2573 ips, ipe, jps, jpe, 1 , 1 )
2574 CALL RSL_LITE_PACK ( local_communicator, grid%snow, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2575 mytask, ntasks, ntasks_x, ntasks_y, &
2576 ids, ide, jds, jde, 1 , 1 , &
2577 ims, ime, jms, jme, 1 , 1 , &
2578 ips, ipe, jps, jpe, 1 , 1 )
2579 CALL RSL_LITE_PACK ( local_communicator, grid%snowh, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2580 mytask, ntasks, ntasks_x, ntasks_y, &
2581 ids, ide, jds, jde, 1 , 1 , &
2582 ims, ime, jms, jme, 1 , 1 , &
2583 ips, ipe, jps, jpe, 1 , 1 )
2584 CALL RSL_LITE_PACK ( local_communicator, grid%rhosn, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2585 mytask, ntasks, ntasks_x, ntasks_y, &
2586 ids, ide, jds, jde, 1 , 1 , &
2587 ims, ime, jms, jme, 1 , 1 , &
2588 ips, ipe, jps, jpe, 1 , 1 )
2589 CALL RSL_LITE_PACK ( local_communicator, grid%canwat, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2590 mytask, ntasks, ntasks_x, ntasks_y, &
2591 ids, ide, jds, jde, 1 , 1 , &
2592 ims, ime, jms, jme, 1 , 1 , &
2593 ips, ipe, jps, jpe, 1 , 1 )
2594 CALL RSL_LITE_PACK ( local_communicator, grid%sst, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2595 mytask, ntasks, ntasks_x, ntasks_y, &
2596 ids, ide, jds, jde, 1 , 1 , &
2597 ims, ime, jms, jme, 1 , 1 , &
2598 ips, ipe, jps, jpe, 1 , 1 )
2599 CALL RSL_LITE_PACK ( local_communicator, grid%htop, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2600 mytask, ntasks, ntasks_x, ntasks_y, &
2601 ids, ide, jds, jde, 1 , 1 , &
2602 ims, ime, jms, jme, 1 , 1 , &
2603 ips, ipe, jps, jpe, 1 , 1 )
2604 CALL RSL_LITE_PACK ( local_communicator, grid%hbot, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2605 mytask, ntasks, ntasks_x, ntasks_y, &
2606 ids, ide, jds, jde, 1 , 1 , &
2607 ims, ime, jms, jme, 1 , 1 , &
2608 ips, ipe, jps, jpe, 1 , 1 )
2609 CALL RSL_LITE_PACK ( local_communicator, grid%cuppt, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2610 mytask, ntasks, ntasks_x, ntasks_y, &
2611 ids, ide, jds, jde, 1 , 1 , &
2612 ims, ime, jms, jme, 1 , 1 , &
2613 ips, ipe, jps, jpe, 1 , 1 )
2614 CALL RSL_LITE_PACK ( local_communicator, grid%rswtoa, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2615 mytask, ntasks, ntasks_x, ntasks_y, &
2616 ids, ide, jds, jde, 1 , 1 , &
2617 ims, ime, jms, jme, 1 , 1 , &
2618 ips, ipe, jps, jpe, 1 , 1 )
2619 CALL RSL_LITE_PACK ( local_communicator, grid%rlwtoa, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2620 mytask, ntasks, ntasks_x, ntasks_y, &
2621 ids, ide, jds, jde, 1 , 1 , &
2622 ims, ime, jms, jme, 1 , 1 , &
2623 ips, ipe, jps, jpe, 1 , 1 )
2624 CALL RSL_LITE_PACK ( local_communicator, grid%czmean, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2625 mytask, ntasks, ntasks_x, ntasks_y, &
2626 ids, ide, jds, jde, 1 , 1 , &
2627 ims, ime, jms, jme, 1 , 1 , &
2628 ips, ipe, jps, jpe, 1 , 1 )
2629 CALL RSL_LITE_PACK ( local_communicator, grid%cfracl, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2630 mytask, ntasks, ntasks_x, ntasks_y, &
2631 ids, ide, jds, jde, 1 , 1 , &
2632 ims, ime, jms, jme, 1 , 1 , &
2633 ips, ipe, jps, jpe, 1 , 1 )
2634 CALL RSL_LITE_PACK ( local_communicator, grid%cfracm, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2635 mytask, ntasks, ntasks_x, ntasks_y, &
2636 ids, ide, jds, jde, 1 , 1 , &
2637 ims, ime, jms, jme, 1 , 1 , &
2638 ips, ipe, jps, jpe, 1 , 1 )
2639 CALL RSL_LITE_PACK ( local_communicator, grid%cfrach, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2640 mytask, ntasks, ntasks_x, ntasks_y, &
2641 ids, ide, jds, jde, 1 , 1 , &
2642 ims, ime, jms, jme, 1 , 1 , &
2643 ips, ipe, jps, jpe, 1 , 1 )
2644 CALL RSL_LITE_PACK ( local_communicator, grid%acfrst, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2645 mytask, ntasks, ntasks_x, ntasks_y, &
2646 ids, ide, jds, jde, 1 , 1 , &
2647 ims, ime, jms, jme, 1 , 1 , &
2648 ips, ipe, jps, jpe, 1 , 1 )
2649 CALL RSL_LITE_PACK ( local_communicator, grid%ncfrst, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2650 mytask, ntasks, ntasks_x, ntasks_y, &
2651 ids, ide, jds, jde, 1 , 1 , &
2652 ims, ime, jms, jme, 1 , 1 , &
2653 ips, ipe, jps, jpe, 1 , 1 )
2654 CALL RSL_LITE_PACK ( local_communicator, grid%acfrcv, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2655 mytask, ntasks, ntasks_x, ntasks_y, &
2656 ids, ide, jds, jde, 1 , 1 , &
2657 ims, ime, jms, jme, 1 , 1 , &
2658 ips, ipe, jps, jpe, 1 , 1 )
2659 CALL RSL_LITE_PACK ( local_communicator, grid%ncfrcv, 3, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2660 mytask, ntasks, ntasks_x, ntasks_y, &
2661 ids, ide, jds, jde, 1 , 1 , &
2662 ims, ime, jms, jme, 1 , 1 , &
2663 ips, ipe, jps, jpe, 1 , 1 )
2664 CALL RSL_LITE_PACK ( local_communicator, grid%h_diabatic, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2665 mytask, ntasks, ntasks_x, ntasks_y, &
2666 ids, ide, jds, jde, kds, kde, &
2667 ims, ime, jms, jme, kms, kme, &
2668 ips, ipe, jps, jpe, kps, kpe )
2669 CALL RSL_LITE_PACK ( local_communicator, grid%msft, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2670 mytask, ntasks, ntasks_x, ntasks_y, &
2671 ids, ide, jds, jde, 1 , 1 , &
2672 ims, ime, jms, jme, 1 , 1 , &
2673 ips, ipe, jps, jpe, 1 , 1 )
2674 CALL RSL_LITE_PACK ( local_communicator, grid%msfu, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 1, &
2675 mytask, ntasks, ntasks_x, ntasks_y, &
2676 ids, ide, jds, jde, 1 , 1 , &
2677 ims, ime, jms, jme, 1 , 1 , &
2678 ips, ipe, jps, jpe, 1 , 1 )
2679 CALL RSL_LITE_PACK ( local_communicator, grid%msfv, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2680 mytask, ntasks, ntasks_x, ntasks_y, &
2681 ids, ide, jds, jde, 1 , 1 , &
2682 ims, ime, jms, jme, 1 , 1 , &
2683 ips, ipe, jps, jpe, 1 , 1 )
2684 CALL RSL_LITE_PACK ( local_communicator, grid%f, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2685 mytask, ntasks, ntasks_x, ntasks_y, &
2686 ids, ide, jds, jde, 1 , 1 , &
2687 ims, ime, jms, jme, 1 , 1 , &
2688 ips, ipe, jps, jpe, 1 , 1 )
2689 CALL RSL_LITE_PACK ( local_communicator, grid%e, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2690 mytask, ntasks, ntasks_x, ntasks_y, &
2691 ids, ide, jds, jde, 1 , 1 , &
2692 ims, ime, jms, jme, 1 , 1 , &
2693 ips, ipe, jps, jpe, 1 , 1 )
2694 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2695 mytask, ntasks, ntasks_x, ntasks_y, &
2696 ids, ide, jds, jde, 1 , 1 , &
2697 ims, ime, jms, jme, 1 , 1 , &
2698 ips, ipe, jps, jpe, 1 , 1 )
2699 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2700 mytask, ntasks, ntasks_x, ntasks_y, &
2701 ids, ide, jds, jde, 1 , 1 , &
2702 ims, ime, jms, jme, 1 , 1 , &
2703 ips, ipe, jps, jpe, 1 , 1 )
2704 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2705 mytask, ntasks, ntasks_x, ntasks_y, &
2706 ids, ide, jds, jde, 1 , 1 , &
2707 ims, ime, jms, jme, 1 , 1 , &
2708 ips, ipe, jps, jpe, 1 , 1 )
2709 CALL RSL_LITE_PACK ( local_communicator, grid%ht_fine, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2710 mytask, ntasks, ntasks_x, ntasks_y, &
2711 ids, ide, jds, jde, 1 , 1 , &
2712 ims, ime, jms, jme, 1 , 1 , &
2713 ips, ipe, jps, jpe, 1 , 1 )
2714 CALL RSL_LITE_PACK ( local_communicator, grid%ht_int, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2715 mytask, ntasks, ntasks_x, ntasks_y, &
2716 ids, ide, jds, jde, 1 , 1 , &
2717 ims, ime, jms, jme, 1 , 1 , &
2718 ips, ipe, jps, jpe, 1 , 1 )
2719 CALL RSL_LITE_PACK ( local_communicator, grid%ht_input, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2720 mytask, ntasks, ntasks_x, ntasks_y, &
2721 ids, ide, jds, jde, 1 , 1 , &
2722 ims, ime, jms, jme, 1 , 1 , &
2723 ips, ipe, jps, jpe, 1 , 1 )
2724 CALL RSL_LITE_PACK ( local_communicator, grid%tsk, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2725 mytask, ntasks, ntasks_x, ntasks_y, &
2726 ids, ide, jds, jde, 1 , 1 , &
2727 ims, ime, jms, jme, 1 , 1 , &
2728 ips, ipe, jps, jpe, 1 , 1 )
2729 CALL RSL_LITE_PACK ( local_communicator, grid%tsk_save, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2730 mytask, ntasks, ntasks_x, ntasks_y, &
2731 ids, ide, jds, jde, 1 , 1 , &
2732 ims, ime, jms, jme, 1 , 1 , &
2733 ips, ipe, jps, jpe, 1 , 1 )
2734 CALL RSL_LITE_PACK ( local_communicator, grid%rainc, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2735 mytask, ntasks, ntasks_x, ntasks_y, &
2736 ids, ide, jds, jde, 1 , 1 , &
2737 ims, ime, jms, jme, 1 , 1 , &
2738 ips, ipe, jps, jpe, 1 , 1 )
2739 CALL RSL_LITE_PACK ( local_communicator, grid%rainnc, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2740 mytask, ntasks, ntasks_x, ntasks_y, &
2741 ids, ide, jds, jde, 1 , 1 , &
2742 ims, ime, jms, jme, 1 , 1 , &
2743 ips, ipe, jps, jpe, 1 , 1 )
2744 CALL RSL_LITE_PACK ( local_communicator, grid%xlat, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2745 mytask, ntasks, ntasks_x, ntasks_y, &
2746 ids, ide, jds, jde, 1 , 1 , &
2747 ims, ime, jms, jme, 1 , 1 , &
2748 ips, ipe, jps, jpe, 1 , 1 )
2749 CALL RSL_LITE_PACK ( local_communicator, grid%xlong, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2750 mytask, ntasks, ntasks_x, ntasks_y, &
2751 ids, ide, jds, jde, 1 , 1 , &
2752 ims, ime, jms, jme, 1 , 1 , &
2753 ips, ipe, jps, jpe, 1 , 1 )
2754 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlat_u, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 1, &
2755 mytask, ntasks, ntasks_x, ntasks_y, &
2756 ids, ide, jds, jde, 1 , 1 , &
2757 ims, ime, jms, jme, 1 , 1 , &
2758 ips, ipe, jps, jpe, 1 , 1 )
2759 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlong_u, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 1, &
2760 mytask, ntasks, ntasks_x, ntasks_y, &
2761 ids, ide, jds, jde, 1 , 1 , &
2762 ims, ime, jms, jme, 1 , 1 , &
2763 ips, ipe, jps, jpe, 1 , 1 )
2764 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlat_v, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2765 mytask, ntasks, ntasks_x, ntasks_y, &
2766 ids, ide, jds, jde, 1 , 1 , &
2767 ims, ime, jms, jme, 1 , 1 , &
2768 ips, ipe, jps, jpe, 1 , 1 )
2769 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlong_v, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2770 mytask, ntasks, ntasks_x, ntasks_y, &
2771 ids, ide, jds, jde, 1 , 1 , &
2772 ims, ime, jms, jme, 1 , 1 , &
2773 ips, ipe, jps, jpe, 1 , 1 )
2774 CALL RSL_LITE_PACK ( local_communicator, grid%albbck, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2775 mytask, ntasks, ntasks_x, ntasks_y, &
2776 ids, ide, jds, jde, 1 , 1 , &
2777 ims, ime, jms, jme, 1 , 1 , &
2778 ips, ipe, jps, jpe, 1 , 1 )
2779 CALL RSL_LITE_PACK ( local_communicator, grid%tmn, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2780 mytask, ntasks, ntasks_x, ntasks_y, &
2781 ids, ide, jds, jde, 1 , 1 , &
2782 ims, ime, jms, jme, 1 , 1 , &
2783 ips, ipe, jps, jpe, 1 , 1 )
2784 CALL RSL_LITE_PACK ( local_communicator, grid%xland, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2785 mytask, ntasks, ntasks_x, ntasks_y, &
2786 ids, ide, jds, jde, 1 , 1 , &
2787 ims, ime, jms, jme, 1 , 1 , &
2788 ips, ipe, jps, jpe, 1 , 1 )
2789 CALL RSL_LITE_PACK ( local_communicator, grid%znt, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2790 mytask, ntasks, ntasks_x, ntasks_y, &
2791 ids, ide, jds, jde, 1 , 1 , &
2792 ims, ime, jms, jme, 1 , 1 , &
2793 ips, ipe, jps, jpe, 1 , 1 )
2794 CALL RSL_LITE_PACK ( local_communicator, grid%snowc, 3, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
2795 mytask, ntasks, ntasks_x, ntasks_y, &
2796 ids, ide, jds, jde, 1 , 1 , &
2797 ims, ime, jms, jme, 1 , 1 , &
2798 ips, ipe, jps, jpe, 1 , 1 )
2799 CALL RSL_LITE_PACK ( local_communicator, grid%xkmv, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2800 mytask, ntasks, ntasks_x, ntasks_y, &
2801 ids, ide, jds, jde, kds, kde, &
2802 ims, ime, jms, jme, kms, kme, &
2803 ips, ipe, jps, jpe, kps, kpe )
2804 CALL RSL_LITE_PACK ( local_communicator, grid%xkmh, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2805 mytask, ntasks, ntasks_x, ntasks_y, &
2806 ids, ide, jds, jde, kds, kde, &
2807 ims, ime, jms, jme, kms, kme, &
2808 ips, ipe, jps, jpe, kps, kpe )
2809 CALL RSL_LITE_PACK ( local_communicator, grid%xkmhd, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2810 mytask, ntasks, ntasks_x, ntasks_y, &
2811 ids, ide, jds, jde, kds, kde, &
2812 ims, ime, jms, jme, kms, kme, &
2813 ips, ipe, jps, jpe, kps, kpe )
2814 CALL RSL_LITE_PACK ( local_communicator, grid%a_xkmhd, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2815 mytask, ntasks, ntasks_x, ntasks_y, &
2816 ids, ide, jds, jde, kds, kde, &
2817 ims, ime, jms, jme, kms, kme, &
2818 ips, ipe, jps, jpe, kps, kpe )
2819 CALL RSL_LITE_PACK ( local_communicator, grid%g_xkmhd, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2820 mytask, ntasks, ntasks_x, ntasks_y, &
2821 ids, ide, jds, jde, kds, kde, &
2822 ims, ime, jms, jme, kms, kme, &
2823 ips, ipe, jps, jpe, kps, kpe )
2824 CALL RSL_LITE_PACK ( local_communicator, grid%xkhv, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2825 mytask, ntasks, ntasks_x, ntasks_y, &
2826 ids, ide, jds, jde, kds, kde, &
2827 ims, ime, jms, jme, kms, kme, &
2828 ips, ipe, jps, jpe, kps, kpe )
2829 CALL RSL_LITE_PACK ( local_communicator, grid%xkhh, 3, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
2830 mytask, ntasks, ntasks_x, ntasks_y, &
2831 ids, ide, jds, jde, kds, kde, &
2832 ims, ime, jms, jme, kms, kme, &
2833 ips, ipe, jps, jpe, kps, kpe )
2834 !ENDOFREGISTRYGENERATEDINCLUDE
2835 grid%lu_index (ims:ime,jps:min(jde-1,jpe)) = grid%lu_index (ims:ime,jps+py:min(jde-1,jpe)+py)
2836 grid%lu_mask (ims:ime,jps:min(jde-1,jpe)) = grid%lu_mask (ims:ime,jps+py:min(jde-1,jpe)+py)
2837 grid%em_qv_gc (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_qv_gc (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2838 grid%em_u_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_u_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2839 grid%em_u_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_u_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2840 grid%a_u_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_u_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2841 grid%a_u_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_u_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2842 grid%g_u_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_u_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2843 grid%g_u_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_u_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2844 grid%em_v_1 (ims:ime,:,jps:min(jde,jpe)) = grid%em_v_1 (ims:ime,:,jps+py:min(jde,jpe)+py)
2845 grid%em_v_2 (ims:ime,:,jps:min(jde,jpe)) = grid%em_v_2 (ims:ime,:,jps+py:min(jde,jpe)+py)
2846 grid%a_v_1 (ims:ime,:,jps:min(jde,jpe)) = grid%a_v_1 (ims:ime,:,jps+py:min(jde,jpe)+py)
2847 grid%a_v_2 (ims:ime,:,jps:min(jde,jpe)) = grid%a_v_2 (ims:ime,:,jps+py:min(jde,jpe)+py)
2848 grid%g_v_1 (ims:ime,:,jps:min(jde,jpe)) = grid%g_v_1 (ims:ime,:,jps+py:min(jde,jpe)+py)
2849 grid%g_v_2 (ims:ime,:,jps:min(jde,jpe)) = grid%g_v_2 (ims:ime,:,jps+py:min(jde,jpe)+py)
2850 grid%em_w_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_w_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2851 grid%em_w_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_w_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2852 grid%a_w_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_w_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2853 grid%a_w_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_w_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2854 grid%g_w_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_w_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2855 grid%g_w_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_w_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2856 grid%em_ph_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_ph_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2857 grid%em_ph_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_ph_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2858 grid%a_ph_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_ph_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2859 grid%a_ph_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_ph_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2860 grid%g_ph_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_ph_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2861 grid%g_ph_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_ph_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2862 grid%em_phb (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_phb (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2863 grid%em_t_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_t_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2864 grid%em_t_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_t_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2865 grid%a_t_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_t_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2866 grid%a_t_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_t_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2867 grid%g_t_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_t_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2868 grid%g_t_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_t_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2869 grid%em_mu_1 (ims:ime,jps:min(jde-1,jpe)) = grid%em_mu_1 (ims:ime,jps+py:min(jde-1,jpe)+py)
2870 grid%em_mu_2 (ims:ime,jps:min(jde-1,jpe)) = grid%em_mu_2 (ims:ime,jps+py:min(jde-1,jpe)+py)
2871 grid%a_mu_1 (ims:ime,jps:min(jde-1,jpe)) = grid%a_mu_1 (ims:ime,jps+py:min(jde-1,jpe)+py)
2872 grid%a_mu_2 (ims:ime,jps:min(jde-1,jpe)) = grid%a_mu_2 (ims:ime,jps+py:min(jde-1,jpe)+py)
2873 grid%g_mu_1 (ims:ime,jps:min(jde-1,jpe)) = grid%g_mu_1 (ims:ime,jps+py:min(jde-1,jpe)+py)
2874 grid%g_mu_2 (ims:ime,jps:min(jde-1,jpe)) = grid%g_mu_2 (ims:ime,jps+py:min(jde-1,jpe)+py)
2875 grid%em_mub (ims:ime,jps:min(jde-1,jpe)) = grid%em_mub (ims:ime,jps+py:min(jde-1,jpe)+py)
2876 grid%em_mu0 (ims:ime,jps:min(jde-1,jpe)) = grid%em_mu0 (ims:ime,jps+py:min(jde-1,jpe)+py)
2877 grid%nest_pos (ims:ime,jps:min(jde-1,jpe)) = grid%nest_pos (ims:ime,jps+py:min(jde-1,jpe)+py)
2878 grid%nest_mask (ims:ime,jps:min(jde-1,jpe)) = grid%nest_mask (ims:ime,jps+py:min(jde-1,jpe)+py)
2879 grid%ht_coarse (ims:ime,jps:min(jde-1,jpe)) = grid%ht_coarse (ims:ime,jps+py:min(jde-1,jpe)+py)
2880 grid%em_p (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_p (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2881 grid%em_sr (ims:ime,jps:min(jde-1,jpe)) = grid%em_sr (ims:ime,jps+py:min(jde-1,jpe)+py)
2882 grid%em_z (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_z (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2883 grid%a_z (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_z (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2884 grid%g_z (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_z (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2885 grid%q2 (ims:ime,jps:min(jde-1,jpe)) = grid%q2 (ims:ime,jps+py:min(jde-1,jpe)+py)
2886 grid%t2 (ims:ime,jps:min(jde-1,jpe)) = grid%t2 (ims:ime,jps+py:min(jde-1,jpe)+py)
2887 grid%th2 (ims:ime,jps:min(jde-1,jpe)) = grid%th2 (ims:ime,jps+py:min(jde-1,jpe)+py)
2888 grid%psfc (ims:ime,jps:min(jde-1,jpe)) = grid%psfc (ims:ime,jps+py:min(jde-1,jpe)+py)
2889 grid%u10 (ims:ime,jps:min(jde-1,jpe)) = grid%u10 (ims:ime,jps+py:min(jde-1,jpe)+py)
2890 grid%v10 (ims:ime,jps:min(jde-1,jpe)) = grid%v10 (ims:ime,jps+py:min(jde-1,jpe)+py)
2891 grid%uratx (ims:ime,jps:min(jde-1,jpe)) = grid%uratx (ims:ime,jps+py:min(jde-1,jpe)+py)
2892 grid%vratx (ims:ime,jps:min(jde-1,jpe)) = grid%vratx (ims:ime,jps+py:min(jde-1,jpe)+py)
2893 grid%tratx (ims:ime,jps:min(jde-1,jpe)) = grid%tratx (ims:ime,jps+py:min(jde-1,jpe)+py)
2894 grid%imask_nostag (ims:ime,jps:min(jde-1,jpe)) = grid%imask_nostag (ims:ime,jps+py:min(jde-1,jpe)+py)
2895 grid%imask_xstag (ims:ime,jps:min(jde-1,jpe)) = grid%imask_xstag (ims:ime,jps+py:min(jde-1,jpe)+py)
2896 grid%imask_ystag (ims:ime,jps:min(jde,jpe)) = grid%imask_ystag (ims:ime,jps+py:min(jde,jpe)+py)
2897 grid%imask_xystag (ims:ime,jps:min(jde,jpe)) = grid%imask_xystag (ims:ime,jps+py:min(jde,jpe)+py)
2898 DO itrace = PARAM_FIRST_SCALAR, num_moist
2899 moist ( ims:ime,:,jps:min(jde-1,jpe),itrace) = moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,itrace)
2900 ENDDO
2901 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
2902 a_moist ( ims:ime,:,jps:min(jde-1,jpe),itrace) = a_moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,itrace)
2903 ENDDO
2904 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
2905 g_moist ( ims:ime,:,jps:min(jde-1,jpe),itrace) = g_moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,itrace)
2906 ENDDO
2907 DO itrace = PARAM_FIRST_SCALAR, num_scalar
2908 scalar ( ims:ime,:,jps:min(jde-1,jpe),itrace) = scalar (ims:ime,:,jps+py:min(jde-1,jpe)+py,itrace)
2909 ENDDO
2910 DO itrace = PARAM_FIRST_SCALAR, num_a_scalar
2911 a_scalar ( ims:ime,:,jps:min(jde-1,jpe),itrace) = a_scalar (ims:ime,:,jps+py:min(jde-1,jpe)+py,itrace)
2912 ENDDO
2913 DO itrace = PARAM_FIRST_SCALAR, num_g_scalar
2914 g_scalar ( ims:ime,:,jps:min(jde-1,jpe),itrace) = g_scalar (ims:ime,:,jps+py:min(jde-1,jpe)+py,itrace)
2915 ENDDO
2916 grid%landmask (ims:ime,jps:min(jde-1,jpe)) = grid%landmask (ims:ime,jps+py:min(jde-1,jpe)+py)
2917 grid%shdmax (ims:ime,jps:min(jde-1,jpe)) = grid%shdmax (ims:ime,jps+py:min(jde-1,jpe)+py)
2918 grid%shdmin (ims:ime,jps:min(jde-1,jpe)) = grid%shdmin (ims:ime,jps+py:min(jde-1,jpe)+py)
2919 grid%snoalb (ims:ime,jps:min(jde-1,jpe)) = grid%snoalb (ims:ime,jps+py:min(jde-1,jpe)+py)
2920 grid%tslb (ims:ime,:,jps:min(jde-1,jpe)) = grid%tslb (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2921 grid%smois (ims:ime,:,jps:min(jde-1,jpe)) = grid%smois (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2922 grid%sh2o (ims:ime,:,jps:min(jde-1,jpe)) = grid%sh2o (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2923 grid%xice (ims:ime,jps:min(jde-1,jpe)) = grid%xice (ims:ime,jps+py:min(jde-1,jpe)+py)
2924 grid%sfcrunoff (ims:ime,jps:min(jde-1,jpe)) = grid%sfcrunoff (ims:ime,jps+py:min(jde-1,jpe)+py)
2925 grid%udrunoff (ims:ime,jps:min(jde-1,jpe)) = grid%udrunoff (ims:ime,jps+py:min(jde-1,jpe)+py)
2926 grid%ivgtyp (ims:ime,jps:min(jde-1,jpe)) = grid%ivgtyp (ims:ime,jps+py:min(jde-1,jpe)+py)
2927 grid%isltyp (ims:ime,jps:min(jde-1,jpe)) = grid%isltyp (ims:ime,jps+py:min(jde-1,jpe)+py)
2928 grid%vegfra (ims:ime,jps:min(jde-1,jpe)) = grid%vegfra (ims:ime,jps+py:min(jde-1,jpe)+py)
2929 grid%sfcevp (ims:ime,jps:min(jde-1,jpe)) = grid%sfcevp (ims:ime,jps+py:min(jde-1,jpe)+py)
2930 grid%acsnow (ims:ime,jps:min(jde-1,jpe)) = grid%acsnow (ims:ime,jps+py:min(jde-1,jpe)+py)
2931 grid%acsnom (ims:ime,jps:min(jde-1,jpe)) = grid%acsnom (ims:ime,jps+py:min(jde-1,jpe)+py)
2932 grid%snow (ims:ime,jps:min(jde-1,jpe)) = grid%snow (ims:ime,jps+py:min(jde-1,jpe)+py)
2933 grid%snowh (ims:ime,jps:min(jde-1,jpe)) = grid%snowh (ims:ime,jps+py:min(jde-1,jpe)+py)
2934 grid%rhosn (ims:ime,jps:min(jde-1,jpe)) = grid%rhosn (ims:ime,jps+py:min(jde-1,jpe)+py)
2935 grid%canwat (ims:ime,jps:min(jde-1,jpe)) = grid%canwat (ims:ime,jps+py:min(jde-1,jpe)+py)
2936 grid%sst (ims:ime,jps:min(jde-1,jpe)) = grid%sst (ims:ime,jps+py:min(jde-1,jpe)+py)
2937 grid%htop (ims:ime,jps:min(jde-1,jpe)) = grid%htop (ims:ime,jps+py:min(jde-1,jpe)+py)
2938 grid%hbot (ims:ime,jps:min(jde-1,jpe)) = grid%hbot (ims:ime,jps+py:min(jde-1,jpe)+py)
2939 grid%cuppt (ims:ime,jps:min(jde-1,jpe)) = grid%cuppt (ims:ime,jps+py:min(jde-1,jpe)+py)
2940 grid%rswtoa (ims:ime,jps:min(jde-1,jpe)) = grid%rswtoa (ims:ime,jps+py:min(jde-1,jpe)+py)
2941 grid%rlwtoa (ims:ime,jps:min(jde-1,jpe)) = grid%rlwtoa (ims:ime,jps+py:min(jde-1,jpe)+py)
2942 grid%czmean (ims:ime,jps:min(jde-1,jpe)) = grid%czmean (ims:ime,jps+py:min(jde-1,jpe)+py)
2943 grid%cfracl (ims:ime,jps:min(jde-1,jpe)) = grid%cfracl (ims:ime,jps+py:min(jde-1,jpe)+py)
2944 grid%cfracm (ims:ime,jps:min(jde-1,jpe)) = grid%cfracm (ims:ime,jps+py:min(jde-1,jpe)+py)
2945 grid%cfrach (ims:ime,jps:min(jde-1,jpe)) = grid%cfrach (ims:ime,jps+py:min(jde-1,jpe)+py)
2946 grid%acfrst (ims:ime,jps:min(jde-1,jpe)) = grid%acfrst (ims:ime,jps+py:min(jde-1,jpe)+py)
2947 grid%ncfrst (ims:ime,jps:min(jde-1,jpe)) = grid%ncfrst (ims:ime,jps+py:min(jde-1,jpe)+py)
2948 grid%acfrcv (ims:ime,jps:min(jde-1,jpe)) = grid%acfrcv (ims:ime,jps+py:min(jde-1,jpe)+py)
2949 grid%ncfrcv (ims:ime,jps:min(jde-1,jpe)) = grid%ncfrcv (ims:ime,jps+py:min(jde-1,jpe)+py)
2950 grid%h_diabatic (ims:ime,:,jps:min(jde-1,jpe)) = grid%h_diabatic (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2951 grid%msft (ims:ime,jps:min(jde-1,jpe)) = grid%msft (ims:ime,jps+py:min(jde-1,jpe)+py)
2952 grid%msfu (ims:ime,jps:min(jde-1,jpe)) = grid%msfu (ims:ime,jps+py:min(jde-1,jpe)+py)
2953 grid%msfv (ims:ime,jps:min(jde,jpe)) = grid%msfv (ims:ime,jps+py:min(jde,jpe)+py)
2954 grid%f (ims:ime,jps:min(jde-1,jpe)) = grid%f (ims:ime,jps+py:min(jde-1,jpe)+py)
2955 grid%e (ims:ime,jps:min(jde-1,jpe)) = grid%e (ims:ime,jps+py:min(jde-1,jpe)+py)
2956 grid%sina (ims:ime,jps:min(jde-1,jpe)) = grid%sina (ims:ime,jps+py:min(jde-1,jpe)+py)
2957 grid%cosa (ims:ime,jps:min(jde-1,jpe)) = grid%cosa (ims:ime,jps+py:min(jde-1,jpe)+py)
2958 grid%ht (ims:ime,jps:min(jde-1,jpe)) = grid%ht (ims:ime,jps+py:min(jde-1,jpe)+py)
2959 grid%ht_fine (ims:ime,jps:min(jde-1,jpe)) = grid%ht_fine (ims:ime,jps+py:min(jde-1,jpe)+py)
2960 grid%ht_int (ims:ime,jps:min(jde-1,jpe)) = grid%ht_int (ims:ime,jps+py:min(jde-1,jpe)+py)
2961 grid%ht_input (ims:ime,jps:min(jde-1,jpe)) = grid%ht_input (ims:ime,jps+py:min(jde-1,jpe)+py)
2962 grid%tsk (ims:ime,jps:min(jde-1,jpe)) = grid%tsk (ims:ime,jps+py:min(jde-1,jpe)+py)
2963 grid%tsk_save (ims:ime,jps:min(jde-1,jpe)) = grid%tsk_save (ims:ime,jps+py:min(jde-1,jpe)+py)
2964 grid%rainc (ims:ime,jps:min(jde-1,jpe)) = grid%rainc (ims:ime,jps+py:min(jde-1,jpe)+py)
2965 grid%rainnc (ims:ime,jps:min(jde-1,jpe)) = grid%rainnc (ims:ime,jps+py:min(jde-1,jpe)+py)
2966 grid%xlat (ims:ime,jps:min(jde-1,jpe)) = grid%xlat (ims:ime,jps+py:min(jde-1,jpe)+py)
2967 grid%xlong (ims:ime,jps:min(jde-1,jpe)) = grid%xlong (ims:ime,jps+py:min(jde-1,jpe)+py)
2968 grid%em_xlat_u (ims:ime,jps:min(jde-1,jpe)) = grid%em_xlat_u (ims:ime,jps+py:min(jde-1,jpe)+py)
2969 grid%em_xlong_u (ims:ime,jps:min(jde-1,jpe)) = grid%em_xlong_u (ims:ime,jps+py:min(jde-1,jpe)+py)
2970 grid%em_xlat_v (ims:ime,jps:min(jde,jpe)) = grid%em_xlat_v (ims:ime,jps+py:min(jde,jpe)+py)
2971 grid%em_xlong_v (ims:ime,jps:min(jde,jpe)) = grid%em_xlong_v (ims:ime,jps+py:min(jde,jpe)+py)
2972 grid%albbck (ims:ime,jps:min(jde-1,jpe)) = grid%albbck (ims:ime,jps+py:min(jde-1,jpe)+py)
2973 grid%tmn (ims:ime,jps:min(jde-1,jpe)) = grid%tmn (ims:ime,jps+py:min(jde-1,jpe)+py)
2974 grid%xland (ims:ime,jps:min(jde-1,jpe)) = grid%xland (ims:ime,jps+py:min(jde-1,jpe)+py)
2975 grid%znt (ims:ime,jps:min(jde-1,jpe)) = grid%znt (ims:ime,jps+py:min(jde-1,jpe)+py)
2976 grid%snowc (ims:ime,jps:min(jde-1,jpe)) = grid%snowc (ims:ime,jps+py:min(jde-1,jpe)+py)
2977 grid%xkmv (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkmv (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2978 grid%xkmh (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkmh (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2979 grid%xkmhd (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkmhd (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2980 grid%a_xkmhd (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_xkmhd (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2981 grid%g_xkmhd (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_xkmhd (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2982 grid%xkhv (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkhv (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2983 grid%xkhh (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkhh (ims:ime,:,jps+py:min(jde-1,jpe)+py)
2984 !ENDOFREGISTRYGENERATEDINCLUDE