HALO_NODYN_INTERP_DOWN_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_NODYN_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_NODYN_INTERP_DOWN_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 , 31, 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 DO itrace = PARAM_FIRST_SCALAR, num_moist
89 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
90 mytask, ntasks, ntasks_x, ntasks_y, &
91 ids, ide, jds, jde, kds, kde, &
92 ims, ime, jms, jme, kms, kme, &
93 ips, ipe, jps, jpe, kps, kpe )
94 ENDDO
95 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
96 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
97 mytask, ntasks, ntasks_x, ntasks_y, &
98 ids, ide, jds, jde, kds, kde, &
99 ims, ime, jms, jme, kms, kme, &
100 ips, ipe, jps, jpe, kps, kpe )
101 ENDDO
102 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
103 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 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 ENDDO
109 DO itrace = PARAM_FIRST_SCALAR, num_scalar
110 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
111 mytask, ntasks, ntasks_x, ntasks_y, &
112 ids, ide, jds, jde, kds, kde, &
113 ims, ime, jms, jme, kms, kme, &
114 ips, ipe, jps, jpe, kps, kpe )
115 ENDDO
116 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
117 mytask, ntasks, ntasks_x, ntasks_y, &
118 ids, ide, jds, jde, 1 , 1 , &
119 ims, ime, jms, jme, 1 , 1 , &
120 ips, ipe, jps, jpe, 1 , 1 )
121 CALL RSL_LITE_PACK ( local_communicator, grid%tslb, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
122 mytask, ntasks, ntasks_x, ntasks_y, &
123 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
124 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
125 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
126 CALL RSL_LITE_PACK ( local_communicator, grid%smois, 4, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
127 mytask, ntasks, ntasks_x, ntasks_y, &
128 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
129 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
130 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
131 CALL RSL_LITE_PACK ( local_communicator, grid%sh2o, 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%xice, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
137 mytask, ntasks, ntasks_x, ntasks_y, &
138 ids, ide, jds, jde, 1 , 1 , &
139 ims, ime, jms, jme, 1 , 1 , &
140 ips, ipe, jps, jpe, 1 , 1 )
141 CALL RSL_LITE_PACK ( local_communicator, grid%sfcrunoff, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
142 mytask, ntasks, ntasks_x, ntasks_y, &
143 ids, ide, jds, jde, 1 , 1 , &
144 ims, ime, jms, jme, 1 , 1 , &
145 ips, ipe, jps, jpe, 1 , 1 )
146 CALL RSL_LITE_PACK ( local_communicator, grid%udrunoff, 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%sst, 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%msft, 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%msfu, 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%msfv, 4, RWORDSIZE, 0, 0, DATA_ORDER_XY, 1, &
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%f, 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%e, 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%sina, 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%cosa, 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%ht, 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%tsk, 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%rainc, 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%rainnc, 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%xlat, 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%xlong, 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%tmn, 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%xland, 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%snowc, 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_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
282 CALL RSL_LITE_PACK ( local_communicator, grid%lu_index, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
283 mytask, ntasks, ntasks_x, ntasks_y, &
284 ids, ide, jds, jde, 1 , 1 , &
285 ims, ime, jms, jme, 1 , 1 , &
286 ips, ipe, jps, jpe, 1 , 1 )
287 CALL RSL_LITE_PACK ( local_communicator, grid%a_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%g_u_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
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%a_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%g_v_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 1, &
303 mytask, ntasks, ntasks_x, ntasks_y, &
304 ids, ide, jds, jde, kds, kde, &
305 ims, ime, jms, jme, kms, kme, &
306 ips, ipe, jps, jpe, kps, kpe )
307 CALL RSL_LITE_PACK ( local_communicator, grid%a_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%g_w_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%a_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%g_ph_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%a_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%g_t_2, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
333 mytask, ntasks, ntasks_x, ntasks_y, &
334 ids, ide, jds, jde, kds, kde, &
335 ims, ime, jms, jme, kms, kme, &
336 ips, ipe, jps, jpe, kps, kpe )
337 CALL RSL_LITE_PACK ( local_communicator, grid%a_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%g_mu_2, 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 DO itrace = PARAM_FIRST_SCALAR, num_moist
348 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
349 mytask, ntasks, ntasks_x, ntasks_y, &
350 ids, ide, jds, jde, kds, kde, &
351 ims, ime, jms, jme, kms, kme, &
352 ips, ipe, jps, jpe, kps, kpe )
353 ENDDO
354 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
355 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
356 mytask, ntasks, ntasks_x, ntasks_y, &
357 ids, ide, jds, jde, kds, kde, &
358 ims, ime, jms, jme, kms, kme, &
359 ips, ipe, jps, jpe, kps, kpe )
360 ENDDO
361 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
362 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 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 ENDDO
368 DO itrace = PARAM_FIRST_SCALAR, num_scalar
369 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
370 mytask, ntasks, ntasks_x, ntasks_y, &
371 ids, ide, jds, jde, kds, kde, &
372 ims, ime, jms, jme, kms, kme, &
373 ips, ipe, jps, jpe, kps, kpe )
374 ENDDO
375 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
376 mytask, ntasks, ntasks_x, ntasks_y, &
377 ids, ide, jds, jde, 1 , 1 , &
378 ims, ime, jms, jme, 1 , 1 , &
379 ips, ipe, jps, jpe, 1 , 1 )
380 CALL RSL_LITE_PACK ( local_communicator, grid%tslb, 4, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
381 mytask, ntasks, ntasks_x, ntasks_y, &
382 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
383 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
384 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
385 CALL RSL_LITE_PACK ( local_communicator, grid%smois, 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%sh2o, 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%xice, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
396 mytask, ntasks, ntasks_x, ntasks_y, &
397 ids, ide, jds, jde, 1 , 1 , &
398 ims, ime, jms, jme, 1 , 1 , &
399 ips, ipe, jps, jpe, 1 , 1 )
400 CALL RSL_LITE_PACK ( local_communicator, grid%sfcrunoff, 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%udrunoff, 4, RWORDSIZE, 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%ivgtyp, 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%isltyp, 4, IWORDSIZE, 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%vegfra, 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%acsnow, 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%acsnom, 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%snow, 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%snowh, 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%rhosn, 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%canwat, 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%sst, 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%msft, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
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%msfu, 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%msfv, 4, RWORDSIZE, 0, 1, DATA_ORDER_XY, 1, &
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%f, 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%e, 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%sina, 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%cosa, 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%ht, 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%tsk, 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%rainc, 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%rainnc, 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%xlat, 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%xlong, 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%tmn, 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_PACK ( local_communicator, grid%xland, 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%snowc, 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_INIT_EXCH ( local_communicator, 4 , &
541 13 &
542 + num_moist &
543 + num_a_moist &
544 + num_g_moist &
545 + num_scalar &
546 , 31, RWORDSIZE, &
547 0, 2, IWORDSIZE, &
548 0, 0, DWORDSIZE, &
549 0, 0, LWORDSIZE, &
550 mytask, ntasks, ntasks_x, ntasks_y, &
551 ips, ipe, jps, jpe, kps, MAX(1,1&
552 ,kpe &
553 ,config_flags%num_soil_layers &
554 ))
555 CALL RSL_LITE_PACK ( local_communicator, grid%lu_index, 4, RWORDSIZE, 1, 0, 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%a_u_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
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_u_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 1, &
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_v_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_v_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_w_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_w_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_ph_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_ph_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_t_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
601 mytask, ntasks, ntasks_x, ntasks_y, &
602 ids, ide, jds, jde, kds, kde, &
603 ims, ime, jms, jme, kms, kme, &
604 ips, ipe, jps, jpe, kps, kpe )
605 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 4, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
606 mytask, ntasks, ntasks_x, ntasks_y, &
607 ids, ide, jds, jde, kds, kde, &
608 ims, ime, jms, jme, kms, kme, &
609 ips, ipe, jps, jpe, kps, kpe )
610 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 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%g_mu_2, 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%sfcrunoff, 4, RWORDSIZE, 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%udrunoff, 4, RWORDSIZE, 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%ivgtyp, 4, IWORDSIZE, 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%isltyp, 4, IWORDSIZE, 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%vegfra, 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%acsnow, 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%acsnom, 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%snow, 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%snowh, 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%rhosn, 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%canwat, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
724 mytask, ntasks, ntasks_x, ntasks_y, &
725 ids, ide, jds, jde, 1 , 1 , &
726 ims, ime, jms, jme, 1 , 1 , &
727 ips, ipe, jps, jpe, 1 , 1 )
728 CALL RSL_LITE_PACK ( local_communicator, grid%sst, 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%msft, 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%msfu, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 1, &
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%msfv, 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%f, 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%e, 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%sina, 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%cosa, 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%ht, 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%tsk, 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%rainc, 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%rainnc, 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%xlat, 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%xlong, 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_PACK ( local_communicator, grid%tmn, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
799 mytask, ntasks, ntasks_x, ntasks_y, &
800 ids, ide, jds, jde, 1 , 1 , &
801 ims, ime, jms, jme, 1 , 1 , &
802 ips, ipe, jps, jpe, 1 , 1 )
803 CALL RSL_LITE_PACK ( local_communicator, grid%xland, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
804 mytask, ntasks, ntasks_x, ntasks_y, &
805 ids, ide, jds, jde, 1 , 1 , &
806 ims, ime, jms, jme, 1 , 1 , &
807 ips, ipe, jps, jpe, 1 , 1 )
808 CALL RSL_LITE_PACK ( local_communicator, grid%snowc, 4, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
809 mytask, ntasks, ntasks_x, ntasks_y, &
810 ids, ide, jds, jde, 1 , 1 , &
811 ims, ime, jms, jme, 1 , 1 , &
812 ips, ipe, jps, jpe, 1 , 1 )
813 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
814 CALL RSL_LITE_PACK ( local_communicator, grid%lu_index, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
815 mytask, ntasks, ntasks_x, ntasks_y, &
816 ids, ide, jds, jde, 1 , 1 , &
817 ims, ime, jms, jme, 1 , 1 , &
818 ips, ipe, jps, jpe, 1 , 1 )
819 CALL RSL_LITE_PACK ( local_communicator, grid%a_u_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
820 mytask, ntasks, ntasks_x, ntasks_y, &
821 ids, ide, jds, jde, kds, kde, &
822 ims, ime, jms, jme, kms, kme, &
823 ips, ipe, jps, jpe, kps, kpe )
824 CALL RSL_LITE_PACK ( local_communicator, grid%g_u_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 1, &
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%a_v_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%g_v_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%a_w_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%g_w_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%a_ph_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%g_ph_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
855 mytask, ntasks, ntasks_x, ntasks_y, &
856 ids, ide, jds, jde, kds, kde, &
857 ims, ime, jms, jme, kms, kme, &
858 ips, ipe, jps, jpe, kps, kpe )
859 CALL RSL_LITE_PACK ( local_communicator, grid%a_t_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
860 mytask, ntasks, ntasks_x, ntasks_y, &
861 ids, ide, jds, jde, kds, kde, &
862 ims, ime, jms, jme, kms, kme, &
863 ips, ipe, jps, jpe, kps, kpe )
864 CALL RSL_LITE_PACK ( local_communicator, grid%g_t_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
865 mytask, ntasks, ntasks_x, ntasks_y, &
866 ids, ide, jds, jde, kds, kde, &
867 ims, ime, jms, jme, kms, kme, &
868 ips, ipe, jps, jpe, kps, kpe )
869 CALL RSL_LITE_PACK ( local_communicator, grid%a_mu_2, 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 CALL RSL_LITE_PACK ( local_communicator, grid%g_mu_2, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
875 mytask, ntasks, ntasks_x, ntasks_y, &
876 ids, ide, jds, jde, 1 , 1 , &
877 ims, ime, jms, jme, 1 , 1 , &
878 ips, ipe, jps, jpe, 1 , 1 )
879 DO itrace = PARAM_FIRST_SCALAR, num_moist
880 CALL RSL_LITE_PACK ( local_communicator,moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
881 mytask, ntasks, ntasks_x, ntasks_y, &
882 ids, ide, jds, jde, kds, kde, &
883 ims, ime, jms, jme, kms, kme, &
884 ips, ipe, jps, jpe, kps, kpe )
885 ENDDO
886 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
887 CALL RSL_LITE_PACK ( local_communicator,a_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
888 mytask, ntasks, ntasks_x, ntasks_y, &
889 ids, ide, jds, jde, kds, kde, &
890 ims, ime, jms, jme, kms, kme, &
891 ips, ipe, jps, jpe, kps, kpe )
892 ENDDO
893 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
894 CALL RSL_LITE_PACK ( local_communicator,g_moist ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
895 mytask, ntasks, ntasks_x, ntasks_y, &
896 ids, ide, jds, jde, kds, kde, &
897 ims, ime, jms, jme, kms, kme, &
898 ips, ipe, jps, jpe, kps, kpe )
899 ENDDO
900 DO itrace = PARAM_FIRST_SCALAR, num_scalar
901 CALL RSL_LITE_PACK ( local_communicator,scalar ( grid%sm31,grid%sm32,grid%sm33,itrace), 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
902 mytask, ntasks, ntasks_x, ntasks_y, &
903 ids, ide, jds, jde, kds, kde, &
904 ims, ime, jms, jme, kms, kme, &
905 ips, ipe, jps, jpe, kps, kpe )
906 ENDDO
907 CALL RSL_LITE_PACK ( local_communicator, grid%landmask, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
908 mytask, ntasks, ntasks_x, ntasks_y, &
909 ids, ide, jds, jde, 1 , 1 , &
910 ims, ime, jms, jme, 1 , 1 , &
911 ips, ipe, jps, jpe, 1 , 1 )
912 CALL RSL_LITE_PACK ( local_communicator, grid%tslb, 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%smois, 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%sh2o, 4, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
923 mytask, ntasks, ntasks_x, ntasks_y, &
924 ids, ide, jds, jde, 1, config_flags%num_soil_layers, &
925 ims, ime, jms, jme, 1, config_flags%num_soil_layers, &
926 ips, ipe, jps, jpe, 1, config_flags%num_soil_layers )
927 CALL RSL_LITE_PACK ( local_communicator, grid%xice, 4, RWORDSIZE, 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%sfcrunoff, 4, RWORDSIZE, 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%udrunoff, 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%ivgtyp, 4, IWORDSIZE, 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%isltyp, 4, IWORDSIZE, 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%vegfra, 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%acsnow, 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%acsnom, 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%snow, 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%snowh, 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%rhosn, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
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%canwat, 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%sst, 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%msft, 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%msfu, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 1, &
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%msfv, 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%f, 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%e, 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%sina, 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%cosa, 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%ht, 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%tsk, 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%rainc, 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%rainnc, 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%xlat, 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 CALL RSL_LITE_PACK ( local_communicator, grid%xlong, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1053 mytask, ntasks, ntasks_x, ntasks_y, &
1054 ids, ide, jds, jde, 1 , 1 , &
1055 ims, ime, jms, jme, 1 , 1 , &
1056 ips, ipe, jps, jpe, 1 , 1 )
1057 CALL RSL_LITE_PACK ( local_communicator, grid%tmn, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1058 mytask, ntasks, ntasks_x, ntasks_y, &
1059 ids, ide, jds, jde, 1 , 1 , &
1060 ims, ime, jms, jme, 1 , 1 , &
1061 ips, ipe, jps, jpe, 1 , 1 )
1062 CALL RSL_LITE_PACK ( local_communicator, grid%xland, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1063 mytask, ntasks, ntasks_x, ntasks_y, &
1064 ids, ide, jds, jde, 1 , 1 , &
1065 ims, ime, jms, jme, 1 , 1 , &
1066 ips, ipe, jps, jpe, 1 , 1 )
1067 CALL RSL_LITE_PACK ( local_communicator, grid%snowc, 4, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1068 mytask, ntasks, ntasks_x, ntasks_y, &
1069 ids, ide, jds, jde, 1 , 1 , &
1070 ims, ime, jms, jme, 1 , 1 , &
1071 ips, ipe, jps, jpe, 1 , 1 )
1072 !ENDOFREGISTRYGENERATEDINCLUDE