HALO_NODYN_INTERP_UP_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_NODYN_INTERP_UP_inline.inc'
2 !
3 ! WARNING This file is generated automatically by use_registry
4 ! using the data base in the file named Registry.
5 ! Do not edit. Your changes to this file will be lost.
6 !
7 CALL wrf_debug(2,'calling inc/HALO_NODYN_INTERP_UP_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 4, &
9 13 &
10 + num_moist &
11 + num_a_moist &
12 + num_g_moist &
13 + num_scalar &
14 , 30, 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%a_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%g_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%a_v_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 1, &
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%g_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_w_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
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_w_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
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%a_ph_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%g_ph_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%a_t_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%g_t_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_mu_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
79 mytask, ntasks, ntasks_x, ntasks_y, &
80 ids, ide, jds, jde, 1 , 1 , &
81 ims, ime, jms, jme, 1 , 1 , &
82 ips, ipe, jps, jpe, 1 , 1 )
83 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
84 mytask, ntasks, ntasks_x, ntasks_y, &
85 ids, ide, jds, jde, 1 , 1 , &
86 ims, ime, jms, jme, 1 , 1 , &
87 ips, ipe, jps, jpe, 1 , 1 )
88 CALL RSL_LITE_PACK ( local_communicator, grid%nest_pos, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
89 mytask, ntasks, ntasks_x, ntasks_y, &
90 ids, ide, jds, jde, 1 , 1 , &
91 ims, ime, jms, jme, 1 , 1 , &
92 ips, ipe, jps, jpe, 1 , 1 )
93 CALL RSL_LITE_PACK ( local_communicator, grid%nest_mask, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
94 mytask, ntasks, ntasks_x, ntasks_y, &
95 ids, ide, jds, jde, 1 , 1 , &
96 ims, ime, jms, jme, 1 , 1 , &
97 ips, ipe, jps, jpe, 1 , 1 )
98 DO itrace = PARAM_FIRST_SCALAR, num_moist
99 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
100 mytask, ntasks, ntasks_x, ntasks_y, &
101 ids, ide, jds, jde, kds, kde, &
102 ims, ime, jms, jme, kms, kme, &
103 ips, ipe, jps, jpe, kps, kpe )
104 ENDDO
105 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
106 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, 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 ENDDO
112 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
113 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
114 mytask, ntasks, ntasks_x, ntasks_y, &
115 ids, ide, jds, jde, kds, kde, &
116 ims, ime, jms, jme, kms, kme, &
117 ips, ipe, jps, jpe, kps, kpe )
118 ENDDO
119 DO itrace = PARAM_FIRST_SCALAR, num_scalar
120 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
121 mytask, ntasks, ntasks_x, ntasks_y, &
122 ids, ide, jds, jde, kds, kde, &
123 ims, ime, jms, jme, kms, kme, &
124 ips, ipe, jps, jpe, kps, kpe )
125 ENDDO
126 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
127 mytask, ntasks, ntasks_x, ntasks_y, &
128 ids, ide, jds, jde, 1 , 1 , &
129 ims, ime, jms, jme, 1 , 1 , &
130 ips, ipe, jps, jpe, 1 , 1 )
131 CALL RSL_LITE_PACK ( local_communicator, grid%tslb, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
132 mytask, ntasks, ntasks_x, ntasks_y, &
133 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
134 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
135 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
136 CALL RSL_LITE_PACK ( local_communicator, grid%smois, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
137 mytask, ntasks, ntasks_x, ntasks_y, &
138 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
139 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
140 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
141 CALL RSL_LITE_PACK ( local_communicator, grid%sh2o, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
142 mytask, ntasks, ntasks_x, ntasks_y, &
143 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
144 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
145 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
146 CALL RSL_LITE_PACK ( local_communicator, grid%xice, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
147 mytask, ntasks, ntasks_x, ntasks_y, &
148 ids, ide, jds, jde, 1 , 1 , &
149 ims, ime, jms, jme, 1 , 1 , &
150 ips, ipe, jps, jpe, 1 , 1 )
151 CALL RSL_LITE_PACK ( local_communicator, grid%ivgtyp, 4, IWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
152 mytask, ntasks, ntasks_x, ntasks_y, &
153 ids, ide, jds, jde, 1 , 1 , &
154 ims, ime, jms, jme, 1 , 1 , &
155 ips, ipe, jps, jpe, 1 , 1 )
156 CALL RSL_LITE_PACK ( local_communicator, grid%isltyp, 4, IWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
157 mytask, ntasks, ntasks_x, ntasks_y, &
158 ids, ide, jds, jde, 1 , 1 , &
159 ims, ime, jms, jme, 1 , 1 , &
160 ips, ipe, jps, jpe, 1 , 1 )
161 CALL RSL_LITE_PACK ( local_communicator, grid%vegfra, 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%acsnow, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
167 mytask, ntasks, ntasks_x, ntasks_y, &
168 ids, ide, jds, jde, 1 , 1 , &
169 ims, ime, jms, jme, 1 , 1 , &
170 ips, ipe, jps, jpe, 1 , 1 )
171 CALL RSL_LITE_PACK ( local_communicator, grid%acsnom, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
172 mytask, ntasks, ntasks_x, ntasks_y, &
173 ids, ide, jds, jde, 1 , 1 , &
174 ims, ime, jms, jme, 1 , 1 , &
175 ips, ipe, jps, jpe, 1 , 1 )
176 CALL RSL_LITE_PACK ( local_communicator, grid%snow, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
177 mytask, ntasks, ntasks_x, ntasks_y, &
178 ids, ide, jds, jde, 1 , 1 , &
179 ims, ime, jms, jme, 1 , 1 , &
180 ips, ipe, jps, jpe, 1 , 1 )
181 CALL RSL_LITE_PACK ( local_communicator, grid%snowh, 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%rhosn, 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%canwat, 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%msft, 4, 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%msfu, 4, 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%msfv, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 1, &
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%f, 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%e, 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%sina, 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%cosa, 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%ht, 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%tsk, 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%rainc, 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%rainnc, 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%xlat, 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%xlong, 4, 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%tmn, 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%xland, 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%snowc, 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_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
277 CALL RSL_LITE_PACK ( local_communicator, grid%lu_index, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
278 mytask, ntasks, ntasks_x, ntasks_y, &
279 ids, ide, jds, jde, 1 , 1 , &
280 ims, ime, jms, jme, 1 , 1 , &
281 ips, ipe, jps, jpe, 1 , 1 )
282 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
283 mytask, ntasks, ntasks_x, ntasks_y, &
284 ids, ide, jds, jde, kds, kde, &
285 ims, ime, jms, jme, kms, kme, &
286 ips, ipe, jps, jpe, kps, kpe )
287 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
288 mytask, ntasks, ntasks_x, ntasks_y, &
289 ids, ide, jds, jde, kds, kde, &
290 ims, ime, jms, jme, kms, kme, &
291 ips, ipe, jps, jpe, kps, kpe )
292 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
293 mytask, ntasks, ntasks_x, ntasks_y, &
294 ids, ide, jds, jde, kds, kde, &
295 ims, ime, jms, jme, kms, kme, &
296 ips, ipe, jps, jpe, kps, kpe )
297 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
298 mytask, ntasks, ntasks_x, ntasks_y, &
299 ids, ide, jds, jde, kds, kde, &
300 ims, ime, jms, jme, kms, kme, &
301 ips, ipe, jps, jpe, kps, kpe )
302 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
303 mytask, ntasks, ntasks_x, ntasks_y, &
304 ids, ide, jds, jde, kds, kde, &
305 ims, ime, jms, jme, kms, kme, &
306 ips, ipe, jps, jpe, kps, kpe )
307 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
308 mytask, ntasks, ntasks_x, ntasks_y, &
309 ids, ide, jds, jde, kds, kde, &
310 ims, ime, jms, jme, kms, kme, &
311 ips, ipe, jps, jpe, kps, kpe )
312 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
313 mytask, ntasks, ntasks_x, ntasks_y, &
314 ids, ide, jds, jde, kds, kde, &
315 ims, ime, jms, jme, kms, kme, &
316 ips, ipe, jps, jpe, kps, kpe )
317 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
318 mytask, ntasks, ntasks_x, ntasks_y, &
319 ids, ide, jds, jde, kds, kde, &
320 ims, ime, jms, jme, kms, kme, &
321 ips, ipe, jps, jpe, kps, kpe )
322 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
323 mytask, ntasks, ntasks_x, ntasks_y, &
324 ids, ide, jds, jde, kds, kde, &
325 ims, ime, jms, jme, kms, kme, &
326 ips, ipe, jps, jpe, kps, kpe )
327 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
328 mytask, ntasks, ntasks_x, ntasks_y, &
329 ids, ide, jds, jde, kds, kde, &
330 ims, ime, jms, jme, kms, kme, &
331 ips, ipe, jps, jpe, kps, kpe )
332 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
333 mytask, ntasks, ntasks_x, ntasks_y, &
334 ids, ide, jds, jde, 1 , 1 , &
335 ims, ime, jms, jme, 1 , 1 , &
336 ips, ipe, jps, jpe, 1 , 1 )
337 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
338 mytask, ntasks, ntasks_x, ntasks_y, &
339 ids, ide, jds, jde, 1 , 1 , &
340 ims, ime, jms, jme, 1 , 1 , &
341 ips, ipe, jps, jpe, 1 , 1 )
342 CALL RSL_LITE_PACK ( local_communicator, grid%nest_pos, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
343 mytask, ntasks, ntasks_x, ntasks_y, &
344 ids, ide, jds, jde, 1 , 1 , &
345 ims, ime, jms, jme, 1 , 1 , &
346 ips, ipe, jps, jpe, 1 , 1 )
347 CALL RSL_LITE_PACK ( local_communicator, grid%nest_mask, 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 DO itrace = PARAM_FIRST_SCALAR, num_moist
353 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
354 mytask, ntasks, ntasks_x, ntasks_y, &
355 ids, ide, jds, jde, kds, kde, &
356 ims, ime, jms, jme, kms, kme, &
357 ips, ipe, jps, jpe, kps, kpe )
358 ENDDO
359 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
360 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
361 mytask, ntasks, ntasks_x, ntasks_y, &
362 ids, ide, jds, jde, kds, kde, &
363 ims, ime, jms, jme, kms, kme, &
364 ips, ipe, jps, jpe, kps, kpe )
365 ENDDO
366 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
367 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
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 ENDDO
373 DO itrace = PARAM_FIRST_SCALAR, num_scalar
374 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
375 mytask, ntasks, ntasks_x, ntasks_y, &
376 ids, ide, jds, jde, kds, kde, &
377 ims, ime, jms, jme, kms, kme, &
378 ips, ipe, jps, jpe, kps, kpe )
379 ENDDO
380 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
381 mytask, ntasks, ntasks_x, ntasks_y, &
382 ids, ide, jds, jde, 1 , 1 , &
383 ims, ime, jms, jme, 1 , 1 , &
384 ips, ipe, jps, jpe, 1 , 1 )
385 CALL RSL_LITE_PACK ( local_communicator, grid%tslb, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
386 mytask, ntasks, ntasks_x, ntasks_y, &
387 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
388 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
389 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
390 CALL RSL_LITE_PACK ( local_communicator, grid%smois, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
391 mytask, ntasks, ntasks_x, ntasks_y, &
392 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
393 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
394 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
395 CALL RSL_LITE_PACK ( local_communicator, grid%sh2o, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
396 mytask, ntasks, ntasks_x, ntasks_y, &
397 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
398 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
399 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
400 CALL RSL_LITE_PACK ( local_communicator, grid%xice, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
401 mytask, ntasks, ntasks_x, ntasks_y, &
402 ids, ide, jds, jde, 1 , 1 , &
403 ims, ime, jms, jme, 1 , 1 , &
404 ips, ipe, jps, jpe, 1 , 1 )
405 CALL RSL_LITE_PACK ( local_communicator, grid%ivgtyp, 4, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
406 mytask, ntasks, ntasks_x, ntasks_y, &
407 ids, ide, jds, jde, 1 , 1 , &
408 ims, ime, jms, jme, 1 , 1 , &
409 ips, ipe, jps, jpe, 1 , 1 )
410 CALL RSL_LITE_PACK ( local_communicator, grid%isltyp, 4, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
411 mytask, ntasks, ntasks_x, ntasks_y, &
412 ids, ide, jds, jde, 1 , 1 , &
413 ims, ime, jms, jme, 1 , 1 , &
414 ips, ipe, jps, jpe, 1 , 1 )
415 CALL RSL_LITE_PACK ( local_communicator, grid%vegfra, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
416 mytask, ntasks, ntasks_x, ntasks_y, &
417 ids, ide, jds, jde, 1 , 1 , &
418 ims, ime, jms, jme, 1 , 1 , &
419 ips, ipe, jps, jpe, 1 , 1 )
420 CALL RSL_LITE_PACK ( local_communicator, grid%acsnow, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
421 mytask, ntasks, ntasks_x, ntasks_y, &
422 ids, ide, jds, jde, 1 , 1 , &
423 ims, ime, jms, jme, 1 , 1 , &
424 ips, ipe, jps, jpe, 1 , 1 )
425 CALL RSL_LITE_PACK ( local_communicator, grid%acsnom, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
426 mytask, ntasks, ntasks_x, ntasks_y, &
427 ids, ide, jds, jde, 1 , 1 , &
428 ims, ime, jms, jme, 1 , 1 , &
429 ips, ipe, jps, jpe, 1 , 1 )
430 CALL RSL_LITE_PACK ( local_communicator, grid%snow, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
431 mytask, ntasks, ntasks_x, ntasks_y, &
432 ids, ide, jds, jde, 1 , 1 , &
433 ims, ime, jms, jme, 1 , 1 , &
434 ips, ipe, jps, jpe, 1 , 1 )
435 CALL RSL_LITE_PACK ( local_communicator, grid%snowh, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
436 mytask, ntasks, ntasks_x, ntasks_y, &
437 ids, ide, jds, jde, 1 , 1 , &
438 ims, ime, jms, jme, 1 , 1 , &
439 ips, ipe, jps, jpe, 1 , 1 )
440 CALL RSL_LITE_PACK ( local_communicator, grid%rhosn, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
441 mytask, ntasks, ntasks_x, ntasks_y, &
442 ids, ide, jds, jde, 1 , 1 , &
443 ims, ime, jms, jme, 1 , 1 , &
444 ips, ipe, jps, jpe, 1 , 1 )
445 CALL RSL_LITE_PACK ( local_communicator, grid%canwat, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
446 mytask, ntasks, ntasks_x, ntasks_y, &
447 ids, ide, jds, jde, 1 , 1 , &
448 ims, ime, jms, jme, 1 , 1 , &
449 ips, ipe, jps, jpe, 1 , 1 )
450 CALL RSL_LITE_PACK ( local_communicator, grid%msft, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
451 mytask, ntasks, ntasks_x, ntasks_y, &
452 ids, ide, jds, jde, 1 , 1 , &
453 ims, ime, jms, jme, 1 , 1 , &
454 ips, ipe, jps, jpe, 1 , 1 )
455 CALL RSL_LITE_PACK ( local_communicator, grid%msfu, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
456 mytask, ntasks, ntasks_x, ntasks_y, &
457 ids, ide, jds, jde, 1 , 1 , &
458 ims, ime, jms, jme, 1 , 1 , &
459 ips, ipe, jps, jpe, 1 , 1 )
460 CALL RSL_LITE_PACK ( local_communicator, grid%msfv, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 1, &
461 mytask, ntasks, ntasks_x, ntasks_y, &
462 ids, ide, jds, jde, 1 , 1 , &
463 ims, ime, jms, jme, 1 , 1 , &
464 ips, ipe, jps, jpe, 1 , 1 )
465 CALL RSL_LITE_PACK ( local_communicator, grid%f, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
466 mytask, ntasks, ntasks_x, ntasks_y, &
467 ids, ide, jds, jde, 1 , 1 , &
468 ims, ime, jms, jme, 1 , 1 , &
469 ips, ipe, jps, jpe, 1 , 1 )
470 CALL RSL_LITE_PACK ( local_communicator, grid%e, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
471 mytask, ntasks, ntasks_x, ntasks_y, &
472 ids, ide, jds, jde, 1 , 1 , &
473 ims, ime, jms, jme, 1 , 1 , &
474 ips, ipe, jps, jpe, 1 , 1 )
475 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
476 mytask, ntasks, ntasks_x, ntasks_y, &
477 ids, ide, jds, jde, 1 , 1 , &
478 ims, ime, jms, jme, 1 , 1 , &
479 ips, ipe, jps, jpe, 1 , 1 )
480 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
481 mytask, ntasks, ntasks_x, ntasks_y, &
482 ids, ide, jds, jde, 1 , 1 , &
483 ims, ime, jms, jme, 1 , 1 , &
484 ips, ipe, jps, jpe, 1 , 1 )
485 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 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%tsk, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
491 mytask, ntasks, ntasks_x, ntasks_y, &
492 ids, ide, jds, jde, 1 , 1 , &
493 ims, ime, jms, jme, 1 , 1 , &
494 ips, ipe, jps, jpe, 1 , 1 )
495 CALL RSL_LITE_PACK ( local_communicator, grid%rainc, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
496 mytask, ntasks, ntasks_x, ntasks_y, &
497 ids, ide, jds, jde, 1 , 1 , &
498 ims, ime, jms, jme, 1 , 1 , &
499 ips, ipe, jps, jpe, 1 , 1 )
500 CALL RSL_LITE_PACK ( local_communicator, grid%rainnc, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
501 mytask, ntasks, ntasks_x, ntasks_y, &
502 ids, ide, jds, jde, 1 , 1 , &
503 ims, ime, jms, jme, 1 , 1 , &
504 ips, ipe, jps, jpe, 1 , 1 )
505 CALL RSL_LITE_PACK ( local_communicator, grid%xlat, 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%xlong, 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%tmn, 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%xland, 4, RWORDSIZE, 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%snowc, 4, RWORDSIZE, 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_INIT_EXCH ( local_communicator, 4 , &
531 13 &
532 + num_moist &
533 + num_a_moist &
534 + num_g_moist &
535 + num_scalar &
536 , 30, RWORDSIZE, &
537 0, 2, IWORDSIZE, &
538 0, 0, DWORDSIZE, &
539 0, 0, LWORDSIZE, &
540 mytask, ntasks, ntasks_x, ntasks_y, &
541 ips, ipe, jps, jpe, kps, MAX(1,1&
542 ,kpe &
543 ,config_flags%num_soil_layers &
544 ))
545 CALL RSL_LITE_PACK ( local_communicator, grid%lu_index, 4, RWORDSIZE, 1, 0, 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%a_u_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
551 mytask, ntasks, ntasks_x, ntasks_y, &
552 ids, ide, jds, jde, kds, kde, &
553 ims, ime, jms, jme, kms, kme, &
554 ips, ipe, jps, jpe, kps, kpe )
555 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
556 mytask, ntasks, ntasks_x, ntasks_y, &
557 ids, ide, jds, jde, kds, kde, &
558 ims, ime, jms, jme, kms, kme, &
559 ips, ipe, jps, jpe, kps, kpe )
560 CALL RSL_LITE_PACK ( local_communicator, grid%a_v_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
561 mytask, ntasks, ntasks_x, ntasks_y, &
562 ids, ide, jds, jde, kds, kde, &
563 ims, ime, jms, jme, kms, kme, &
564 ips, ipe, jps, jpe, kps, kpe )
565 CALL RSL_LITE_PACK ( local_communicator, grid%g_v_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
566 mytask, ntasks, ntasks_x, ntasks_y, &
567 ids, ide, jds, jde, kds, kde, &
568 ims, ime, jms, jme, kms, kme, &
569 ips, ipe, jps, jpe, kps, kpe )
570 CALL RSL_LITE_PACK ( local_communicator, grid%a_w_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
571 mytask, ntasks, ntasks_x, ntasks_y, &
572 ids, ide, jds, jde, kds, kde, &
573 ims, ime, jms, jme, kms, kme, &
574 ips, ipe, jps, jpe, kps, kpe )
575 CALL RSL_LITE_PACK ( local_communicator, grid%g_w_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
576 mytask, ntasks, ntasks_x, ntasks_y, &
577 ids, ide, jds, jde, kds, kde, &
578 ims, ime, jms, jme, kms, kme, &
579 ips, ipe, jps, jpe, kps, kpe )
580 CALL RSL_LITE_PACK ( local_communicator, grid%a_ph_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
581 mytask, ntasks, ntasks_x, ntasks_y, &
582 ids, ide, jds, jde, kds, kde, &
583 ims, ime, jms, jme, kms, kme, &
584 ips, ipe, jps, jpe, kps, kpe )
585 CALL RSL_LITE_PACK ( local_communicator, grid%g_ph_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
586 mytask, ntasks, ntasks_x, ntasks_y, &
587 ids, ide, jds, jde, kds, kde, &
588 ims, ime, jms, jme, kms, kme, &
589 ips, ipe, jps, jpe, kps, kpe )
590 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
591 mytask, ntasks, ntasks_x, ntasks_y, &
592 ids, ide, jds, jde, kds, kde, &
593 ims, ime, jms, jme, kms, kme, &
594 ips, ipe, jps, jpe, kps, kpe )
595 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
596 mytask, ntasks, ntasks_x, ntasks_y, &
597 ids, ide, jds, jde, kds, kde, &
598 ims, ime, jms, jme, kms, kme, &
599 ips, ipe, jps, jpe, kps, kpe )
600 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 4, RWORDSIZE, 1, 0, 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%g_mu_2, 4, RWORDSIZE, 1, 0, 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%nest_pos, 4, RWORDSIZE, 1, 0, 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%nest_mask, 4, RWORDSIZE, 1, 0, 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 DO itrace = PARAM_FIRST_SCALAR, num_moist
621 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
622 mytask, ntasks, ntasks_x, ntasks_y, &
623 ids, ide, jds, jde, kds, kde, &
624 ims, ime, jms, jme, kms, kme, &
625 ips, ipe, jps, jpe, kps, kpe )
626 ENDDO
627 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
628 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
629 mytask, ntasks, ntasks_x, ntasks_y, &
630 ids, ide, jds, jde, kds, kde, &
631 ims, ime, jms, jme, kms, kme, &
632 ips, ipe, jps, jpe, kps, kpe )
633 ENDDO
634 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
635 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
636 mytask, ntasks, ntasks_x, ntasks_y, &
637 ids, ide, jds, jde, kds, kde, &
638 ims, ime, jms, jme, kms, kme, &
639 ips, ipe, jps, jpe, kps, kpe )
640 ENDDO
641 DO itrace = PARAM_FIRST_SCALAR, num_scalar
642 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
643 mytask, ntasks, ntasks_x, ntasks_y, &
644 ids, ide, jds, jde, kds, kde, &
645 ims, ime, jms, jme, kms, kme, &
646 ips, ipe, jps, jpe, kps, kpe )
647 ENDDO
648 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 4, RWORDSIZE, 1, 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%tslb, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
654 mytask, ntasks, ntasks_x, ntasks_y, &
655 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
656 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
657 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
658 CALL RSL_LITE_PACK ( local_communicator, grid%smois, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
659 mytask, ntasks, ntasks_x, ntasks_y, &
660 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
661 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
662 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
663 CALL RSL_LITE_PACK ( local_communicator, grid%sh2o, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
664 mytask, ntasks, ntasks_x, ntasks_y, &
665 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
666 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
667 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
668 CALL RSL_LITE_PACK ( local_communicator, grid%xice, 4, RWORDSIZE, 1, 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%ivgtyp, 4, IWORDSIZE, 1, 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%isltyp, 4, IWORDSIZE, 1, 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%vegfra, 4, RWORDSIZE, 1, 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%acsnow, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
689 mytask, ntasks, ntasks_x, ntasks_y, &
690 ids, ide, jds, jde, 1 , 1 , &
691 ims, ime, jms, jme, 1 , 1 , &
692 ips, ipe, jps, jpe, 1 , 1 )
693 CALL RSL_LITE_PACK ( local_communicator, grid%acsnom, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
694 mytask, ntasks, ntasks_x, ntasks_y, &
695 ids, ide, jds, jde, 1 , 1 , &
696 ims, ime, jms, jme, 1 , 1 , &
697 ips, ipe, jps, jpe, 1 , 1 )
698 CALL RSL_LITE_PACK ( local_communicator, grid%snow, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
699 mytask, ntasks, ntasks_x, ntasks_y, &
700 ids, ide, jds, jde, 1 , 1 , &
701 ims, ime, jms, jme, 1 , 1 , &
702 ips, ipe, jps, jpe, 1 , 1 )
703 CALL RSL_LITE_PACK ( local_communicator, grid%snowh, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
704 mytask, ntasks, ntasks_x, ntasks_y, &
705 ids, ide, jds, jde, 1 , 1 , &
706 ims, ime, jms, jme, 1 , 1 , &
707 ips, ipe, jps, jpe, 1 , 1 )
708 CALL RSL_LITE_PACK ( local_communicator, grid%rhosn, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
709 mytask, ntasks, ntasks_x, ntasks_y, &
710 ids, ide, jds, jde, 1 , 1 , &
711 ims, ime, jms, jme, 1 , 1 , &
712 ips, ipe, jps, jpe, 1 , 1 )
713 CALL RSL_LITE_PACK ( local_communicator, grid%canwat, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
714 mytask, ntasks, ntasks_x, ntasks_y, &
715 ids, ide, jds, jde, 1 , 1 , &
716 ims, ime, jms, jme, 1 , 1 , &
717 ips, ipe, jps, jpe, 1 , 1 )
718 CALL RSL_LITE_PACK ( local_communicator, grid%msft, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
719 mytask, ntasks, ntasks_x, ntasks_y, &
720 ids, ide, jds, jde, 1 , 1 , &
721 ims, ime, jms, jme, 1 , 1 , &
722 ips, ipe, jps, jpe, 1 , 1 )
723 CALL RSL_LITE_PACK ( local_communicator, grid%msfu, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 1, &
724 mytask, ntasks, ntasks_x, ntasks_y, &
725 ids, ide, jds, jde, 1 , 1 , &
726 ims, ime, jms, jme, 1 , 1 , &
727 ips, ipe, jps, jpe, 1 , 1 )
728 CALL RSL_LITE_PACK ( local_communicator, grid%msfv, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
729 mytask, ntasks, ntasks_x, ntasks_y, &
730 ids, ide, jds, jde, 1 , 1 , &
731 ims, ime, jms, jme, 1 , 1 , &
732 ips, ipe, jps, jpe, 1 , 1 )
733 CALL RSL_LITE_PACK ( local_communicator, grid%f, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
734 mytask, ntasks, ntasks_x, ntasks_y, &
735 ids, ide, jds, jde, 1 , 1 , &
736 ims, ime, jms, jme, 1 , 1 , &
737 ips, ipe, jps, jpe, 1 , 1 )
738 CALL RSL_LITE_PACK ( local_communicator, grid%e, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
739 mytask, ntasks, ntasks_x, ntasks_y, &
740 ids, ide, jds, jde, 1 , 1 , &
741 ims, ime, jms, jme, 1 , 1 , &
742 ips, ipe, jps, jpe, 1 , 1 )
743 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
744 mytask, ntasks, ntasks_x, ntasks_y, &
745 ids, ide, jds, jde, 1 , 1 , &
746 ims, ime, jms, jme, 1 , 1 , &
747 ips, ipe, jps, jpe, 1 , 1 )
748 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
749 mytask, ntasks, ntasks_x, ntasks_y, &
750 ids, ide, jds, jde, 1 , 1 , &
751 ims, ime, jms, jme, 1 , 1 , &
752 ips, ipe, jps, jpe, 1 , 1 )
753 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
754 mytask, ntasks, ntasks_x, ntasks_y, &
755 ids, ide, jds, jde, 1 , 1 , &
756 ims, ime, jms, jme, 1 , 1 , &
757 ips, ipe, jps, jpe, 1 , 1 )
758 CALL RSL_LITE_PACK ( local_communicator, grid%tsk, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
759 mytask, ntasks, ntasks_x, ntasks_y, &
760 ids, ide, jds, jde, 1 , 1 , &
761 ims, ime, jms, jme, 1 , 1 , &
762 ips, ipe, jps, jpe, 1 , 1 )
763 CALL RSL_LITE_PACK ( local_communicator, grid%rainc, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
764 mytask, ntasks, ntasks_x, ntasks_y, &
765 ids, ide, jds, jde, 1 , 1 , &
766 ims, ime, jms, jme, 1 , 1 , &
767 ips, ipe, jps, jpe, 1 , 1 )
768 CALL RSL_LITE_PACK ( local_communicator, grid%rainnc, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
769 mytask, ntasks, ntasks_x, ntasks_y, &
770 ids, ide, jds, jde, 1 , 1 , &
771 ims, ime, jms, jme, 1 , 1 , &
772 ips, ipe, jps, jpe, 1 , 1 )
773 CALL RSL_LITE_PACK ( local_communicator, grid%xlat, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
774 mytask, ntasks, ntasks_x, ntasks_y, &
775 ids, ide, jds, jde, 1 , 1 , &
776 ims, ime, jms, jme, 1 , 1 , &
777 ips, ipe, jps, jpe, 1 , 1 )
778 CALL RSL_LITE_PACK ( local_communicator, grid%xlong, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
779 mytask, ntasks, ntasks_x, ntasks_y, &
780 ids, ide, jds, jde, 1 , 1 , &
781 ims, ime, jms, jme, 1 , 1 , &
782 ips, ipe, jps, jpe, 1 , 1 )
783 CALL RSL_LITE_PACK ( local_communicator, grid%tmn, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
784 mytask, ntasks, ntasks_x, ntasks_y, &
785 ids, ide, jds, jde, 1 , 1 , &
786 ims, ime, jms, jme, 1 , 1 , &
787 ips, ipe, jps, jpe, 1 , 1 )
788 CALL RSL_LITE_PACK ( local_communicator, grid%xland, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
789 mytask, ntasks, ntasks_x, ntasks_y, &
790 ids, ide, jds, jde, 1 , 1 , &
791 ims, ime, jms, jme, 1 , 1 , &
792 ips, ipe, jps, jpe, 1 , 1 )
793 CALL RSL_LITE_PACK ( local_communicator, grid%snowc, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
794 mytask, ntasks, ntasks_x, ntasks_y, &
795 ids, ide, jds, jde, 1 , 1 , &
796 ims, ime, jms, jme, 1 , 1 , &
797 ips, ipe, jps, jpe, 1 , 1 )
798 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
799 CALL RSL_LITE_PACK ( local_communicator, grid%lu_index, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
800 mytask, ntasks, ntasks_x, ntasks_y, &
801 ids, ide, jds, jde, 1 , 1 , &
802 ims, ime, jms, jme, 1 , 1 , &
803 ips, ipe, jps, jpe, 1 , 1 )
804 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
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%g_u_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
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_v_2, 4, RWORDSIZE, 1, 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_v_2, 4, RWORDSIZE, 1, 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%a_w_2, 4, RWORDSIZE, 1, 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%g_w_2, 4, RWORDSIZE, 1, 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%a_ph_2, 4, RWORDSIZE, 1, 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%g_ph_2, 4, RWORDSIZE, 1, 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_t_2, 4, RWORDSIZE, 1, 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_t_2, 4, RWORDSIZE, 1, 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%a_mu_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
855 mytask, ntasks, ntasks_x, ntasks_y, &
856 ids, ide, jds, jde, 1 , 1 , &
857 ims, ime, jms, jme, 1 , 1 , &
858 ips, ipe, jps, jpe, 1 , 1 )
859 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
860 mytask, ntasks, ntasks_x, ntasks_y, &
861 ids, ide, jds, jde, 1 , 1 , &
862 ims, ime, jms, jme, 1 , 1 , &
863 ips, ipe, jps, jpe, 1 , 1 )
864 CALL RSL_LITE_PACK ( local_communicator, grid%nest_pos, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
865 mytask, ntasks, ntasks_x, ntasks_y, &
866 ids, ide, jds, jde, 1 , 1 , &
867 ims, ime, jms, jme, 1 , 1 , &
868 ips, ipe, jps, jpe, 1 , 1 )
869 CALL RSL_LITE_PACK ( local_communicator, grid%nest_mask, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
870 mytask, ntasks, ntasks_x, ntasks_y, &
871 ids, ide, jds, jde, 1 , 1 , &
872 ims, ime, jms, jme, 1 , 1 , &
873 ips, ipe, jps, jpe, 1 , 1 )
874 DO itrace = PARAM_FIRST_SCALAR, num_moist
875 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
876 mytask, ntasks, ntasks_x, ntasks_y, &
877 ids, ide, jds, jde, kds, kde, &
878 ims, ime, jms, jme, kms, kme, &
879 ips, ipe, jps, jpe, kps, kpe )
880 ENDDO
881 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
882 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
883 mytask, ntasks, ntasks_x, ntasks_y, &
884 ids, ide, jds, jde, kds, kde, &
885 ims, ime, jms, jme, kms, kme, &
886 ips, ipe, jps, jpe, kps, kpe )
887 ENDDO
888 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
889 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 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 ENDDO
895 DO itrace = PARAM_FIRST_SCALAR, num_scalar
896 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
897 mytask, ntasks, ntasks_x, ntasks_y, &
898 ids, ide, jds, jde, kds, kde, &
899 ims, ime, jms, jme, kms, kme, &
900 ips, ipe, jps, jpe, kps, kpe )
901 ENDDO
902 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
903 mytask, ntasks, ntasks_x, ntasks_y, &
904 ids, ide, jds, jde, 1 , 1 , &
905 ims, ime, jms, jme, 1 , 1 , &
906 ips, ipe, jps, jpe, 1 , 1 )
907 CALL RSL_LITE_PACK ( local_communicator, grid%tslb, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
908 mytask, ntasks, ntasks_x, ntasks_y, &
909 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
910 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
911 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
912 CALL RSL_LITE_PACK ( local_communicator, grid%smois, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
913 mytask, ntasks, ntasks_x, ntasks_y, &
914 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
915 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
916 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
917 CALL RSL_LITE_PACK ( local_communicator, grid%sh2o, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
918 mytask, ntasks, ntasks_x, ntasks_y, &
919 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
920 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
921 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
922 CALL RSL_LITE_PACK ( local_communicator, grid%xice, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
923 mytask, ntasks, ntasks_x, ntasks_y, &
924 ids, ide, jds, jde, 1 , 1 , &
925 ims, ime, jms, jme, 1 , 1 , &
926 ips, ipe, jps, jpe, 1 , 1 )
927 CALL RSL_LITE_PACK ( local_communicator, grid%ivgtyp, 4, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
928 mytask, ntasks, ntasks_x, ntasks_y, &
929 ids, ide, jds, jde, 1 , 1 , &
930 ims, ime, jms, jme, 1 , 1 , &
931 ips, ipe, jps, jpe, 1 , 1 )
932 CALL RSL_LITE_PACK ( local_communicator, grid%isltyp, 4, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
933 mytask, ntasks, ntasks_x, ntasks_y, &
934 ids, ide, jds, jde, 1 , 1 , &
935 ims, ime, jms, jme, 1 , 1 , &
936 ips, ipe, jps, jpe, 1 , 1 )
937 CALL RSL_LITE_PACK ( local_communicator, grid%vegfra, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
938 mytask, ntasks, ntasks_x, ntasks_y, &
939 ids, ide, jds, jde, 1 , 1 , &
940 ims, ime, jms, jme, 1 , 1 , &
941 ips, ipe, jps, jpe, 1 , 1 )
942 CALL RSL_LITE_PACK ( local_communicator, grid%acsnow, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
943 mytask, ntasks, ntasks_x, ntasks_y, &
944 ids, ide, jds, jde, 1 , 1 , &
945 ims, ime, jms, jme, 1 , 1 , &
946 ips, ipe, jps, jpe, 1 , 1 )
947 CALL RSL_LITE_PACK ( local_communicator, grid%acsnom, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
948 mytask, ntasks, ntasks_x, ntasks_y, &
949 ids, ide, jds, jde, 1 , 1 , &
950 ims, ime, jms, jme, 1 , 1 , &
951 ips, ipe, jps, jpe, 1 , 1 )
952 CALL RSL_LITE_PACK ( local_communicator, grid%snow, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
953 mytask, ntasks, ntasks_x, ntasks_y, &
954 ids, ide, jds, jde, 1 , 1 , &
955 ims, ime, jms, jme, 1 , 1 , &
956 ips, ipe, jps, jpe, 1 , 1 )
957 CALL RSL_LITE_PACK ( local_communicator, grid%snowh, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
958 mytask, ntasks, ntasks_x, ntasks_y, &
959 ids, ide, jds, jde, 1 , 1 , &
960 ims, ime, jms, jme, 1 , 1 , &
961 ips, ipe, jps, jpe, 1 , 1 )
962 CALL RSL_LITE_PACK ( local_communicator, grid%rhosn, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
963 mytask, ntasks, ntasks_x, ntasks_y, &
964 ids, ide, jds, jde, 1 , 1 , &
965 ims, ime, jms, jme, 1 , 1 , &
966 ips, ipe, jps, jpe, 1 , 1 )
967 CALL RSL_LITE_PACK ( local_communicator, grid%canwat, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
968 mytask, ntasks, ntasks_x, ntasks_y, &
969 ids, ide, jds, jde, 1 , 1 , &
970 ims, ime, jms, jme, 1 , 1 , &
971 ips, ipe, jps, jpe, 1 , 1 )
972 CALL RSL_LITE_PACK ( local_communicator, grid%msft, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
973 mytask, ntasks, ntasks_x, ntasks_y, &
974 ids, ide, jds, jde, 1 , 1 , &
975 ims, ime, jms, jme, 1 , 1 , &
976 ips, ipe, jps, jpe, 1 , 1 )
977 CALL RSL_LITE_PACK ( local_communicator, grid%msfu, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 1, &
978 mytask, ntasks, ntasks_x, ntasks_y, &
979 ids, ide, jds, jde, 1 , 1 , &
980 ims, ime, jms, jme, 1 , 1 , &
981 ips, ipe, jps, jpe, 1 , 1 )
982 CALL RSL_LITE_PACK ( local_communicator, grid%msfv, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
983 mytask, ntasks, ntasks_x, ntasks_y, &
984 ids, ide, jds, jde, 1 , 1 , &
985 ims, ime, jms, jme, 1 , 1 , &
986 ips, ipe, jps, jpe, 1 , 1 )
987 CALL RSL_LITE_PACK ( local_communicator, grid%f, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
988 mytask, ntasks, ntasks_x, ntasks_y, &
989 ids, ide, jds, jde, 1 , 1 , &
990 ims, ime, jms, jme, 1 , 1 , &
991 ips, ipe, jps, jpe, 1 , 1 )
992 CALL RSL_LITE_PACK ( local_communicator, grid%e, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
993 mytask, ntasks, ntasks_x, ntasks_y, &
994 ids, ide, jds, jde, 1 , 1 , &
995 ims, ime, jms, jme, 1 , 1 , &
996 ips, ipe, jps, jpe, 1 , 1 )
997 CALL RSL_LITE_PACK ( local_communicator, grid%sina, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
998 mytask, ntasks, ntasks_x, ntasks_y, &
999 ids, ide, jds, jde, 1 , 1 , &
1000 ims, ime, jms, jme, 1 , 1 , &
1001 ips, ipe, jps, jpe, 1 , 1 )
1002 CALL RSL_LITE_PACK ( local_communicator, grid%cosa, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1003 mytask, ntasks, ntasks_x, ntasks_y, &
1004 ids, ide, jds, jde, 1 , 1 , &
1005 ims, ime, jms, jme, 1 , 1 , &
1006 ips, ipe, jps, jpe, 1 , 1 )
1007 CALL RSL_LITE_PACK ( local_communicator, grid%ht, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1008 mytask, ntasks, ntasks_x, ntasks_y, &
1009 ids, ide, jds, jde, 1 , 1 , &
1010 ims, ime, jms, jme, 1 , 1 , &
1011 ips, ipe, jps, jpe, 1 , 1 )
1012 CALL RSL_LITE_PACK ( local_communicator, grid%tsk, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1013 mytask, ntasks, ntasks_x, ntasks_y, &
1014 ids, ide, jds, jde, 1 , 1 , &
1015 ims, ime, jms, jme, 1 , 1 , &
1016 ips, ipe, jps, jpe, 1 , 1 )
1017 CALL RSL_LITE_PACK ( local_communicator, grid%rainc, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1018 mytask, ntasks, ntasks_x, ntasks_y, &
1019 ids, ide, jds, jde, 1 , 1 , &
1020 ims, ime, jms, jme, 1 , 1 , &
1021 ips, ipe, jps, jpe, 1 , 1 )
1022 CALL RSL_LITE_PACK ( local_communicator, grid%rainnc, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1023 mytask, ntasks, ntasks_x, ntasks_y, &
1024 ids, ide, jds, jde, 1 , 1 , &
1025 ims, ime, jms, jme, 1 , 1 , &
1026 ips, ipe, jps, jpe, 1 , 1 )
1027 CALL RSL_LITE_PACK ( local_communicator, grid%xlat, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1028 mytask, ntasks, ntasks_x, ntasks_y, &
1029 ids, ide, jds, jde, 1 , 1 , &
1030 ims, ime, jms, jme, 1 , 1 , &
1031 ips, ipe, jps, jpe, 1 , 1 )
1032 CALL RSL_LITE_PACK ( local_communicator, grid%xlong, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1033 mytask, ntasks, ntasks_x, ntasks_y, &
1034 ids, ide, jds, jde, 1 , 1 , &
1035 ims, ime, jms, jme, 1 , 1 , &
1036 ips, ipe, jps, jpe, 1 , 1 )
1037 CALL RSL_LITE_PACK ( local_communicator, grid%tmn, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1038 mytask, ntasks, ntasks_x, ntasks_y, &
1039 ids, ide, jds, jde, 1 , 1 , &
1040 ims, ime, jms, jme, 1 , 1 , &
1041 ips, ipe, jps, jpe, 1 , 1 )
1042 CALL RSL_LITE_PACK ( local_communicator, grid%xland, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1043 mytask, ntasks, ntasks_x, ntasks_y, &
1044 ids, ide, jds, jde, 1 , 1 , &
1045 ims, ime, jms, jme, 1 , 1 , &
1046 ips, ipe, jps, jpe, 1 , 1 )
1047 CALL RSL_LITE_PACK ( local_communicator, grid%snowc, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1048 mytask, ntasks, ntasks_x, ntasks_y, &
1049 ids, ide, jds, jde, 1 , 1 , &
1050 ims, ime, jms, jme, 1 , 1 , &
1051 ips, ipe, jps, jpe, 1 , 1 )
1052 !ENDOFREGISTRYGENERATEDINCLUDE