HALO_EM_INTERP_DOWN_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_EM_INTERP_DOWN_inline.inc'
2 !
3 ! WARNING This file is generated automatically by use_registry
4 ! using the data base in the file named Registry.
5 ! Do not edit. Your changes to this file will be lost.
6 !
7 CALL wrf_debug(2,'calling inc/HALO_EM_INTERP_DOWN_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 4, &
9 19 &
10 + num_moist &
11 + num_a_moist &
12 + num_g_moist &
13 + num_scalar &
14 , 38, RWORDSIZE, &
15 0, 2, IWORDSIZE, &
16 0, 0, DWORDSIZE, &
17 0, 0, LWORDSIZE, &
18 mytask, ntasks, ntasks_x, ntasks_y, &
19 ips, ipe, jps, jpe, kps, MAX(1,1&
20 ,kpe &
21 ,config_flags%num_soil_layers &
22 ))
23 CALL RSL_LITE_PACK ( local_communicator, grid%lu_index, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
24 mytask, ntasks, ntasks_x, ntasks_y, &
25 ids, ide, jds, jde, 1 , 1 , &
26 ims, ime, jms, jme, 1 , 1 , &
27 ips, ipe, jps, jpe, 1 , 1 )
28 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
29 mytask, ntasks, ntasks_x, ntasks_y, &
30 ids, ide, jds, jde, kds, kde, &
31 ims, ime, jms, jme, kms, kme, &
32 ips, ipe, jps, jpe, kps, kpe )
33 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
34 mytask, ntasks, ntasks_x, ntasks_y, &
35 ids, ide, jds, jde, kds, kde, &
36 ims, ime, jms, jme, kms, kme, &
37 ips, ipe, jps, jpe, kps, kpe )
38 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
39 mytask, ntasks, ntasks_x, ntasks_y, &
40 ids, ide, jds, jde, kds, kde, &
41 ims, ime, jms, jme, kms, kme, &
42 ips, ipe, jps, jpe, kps, kpe )
43 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
44 mytask, ntasks, ntasks_x, ntasks_y, &
45 ids, ide, jds, jde, kds, kde, &
46 ims, ime, jms, jme, kms, kme, &
47 ips, ipe, jps, jpe, kps, kpe )
48 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
49 mytask, ntasks, ntasks_x, ntasks_y, &
50 ids, ide, jds, jde, kds, kde, &
51 ims, ime, jms, jme, kms, kme, &
52 ips, ipe, jps, jpe, kps, kpe )
53 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
54 mytask, ntasks, ntasks_x, ntasks_y, &
55 ids, ide, jds, jde, kds, kde, &
56 ims, ime, jms, jme, kms, kme, &
57 ips, ipe, jps, jpe, kps, kpe )
58 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
59 mytask, ntasks, ntasks_x, ntasks_y, &
60 ids, ide, jds, jde, kds, kde, &
61 ims, ime, jms, jme, kms, kme, &
62 ips, ipe, jps, jpe, kps, kpe )
63 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
64 mytask, ntasks, ntasks_x, ntasks_y, &
65 ids, ide, jds, jde, kds, kde, &
66 ims, ime, jms, jme, kms, kme, &
67 ips, ipe, jps, jpe, kps, kpe )
68 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
69 mytask, ntasks, ntasks_x, ntasks_y, &
70 ids, ide, jds, jde, kds, kde, &
71 ims, ime, jms, jme, kms, kme, &
72 ips, ipe, jps, jpe, kps, kpe )
73 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
74 mytask, ntasks, ntasks_x, ntasks_y, &
75 ids, ide, jds, jde, kds, kde, &
76 ims, ime, jms, jme, kms, kme, &
77 ips, ipe, jps, jpe, kps, kpe )
78 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
79 mytask, ntasks, ntasks_x, ntasks_y, &
80 ids, ide, jds, jde, kds, kde, &
81 ims, ime, jms, jme, kms, kme, &
82 ips, ipe, jps, jpe, kps, kpe )
83 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
84 mytask, ntasks, ntasks_x, ntasks_y, &
85 ids, ide, jds, jde, kds, kde, &
86 ims, ime, jms, jme, kms, kme, &
87 ips, ipe, jps, jpe, kps, kpe )
88 CALL RSL_LITE_PACK ( local_communicator, grid%em_phb, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
89 mytask, ntasks, ntasks_x, ntasks_y, &
90 ids, ide, jds, jde, kds, kde, &
91 ims, ime, jms, jme, kms, kme, &
92 ips, ipe, jps, jpe, kps, kpe )
93 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
94 mytask, ntasks, ntasks_x, ntasks_y, &
95 ids, ide, jds, jde, kds, kde, &
96 ims, ime, jms, jme, kms, kme, &
97 ips, ipe, jps, jpe, kps, kpe )
98 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
99 mytask, ntasks, ntasks_x, ntasks_y, &
100 ids, ide, jds, jde, kds, kde, &
101 ims, ime, jms, jme, kms, kme, &
102 ips, ipe, jps, jpe, kps, kpe )
103 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
104 mytask, ntasks, ntasks_x, ntasks_y, &
105 ids, ide, jds, jde, kds, kde, &
106 ims, ime, jms, jme, kms, kme, &
107 ips, ipe, jps, jpe, kps, kpe )
108 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
109 mytask, ntasks, ntasks_x, ntasks_y, &
110 ids, ide, jds, jde, 1 , 1 , &
111 ims, ime, jms, jme, 1 , 1 , &
112 ips, ipe, jps, jpe, 1 , 1 )
113 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
114 mytask, ntasks, ntasks_x, ntasks_y, &
115 ids, ide, jds, jde, 1 , 1 , &
116 ims, ime, jms, jme, 1 , 1 , &
117 ips, ipe, jps, jpe, 1 , 1 )
118 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
119 mytask, ntasks, ntasks_x, ntasks_y, &
120 ids, ide, jds, jde, 1 , 1 , &
121 ims, ime, jms, jme, 1 , 1 , &
122 ips, ipe, jps, jpe, 1 , 1 )
123 CALL RSL_LITE_PACK ( local_communicator, grid%em_mub, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
124 mytask, ntasks, ntasks_x, ntasks_y, &
125 ids, ide, jds, jde, 1 , 1 , &
126 ims, ime, jms, jme, 1 , 1 , &
127 ips, ipe, jps, jpe, 1 , 1 )
128 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu0, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
129 mytask, ntasks, ntasks_x, ntasks_y, &
130 ids, ide, jds, jde, 1 , 1 , &
131 ims, ime, jms, jme, 1 , 1 , &
132 ips, ipe, jps, jpe, 1 , 1 )
133 DO itrace = PARAM_FIRST_SCALAR, num_moist
134 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
135 mytask, ntasks, ntasks_x, ntasks_y, &
136 ids, ide, jds, jde, kds, kde, &
137 ims, ime, jms, jme, kms, kme, &
138 ips, ipe, jps, jpe, kps, kpe )
139 ENDDO
140 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
141 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, 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 ENDDO
147 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
148 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
149 mytask, ntasks, ntasks_x, ntasks_y, &
150 ids, ide, jds, jde, kds, kde, &
151 ims, ime, jms, jme, kms, kme, &
152 ips, ipe, jps, jpe, kps, kpe )
153 ENDDO
154 DO itrace = PARAM_FIRST_SCALAR, num_scalar
155 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
156 mytask, ntasks, ntasks_x, ntasks_y, &
157 ids, ide, jds, jde, kds, kde, &
158 ims, ime, jms, jme, kms, kme, &
159 ips, ipe, jps, jpe, kps, kpe )
160 ENDDO
161 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
162 mytask, ntasks, ntasks_x, ntasks_y, &
163 ids, ide, jds, jde, 1 , 1 , &
164 ims, ime, jms, jme, 1 , 1 , &
165 ips, ipe, jps, jpe, 1 , 1 )
166 CALL RSL_LITE_PACK ( local_communicator, grid%tslb, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
167 mytask, ntasks, ntasks_x, ntasks_y, &
168 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
169 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
170 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
171 CALL RSL_LITE_PACK ( local_communicator, grid%smois, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
172 mytask, ntasks, ntasks_x, ntasks_y, &
173 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
174 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
175 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
176 CALL RSL_LITE_PACK ( local_communicator, grid%sh2o, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
177 mytask, ntasks, ntasks_x, ntasks_y, &
178 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
179 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
180 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
181 CALL RSL_LITE_PACK ( local_communicator, grid%xice, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
182 mytask, ntasks, ntasks_x, ntasks_y, &
183 ids, ide, jds, jde, 1 , 1 , &
184 ims, ime, jms, jme, 1 , 1 , &
185 ips, ipe, jps, jpe, 1 , 1 )
186 CALL RSL_LITE_PACK ( local_communicator, grid%sfcrunoff, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
187 mytask, ntasks, ntasks_x, ntasks_y, &
188 ids, ide, jds, jde, 1 , 1 , &
189 ims, ime, jms, jme, 1 , 1 , &
190 ips, ipe, jps, jpe, 1 , 1 )
191 CALL RSL_LITE_PACK ( local_communicator, grid%udrunoff, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
192 mytask, ntasks, ntasks_x, ntasks_y, &
193 ids, ide, jds, jde, 1 , 1 , &
194 ims, ime, jms, jme, 1 , 1 , &
195 ips, ipe, jps, jpe, 1 , 1 )
196 CALL RSL_LITE_PACK ( local_communicator, grid%ivgtyp, 4, IWORDSIZE, 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%isltyp, 4, IWORDSIZE, 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%vegfra, 4, 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%acsnow, 4, 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%acsnom, 4, 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%snow, 4, 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%snowh, 4, 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%rhosn, 4, 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%canwat, 4, 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%sst, 4, 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%msft, 4, 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%msfu, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
252 mytask, ntasks, ntasks_x, ntasks_y, &
253 ids, ide, jds, jde, 1 , 1 , &
254 ims, ime, jms, jme, 1 , 1 , &
255 ips, ipe, jps, jpe, 1 , 1 )
256 CALL RSL_LITE_PACK ( local_communicator, grid%msfv, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 1, &
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%f, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
262 mytask, ntasks, ntasks_x, ntasks_y, &
263 ids, ide, jds, jde, 1 , 1 , &
264 ims, ime, jms, jme, 1 , 1 , &
265 ips, ipe, jps, jpe, 1 , 1 )
266 CALL RSL_LITE_PACK ( local_communicator, grid%e, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
267 mytask, ntasks, ntasks_x, ntasks_y, &
268 ids, ide, jds, jde, 1 , 1 , &
269 ims, ime, jms, jme, 1 , 1 , &
270 ips, ipe, jps, jpe, 1 , 1 )
271 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
272 mytask, ntasks, ntasks_x, ntasks_y, &
273 ids, ide, jds, jde, 1 , 1 , &
274 ims, ime, jms, jme, 1 , 1 , &
275 ips, ipe, jps, jpe, 1 , 1 )
276 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 4, 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%ht, 4, 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%tsk, 4, 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%rainc, 4, 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%rainnc, 4, 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%xlat, 4, 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%xlong, 4, 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%em_xlat_u, 4, 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%em_xlong_u, 4, 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%em_xlat_v, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 1, &
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%em_xlong_v, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 1, &
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%tmn, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
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%xland, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
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 CALL RSL_LITE_PACK ( local_communicator, grid%snowc, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
342 mytask, ntasks, ntasks_x, ntasks_y, &
343 ids, ide, jds, jde, 1 , 1 , &
344 ims, ime, jms, jme, 1 , 1 , &
345 ips, ipe, jps, jpe, 1 , 1 )
346 CALL RSL_LITE_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
347 CALL RSL_LITE_PACK ( local_communicator, grid%lu_index, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
348 mytask, ntasks, ntasks_x, ntasks_y, &
349 ids, ide, jds, jde, 1 , 1 , &
350 ims, ime, jms, jme, 1 , 1 , &
351 ips, ipe, jps, jpe, 1 , 1 )
352 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
353 mytask, ntasks, ntasks_x, ntasks_y, &
354 ids, ide, jds, jde, kds, kde, &
355 ims, ime, jms, jme, kms, kme, &
356 ips, ipe, jps, jpe, kps, kpe )
357 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
358 mytask, ntasks, ntasks_x, ntasks_y, &
359 ids, ide, jds, jde, kds, kde, &
360 ims, ime, jms, jme, kms, kme, &
361 ips, ipe, jps, jpe, kps, kpe )
362 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
363 mytask, ntasks, ntasks_x, ntasks_y, &
364 ids, ide, jds, jde, kds, kde, &
365 ims, ime, jms, jme, kms, kme, &
366 ips, ipe, jps, jpe, kps, kpe )
367 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
368 mytask, ntasks, ntasks_x, ntasks_y, &
369 ids, ide, jds, jde, kds, kde, &
370 ims, ime, jms, jme, kms, kme, &
371 ips, ipe, jps, jpe, kps, kpe )
372 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
373 mytask, ntasks, ntasks_x, ntasks_y, &
374 ids, ide, jds, jde, kds, kde, &
375 ims, ime, jms, jme, kms, kme, &
376 ips, ipe, jps, jpe, kps, kpe )
377 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
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 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
383 mytask, ntasks, ntasks_x, ntasks_y, &
384 ids, ide, jds, jde, kds, kde, &
385 ims, ime, jms, jme, kms, kme, &
386 ips, ipe, jps, jpe, kps, kpe )
387 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
388 mytask, ntasks, ntasks_x, ntasks_y, &
389 ids, ide, jds, jde, kds, kde, &
390 ims, ime, jms, jme, kms, kme, &
391 ips, ipe, jps, jpe, kps, kpe )
392 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
393 mytask, ntasks, ntasks_x, ntasks_y, &
394 ids, ide, jds, jde, kds, kde, &
395 ims, ime, jms, jme, kms, kme, &
396 ips, ipe, jps, jpe, kps, kpe )
397 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
398 mytask, ntasks, ntasks_x, ntasks_y, &
399 ids, ide, jds, jde, kds, kde, &
400 ims, ime, jms, jme, kms, kme, &
401 ips, ipe, jps, jpe, kps, kpe )
402 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
403 mytask, ntasks, ntasks_x, ntasks_y, &
404 ids, ide, jds, jde, kds, kde, &
405 ims, ime, jms, jme, kms, kme, &
406 ips, ipe, jps, jpe, kps, kpe )
407 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
408 mytask, ntasks, ntasks_x, ntasks_y, &
409 ids, ide, jds, jde, kds, kde, &
410 ims, ime, jms, jme, kms, kme, &
411 ips, ipe, jps, jpe, kps, kpe )
412 CALL RSL_LITE_PACK ( local_communicator, grid%em_phb, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
413 mytask, ntasks, ntasks_x, ntasks_y, &
414 ids, ide, jds, jde, kds, kde, &
415 ims, ime, jms, jme, kms, kme, &
416 ips, ipe, jps, jpe, kps, kpe )
417 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
418 mytask, ntasks, ntasks_x, ntasks_y, &
419 ids, ide, jds, jde, kds, kde, &
420 ims, ime, jms, jme, kms, kme, &
421 ips, ipe, jps, jpe, kps, kpe )
422 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
423 mytask, ntasks, ntasks_x, ntasks_y, &
424 ids, ide, jds, jde, kds, kde, &
425 ims, ime, jms, jme, kms, kme, &
426 ips, ipe, jps, jpe, kps, kpe )
427 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
428 mytask, ntasks, ntasks_x, ntasks_y, &
429 ids, ide, jds, jde, kds, kde, &
430 ims, ime, jms, jme, kms, kme, &
431 ips, ipe, jps, jpe, kps, kpe )
432 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
433 mytask, ntasks, ntasks_x, ntasks_y, &
434 ids, ide, jds, jde, 1 , 1 , &
435 ims, ime, jms, jme, 1 , 1 , &
436 ips, ipe, jps, jpe, 1 , 1 )
437 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
438 mytask, ntasks, ntasks_x, ntasks_y, &
439 ids, ide, jds, jde, 1 , 1 , &
440 ims, ime, jms, jme, 1 , 1 , &
441 ips, ipe, jps, jpe, 1 , 1 )
442 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
443 mytask, ntasks, ntasks_x, ntasks_y, &
444 ids, ide, jds, jde, 1 , 1 , &
445 ims, ime, jms, jme, 1 , 1 , &
446 ips, ipe, jps, jpe, 1 , 1 )
447 CALL RSL_LITE_PACK ( local_communicator, grid%em_mub, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
448 mytask, ntasks, ntasks_x, ntasks_y, &
449 ids, ide, jds, jde, 1 , 1 , &
450 ims, ime, jms, jme, 1 , 1 , &
451 ips, ipe, jps, jpe, 1 , 1 )
452 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu0, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
453 mytask, ntasks, ntasks_x, ntasks_y, &
454 ids, ide, jds, jde, 1 , 1 , &
455 ims, ime, jms, jme, 1 , 1 , &
456 ips, ipe, jps, jpe, 1 , 1 )
457 DO itrace = PARAM_FIRST_SCALAR, num_moist
458 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
459 mytask, ntasks, ntasks_x, ntasks_y, &
460 ids, ide, jds, jde, kds, kde, &
461 ims, ime, jms, jme, kms, kme, &
462 ips, ipe, jps, jpe, kps, kpe )
463 ENDDO
464 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
465 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
466 mytask, ntasks, ntasks_x, ntasks_y, &
467 ids, ide, jds, jde, kds, kde, &
468 ims, ime, jms, jme, kms, kme, &
469 ips, ipe, jps, jpe, kps, kpe )
470 ENDDO
471 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
472 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
473 mytask, ntasks, ntasks_x, ntasks_y, &
474 ids, ide, jds, jde, kds, kde, &
475 ims, ime, jms, jme, kms, kme, &
476 ips, ipe, jps, jpe, kps, kpe )
477 ENDDO
478 DO itrace = PARAM_FIRST_SCALAR, num_scalar
479 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
480 mytask, ntasks, ntasks_x, ntasks_y, &
481 ids, ide, jds, jde, kds, kde, &
482 ims, ime, jms, jme, kms, kme, &
483 ips, ipe, jps, jpe, kps, kpe )
484 ENDDO
485 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
486 mytask, ntasks, ntasks_x, ntasks_y, &
487 ids, ide, jds, jde, 1 , 1 , &
488 ims, ime, jms, jme, 1 , 1 , &
489 ips, ipe, jps, jpe, 1 , 1 )
490 CALL RSL_LITE_PACK ( local_communicator, grid%tslb, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
491 mytask, ntasks, ntasks_x, ntasks_y, &
492 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
493 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
494 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
495 CALL RSL_LITE_PACK ( local_communicator, grid%smois, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
496 mytask, ntasks, ntasks_x, ntasks_y, &
497 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
498 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
499 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
500 CALL RSL_LITE_PACK ( local_communicator, grid%sh2o, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
501 mytask, ntasks, ntasks_x, ntasks_y, &
502 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
503 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
504 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
505 CALL RSL_LITE_PACK ( local_communicator, grid%xice, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
506 mytask, ntasks, ntasks_x, ntasks_y, &
507 ids, ide, jds, jde, 1 , 1 , &
508 ims, ime, jms, jme, 1 , 1 , &
509 ips, ipe, jps, jpe, 1 , 1 )
510 CALL RSL_LITE_PACK ( local_communicator, grid%sfcrunoff, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
511 mytask, ntasks, ntasks_x, ntasks_y, &
512 ids, ide, jds, jde, 1 , 1 , &
513 ims, ime, jms, jme, 1 , 1 , &
514 ips, ipe, jps, jpe, 1 , 1 )
515 CALL RSL_LITE_PACK ( local_communicator, grid%udrunoff, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
516 mytask, ntasks, ntasks_x, ntasks_y, &
517 ids, ide, jds, jde, 1 , 1 , &
518 ims, ime, jms, jme, 1 , 1 , &
519 ips, ipe, jps, jpe, 1 , 1 )
520 CALL RSL_LITE_PACK ( local_communicator, grid%ivgtyp, 4, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
521 mytask, ntasks, ntasks_x, ntasks_y, &
522 ids, ide, jds, jde, 1 , 1 , &
523 ims, ime, jms, jme, 1 , 1 , &
524 ips, ipe, jps, jpe, 1 , 1 )
525 CALL RSL_LITE_PACK ( local_communicator, grid%isltyp, 4, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
526 mytask, ntasks, ntasks_x, ntasks_y, &
527 ids, ide, jds, jde, 1 , 1 , &
528 ims, ime, jms, jme, 1 , 1 , &
529 ips, ipe, jps, jpe, 1 , 1 )
530 CALL RSL_LITE_PACK ( local_communicator, grid%vegfra, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
531 mytask, ntasks, ntasks_x, ntasks_y, &
532 ids, ide, jds, jde, 1 , 1 , &
533 ims, ime, jms, jme, 1 , 1 , &
534 ips, ipe, jps, jpe, 1 , 1 )
535 CALL RSL_LITE_PACK ( local_communicator, grid%acsnow, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
536 mytask, ntasks, ntasks_x, ntasks_y, &
537 ids, ide, jds, jde, 1 , 1 , &
538 ims, ime, jms, jme, 1 , 1 , &
539 ips, ipe, jps, jpe, 1 , 1 )
540 CALL RSL_LITE_PACK ( local_communicator, grid%acsnom, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
541 mytask, ntasks, ntasks_x, ntasks_y, &
542 ids, ide, jds, jde, 1 , 1 , &
543 ims, ime, jms, jme, 1 , 1 , &
544 ips, ipe, jps, jpe, 1 , 1 )
545 CALL RSL_LITE_PACK ( local_communicator, grid%snow, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
546 mytask, ntasks, ntasks_x, ntasks_y, &
547 ids, ide, jds, jde, 1 , 1 , &
548 ims, ime, jms, jme, 1 , 1 , &
549 ips, ipe, jps, jpe, 1 , 1 )
550 CALL RSL_LITE_PACK ( local_communicator, grid%snowh, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
551 mytask, ntasks, ntasks_x, ntasks_y, &
552 ids, ide, jds, jde, 1 , 1 , &
553 ims, ime, jms, jme, 1 , 1 , &
554 ips, ipe, jps, jpe, 1 , 1 )
555 CALL RSL_LITE_PACK ( local_communicator, grid%rhosn, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
556 mytask, ntasks, ntasks_x, ntasks_y, &
557 ids, ide, jds, jde, 1 , 1 , &
558 ims, ime, jms, jme, 1 , 1 , &
559 ips, ipe, jps, jpe, 1 , 1 )
560 CALL RSL_LITE_PACK ( local_communicator, grid%canwat, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
561 mytask, ntasks, ntasks_x, ntasks_y, &
562 ids, ide, jds, jde, 1 , 1 , &
563 ims, ime, jms, jme, 1 , 1 , &
564 ips, ipe, jps, jpe, 1 , 1 )
565 CALL RSL_LITE_PACK ( local_communicator, grid%sst, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
566 mytask, ntasks, ntasks_x, ntasks_y, &
567 ids, ide, jds, jde, 1 , 1 , &
568 ims, ime, jms, jme, 1 , 1 , &
569 ips, ipe, jps, jpe, 1 , 1 )
570 CALL RSL_LITE_PACK ( local_communicator, grid%msft, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
571 mytask, ntasks, ntasks_x, ntasks_y, &
572 ids, ide, jds, jde, 1 , 1 , &
573 ims, ime, jms, jme, 1 , 1 , &
574 ips, ipe, jps, jpe, 1 , 1 )
575 CALL RSL_LITE_PACK ( local_communicator, grid%msfu, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
576 mytask, ntasks, ntasks_x, ntasks_y, &
577 ids, ide, jds, jde, 1 , 1 , &
578 ims, ime, jms, jme, 1 , 1 , &
579 ips, ipe, jps, jpe, 1 , 1 )
580 CALL RSL_LITE_PACK ( local_communicator, grid%msfv, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 1, &
581 mytask, ntasks, ntasks_x, ntasks_y, &
582 ids, ide, jds, jde, 1 , 1 , &
583 ims, ime, jms, jme, 1 , 1 , &
584 ips, ipe, jps, jpe, 1 , 1 )
585 CALL RSL_LITE_PACK ( local_communicator, grid%f, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
586 mytask, ntasks, ntasks_x, ntasks_y, &
587 ids, ide, jds, jde, 1 , 1 , &
588 ims, ime, jms, jme, 1 , 1 , &
589 ips, ipe, jps, jpe, 1 , 1 )
590 CALL RSL_LITE_PACK ( local_communicator, grid%e, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
591 mytask, ntasks, ntasks_x, ntasks_y, &
592 ids, ide, jds, jde, 1 , 1 , &
593 ims, ime, jms, jme, 1 , 1 , &
594 ips, ipe, jps, jpe, 1 , 1 )
595 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
596 mytask, ntasks, ntasks_x, ntasks_y, &
597 ids, ide, jds, jde, 1 , 1 , &
598 ims, ime, jms, jme, 1 , 1 , &
599 ips, ipe, jps, jpe, 1 , 1 )
600 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
601 mytask, ntasks, ntasks_x, ntasks_y, &
602 ids, ide, jds, jde, 1 , 1 , &
603 ims, ime, jms, jme, 1 , 1 , &
604 ips, ipe, jps, jpe, 1 , 1 )
605 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
606 mytask, ntasks, ntasks_x, ntasks_y, &
607 ids, ide, jds, jde, 1 , 1 , &
608 ims, ime, jms, jme, 1 , 1 , &
609 ips, ipe, jps, jpe, 1 , 1 )
610 CALL RSL_LITE_PACK ( local_communicator, grid%tsk, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
611 mytask, ntasks, ntasks_x, ntasks_y, &
612 ids, ide, jds, jde, 1 , 1 , &
613 ims, ime, jms, jme, 1 , 1 , &
614 ips, ipe, jps, jpe, 1 , 1 )
615 CALL RSL_LITE_PACK ( local_communicator, grid%rainc, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
616 mytask, ntasks, ntasks_x, ntasks_y, &
617 ids, ide, jds, jde, 1 , 1 , &
618 ims, ime, jms, jme, 1 , 1 , &
619 ips, ipe, jps, jpe, 1 , 1 )
620 CALL RSL_LITE_PACK ( local_communicator, grid%rainnc, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
621 mytask, ntasks, ntasks_x, ntasks_y, &
622 ids, ide, jds, jde, 1 , 1 , &
623 ims, ime, jms, jme, 1 , 1 , &
624 ips, ipe, jps, jpe, 1 , 1 )
625 CALL RSL_LITE_PACK ( local_communicator, grid%xlat, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
626 mytask, ntasks, ntasks_x, ntasks_y, &
627 ids, ide, jds, jde, 1 , 1 , &
628 ims, ime, jms, jme, 1 , 1 , &
629 ips, ipe, jps, jpe, 1 , 1 )
630 CALL RSL_LITE_PACK ( local_communicator, grid%xlong, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
631 mytask, ntasks, ntasks_x, ntasks_y, &
632 ids, ide, jds, jde, 1 , 1 , &
633 ims, ime, jms, jme, 1 , 1 , &
634 ips, ipe, jps, jpe, 1 , 1 )
635 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlat_u, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
636 mytask, ntasks, ntasks_x, ntasks_y, &
637 ids, ide, jds, jde, 1 , 1 , &
638 ims, ime, jms, jme, 1 , 1 , &
639 ips, ipe, jps, jpe, 1 , 1 )
640 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlong_u, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
641 mytask, ntasks, ntasks_x, ntasks_y, &
642 ids, ide, jds, jde, 1 , 1 , &
643 ims, ime, jms, jme, 1 , 1 , &
644 ips, ipe, jps, jpe, 1 , 1 )
645 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlat_v, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 1, &
646 mytask, ntasks, ntasks_x, ntasks_y, &
647 ids, ide, jds, jde, 1 , 1 , &
648 ims, ime, jms, jme, 1 , 1 , &
649 ips, ipe, jps, jpe, 1 , 1 )
650 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlong_v, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 1, &
651 mytask, ntasks, ntasks_x, ntasks_y, &
652 ids, ide, jds, jde, 1 , 1 , &
653 ims, ime, jms, jme, 1 , 1 , &
654 ips, ipe, jps, jpe, 1 , 1 )
655 CALL RSL_LITE_PACK ( local_communicator, grid%tmn, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
656 mytask, ntasks, ntasks_x, ntasks_y, &
657 ids, ide, jds, jde, 1 , 1 , &
658 ims, ime, jms, jme, 1 , 1 , &
659 ips, ipe, jps, jpe, 1 , 1 )
660 CALL RSL_LITE_PACK ( local_communicator, grid%xland, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
661 mytask, ntasks, ntasks_x, ntasks_y, &
662 ids, ide, jds, jde, 1 , 1 , &
663 ims, ime, jms, jme, 1 , 1 , &
664 ips, ipe, jps, jpe, 1 , 1 )
665 CALL RSL_LITE_PACK ( local_communicator, grid%snowc, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
666 mytask, ntasks, ntasks_x, ntasks_y, &
667 ids, ide, jds, jde, 1 , 1 , &
668 ims, ime, jms, jme, 1 , 1 , &
669 ips, ipe, jps, jpe, 1 , 1 )
670 CALL RSL_LITE_INIT_EXCH ( local_communicator, 4 , &
671 19 &
672 + num_moist &
673 + num_a_moist &
674 + num_g_moist &
675 + num_scalar &
676 , 38, RWORDSIZE, &
677 0, 2, IWORDSIZE, &
678 0, 0, DWORDSIZE, &
679 0, 0, LWORDSIZE, &
680 mytask, ntasks, ntasks_x, ntasks_y, &
681 ips, ipe, jps, jpe, kps, MAX(1,1&
682 ,kpe &
683 ,config_flags%num_soil_layers &
684 ))
685 CALL RSL_LITE_PACK ( local_communicator, grid%lu_index, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
686 mytask, ntasks, ntasks_x, ntasks_y, &
687 ids, ide, jds, jde, 1 , 1 , &
688 ims, ime, jms, jme, 1 , 1 , &
689 ips, ipe, jps, jpe, 1 , 1 )
690 CALL RSL_LITE_PACK ( local_communicator, grid%em_u_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
691 mytask, ntasks, ntasks_x, ntasks_y, &
692 ids, ide, jds, jde, kds, kde, &
693 ims, ime, jms, jme, kms, kme, &
694 ips, ipe, jps, jpe, kps, kpe )
695 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
696 mytask, ntasks, ntasks_x, ntasks_y, &
697 ids, ide, jds, jde, kds, kde, &
698 ims, ime, jms, jme, kms, kme, &
699 ips, ipe, jps, jpe, kps, kpe )
700 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
701 mytask, ntasks, ntasks_x, ntasks_y, &
702 ids, ide, jds, jde, kds, kde, &
703 ims, ime, jms, jme, kms, kme, &
704 ips, ipe, jps, jpe, kps, kpe )
705 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
706 mytask, ntasks, ntasks_x, ntasks_y, &
707 ids, ide, jds, jde, kds, kde, &
708 ims, ime, jms, jme, kms, kme, &
709 ips, ipe, jps, jpe, kps, kpe )
710 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
711 mytask, ntasks, ntasks_x, ntasks_y, &
712 ids, ide, jds, jde, kds, kde, &
713 ims, ime, jms, jme, kms, kme, &
714 ips, ipe, jps, jpe, kps, kpe )
715 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
716 mytask, ntasks, ntasks_x, ntasks_y, &
717 ids, ide, jds, jde, kds, kde, &
718 ims, ime, jms, jme, kms, kme, &
719 ips, ipe, jps, jpe, kps, kpe )
720 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
721 mytask, ntasks, ntasks_x, ntasks_y, &
722 ids, ide, jds, jde, kds, kde, &
723 ims, ime, jms, jme, kms, kme, &
724 ips, ipe, jps, jpe, kps, kpe )
725 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
726 mytask, ntasks, ntasks_x, ntasks_y, &
727 ids, ide, jds, jde, kds, kde, &
728 ims, ime, jms, jme, kms, kme, &
729 ips, ipe, jps, jpe, kps, kpe )
730 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
731 mytask, ntasks, ntasks_x, ntasks_y, &
732 ids, ide, jds, jde, kds, kde, &
733 ims, ime, jms, jme, kms, kme, &
734 ips, ipe, jps, jpe, kps, kpe )
735 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
736 mytask, ntasks, ntasks_x, ntasks_y, &
737 ids, ide, jds, jde, kds, kde, &
738 ims, ime, jms, jme, kms, kme, &
739 ips, ipe, jps, jpe, kps, kpe )
740 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
741 mytask, ntasks, ntasks_x, ntasks_y, &
742 ids, ide, jds, jde, kds, kde, &
743 ims, ime, jms, jme, kms, kme, &
744 ips, ipe, jps, jpe, kps, kpe )
745 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
746 mytask, ntasks, ntasks_x, ntasks_y, &
747 ids, ide, jds, jde, kds, kde, &
748 ims, ime, jms, jme, kms, kme, &
749 ips, ipe, jps, jpe, kps, kpe )
750 CALL RSL_LITE_PACK ( local_communicator, grid%em_phb, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
751 mytask, ntasks, ntasks_x, ntasks_y, &
752 ids, ide, jds, jde, kds, kde, &
753 ims, ime, jms, jme, kms, kme, &
754 ips, ipe, jps, jpe, kps, kpe )
755 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
756 mytask, ntasks, ntasks_x, ntasks_y, &
757 ids, ide, jds, jde, kds, kde, &
758 ims, ime, jms, jme, kms, kme, &
759 ips, ipe, jps, jpe, kps, kpe )
760 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
761 mytask, ntasks, ntasks_x, ntasks_y, &
762 ids, ide, jds, jde, kds, kde, &
763 ims, ime, jms, jme, kms, kme, &
764 ips, ipe, jps, jpe, kps, kpe )
765 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
766 mytask, ntasks, ntasks_x, ntasks_y, &
767 ids, ide, jds, jde, kds, kde, &
768 ims, ime, jms, jme, kms, kme, &
769 ips, ipe, jps, jpe, kps, kpe )
770 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
771 mytask, ntasks, ntasks_x, ntasks_y, &
772 ids, ide, jds, jde, 1 , 1 , &
773 ims, ime, jms, jme, 1 , 1 , &
774 ips, ipe, jps, jpe, 1 , 1 )
775 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
776 mytask, ntasks, ntasks_x, ntasks_y, &
777 ids, ide, jds, jde, 1 , 1 , &
778 ims, ime, jms, jme, 1 , 1 , &
779 ips, ipe, jps, jpe, 1 , 1 )
780 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
781 mytask, ntasks, ntasks_x, ntasks_y, &
782 ids, ide, jds, jde, 1 , 1 , &
783 ims, ime, jms, jme, 1 , 1 , &
784 ips, ipe, jps, jpe, 1 , 1 )
785 CALL RSL_LITE_PACK ( local_communicator, grid%em_mub, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
786 mytask, ntasks, ntasks_x, ntasks_y, &
787 ids, ide, jds, jde, 1 , 1 , &
788 ims, ime, jms, jme, 1 , 1 , &
789 ips, ipe, jps, jpe, 1 , 1 )
790 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu0, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
791 mytask, ntasks, ntasks_x, ntasks_y, &
792 ids, ide, jds, jde, 1 , 1 , &
793 ims, ime, jms, jme, 1 , 1 , &
794 ips, ipe, jps, jpe, 1 , 1 )
795 DO itrace = PARAM_FIRST_SCALAR, num_moist
796 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
797 mytask, ntasks, ntasks_x, ntasks_y, &
798 ids, ide, jds, jde, kds, kde, &
799 ims, ime, jms, jme, kms, kme, &
800 ips, ipe, jps, jpe, kps, kpe )
801 ENDDO
802 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
803 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
804 mytask, ntasks, ntasks_x, ntasks_y, &
805 ids, ide, jds, jde, kds, kde, &
806 ims, ime, jms, jme, kms, kme, &
807 ips, ipe, jps, jpe, kps, kpe )
808 ENDDO
809 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
810 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
811 mytask, ntasks, ntasks_x, ntasks_y, &
812 ids, ide, jds, jde, kds, kde, &
813 ims, ime, jms, jme, kms, kme, &
814 ips, ipe, jps, jpe, kps, kpe )
815 ENDDO
816 DO itrace = PARAM_FIRST_SCALAR, num_scalar
817 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
818 mytask, ntasks, ntasks_x, ntasks_y, &
819 ids, ide, jds, jde, kds, kde, &
820 ims, ime, jms, jme, kms, kme, &
821 ips, ipe, jps, jpe, kps, kpe )
822 ENDDO
823 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
824 mytask, ntasks, ntasks_x, ntasks_y, &
825 ids, ide, jds, jde, 1 , 1 , &
826 ims, ime, jms, jme, 1 , 1 , &
827 ips, ipe, jps, jpe, 1 , 1 )
828 CALL RSL_LITE_PACK ( local_communicator, grid%tslb, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
829 mytask, ntasks, ntasks_x, ntasks_y, &
830 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
831 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
832 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
833 CALL RSL_LITE_PACK ( local_communicator, grid%smois, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
834 mytask, ntasks, ntasks_x, ntasks_y, &
835 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
836 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
837 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
838 CALL RSL_LITE_PACK ( local_communicator, grid%sh2o, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
839 mytask, ntasks, ntasks_x, ntasks_y, &
840 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
841 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
842 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
843 CALL RSL_LITE_PACK ( local_communicator, grid%xice, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
844 mytask, ntasks, ntasks_x, ntasks_y, &
845 ids, ide, jds, jde, 1 , 1 , &
846 ims, ime, jms, jme, 1 , 1 , &
847 ips, ipe, jps, jpe, 1 , 1 )
848 CALL RSL_LITE_PACK ( local_communicator, grid%sfcrunoff, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
849 mytask, ntasks, ntasks_x, ntasks_y, &
850 ids, ide, jds, jde, 1 , 1 , &
851 ims, ime, jms, jme, 1 , 1 , &
852 ips, ipe, jps, jpe, 1 , 1 )
853 CALL RSL_LITE_PACK ( local_communicator, grid%udrunoff, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
854 mytask, ntasks, ntasks_x, ntasks_y, &
855 ids, ide, jds, jde, 1 , 1 , &
856 ims, ime, jms, jme, 1 , 1 , &
857 ips, ipe, jps, jpe, 1 , 1 )
858 CALL RSL_LITE_PACK ( local_communicator, grid%ivgtyp, 4, IWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
859 mytask, ntasks, ntasks_x, ntasks_y, &
860 ids, ide, jds, jde, 1 , 1 , &
861 ims, ime, jms, jme, 1 , 1 , &
862 ips, ipe, jps, jpe, 1 , 1 )
863 CALL RSL_LITE_PACK ( local_communicator, grid%isltyp, 4, IWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
864 mytask, ntasks, ntasks_x, ntasks_y, &
865 ids, ide, jds, jde, 1 , 1 , &
866 ims, ime, jms, jme, 1 , 1 , &
867 ips, ipe, jps, jpe, 1 , 1 )
868 CALL RSL_LITE_PACK ( local_communicator, grid%vegfra, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
869 mytask, ntasks, ntasks_x, ntasks_y, &
870 ids, ide, jds, jde, 1 , 1 , &
871 ims, ime, jms, jme, 1 , 1 , &
872 ips, ipe, jps, jpe, 1 , 1 )
873 CALL RSL_LITE_PACK ( local_communicator, grid%acsnow, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
874 mytask, ntasks, ntasks_x, ntasks_y, &
875 ids, ide, jds, jde, 1 , 1 , &
876 ims, ime, jms, jme, 1 , 1 , &
877 ips, ipe, jps, jpe, 1 , 1 )
878 CALL RSL_LITE_PACK ( local_communicator, grid%acsnom, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
879 mytask, ntasks, ntasks_x, ntasks_y, &
880 ids, ide, jds, jde, 1 , 1 , &
881 ims, ime, jms, jme, 1 , 1 , &
882 ips, ipe, jps, jpe, 1 , 1 )
883 CALL RSL_LITE_PACK ( local_communicator, grid%snow, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
884 mytask, ntasks, ntasks_x, ntasks_y, &
885 ids, ide, jds, jde, 1 , 1 , &
886 ims, ime, jms, jme, 1 , 1 , &
887 ips, ipe, jps, jpe, 1 , 1 )
888 CALL RSL_LITE_PACK ( local_communicator, grid%snowh, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
889 mytask, ntasks, ntasks_x, ntasks_y, &
890 ids, ide, jds, jde, 1 , 1 , &
891 ims, ime, jms, jme, 1 , 1 , &
892 ips, ipe, jps, jpe, 1 , 1 )
893 CALL RSL_LITE_PACK ( local_communicator, grid%rhosn, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
894 mytask, ntasks, ntasks_x, ntasks_y, &
895 ids, ide, jds, jde, 1 , 1 , &
896 ims, ime, jms, jme, 1 , 1 , &
897 ips, ipe, jps, jpe, 1 , 1 )
898 CALL RSL_LITE_PACK ( local_communicator, grid%canwat, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
899 mytask, ntasks, ntasks_x, ntasks_y, &
900 ids, ide, jds, jde, 1 , 1 , &
901 ims, ime, jms, jme, 1 , 1 , &
902 ips, ipe, jps, jpe, 1 , 1 )
903 CALL RSL_LITE_PACK ( local_communicator, grid%sst, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
904 mytask, ntasks, ntasks_x, ntasks_y, &
905 ids, ide, jds, jde, 1 , 1 , &
906 ims, ime, jms, jme, 1 , 1 , &
907 ips, ipe, jps, jpe, 1 , 1 )
908 CALL RSL_LITE_PACK ( local_communicator, grid%msft, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
909 mytask, ntasks, ntasks_x, ntasks_y, &
910 ids, ide, jds, jde, 1 , 1 , &
911 ims, ime, jms, jme, 1 , 1 , &
912 ips, ipe, jps, jpe, 1 , 1 )
913 CALL RSL_LITE_PACK ( local_communicator, grid%msfu, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 1, &
914 mytask, ntasks, ntasks_x, ntasks_y, &
915 ids, ide, jds, jde, 1 , 1 , &
916 ims, ime, jms, jme, 1 , 1 , &
917 ips, ipe, jps, jpe, 1 , 1 )
918 CALL RSL_LITE_PACK ( local_communicator, grid%msfv, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
919 mytask, ntasks, ntasks_x, ntasks_y, &
920 ids, ide, jds, jde, 1 , 1 , &
921 ims, ime, jms, jme, 1 , 1 , &
922 ips, ipe, jps, jpe, 1 , 1 )
923 CALL RSL_LITE_PACK ( local_communicator, grid%f, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
924 mytask, ntasks, ntasks_x, ntasks_y, &
925 ids, ide, jds, jde, 1 , 1 , &
926 ims, ime, jms, jme, 1 , 1 , &
927 ips, ipe, jps, jpe, 1 , 1 )
928 CALL RSL_LITE_PACK ( local_communicator, grid%e, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
929 mytask, ntasks, ntasks_x, ntasks_y, &
930 ids, ide, jds, jde, 1 , 1 , &
931 ims, ime, jms, jme, 1 , 1 , &
932 ips, ipe, jps, jpe, 1 , 1 )
933 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
934 mytask, ntasks, ntasks_x, ntasks_y, &
935 ids, ide, jds, jde, 1 , 1 , &
936 ims, ime, jms, jme, 1 , 1 , &
937 ips, ipe, jps, jpe, 1 , 1 )
938 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
939 mytask, ntasks, ntasks_x, ntasks_y, &
940 ids, ide, jds, jde, 1 , 1 , &
941 ims, ime, jms, jme, 1 , 1 , &
942 ips, ipe, jps, jpe, 1 , 1 )
943 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
944 mytask, ntasks, ntasks_x, ntasks_y, &
945 ids, ide, jds, jde, 1 , 1 , &
946 ims, ime, jms, jme, 1 , 1 , &
947 ips, ipe, jps, jpe, 1 , 1 )
948 CALL RSL_LITE_PACK ( local_communicator, grid%tsk, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
949 mytask, ntasks, ntasks_x, ntasks_y, &
950 ids, ide, jds, jde, 1 , 1 , &
951 ims, ime, jms, jme, 1 , 1 , &
952 ips, ipe, jps, jpe, 1 , 1 )
953 CALL RSL_LITE_PACK ( local_communicator, grid%rainc, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
954 mytask, ntasks, ntasks_x, ntasks_y, &
955 ids, ide, jds, jde, 1 , 1 , &
956 ims, ime, jms, jme, 1 , 1 , &
957 ips, ipe, jps, jpe, 1 , 1 )
958 CALL RSL_LITE_PACK ( local_communicator, grid%rainnc, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
959 mytask, ntasks, ntasks_x, ntasks_y, &
960 ids, ide, jds, jde, 1 , 1 , &
961 ims, ime, jms, jme, 1 , 1 , &
962 ips, ipe, jps, jpe, 1 , 1 )
963 CALL RSL_LITE_PACK ( local_communicator, grid%xlat, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
964 mytask, ntasks, ntasks_x, ntasks_y, &
965 ids, ide, jds, jde, 1 , 1 , &
966 ims, ime, jms, jme, 1 , 1 , &
967 ips, ipe, jps, jpe, 1 , 1 )
968 CALL RSL_LITE_PACK ( local_communicator, grid%xlong, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
969 mytask, ntasks, ntasks_x, ntasks_y, &
970 ids, ide, jds, jde, 1 , 1 , &
971 ims, ime, jms, jme, 1 , 1 , &
972 ips, ipe, jps, jpe, 1 , 1 )
973 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlat_u, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 1, &
974 mytask, ntasks, ntasks_x, ntasks_y, &
975 ids, ide, jds, jde, 1 , 1 , &
976 ims, ime, jms, jme, 1 , 1 , &
977 ips, ipe, jps, jpe, 1 , 1 )
978 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlong_u, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 1, &
979 mytask, ntasks, ntasks_x, ntasks_y, &
980 ids, ide, jds, jde, 1 , 1 , &
981 ims, ime, jms, jme, 1 , 1 , &
982 ips, ipe, jps, jpe, 1 , 1 )
983 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlat_v, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
984 mytask, ntasks, ntasks_x, ntasks_y, &
985 ids, ide, jds, jde, 1 , 1 , &
986 ims, ime, jms, jme, 1 , 1 , &
987 ips, ipe, jps, jpe, 1 , 1 )
988 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlong_v, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
989 mytask, ntasks, ntasks_x, ntasks_y, &
990 ids, ide, jds, jde, 1 , 1 , &
991 ims, ime, jms, jme, 1 , 1 , &
992 ips, ipe, jps, jpe, 1 , 1 )
993 CALL RSL_LITE_PACK ( local_communicator, grid%tmn, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
994 mytask, ntasks, ntasks_x, ntasks_y, &
995 ids, ide, jds, jde, 1 , 1 , &
996 ims, ime, jms, jme, 1 , 1 , &
997 ips, ipe, jps, jpe, 1 , 1 )
998 CALL RSL_LITE_PACK ( local_communicator, grid%xland, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
999 mytask, ntasks, ntasks_x, ntasks_y, &
1000 ids, ide, jds, jde, 1 , 1 , &
1001 ims, ime, jms, jme, 1 , 1 , &
1002 ips, ipe, jps, jpe, 1 , 1 )
1003 CALL RSL_LITE_PACK ( local_communicator, grid%snowc, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
1004 mytask, ntasks, ntasks_x, ntasks_y, &
1005 ids, ide, jds, jde, 1 , 1 , &
1006 ims, ime, jms, jme, 1 , 1 , &
1007 ips, ipe, jps, jpe, 1 , 1 )
1008 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
1009 CALL RSL_LITE_PACK ( local_communicator, grid%lu_index, 4, RWORDSIZE, 1, 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%em_u_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
1015 mytask, ntasks, ntasks_x, ntasks_y, &
1016 ids, ide, jds, jde, kds, kde, &
1017 ims, ime, jms, jme, kms, kme, &
1018 ips, ipe, jps, jpe, kps, kpe )
1019 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
1020 mytask, ntasks, ntasks_x, ntasks_y, &
1021 ids, ide, jds, jde, kds, kde, &
1022 ims, ime, jms, jme, kms, kme, &
1023 ips, ipe, jps, jpe, kps, kpe )
1024 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
1025 mytask, ntasks, ntasks_x, ntasks_y, &
1026 ids, ide, jds, jde, kds, kde, &
1027 ims, ime, jms, jme, kms, kme, &
1028 ips, ipe, jps, jpe, kps, kpe )
1029 CALL RSL_LITE_PACK ( local_communicator, grid%em_v_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1030 mytask, ntasks, ntasks_x, ntasks_y, &
1031 ids, ide, jds, jde, kds, kde, &
1032 ims, ime, jms, jme, kms, kme, &
1033 ips, ipe, jps, jpe, kps, kpe )
1034 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1035 mytask, ntasks, ntasks_x, ntasks_y, &
1036 ids, ide, jds, jde, kds, kde, &
1037 ims, ime, jms, jme, kms, kme, &
1038 ips, ipe, jps, jpe, kps, kpe )
1039 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1040 mytask, ntasks, ntasks_x, ntasks_y, &
1041 ids, ide, jds, jde, kds, kde, &
1042 ims, ime, jms, jme, kms, kme, &
1043 ips, ipe, jps, jpe, kps, kpe )
1044 CALL RSL_LITE_PACK ( local_communicator, grid%em_w_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1045 mytask, ntasks, ntasks_x, ntasks_y, &
1046 ids, ide, jds, jde, kds, kde, &
1047 ims, ime, jms, jme, kms, kme, &
1048 ips, ipe, jps, jpe, kps, kpe )
1049 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1050 mytask, ntasks, ntasks_x, ntasks_y, &
1051 ids, ide, jds, jde, kds, kde, &
1052 ims, ime, jms, jme, kms, kme, &
1053 ips, ipe, jps, jpe, kps, kpe )
1054 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 4, RWORDSIZE, 1, 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 CALL RSL_LITE_PACK ( local_communicator, grid%em_ph_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1060 mytask, ntasks, ntasks_x, ntasks_y, &
1061 ids, ide, jds, jde, kds, kde, &
1062 ims, ime, jms, jme, kms, kme, &
1063 ips, ipe, jps, jpe, kps, kpe )
1064 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1065 mytask, ntasks, ntasks_x, ntasks_y, &
1066 ids, ide, jds, jde, kds, kde, &
1067 ims, ime, jms, jme, kms, kme, &
1068 ips, ipe, jps, jpe, kps, kpe )
1069 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1070 mytask, ntasks, ntasks_x, ntasks_y, &
1071 ids, ide, jds, jde, kds, kde, &
1072 ims, ime, jms, jme, kms, kme, &
1073 ips, ipe, jps, jpe, kps, kpe )
1074 CALL RSL_LITE_PACK ( local_communicator, grid%em_phb, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1075 mytask, ntasks, ntasks_x, ntasks_y, &
1076 ids, ide, jds, jde, kds, kde, &
1077 ims, ime, jms, jme, kms, kme, &
1078 ips, ipe, jps, jpe, kps, kpe )
1079 CALL RSL_LITE_PACK ( local_communicator, grid%em_t_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1080 mytask, ntasks, ntasks_x, ntasks_y, &
1081 ids, ide, jds, jde, kds, kde, &
1082 ims, ime, jms, jme, kms, kme, &
1083 ips, ipe, jps, jpe, kps, kpe )
1084 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1085 mytask, ntasks, ntasks_x, ntasks_y, &
1086 ids, ide, jds, jde, kds, kde, &
1087 ims, ime, jms, jme, kms, kme, &
1088 ips, ipe, jps, jpe, kps, kpe )
1089 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1090 mytask, ntasks, ntasks_x, ntasks_y, &
1091 ids, ide, jds, jde, kds, kde, &
1092 ims, ime, jms, jme, kms, kme, &
1093 ips, ipe, jps, jpe, kps, kpe )
1094 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1095 mytask, ntasks, ntasks_x, ntasks_y, &
1096 ids, ide, jds, jde, 1 , 1 , &
1097 ims, ime, jms, jme, 1 , 1 , &
1098 ips, ipe, jps, jpe, 1 , 1 )
1099 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1100 mytask, ntasks, ntasks_x, ntasks_y, &
1101 ids, ide, jds, jde, 1 , 1 , &
1102 ims, ime, jms, jme, 1 , 1 , &
1103 ips, ipe, jps, jpe, 1 , 1 )
1104 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1105 mytask, ntasks, ntasks_x, ntasks_y, &
1106 ids, ide, jds, jde, 1 , 1 , &
1107 ims, ime, jms, jme, 1 , 1 , &
1108 ips, ipe, jps, jpe, 1 , 1 )
1109 CALL RSL_LITE_PACK ( local_communicator, grid%em_mub, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1110 mytask, ntasks, ntasks_x, ntasks_y, &
1111 ids, ide, jds, jde, 1 , 1 , &
1112 ims, ime, jms, jme, 1 , 1 , &
1113 ips, ipe, jps, jpe, 1 , 1 )
1114 CALL RSL_LITE_PACK ( local_communicator, grid%em_mu0, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1115 mytask, ntasks, ntasks_x, ntasks_y, &
1116 ids, ide, jds, jde, 1 , 1 , &
1117 ims, ime, jms, jme, 1 , 1 , &
1118 ips, ipe, jps, jpe, 1 , 1 )
1119 DO itrace = PARAM_FIRST_SCALAR, num_moist
1120 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1121 mytask, ntasks, ntasks_x, ntasks_y, &
1122 ids, ide, jds, jde, kds, kde, &
1123 ims, ime, jms, jme, kms, kme, &
1124 ips, ipe, jps, jpe, kps, kpe )
1125 ENDDO
1126 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
1127 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1128 mytask, ntasks, ntasks_x, ntasks_y, &
1129 ids, ide, jds, jde, kds, kde, &
1130 ims, ime, jms, jme, kms, kme, &
1131 ips, ipe, jps, jpe, kps, kpe )
1132 ENDDO
1133 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
1134 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1135 mytask, ntasks, ntasks_x, ntasks_y, &
1136 ids, ide, jds, jde, kds, kde, &
1137 ims, ime, jms, jme, kms, kme, &
1138 ips, ipe, jps, jpe, kps, kpe )
1139 ENDDO
1140 DO itrace = PARAM_FIRST_SCALAR, num_scalar
1141 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1142 mytask, ntasks, ntasks_x, ntasks_y, &
1143 ids, ide, jds, jde, kds, kde, &
1144 ims, ime, jms, jme, kms, kme, &
1145 ips, ipe, jps, jpe, kps, kpe )
1146 ENDDO
1147 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1148 mytask, ntasks, ntasks_x, ntasks_y, &
1149 ids, ide, jds, jde, 1 , 1 , &
1150 ims, ime, jms, jme, 1 , 1 , &
1151 ips, ipe, jps, jpe, 1 , 1 )
1152 CALL RSL_LITE_PACK ( local_communicator, grid%tslb, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1153 mytask, ntasks, ntasks_x, ntasks_y, &
1154 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
1155 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
1156 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
1157 CALL RSL_LITE_PACK ( local_communicator, grid%smois, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1158 mytask, ntasks, ntasks_x, ntasks_y, &
1159 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
1160 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
1161 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
1162 CALL RSL_LITE_PACK ( local_communicator, grid%sh2o, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
1163 mytask, ntasks, ntasks_x, ntasks_y, &
1164 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
1165 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
1166 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
1167 CALL RSL_LITE_PACK ( local_communicator, grid%xice, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1168 mytask, ntasks, ntasks_x, ntasks_y, &
1169 ids, ide, jds, jde, 1 , 1 , &
1170 ims, ime, jms, jme, 1 , 1 , &
1171 ips, ipe, jps, jpe, 1 , 1 )
1172 CALL RSL_LITE_PACK ( local_communicator, grid%sfcrunoff, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1173 mytask, ntasks, ntasks_x, ntasks_y, &
1174 ids, ide, jds, jde, 1 , 1 , &
1175 ims, ime, jms, jme, 1 , 1 , &
1176 ips, ipe, jps, jpe, 1 , 1 )
1177 CALL RSL_LITE_PACK ( local_communicator, grid%udrunoff, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1178 mytask, ntasks, ntasks_x, ntasks_y, &
1179 ids, ide, jds, jde, 1 , 1 , &
1180 ims, ime, jms, jme, 1 , 1 , &
1181 ips, ipe, jps, jpe, 1 , 1 )
1182 CALL RSL_LITE_PACK ( local_communicator, grid%ivgtyp, 4, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1183 mytask, ntasks, ntasks_x, ntasks_y, &
1184 ids, ide, jds, jde, 1 , 1 , &
1185 ims, ime, jms, jme, 1 , 1 , &
1186 ips, ipe, jps, jpe, 1 , 1 )
1187 CALL RSL_LITE_PACK ( local_communicator, grid%isltyp, 4, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1188 mytask, ntasks, ntasks_x, ntasks_y, &
1189 ids, ide, jds, jde, 1 , 1 , &
1190 ims, ime, jms, jme, 1 , 1 , &
1191 ips, ipe, jps, jpe, 1 , 1 )
1192 CALL RSL_LITE_PACK ( local_communicator, grid%vegfra, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1193 mytask, ntasks, ntasks_x, ntasks_y, &
1194 ids, ide, jds, jde, 1 , 1 , &
1195 ims, ime, jms, jme, 1 , 1 , &
1196 ips, ipe, jps, jpe, 1 , 1 )
1197 CALL RSL_LITE_PACK ( local_communicator, grid%acsnow, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1198 mytask, ntasks, ntasks_x, ntasks_y, &
1199 ids, ide, jds, jde, 1 , 1 , &
1200 ims, ime, jms, jme, 1 , 1 , &
1201 ips, ipe, jps, jpe, 1 , 1 )
1202 CALL RSL_LITE_PACK ( local_communicator, grid%acsnom, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1203 mytask, ntasks, ntasks_x, ntasks_y, &
1204 ids, ide, jds, jde, 1 , 1 , &
1205 ims, ime, jms, jme, 1 , 1 , &
1206 ips, ipe, jps, jpe, 1 , 1 )
1207 CALL RSL_LITE_PACK ( local_communicator, grid%snow, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1208 mytask, ntasks, ntasks_x, ntasks_y, &
1209 ids, ide, jds, jde, 1 , 1 , &
1210 ims, ime, jms, jme, 1 , 1 , &
1211 ips, ipe, jps, jpe, 1 , 1 )
1212 CALL RSL_LITE_PACK ( local_communicator, grid%snowh, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1213 mytask, ntasks, ntasks_x, ntasks_y, &
1214 ids, ide, jds, jde, 1 , 1 , &
1215 ims, ime, jms, jme, 1 , 1 , &
1216 ips, ipe, jps, jpe, 1 , 1 )
1217 CALL RSL_LITE_PACK ( local_communicator, grid%rhosn, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1218 mytask, ntasks, ntasks_x, ntasks_y, &
1219 ids, ide, jds, jde, 1 , 1 , &
1220 ims, ime, jms, jme, 1 , 1 , &
1221 ips, ipe, jps, jpe, 1 , 1 )
1222 CALL RSL_LITE_PACK ( local_communicator, grid%canwat, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1223 mytask, ntasks, ntasks_x, ntasks_y, &
1224 ids, ide, jds, jde, 1 , 1 , &
1225 ims, ime, jms, jme, 1 , 1 , &
1226 ips, ipe, jps, jpe, 1 , 1 )
1227 CALL RSL_LITE_PACK ( local_communicator, grid%sst, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1228 mytask, ntasks, ntasks_x, ntasks_y, &
1229 ids, ide, jds, jde, 1 , 1 , &
1230 ims, ime, jms, jme, 1 , 1 , &
1231 ips, ipe, jps, jpe, 1 , 1 )
1232 CALL RSL_LITE_PACK ( local_communicator, grid%msft, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1233 mytask, ntasks, ntasks_x, ntasks_y, &
1234 ids, ide, jds, jde, 1 , 1 , &
1235 ims, ime, jms, jme, 1 , 1 , &
1236 ips, ipe, jps, jpe, 1 , 1 )
1237 CALL RSL_LITE_PACK ( local_communicator, grid%msfu, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 1, &
1238 mytask, ntasks, ntasks_x, ntasks_y, &
1239 ids, ide, jds, jde, 1 , 1 , &
1240 ims, ime, jms, jme, 1 , 1 , &
1241 ips, ipe, jps, jpe, 1 , 1 )
1242 CALL RSL_LITE_PACK ( local_communicator, grid%msfv, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1243 mytask, ntasks, ntasks_x, ntasks_y, &
1244 ids, ide, jds, jde, 1 , 1 , &
1245 ims, ime, jms, jme, 1 , 1 , &
1246 ips, ipe, jps, jpe, 1 , 1 )
1247 CALL RSL_LITE_PACK ( local_communicator, grid%f, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1248 mytask, ntasks, ntasks_x, ntasks_y, &
1249 ids, ide, jds, jde, 1 , 1 , &
1250 ims, ime, jms, jme, 1 , 1 , &
1251 ips, ipe, jps, jpe, 1 , 1 )
1252 CALL RSL_LITE_PACK ( local_communicator, grid%e, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1253 mytask, ntasks, ntasks_x, ntasks_y, &
1254 ids, ide, jds, jde, 1 , 1 , &
1255 ims, ime, jms, jme, 1 , 1 , &
1256 ips, ipe, jps, jpe, 1 , 1 )
1257 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1258 mytask, ntasks, ntasks_x, ntasks_y, &
1259 ids, ide, jds, jde, 1 , 1 , &
1260 ims, ime, jms, jme, 1 , 1 , &
1261 ips, ipe, jps, jpe, 1 , 1 )
1262 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1263 mytask, ntasks, ntasks_x, ntasks_y, &
1264 ids, ide, jds, jde, 1 , 1 , &
1265 ims, ime, jms, jme, 1 , 1 , &
1266 ips, ipe, jps, jpe, 1 , 1 )
1267 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1268 mytask, ntasks, ntasks_x, ntasks_y, &
1269 ids, ide, jds, jde, 1 , 1 , &
1270 ims, ime, jms, jme, 1 , 1 , &
1271 ips, ipe, jps, jpe, 1 , 1 )
1272 CALL RSL_LITE_PACK ( local_communicator, grid%tsk, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1273 mytask, ntasks, ntasks_x, ntasks_y, &
1274 ids, ide, jds, jde, 1 , 1 , &
1275 ims, ime, jms, jme, 1 , 1 , &
1276 ips, ipe, jps, jpe, 1 , 1 )
1277 CALL RSL_LITE_PACK ( local_communicator, grid%rainc, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1278 mytask, ntasks, ntasks_x, ntasks_y, &
1279 ids, ide, jds, jde, 1 , 1 , &
1280 ims, ime, jms, jme, 1 , 1 , &
1281 ips, ipe, jps, jpe, 1 , 1 )
1282 CALL RSL_LITE_PACK ( local_communicator, grid%rainnc, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1283 mytask, ntasks, ntasks_x, ntasks_y, &
1284 ids, ide, jds, jde, 1 , 1 , &
1285 ims, ime, jms, jme, 1 , 1 , &
1286 ips, ipe, jps, jpe, 1 , 1 )
1287 CALL RSL_LITE_PACK ( local_communicator, grid%xlat, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1288 mytask, ntasks, ntasks_x, ntasks_y, &
1289 ids, ide, jds, jde, 1 , 1 , &
1290 ims, ime, jms, jme, 1 , 1 , &
1291 ips, ipe, jps, jpe, 1 , 1 )
1292 CALL RSL_LITE_PACK ( local_communicator, grid%xlong, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1293 mytask, ntasks, ntasks_x, ntasks_y, &
1294 ids, ide, jds, jde, 1 , 1 , &
1295 ims, ime, jms, jme, 1 , 1 , &
1296 ips, ipe, jps, jpe, 1 , 1 )
1297 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlat_u, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 1, &
1298 mytask, ntasks, ntasks_x, ntasks_y, &
1299 ids, ide, jds, jde, 1 , 1 , &
1300 ims, ime, jms, jme, 1 , 1 , &
1301 ips, ipe, jps, jpe, 1 , 1 )
1302 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlong_u, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 1, &
1303 mytask, ntasks, ntasks_x, ntasks_y, &
1304 ids, ide, jds, jde, 1 , 1 , &
1305 ims, ime, jms, jme, 1 , 1 , &
1306 ips, ipe, jps, jpe, 1 , 1 )
1307 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlat_v, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1308 mytask, ntasks, ntasks_x, ntasks_y, &
1309 ids, ide, jds, jde, 1 , 1 , &
1310 ims, ime, jms, jme, 1 , 1 , &
1311 ips, ipe, jps, jpe, 1 , 1 )
1312 CALL RSL_LITE_PACK ( local_communicator, grid%em_xlong_v, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1313 mytask, ntasks, ntasks_x, ntasks_y, &
1314 ids, ide, jds, jde, 1 , 1 , &
1315 ims, ime, jms, jme, 1 , 1 , &
1316 ips, ipe, jps, jpe, 1 , 1 )
1317 CALL RSL_LITE_PACK ( local_communicator, grid%tmn, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1318 mytask, ntasks, ntasks_x, ntasks_y, &
1319 ids, ide, jds, jde, 1 , 1 , &
1320 ims, ime, jms, jme, 1 , 1 , &
1321 ips, ipe, jps, jpe, 1 , 1 )
1322 CALL RSL_LITE_PACK ( local_communicator, grid%xland, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1323 mytask, ntasks, ntasks_x, ntasks_y, &
1324 ids, ide, jds, jde, 1 , 1 , &
1325 ims, ime, jms, jme, 1 , 1 , &
1326 ips, ipe, jps, jpe, 1 , 1 )
1327 CALL RSL_LITE_PACK ( local_communicator, grid%snowc, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1328 mytask, ntasks, ntasks_x, ntasks_y, &
1329 ids, ide, jds, jde, 1 , 1 , &
1330 ims, ime, jms, jme, 1 , 1 , &
1331 ips, ipe, jps, jpe, 1 , 1 )
1332 !ENDOFREGISTRYGENERATEDINCLUDE