HALO_INIT_inline.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/HALO_INIT_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_INIT_inline.inc')
8 CALL RSL_LITE_INIT_EXCH ( local_communicator, 2, &
9 16, 33, RWORDSIZE, &
10 0, 2, IWORDSIZE, &
11 0, 0, DWORDSIZE, &
12 0, 0, LWORDSIZE, &
13 mytask, ntasks, ntasks_x, ntasks_y, &
14 ips, ipe, jps, jpe, kps, MAX(1,1&
15 ,kpe &
16 ))
17 CALL RSL_LITE_PACK ( local_communicator, grid%xb%map_factor, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
18 mytask, ntasks, ntasks_x, ntasks_y, &
19 ids, ide, jds, jde, 1 , 1 , &
20 ims, ime, jms, jme, 1 , 1 , &
21 ips, ipe, jps, jpe, 1 , 1 )
22 CALL RSL_LITE_PACK ( local_communicator, grid%xb%psac, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
23 mytask, ntasks, ntasks_x, ntasks_y, &
24 ids, ide, jds, jde, 1 , 1 , &
25 ims, ime, jms, jme, 1 , 1 , &
26 ips, ipe, jps, jpe, 1 , 1 )
27 CALL RSL_LITE_PACK ( local_communicator, grid%xb%rough, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
28 mytask, ntasks, ntasks_x, ntasks_y, &
29 ids, ide, jds, jde, 1 , 1 , &
30 ims, ime, jms, jme, 1 , 1 , &
31 ips, ipe, jps, jpe, 1 , 1 )
32 CALL RSL_LITE_PACK ( local_communicator, grid%xb%xland, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
33 mytask, ntasks, ntasks_x, ntasks_y, &
34 ids, ide, jds, jde, 1 , 1 , &
35 ims, ime, jms, jme, 1 , 1 , &
36 ips, ipe, jps, jpe, 1 , 1 )
37 CALL RSL_LITE_PACK ( local_communicator, grid%xb%landmask, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
38 mytask, ntasks, ntasks_x, ntasks_y, &
39 ids, ide, jds, jde, 1 , 1 , &
40 ims, ime, jms, jme, 1 , 1 , &
41 ips, ipe, jps, jpe, 1 , 1 )
42 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tgrn, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
43 mytask, ntasks, ntasks_x, ntasks_y, &
44 ids, ide, jds, jde, 1 , 1 , &
45 ims, ime, jms, jme, 1 , 1 , &
46 ips, ipe, jps, jpe, 1 , 1 )
47 CALL RSL_LITE_PACK ( local_communicator, grid%xb%u, 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
48 mytask, ntasks, ntasks_x, ntasks_y, &
49 ids, ide, jds, jde, kds, kde, &
50 ims, ime, jms, jme, kms, kme, &
51 ips, ipe, jps, jpe, kps, kpe )
52 CALL RSL_LITE_PACK ( local_communicator, grid%xb%v, 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
53 mytask, ntasks, ntasks_x, ntasks_y, &
54 ids, ide, jds, jde, kds, kde, &
55 ims, ime, jms, jme, kms, kme, &
56 ips, ipe, jps, jpe, kps, kpe )
57 CALL RSL_LITE_PACK ( local_communicator, grid%xb%w, 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
58 mytask, ntasks, ntasks_x, ntasks_y, &
59 ids, ide, jds, jde, kds, kde, &
60 ims, ime, jms, jme, kms, kme, &
61 ips, ipe, jps, jpe, kps, kpe )
62 CALL RSL_LITE_PACK ( local_communicator, grid%xb%wh, 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
63 mytask, ntasks, ntasks_x, ntasks_y, &
64 ids, ide, jds, jde, kds, kde, &
65 ims, ime, jms, jme, kms, kme, &
66 ips, ipe, jps, jpe, kps, kpe )
67 CALL RSL_LITE_PACK ( local_communicator, grid%xb%t, 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
68 mytask, ntasks, ntasks_x, ntasks_y, &
69 ids, ide, jds, jde, kds, kde, &
70 ims, ime, jms, jme, kms, kme, &
71 ips, ipe, jps, jpe, kps, kpe )
72 CALL RSL_LITE_PACK ( local_communicator, grid%xb%p, 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
73 mytask, ntasks, ntasks_x, ntasks_y, &
74 ids, ide, jds, jde, kds, kde, &
75 ims, ime, jms, jme, kms, kme, &
76 ips, ipe, jps, jpe, kps, kpe )
77 CALL RSL_LITE_PACK ( local_communicator, grid%xb%q, 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
78 mytask, ntasks, ntasks_x, ntasks_y, &
79 ids, ide, jds, jde, kds, kde, &
80 ims, ime, jms, jme, kms, kme, &
81 ips, ipe, jps, jpe, kps, kpe )
82 CALL RSL_LITE_PACK ( local_communicator, grid%xb%qrn, 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
83 mytask, ntasks, ntasks_x, ntasks_y, &
84 ids, ide, jds, jde, kds, kde, &
85 ims, ime, jms, jme, kms, kme, &
86 ips, ipe, jps, jpe, kps, kpe )
87 CALL RSL_LITE_PACK ( local_communicator, grid%xb%qcw, 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
88 mytask, ntasks, ntasks_x, ntasks_y, &
89 ids, ide, jds, jde, kds, kde, &
90 ims, ime, jms, jme, kms, kme, &
91 ips, ipe, jps, jpe, kps, kpe )
92 CALL RSL_LITE_PACK ( local_communicator, grid%xb%qt, 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
93 mytask, ntasks, ntasks_x, ntasks_y, &
94 ids, ide, jds, jde, kds, kde, &
95 ims, ime, jms, jme, kms, kme, &
96 ips, ipe, jps, jpe, kps, kpe )
97 CALL RSL_LITE_PACK ( local_communicator, grid%xb%rho, 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
98 mytask, ntasks, ntasks_x, ntasks_y, &
99 ids, ide, jds, jde, kds, kde, &
100 ims, ime, jms, jme, kms, kme, &
101 ips, ipe, jps, jpe, kps, kpe )
102 CALL RSL_LITE_PACK ( local_communicator, grid%xb%rh, 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
103 mytask, ntasks, ntasks_x, ntasks_y, &
104 ids, ide, jds, jde, kds, kde, &
105 ims, ime, jms, jme, kms, kme, &
106 ips, ipe, jps, jpe, kps, kpe )
107 CALL RSL_LITE_PACK ( local_communicator, grid%xb%h, 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
108 mytask, ntasks, ntasks_x, ntasks_y, &
109 ids, ide, jds, jde, kds, kde, &
110 ims, ime, jms, jme, kms, kme, &
111 ips, ipe, jps, jpe, kps, kpe )
112 CALL RSL_LITE_PACK ( local_communicator, grid%xb%hf, 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
113 mytask, ntasks, ntasks_x, ntasks_y, &
114 ids, ide, jds, jde, kds, kde, &
115 ims, ime, jms, jme, kms, kme, &
116 ips, ipe, jps, jpe, kps, kpe )
117 CALL RSL_LITE_PACK ( local_communicator, grid%xb%u10, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
118 mytask, ntasks, ntasks_x, ntasks_y, &
119 ids, ide, jds, jde, 1 , 1 , &
120 ims, ime, jms, jme, 1 , 1 , &
121 ips, ipe, jps, jpe, 1 , 1 )
122 CALL RSL_LITE_PACK ( local_communicator, grid%xb%v10, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
123 mytask, ntasks, ntasks_x, ntasks_y, &
124 ids, ide, jds, jde, 1 , 1 , &
125 ims, ime, jms, jme, 1 , 1 , &
126 ips, ipe, jps, jpe, 1 , 1 )
127 CALL RSL_LITE_PACK ( local_communicator, grid%xb%t2, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
128 mytask, ntasks, ntasks_x, ntasks_y, &
129 ids, ide, jds, jde, 1 , 1 , &
130 ims, ime, jms, jme, 1 , 1 , &
131 ips, ipe, jps, jpe, 1 , 1 )
132 CALL RSL_LITE_PACK ( local_communicator, grid%xb%q2, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
133 mytask, ntasks, ntasks_x, ntasks_y, &
134 ids, ide, jds, jde, 1 , 1 , &
135 ims, ime, jms, jme, 1 , 1 , &
136 ips, ipe, jps, jpe, 1 , 1 )
137 CALL RSL_LITE_PACK ( local_communicator, grid%xb%terr, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
138 mytask, ntasks, ntasks_x, ntasks_y, &
139 ids, ide, jds, jde, 1 , 1 , &
140 ims, ime, jms, jme, 1 , 1 , &
141 ips, ipe, jps, jpe, 1 , 1 )
142 CALL RSL_LITE_PACK ( local_communicator, grid%xb%psfc, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
143 mytask, ntasks, ntasks_x, ntasks_y, &
144 ids, ide, jds, jde, 1 , 1 , &
145 ims, ime, jms, jme, 1 , 1 , &
146 ips, ipe, jps, jpe, 1 , 1 )
147 CALL RSL_LITE_PACK ( local_communicator, grid%xb%regime, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
148 mytask, ntasks, ntasks_x, ntasks_y, &
149 ids, ide, jds, jde, 1 , 1 , &
150 ims, ime, jms, jme, 1 , 1 , &
151 ips, ipe, jps, jpe, 1 , 1 )
152 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tpw, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
153 mytask, ntasks, ntasks_x, ntasks_y, &
154 ids, ide, jds, jde, 1 , 1 , &
155 ims, ime, jms, jme, 1 , 1 , &
156 ips, ipe, jps, jpe, 1 , 1 )
157 CALL RSL_LITE_PACK ( local_communicator, grid%xb%speed, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
158 mytask, ntasks, ntasks_x, ntasks_y, &
159 ids, ide, jds, jde, 1 , 1 , &
160 ims, ime, jms, jme, 1 , 1 , &
161 ips, ipe, jps, jpe, 1 , 1 )
162 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb19v, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
163 mytask, ntasks, ntasks_x, ntasks_y, &
164 ids, ide, jds, jde, 1 , 1 , &
165 ims, ime, jms, jme, 1 , 1 , &
166 ips, ipe, jps, jpe, 1 , 1 )
167 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb19h, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
168 mytask, ntasks, ntasks_x, ntasks_y, &
169 ids, ide, jds, jde, 1 , 1 , &
170 ims, ime, jms, jme, 1 , 1 , &
171 ips, ipe, jps, jpe, 1 , 1 )
172 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb22v, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
173 mytask, ntasks, ntasks_x, ntasks_y, &
174 ids, ide, jds, jde, 1 , 1 , &
175 ims, ime, jms, jme, 1 , 1 , &
176 ips, ipe, jps, jpe, 1 , 1 )
177 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb37v, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
178 mytask, ntasks, ntasks_x, ntasks_y, &
179 ids, ide, jds, jde, 1 , 1 , &
180 ims, ime, jms, jme, 1 , 1 , &
181 ips, ipe, jps, jpe, 1 , 1 )
182 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb37h, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
183 mytask, ntasks, ntasks_x, ntasks_y, &
184 ids, ide, jds, jde, 1 , 1 , &
185 ims, ime, jms, jme, 1 , 1 , &
186 ips, ipe, jps, jpe, 1 , 1 )
187 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb85v, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
188 mytask, ntasks, ntasks_x, ntasks_y, &
189 ids, ide, jds, jde, 1 , 1 , &
190 ims, ime, jms, jme, 1 , 1 , &
191 ips, ipe, jps, jpe, 1 , 1 )
192 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb85h, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
193 mytask, ntasks, ntasks_x, ntasks_y, &
194 ids, ide, jds, jde, 1 , 1 , &
195 ims, ime, jms, jme, 1 , 1 , &
196 ips, ipe, jps, jpe, 1 , 1 )
197 CALL RSL_LITE_PACK ( local_communicator, grid%xb%ref, 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
198 mytask, ntasks, ntasks_x, ntasks_y, &
199 ids, ide, jds, jde, kds, kde, &
200 ims, ime, jms, jme, kms, kme, &
201 ips, ipe, jps, jpe, kps, kpe )
202 CALL RSL_LITE_PACK ( local_communicator, grid%xb%delt, 2, RWORDSIZE, 0, 0, DATA_ORDER_XYZ, 0, &
203 mytask, ntasks, ntasks_x, ntasks_y, &
204 ids, ide, jds, jde, kds, kde, &
205 ims, ime, jms, jme, kms, kme, &
206 ips, ipe, jps, jpe, kps, kpe )
207 CALL RSL_LITE_PACK ( local_communicator, grid%xb%slp, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
208 mytask, ntasks, ntasks_x, ntasks_y, &
209 ids, ide, jds, jde, 1 , 1 , &
210 ims, ime, jms, jme, 1 , 1 , &
211 ips, ipe, jps, jpe, 1 , 1 )
212 CALL RSL_LITE_PACK ( local_communicator, grid%xb%coefx, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
213 mytask, ntasks, ntasks_x, ntasks_y, &
214 ids, ide, jds, jde, 1 , 1 , &
215 ims, ime, jms, jme, 1 , 1 , &
216 ips, ipe, jps, jpe, 1 , 1 )
217 CALL RSL_LITE_PACK ( local_communicator, grid%xb%coefy, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
218 mytask, ntasks, ntasks_x, ntasks_y, &
219 ids, ide, jds, jde, 1 , 1 , &
220 ims, ime, jms, jme, 1 , 1 , &
221 ips, ipe, jps, jpe, 1 , 1 )
222 CALL RSL_LITE_PACK ( local_communicator, grid%xb%coefz, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
223 mytask, ntasks, ntasks_x, ntasks_y, &
224 ids, ide, jds, jde, 1 , 1 , &
225 ims, ime, jms, jme, 1 , 1 , &
226 ips, ipe, jps, jpe, 1 , 1 )
227 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tsk, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
228 mytask, ntasks, ntasks_x, ntasks_y, &
229 ids, ide, jds, jde, 1 , 1 , &
230 ims, ime, jms, jme, 1 , 1 , &
231 ips, ipe, jps, jpe, 1 , 1 )
232 CALL RSL_LITE_PACK ( local_communicator, grid%xb%smois, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
233 mytask, ntasks, ntasks_x, ntasks_y, &
234 ids, ide, jds, jde, 1 , 1 , &
235 ims, ime, jms, jme, 1 , 1 , &
236 ips, ipe, jps, jpe, 1 , 1 )
237 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tslb, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
238 mytask, ntasks, ntasks_x, ntasks_y, &
239 ids, ide, jds, jde, 1 , 1 , &
240 ims, ime, jms, jme, 1 , 1 , &
241 ips, ipe, jps, jpe, 1 , 1 )
242 CALL RSL_LITE_PACK ( local_communicator, grid%xb%xice, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
243 mytask, ntasks, ntasks_x, ntasks_y, &
244 ids, ide, jds, jde, 1 , 1 , &
245 ims, ime, jms, jme, 1 , 1 , &
246 ips, ipe, jps, jpe, 1 , 1 )
247 CALL RSL_LITE_PACK ( local_communicator, grid%xb%ivgtyp, 2, IWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
248 mytask, ntasks, ntasks_x, ntasks_y, &
249 ids, ide, jds, jde, 1 , 1 , &
250 ims, ime, jms, jme, 1 , 1 , &
251 ips, ipe, jps, jpe, 1 , 1 )
252 CALL RSL_LITE_PACK ( local_communicator, grid%xb%isltyp, 2, IWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
253 mytask, ntasks, ntasks_x, ntasks_y, &
254 ids, ide, jds, jde, 1 , 1 , &
255 ims, ime, jms, jme, 1 , 1 , &
256 ips, ipe, jps, jpe, 1 , 1 )
257 CALL RSL_LITE_PACK ( local_communicator, grid%xb%vegfra, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
258 mytask, ntasks, ntasks_x, ntasks_y, &
259 ids, ide, jds, jde, 1 , 1 , &
260 ims, ime, jms, jme, 1 , 1 , &
261 ips, ipe, jps, jpe, 1 , 1 )
262 CALL RSL_LITE_PACK ( local_communicator, grid%xb%snowh, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
263 mytask, ntasks, ntasks_x, ntasks_y, &
264 ids, ide, jds, jde, 1 , 1 , &
265 ims, ime, jms, jme, 1 , 1 , &
266 ips, ipe, jps, jpe, 1 , 1 )
267 CALL RSL_LITE_PACK ( local_communicator, grid%xb%snow, 2, RWORDSIZE, 0, 0, DATA_ORDER_XY, 0, &
268 mytask, ntasks, ntasks_x, ntasks_y, &
269 ids, ide, jds, jde, 1 , 1 , &
270 ims, ime, jms, jme, 1 , 1 , &
271 ips, ipe, jps, jpe, 1 , 1 )
272 CALL RSL_LITE_EXCH_Y ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
273 CALL RSL_LITE_PACK ( local_communicator, grid%xb%map_factor, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
274 mytask, ntasks, ntasks_x, ntasks_y, &
275 ids, ide, jds, jde, 1 , 1 , &
276 ims, ime, jms, jme, 1 , 1 , &
277 ips, ipe, jps, jpe, 1 , 1 )
278 CALL RSL_LITE_PACK ( local_communicator, grid%xb%psac, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
279 mytask, ntasks, ntasks_x, ntasks_y, &
280 ids, ide, jds, jde, 1 , 1 , &
281 ims, ime, jms, jme, 1 , 1 , &
282 ips, ipe, jps, jpe, 1 , 1 )
283 CALL RSL_LITE_PACK ( local_communicator, grid%xb%rough, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
284 mytask, ntasks, ntasks_x, ntasks_y, &
285 ids, ide, jds, jde, 1 , 1 , &
286 ims, ime, jms, jme, 1 , 1 , &
287 ips, ipe, jps, jpe, 1 , 1 )
288 CALL RSL_LITE_PACK ( local_communicator, grid%xb%xland, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
289 mytask, ntasks, ntasks_x, ntasks_y, &
290 ids, ide, jds, jde, 1 , 1 , &
291 ims, ime, jms, jme, 1 , 1 , &
292 ips, ipe, jps, jpe, 1 , 1 )
293 CALL RSL_LITE_PACK ( local_communicator, grid%xb%landmask, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
294 mytask, ntasks, ntasks_x, ntasks_y, &
295 ids, ide, jds, jde, 1 , 1 , &
296 ims, ime, jms, jme, 1 , 1 , &
297 ips, ipe, jps, jpe, 1 , 1 )
298 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tgrn, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
299 mytask, ntasks, ntasks_x, ntasks_y, &
300 ids, ide, jds, jde, 1 , 1 , &
301 ims, ime, jms, jme, 1 , 1 , &
302 ips, ipe, jps, jpe, 1 , 1 )
303 CALL RSL_LITE_PACK ( local_communicator, grid%xb%u, 2, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
304 mytask, ntasks, ntasks_x, ntasks_y, &
305 ids, ide, jds, jde, kds, kde, &
306 ims, ime, jms, jme, kms, kme, &
307 ips, ipe, jps, jpe, kps, kpe )
308 CALL RSL_LITE_PACK ( local_communicator, grid%xb%v, 2, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
309 mytask, ntasks, ntasks_x, ntasks_y, &
310 ids, ide, jds, jde, kds, kde, &
311 ims, ime, jms, jme, kms, kme, &
312 ips, ipe, jps, jpe, kps, kpe )
313 CALL RSL_LITE_PACK ( local_communicator, grid%xb%w, 2, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
314 mytask, ntasks, ntasks_x, ntasks_y, &
315 ids, ide, jds, jde, kds, kde, &
316 ims, ime, jms, jme, kms, kme, &
317 ips, ipe, jps, jpe, kps, kpe )
318 CALL RSL_LITE_PACK ( local_communicator, grid%xb%wh, 2, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
319 mytask, ntasks, ntasks_x, ntasks_y, &
320 ids, ide, jds, jde, kds, kde, &
321 ims, ime, jms, jme, kms, kme, &
322 ips, ipe, jps, jpe, kps, kpe )
323 CALL RSL_LITE_PACK ( local_communicator, grid%xb%t, 2, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
324 mytask, ntasks, ntasks_x, ntasks_y, &
325 ids, ide, jds, jde, kds, kde, &
326 ims, ime, jms, jme, kms, kme, &
327 ips, ipe, jps, jpe, kps, kpe )
328 CALL RSL_LITE_PACK ( local_communicator, grid%xb%p, 2, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
329 mytask, ntasks, ntasks_x, ntasks_y, &
330 ids, ide, jds, jde, kds, kde, &
331 ims, ime, jms, jme, kms, kme, &
332 ips, ipe, jps, jpe, kps, kpe )
333 CALL RSL_LITE_PACK ( local_communicator, grid%xb%q, 2, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
334 mytask, ntasks, ntasks_x, ntasks_y, &
335 ids, ide, jds, jde, kds, kde, &
336 ims, ime, jms, jme, kms, kme, &
337 ips, ipe, jps, jpe, kps, kpe )
338 CALL RSL_LITE_PACK ( local_communicator, grid%xb%qrn, 2, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
339 mytask, ntasks, ntasks_x, ntasks_y, &
340 ids, ide, jds, jde, kds, kde, &
341 ims, ime, jms, jme, kms, kme, &
342 ips, ipe, jps, jpe, kps, kpe )
343 CALL RSL_LITE_PACK ( local_communicator, grid%xb%qcw, 2, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
344 mytask, ntasks, ntasks_x, ntasks_y, &
345 ids, ide, jds, jde, kds, kde, &
346 ims, ime, jms, jme, kms, kme, &
347 ips, ipe, jps, jpe, kps, kpe )
348 CALL RSL_LITE_PACK ( local_communicator, grid%xb%qt, 2, 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 CALL RSL_LITE_PACK ( local_communicator, grid%xb%rho, 2, 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 CALL RSL_LITE_PACK ( local_communicator, grid%xb%rh, 2, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
359 mytask, ntasks, ntasks_x, ntasks_y, &
360 ids, ide, jds, jde, kds, kde, &
361 ims, ime, jms, jme, kms, kme, &
362 ips, ipe, jps, jpe, kps, kpe )
363 CALL RSL_LITE_PACK ( local_communicator, grid%xb%h, 2, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
364 mytask, ntasks, ntasks_x, ntasks_y, &
365 ids, ide, jds, jde, kds, kde, &
366 ims, ime, jms, jme, kms, kme, &
367 ips, ipe, jps, jpe, kps, kpe )
368 CALL RSL_LITE_PACK ( local_communicator, grid%xb%hf, 2, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
369 mytask, ntasks, ntasks_x, ntasks_y, &
370 ids, ide, jds, jde, kds, kde, &
371 ims, ime, jms, jme, kms, kme, &
372 ips, ipe, jps, jpe, kps, kpe )
373 CALL RSL_LITE_PACK ( local_communicator, grid%xb%u10, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
374 mytask, ntasks, ntasks_x, ntasks_y, &
375 ids, ide, jds, jde, 1 , 1 , &
376 ims, ime, jms, jme, 1 , 1 , &
377 ips, ipe, jps, jpe, 1 , 1 )
378 CALL RSL_LITE_PACK ( local_communicator, grid%xb%v10, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
379 mytask, ntasks, ntasks_x, ntasks_y, &
380 ids, ide, jds, jde, 1 , 1 , &
381 ims, ime, jms, jme, 1 , 1 , &
382 ips, ipe, jps, jpe, 1 , 1 )
383 CALL RSL_LITE_PACK ( local_communicator, grid%xb%t2, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
384 mytask, ntasks, ntasks_x, ntasks_y, &
385 ids, ide, jds, jde, 1 , 1 , &
386 ims, ime, jms, jme, 1 , 1 , &
387 ips, ipe, jps, jpe, 1 , 1 )
388 CALL RSL_LITE_PACK ( local_communicator, grid%xb%q2, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
389 mytask, ntasks, ntasks_x, ntasks_y, &
390 ids, ide, jds, jde, 1 , 1 , &
391 ims, ime, jms, jme, 1 , 1 , &
392 ips, ipe, jps, jpe, 1 , 1 )
393 CALL RSL_LITE_PACK ( local_communicator, grid%xb%terr, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
394 mytask, ntasks, ntasks_x, ntasks_y, &
395 ids, ide, jds, jde, 1 , 1 , &
396 ims, ime, jms, jme, 1 , 1 , &
397 ips, ipe, jps, jpe, 1 , 1 )
398 CALL RSL_LITE_PACK ( local_communicator, grid%xb%psfc, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
399 mytask, ntasks, ntasks_x, ntasks_y, &
400 ids, ide, jds, jde, 1 , 1 , &
401 ims, ime, jms, jme, 1 , 1 , &
402 ips, ipe, jps, jpe, 1 , 1 )
403 CALL RSL_LITE_PACK ( local_communicator, grid%xb%regime, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
404 mytask, ntasks, ntasks_x, ntasks_y, &
405 ids, ide, jds, jde, 1 , 1 , &
406 ims, ime, jms, jme, 1 , 1 , &
407 ips, ipe, jps, jpe, 1 , 1 )
408 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tpw, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
409 mytask, ntasks, ntasks_x, ntasks_y, &
410 ids, ide, jds, jde, 1 , 1 , &
411 ims, ime, jms, jme, 1 , 1 , &
412 ips, ipe, jps, jpe, 1 , 1 )
413 CALL RSL_LITE_PACK ( local_communicator, grid%xb%speed, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
414 mytask, ntasks, ntasks_x, ntasks_y, &
415 ids, ide, jds, jde, 1 , 1 , &
416 ims, ime, jms, jme, 1 , 1 , &
417 ips, ipe, jps, jpe, 1 , 1 )
418 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb19v, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
419 mytask, ntasks, ntasks_x, ntasks_y, &
420 ids, ide, jds, jde, 1 , 1 , &
421 ims, ime, jms, jme, 1 , 1 , &
422 ips, ipe, jps, jpe, 1 , 1 )
423 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb19h, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
424 mytask, ntasks, ntasks_x, ntasks_y, &
425 ids, ide, jds, jde, 1 , 1 , &
426 ims, ime, jms, jme, 1 , 1 , &
427 ips, ipe, jps, jpe, 1 , 1 )
428 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb22v, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
429 mytask, ntasks, ntasks_x, ntasks_y, &
430 ids, ide, jds, jde, 1 , 1 , &
431 ims, ime, jms, jme, 1 , 1 , &
432 ips, ipe, jps, jpe, 1 , 1 )
433 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb37v, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
434 mytask, ntasks, ntasks_x, ntasks_y, &
435 ids, ide, jds, jde, 1 , 1 , &
436 ims, ime, jms, jme, 1 , 1 , &
437 ips, ipe, jps, jpe, 1 , 1 )
438 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb37h, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
439 mytask, ntasks, ntasks_x, ntasks_y, &
440 ids, ide, jds, jde, 1 , 1 , &
441 ims, ime, jms, jme, 1 , 1 , &
442 ips, ipe, jps, jpe, 1 , 1 )
443 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb85v, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
444 mytask, ntasks, ntasks_x, ntasks_y, &
445 ids, ide, jds, jde, 1 , 1 , &
446 ims, ime, jms, jme, 1 , 1 , &
447 ips, ipe, jps, jpe, 1 , 1 )
448 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb85h, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
449 mytask, ntasks, ntasks_x, ntasks_y, &
450 ids, ide, jds, jde, 1 , 1 , &
451 ims, ime, jms, jme, 1 , 1 , &
452 ips, ipe, jps, jpe, 1 , 1 )
453 CALL RSL_LITE_PACK ( local_communicator, grid%xb%ref, 2, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
454 mytask, ntasks, ntasks_x, ntasks_y, &
455 ids, ide, jds, jde, kds, kde, &
456 ims, ime, jms, jme, kms, kme, &
457 ips, ipe, jps, jpe, kps, kpe )
458 CALL RSL_LITE_PACK ( local_communicator, grid%xb%delt, 2, RWORDSIZE, 0, 1, DATA_ORDER_XYZ, 0, &
459 mytask, ntasks, ntasks_x, ntasks_y, &
460 ids, ide, jds, jde, kds, kde, &
461 ims, ime, jms, jme, kms, kme, &
462 ips, ipe, jps, jpe, kps, kpe )
463 CALL RSL_LITE_PACK ( local_communicator, grid%xb%slp, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
464 mytask, ntasks, ntasks_x, ntasks_y, &
465 ids, ide, jds, jde, 1 , 1 , &
466 ims, ime, jms, jme, 1 , 1 , &
467 ips, ipe, jps, jpe, 1 , 1 )
468 CALL RSL_LITE_PACK ( local_communicator, grid%xb%coefx, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
469 mytask, ntasks, ntasks_x, ntasks_y, &
470 ids, ide, jds, jde, 1 , 1 , &
471 ims, ime, jms, jme, 1 , 1 , &
472 ips, ipe, jps, jpe, 1 , 1 )
473 CALL RSL_LITE_PACK ( local_communicator, grid%xb%coefy, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
474 mytask, ntasks, ntasks_x, ntasks_y, &
475 ids, ide, jds, jde, 1 , 1 , &
476 ims, ime, jms, jme, 1 , 1 , &
477 ips, ipe, jps, jpe, 1 , 1 )
478 CALL RSL_LITE_PACK ( local_communicator, grid%xb%coefz, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
479 mytask, ntasks, ntasks_x, ntasks_y, &
480 ids, ide, jds, jde, 1 , 1 , &
481 ims, ime, jms, jme, 1 , 1 , &
482 ips, ipe, jps, jpe, 1 , 1 )
483 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tsk, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
484 mytask, ntasks, ntasks_x, ntasks_y, &
485 ids, ide, jds, jde, 1 , 1 , &
486 ims, ime, jms, jme, 1 , 1 , &
487 ips, ipe, jps, jpe, 1 , 1 )
488 CALL RSL_LITE_PACK ( local_communicator, grid%xb%smois, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
489 mytask, ntasks, ntasks_x, ntasks_y, &
490 ids, ide, jds, jde, 1 , 1 , &
491 ims, ime, jms, jme, 1 , 1 , &
492 ips, ipe, jps, jpe, 1 , 1 )
493 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tslb, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
494 mytask, ntasks, ntasks_x, ntasks_y, &
495 ids, ide, jds, jde, 1 , 1 , &
496 ims, ime, jms, jme, 1 , 1 , &
497 ips, ipe, jps, jpe, 1 , 1 )
498 CALL RSL_LITE_PACK ( local_communicator, grid%xb%xice, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
499 mytask, ntasks, ntasks_x, ntasks_y, &
500 ids, ide, jds, jde, 1 , 1 , &
501 ims, ime, jms, jme, 1 , 1 , &
502 ips, ipe, jps, jpe, 1 , 1 )
503 CALL RSL_LITE_PACK ( local_communicator, grid%xb%ivgtyp, 2, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
504 mytask, ntasks, ntasks_x, ntasks_y, &
505 ids, ide, jds, jde, 1 , 1 , &
506 ims, ime, jms, jme, 1 , 1 , &
507 ips, ipe, jps, jpe, 1 , 1 )
508 CALL RSL_LITE_PACK ( local_communicator, grid%xb%isltyp, 2, IWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
509 mytask, ntasks, ntasks_x, ntasks_y, &
510 ids, ide, jds, jde, 1 , 1 , &
511 ims, ime, jms, jme, 1 , 1 , &
512 ips, ipe, jps, jpe, 1 , 1 )
513 CALL RSL_LITE_PACK ( local_communicator, grid%xb%vegfra, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
514 mytask, ntasks, ntasks_x, ntasks_y, &
515 ids, ide, jds, jde, 1 , 1 , &
516 ims, ime, jms, jme, 1 , 1 , &
517 ips, ipe, jps, jpe, 1 , 1 )
518 CALL RSL_LITE_PACK ( local_communicator, grid%xb%snowh, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
519 mytask, ntasks, ntasks_x, ntasks_y, &
520 ids, ide, jds, jde, 1 , 1 , &
521 ims, ime, jms, jme, 1 , 1 , &
522 ips, ipe, jps, jpe, 1 , 1 )
523 CALL RSL_LITE_PACK ( local_communicator, grid%xb%snow, 2, RWORDSIZE, 0, 1, DATA_ORDER_XY, 0, &
524 mytask, ntasks, ntasks_x, ntasks_y, &
525 ids, ide, jds, jde, 1 , 1 , &
526 ims, ime, jms, jme, 1 , 1 , &
527 ips, ipe, jps, jpe, 1 , 1 )
528 CALL RSL_LITE_INIT_EXCH ( local_communicator, 2 , &
529 16, 33, RWORDSIZE, &
530 0, 2, IWORDSIZE, &
531 0, 0, DWORDSIZE, &
532 0, 0, LWORDSIZE, &
533 mytask, ntasks, ntasks_x, ntasks_y, &
534 ips, ipe, jps, jpe, kps, MAX(1,1&
535 ,kpe &
536 ))
537 CALL RSL_LITE_PACK ( local_communicator, grid%xb%map_factor, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
538 mytask, ntasks, ntasks_x, ntasks_y, &
539 ids, ide, jds, jde, 1 , 1 , &
540 ims, ime, jms, jme, 1 , 1 , &
541 ips, ipe, jps, jpe, 1 , 1 )
542 CALL RSL_LITE_PACK ( local_communicator, grid%xb%psac, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
543 mytask, ntasks, ntasks_x, ntasks_y, &
544 ids, ide, jds, jde, 1 , 1 , &
545 ims, ime, jms, jme, 1 , 1 , &
546 ips, ipe, jps, jpe, 1 , 1 )
547 CALL RSL_LITE_PACK ( local_communicator, grid%xb%rough, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
548 mytask, ntasks, ntasks_x, ntasks_y, &
549 ids, ide, jds, jde, 1 , 1 , &
550 ims, ime, jms, jme, 1 , 1 , &
551 ips, ipe, jps, jpe, 1 , 1 )
552 CALL RSL_LITE_PACK ( local_communicator, grid%xb%xland, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
553 mytask, ntasks, ntasks_x, ntasks_y, &
554 ids, ide, jds, jde, 1 , 1 , &
555 ims, ime, jms, jme, 1 , 1 , &
556 ips, ipe, jps, jpe, 1 , 1 )
557 CALL RSL_LITE_PACK ( local_communicator, grid%xb%landmask, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
558 mytask, ntasks, ntasks_x, ntasks_y, &
559 ids, ide, jds, jde, 1 , 1 , &
560 ims, ime, jms, jme, 1 , 1 , &
561 ips, ipe, jps, jpe, 1 , 1 )
562 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tgrn, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
563 mytask, ntasks, ntasks_x, ntasks_y, &
564 ids, ide, jds, jde, 1 , 1 , &
565 ims, ime, jms, jme, 1 , 1 , &
566 ips, ipe, jps, jpe, 1 , 1 )
567 CALL RSL_LITE_PACK ( local_communicator, grid%xb%u, 2, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
568 mytask, ntasks, ntasks_x, ntasks_y, &
569 ids, ide, jds, jde, kds, kde, &
570 ims, ime, jms, jme, kms, kme, &
571 ips, ipe, jps, jpe, kps, kpe )
572 CALL RSL_LITE_PACK ( local_communicator, grid%xb%v, 2, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
573 mytask, ntasks, ntasks_x, ntasks_y, &
574 ids, ide, jds, jde, kds, kde, &
575 ims, ime, jms, jme, kms, kme, &
576 ips, ipe, jps, jpe, kps, kpe )
577 CALL RSL_LITE_PACK ( local_communicator, grid%xb%w, 2, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
578 mytask, ntasks, ntasks_x, ntasks_y, &
579 ids, ide, jds, jde, kds, kde, &
580 ims, ime, jms, jme, kms, kme, &
581 ips, ipe, jps, jpe, kps, kpe )
582 CALL RSL_LITE_PACK ( local_communicator, grid%xb%wh, 2, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
583 mytask, ntasks, ntasks_x, ntasks_y, &
584 ids, ide, jds, jde, kds, kde, &
585 ims, ime, jms, jme, kms, kme, &
586 ips, ipe, jps, jpe, kps, kpe )
587 CALL RSL_LITE_PACK ( local_communicator, grid%xb%t, 2, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
588 mytask, ntasks, ntasks_x, ntasks_y, &
589 ids, ide, jds, jde, kds, kde, &
590 ims, ime, jms, jme, kms, kme, &
591 ips, ipe, jps, jpe, kps, kpe )
592 CALL RSL_LITE_PACK ( local_communicator, grid%xb%p, 2, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
593 mytask, ntasks, ntasks_x, ntasks_y, &
594 ids, ide, jds, jde, kds, kde, &
595 ims, ime, jms, jme, kms, kme, &
596 ips, ipe, jps, jpe, kps, kpe )
597 CALL RSL_LITE_PACK ( local_communicator, grid%xb%q, 2, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
598 mytask, ntasks, ntasks_x, ntasks_y, &
599 ids, ide, jds, jde, kds, kde, &
600 ims, ime, jms, jme, kms, kme, &
601 ips, ipe, jps, jpe, kps, kpe )
602 CALL RSL_LITE_PACK ( local_communicator, grid%xb%qrn, 2, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
603 mytask, ntasks, ntasks_x, ntasks_y, &
604 ids, ide, jds, jde, kds, kde, &
605 ims, ime, jms, jme, kms, kme, &
606 ips, ipe, jps, jpe, kps, kpe )
607 CALL RSL_LITE_PACK ( local_communicator, grid%xb%qcw, 2, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
608 mytask, ntasks, ntasks_x, ntasks_y, &
609 ids, ide, jds, jde, kds, kde, &
610 ims, ime, jms, jme, kms, kme, &
611 ips, ipe, jps, jpe, kps, kpe )
612 CALL RSL_LITE_PACK ( local_communicator, grid%xb%qt, 2, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
613 mytask, ntasks, ntasks_x, ntasks_y, &
614 ids, ide, jds, jde, kds, kde, &
615 ims, ime, jms, jme, kms, kme, &
616 ips, ipe, jps, jpe, kps, kpe )
617 CALL RSL_LITE_PACK ( local_communicator, grid%xb%rho, 2, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
618 mytask, ntasks, ntasks_x, ntasks_y, &
619 ids, ide, jds, jde, kds, kde, &
620 ims, ime, jms, jme, kms, kme, &
621 ips, ipe, jps, jpe, kps, kpe )
622 CALL RSL_LITE_PACK ( local_communicator, grid%xb%rh, 2, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
623 mytask, ntasks, ntasks_x, ntasks_y, &
624 ids, ide, jds, jde, kds, kde, &
625 ims, ime, jms, jme, kms, kme, &
626 ips, ipe, jps, jpe, kps, kpe )
627 CALL RSL_LITE_PACK ( local_communicator, grid%xb%h, 2, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
628 mytask, ntasks, ntasks_x, ntasks_y, &
629 ids, ide, jds, jde, kds, kde, &
630 ims, ime, jms, jme, kms, kme, &
631 ips, ipe, jps, jpe, kps, kpe )
632 CALL RSL_LITE_PACK ( local_communicator, grid%xb%hf, 2, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
633 mytask, ntasks, ntasks_x, ntasks_y, &
634 ids, ide, jds, jde, kds, kde, &
635 ims, ime, jms, jme, kms, kme, &
636 ips, ipe, jps, jpe, kps, kpe )
637 CALL RSL_LITE_PACK ( local_communicator, grid%xb%u10, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
638 mytask, ntasks, ntasks_x, ntasks_y, &
639 ids, ide, jds, jde, 1 , 1 , &
640 ims, ime, jms, jme, 1 , 1 , &
641 ips, ipe, jps, jpe, 1 , 1 )
642 CALL RSL_LITE_PACK ( local_communicator, grid%xb%v10, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
643 mytask, ntasks, ntasks_x, ntasks_y, &
644 ids, ide, jds, jde, 1 , 1 , &
645 ims, ime, jms, jme, 1 , 1 , &
646 ips, ipe, jps, jpe, 1 , 1 )
647 CALL RSL_LITE_PACK ( local_communicator, grid%xb%t2, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
648 mytask, ntasks, ntasks_x, ntasks_y, &
649 ids, ide, jds, jde, 1 , 1 , &
650 ims, ime, jms, jme, 1 , 1 , &
651 ips, ipe, jps, jpe, 1 , 1 )
652 CALL RSL_LITE_PACK ( local_communicator, grid%xb%q2, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
653 mytask, ntasks, ntasks_x, ntasks_y, &
654 ids, ide, jds, jde, 1 , 1 , &
655 ims, ime, jms, jme, 1 , 1 , &
656 ips, ipe, jps, jpe, 1 , 1 )
657 CALL RSL_LITE_PACK ( local_communicator, grid%xb%terr, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
658 mytask, ntasks, ntasks_x, ntasks_y, &
659 ids, ide, jds, jde, 1 , 1 , &
660 ims, ime, jms, jme, 1 , 1 , &
661 ips, ipe, jps, jpe, 1 , 1 )
662 CALL RSL_LITE_PACK ( local_communicator, grid%xb%psfc, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
663 mytask, ntasks, ntasks_x, ntasks_y, &
664 ids, ide, jds, jde, 1 , 1 , &
665 ims, ime, jms, jme, 1 , 1 , &
666 ips, ipe, jps, jpe, 1 , 1 )
667 CALL RSL_LITE_PACK ( local_communicator, grid%xb%regime, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
668 mytask, ntasks, ntasks_x, ntasks_y, &
669 ids, ide, jds, jde, 1 , 1 , &
670 ims, ime, jms, jme, 1 , 1 , &
671 ips, ipe, jps, jpe, 1 , 1 )
672 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tpw, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
673 mytask, ntasks, ntasks_x, ntasks_y, &
674 ids, ide, jds, jde, 1 , 1 , &
675 ims, ime, jms, jme, 1 , 1 , &
676 ips, ipe, jps, jpe, 1 , 1 )
677 CALL RSL_LITE_PACK ( local_communicator, grid%xb%speed, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
678 mytask, ntasks, ntasks_x, ntasks_y, &
679 ids, ide, jds, jde, 1 , 1 , &
680 ims, ime, jms, jme, 1 , 1 , &
681 ips, ipe, jps, jpe, 1 , 1 )
682 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb19v, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
683 mytask, ntasks, ntasks_x, ntasks_y, &
684 ids, ide, jds, jde, 1 , 1 , &
685 ims, ime, jms, jme, 1 , 1 , &
686 ips, ipe, jps, jpe, 1 , 1 )
687 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb19h, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
688 mytask, ntasks, ntasks_x, ntasks_y, &
689 ids, ide, jds, jde, 1 , 1 , &
690 ims, ime, jms, jme, 1 , 1 , &
691 ips, ipe, jps, jpe, 1 , 1 )
692 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb22v, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
693 mytask, ntasks, ntasks_x, ntasks_y, &
694 ids, ide, jds, jde, 1 , 1 , &
695 ims, ime, jms, jme, 1 , 1 , &
696 ips, ipe, jps, jpe, 1 , 1 )
697 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb37v, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
698 mytask, ntasks, ntasks_x, ntasks_y, &
699 ids, ide, jds, jde, 1 , 1 , &
700 ims, ime, jms, jme, 1 , 1 , &
701 ips, ipe, jps, jpe, 1 , 1 )
702 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb37h, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
703 mytask, ntasks, ntasks_x, ntasks_y, &
704 ids, ide, jds, jde, 1 , 1 , &
705 ims, ime, jms, jme, 1 , 1 , &
706 ips, ipe, jps, jpe, 1 , 1 )
707 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb85v, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
708 mytask, ntasks, ntasks_x, ntasks_y, &
709 ids, ide, jds, jde, 1 , 1 , &
710 ims, ime, jms, jme, 1 , 1 , &
711 ips, ipe, jps, jpe, 1 , 1 )
712 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb85h, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
713 mytask, ntasks, ntasks_x, ntasks_y, &
714 ids, ide, jds, jde, 1 , 1 , &
715 ims, ime, jms, jme, 1 , 1 , &
716 ips, ipe, jps, jpe, 1 , 1 )
717 CALL RSL_LITE_PACK ( local_communicator, grid%xb%ref, 2, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
718 mytask, ntasks, ntasks_x, ntasks_y, &
719 ids, ide, jds, jde, kds, kde, &
720 ims, ime, jms, jme, kms, kme, &
721 ips, ipe, jps, jpe, kps, kpe )
722 CALL RSL_LITE_PACK ( local_communicator, grid%xb%delt, 2, RWORDSIZE, 1, 0, DATA_ORDER_XYZ, 0, &
723 mytask, ntasks, ntasks_x, ntasks_y, &
724 ids, ide, jds, jde, kds, kde, &
725 ims, ime, jms, jme, kms, kme, &
726 ips, ipe, jps, jpe, kps, kpe )
727 CALL RSL_LITE_PACK ( local_communicator, grid%xb%slp, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
728 mytask, ntasks, ntasks_x, ntasks_y, &
729 ids, ide, jds, jde, 1 , 1 , &
730 ims, ime, jms, jme, 1 , 1 , &
731 ips, ipe, jps, jpe, 1 , 1 )
732 CALL RSL_LITE_PACK ( local_communicator, grid%xb%coefx, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
733 mytask, ntasks, ntasks_x, ntasks_y, &
734 ids, ide, jds, jde, 1 , 1 , &
735 ims, ime, jms, jme, 1 , 1 , &
736 ips, ipe, jps, jpe, 1 , 1 )
737 CALL RSL_LITE_PACK ( local_communicator, grid%xb%coefy, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
738 mytask, ntasks, ntasks_x, ntasks_y, &
739 ids, ide, jds, jde, 1 , 1 , &
740 ims, ime, jms, jme, 1 , 1 , &
741 ips, ipe, jps, jpe, 1 , 1 )
742 CALL RSL_LITE_PACK ( local_communicator, grid%xb%coefz, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
743 mytask, ntasks, ntasks_x, ntasks_y, &
744 ids, ide, jds, jde, 1 , 1 , &
745 ims, ime, jms, jme, 1 , 1 , &
746 ips, ipe, jps, jpe, 1 , 1 )
747 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tsk, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
748 mytask, ntasks, ntasks_x, ntasks_y, &
749 ids, ide, jds, jde, 1 , 1 , &
750 ims, ime, jms, jme, 1 , 1 , &
751 ips, ipe, jps, jpe, 1 , 1 )
752 CALL RSL_LITE_PACK ( local_communicator, grid%xb%smois, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
753 mytask, ntasks, ntasks_x, ntasks_y, &
754 ids, ide, jds, jde, 1 , 1 , &
755 ims, ime, jms, jme, 1 , 1 , &
756 ips, ipe, jps, jpe, 1 , 1 )
757 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tslb, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
758 mytask, ntasks, ntasks_x, ntasks_y, &
759 ids, ide, jds, jde, 1 , 1 , &
760 ims, ime, jms, jme, 1 , 1 , &
761 ips, ipe, jps, jpe, 1 , 1 )
762 CALL RSL_LITE_PACK ( local_communicator, grid%xb%xice, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
763 mytask, ntasks, ntasks_x, ntasks_y, &
764 ids, ide, jds, jde, 1 , 1 , &
765 ims, ime, jms, jme, 1 , 1 , &
766 ips, ipe, jps, jpe, 1 , 1 )
767 CALL RSL_LITE_PACK ( local_communicator, grid%xb%ivgtyp, 2, IWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
768 mytask, ntasks, ntasks_x, ntasks_y, &
769 ids, ide, jds, jde, 1 , 1 , &
770 ims, ime, jms, jme, 1 , 1 , &
771 ips, ipe, jps, jpe, 1 , 1 )
772 CALL RSL_LITE_PACK ( local_communicator, grid%xb%isltyp, 2, IWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
773 mytask, ntasks, ntasks_x, ntasks_y, &
774 ids, ide, jds, jde, 1 , 1 , &
775 ims, ime, jms, jme, 1 , 1 , &
776 ips, ipe, jps, jpe, 1 , 1 )
777 CALL RSL_LITE_PACK ( local_communicator, grid%xb%vegfra, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
778 mytask, ntasks, ntasks_x, ntasks_y, &
779 ids, ide, jds, jde, 1 , 1 , &
780 ims, ime, jms, jme, 1 , 1 , &
781 ips, ipe, jps, jpe, 1 , 1 )
782 CALL RSL_LITE_PACK ( local_communicator, grid%xb%snowh, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
783 mytask, ntasks, ntasks_x, ntasks_y, &
784 ids, ide, jds, jde, 1 , 1 , &
785 ims, ime, jms, jme, 1 , 1 , &
786 ips, ipe, jps, jpe, 1 , 1 )
787 CALL RSL_LITE_PACK ( local_communicator, grid%xb%snow, 2, RWORDSIZE, 1, 0, DATA_ORDER_XY, 0, &
788 mytask, ntasks, ntasks_x, ntasks_y, &
789 ids, ide, jds, jde, 1 , 1 , &
790 ims, ime, jms, jme, 1 , 1 , &
791 ips, ipe, jps, jpe, 1 , 1 )
792 CALL RSL_LITE_EXCH_X ( local_communicator , mytask, ntasks, ntasks_x, ntasks_y )
793 CALL RSL_LITE_PACK ( local_communicator, grid%xb%map_factor, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
794 mytask, ntasks, ntasks_x, ntasks_y, &
795 ids, ide, jds, jde, 1 , 1 , &
796 ims, ime, jms, jme, 1 , 1 , &
797 ips, ipe, jps, jpe, 1 , 1 )
798 CALL RSL_LITE_PACK ( local_communicator, grid%xb%psac, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
799 mytask, ntasks, ntasks_x, ntasks_y, &
800 ids, ide, jds, jde, 1 , 1 , &
801 ims, ime, jms, jme, 1 , 1 , &
802 ips, ipe, jps, jpe, 1 , 1 )
803 CALL RSL_LITE_PACK ( local_communicator, grid%xb%rough, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
804 mytask, ntasks, ntasks_x, ntasks_y, &
805 ids, ide, jds, jde, 1 , 1 , &
806 ims, ime, jms, jme, 1 , 1 , &
807 ips, ipe, jps, jpe, 1 , 1 )
808 CALL RSL_LITE_PACK ( local_communicator, grid%xb%xland, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
809 mytask, ntasks, ntasks_x, ntasks_y, &
810 ids, ide, jds, jde, 1 , 1 , &
811 ims, ime, jms, jme, 1 , 1 , &
812 ips, ipe, jps, jpe, 1 , 1 )
813 CALL RSL_LITE_PACK ( local_communicator, grid%xb%landmask, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
814 mytask, ntasks, ntasks_x, ntasks_y, &
815 ids, ide, jds, jde, 1 , 1 , &
816 ims, ime, jms, jme, 1 , 1 , &
817 ips, ipe, jps, jpe, 1 , 1 )
818 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tgrn, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
819 mytask, ntasks, ntasks_x, ntasks_y, &
820 ids, ide, jds, jde, 1 , 1 , &
821 ims, ime, jms, jme, 1 , 1 , &
822 ips, ipe, jps, jpe, 1 , 1 )
823 CALL RSL_LITE_PACK ( local_communicator, grid%xb%u, 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
824 mytask, ntasks, ntasks_x, ntasks_y, &
825 ids, ide, jds, jde, kds, kde, &
826 ims, ime, jms, jme, kms, kme, &
827 ips, ipe, jps, jpe, kps, kpe )
828 CALL RSL_LITE_PACK ( local_communicator, grid%xb%v, 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
829 mytask, ntasks, ntasks_x, ntasks_y, &
830 ids, ide, jds, jde, kds, kde, &
831 ims, ime, jms, jme, kms, kme, &
832 ips, ipe, jps, jpe, kps, kpe )
833 CALL RSL_LITE_PACK ( local_communicator, grid%xb%w, 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
834 mytask, ntasks, ntasks_x, ntasks_y, &
835 ids, ide, jds, jde, kds, kde, &
836 ims, ime, jms, jme, kms, kme, &
837 ips, ipe, jps, jpe, kps, kpe )
838 CALL RSL_LITE_PACK ( local_communicator, grid%xb%wh, 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
839 mytask, ntasks, ntasks_x, ntasks_y, &
840 ids, ide, jds, jde, kds, kde, &
841 ims, ime, jms, jme, kms, kme, &
842 ips, ipe, jps, jpe, kps, kpe )
843 CALL RSL_LITE_PACK ( local_communicator, grid%xb%t, 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
844 mytask, ntasks, ntasks_x, ntasks_y, &
845 ids, ide, jds, jde, kds, kde, &
846 ims, ime, jms, jme, kms, kme, &
847 ips, ipe, jps, jpe, kps, kpe )
848 CALL RSL_LITE_PACK ( local_communicator, grid%xb%p, 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
849 mytask, ntasks, ntasks_x, ntasks_y, &
850 ids, ide, jds, jde, kds, kde, &
851 ims, ime, jms, jme, kms, kme, &
852 ips, ipe, jps, jpe, kps, kpe )
853 CALL RSL_LITE_PACK ( local_communicator, grid%xb%q, 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
854 mytask, ntasks, ntasks_x, ntasks_y, &
855 ids, ide, jds, jde, kds, kde, &
856 ims, ime, jms, jme, kms, kme, &
857 ips, ipe, jps, jpe, kps, kpe )
858 CALL RSL_LITE_PACK ( local_communicator, grid%xb%qrn, 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
859 mytask, ntasks, ntasks_x, ntasks_y, &
860 ids, ide, jds, jde, kds, kde, &
861 ims, ime, jms, jme, kms, kme, &
862 ips, ipe, jps, jpe, kps, kpe )
863 CALL RSL_LITE_PACK ( local_communicator, grid%xb%qcw, 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
864 mytask, ntasks, ntasks_x, ntasks_y, &
865 ids, ide, jds, jde, kds, kde, &
866 ims, ime, jms, jme, kms, kme, &
867 ips, ipe, jps, jpe, kps, kpe )
868 CALL RSL_LITE_PACK ( local_communicator, grid%xb%qt, 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
869 mytask, ntasks, ntasks_x, ntasks_y, &
870 ids, ide, jds, jde, kds, kde, &
871 ims, ime, jms, jme, kms, kme, &
872 ips, ipe, jps, jpe, kps, kpe )
873 CALL RSL_LITE_PACK ( local_communicator, grid%xb%rho, 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
874 mytask, ntasks, ntasks_x, ntasks_y, &
875 ids, ide, jds, jde, kds, kde, &
876 ims, ime, jms, jme, kms, kme, &
877 ips, ipe, jps, jpe, kps, kpe )
878 CALL RSL_LITE_PACK ( local_communicator, grid%xb%rh, 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
879 mytask, ntasks, ntasks_x, ntasks_y, &
880 ids, ide, jds, jde, kds, kde, &
881 ims, ime, jms, jme, kms, kme, &
882 ips, ipe, jps, jpe, kps, kpe )
883 CALL RSL_LITE_PACK ( local_communicator, grid%xb%h, 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
884 mytask, ntasks, ntasks_x, ntasks_y, &
885 ids, ide, jds, jde, kds, kde, &
886 ims, ime, jms, jme, kms, kme, &
887 ips, ipe, jps, jpe, kps, kpe )
888 CALL RSL_LITE_PACK ( local_communicator, grid%xb%hf, 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
889 mytask, ntasks, ntasks_x, ntasks_y, &
890 ids, ide, jds, jde, kds, kde, &
891 ims, ime, jms, jme, kms, kme, &
892 ips, ipe, jps, jpe, kps, kpe )
893 CALL RSL_LITE_PACK ( local_communicator, grid%xb%u10, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
894 mytask, ntasks, ntasks_x, ntasks_y, &
895 ids, ide, jds, jde, 1 , 1 , &
896 ims, ime, jms, jme, 1 , 1 , &
897 ips, ipe, jps, jpe, 1 , 1 )
898 CALL RSL_LITE_PACK ( local_communicator, grid%xb%v10, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
899 mytask, ntasks, ntasks_x, ntasks_y, &
900 ids, ide, jds, jde, 1 , 1 , &
901 ims, ime, jms, jme, 1 , 1 , &
902 ips, ipe, jps, jpe, 1 , 1 )
903 CALL RSL_LITE_PACK ( local_communicator, grid%xb%t2, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
904 mytask, ntasks, ntasks_x, ntasks_y, &
905 ids, ide, jds, jde, 1 , 1 , &
906 ims, ime, jms, jme, 1 , 1 , &
907 ips, ipe, jps, jpe, 1 , 1 )
908 CALL RSL_LITE_PACK ( local_communicator, grid%xb%q2, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
909 mytask, ntasks, ntasks_x, ntasks_y, &
910 ids, ide, jds, jde, 1 , 1 , &
911 ims, ime, jms, jme, 1 , 1 , &
912 ips, ipe, jps, jpe, 1 , 1 )
913 CALL RSL_LITE_PACK ( local_communicator, grid%xb%terr, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
914 mytask, ntasks, ntasks_x, ntasks_y, &
915 ids, ide, jds, jde, 1 , 1 , &
916 ims, ime, jms, jme, 1 , 1 , &
917 ips, ipe, jps, jpe, 1 , 1 )
918 CALL RSL_LITE_PACK ( local_communicator, grid%xb%psfc, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
919 mytask, ntasks, ntasks_x, ntasks_y, &
920 ids, ide, jds, jde, 1 , 1 , &
921 ims, ime, jms, jme, 1 , 1 , &
922 ips, ipe, jps, jpe, 1 , 1 )
923 CALL RSL_LITE_PACK ( local_communicator, grid%xb%regime, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
924 mytask, ntasks, ntasks_x, ntasks_y, &
925 ids, ide, jds, jde, 1 , 1 , &
926 ims, ime, jms, jme, 1 , 1 , &
927 ips, ipe, jps, jpe, 1 , 1 )
928 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tpw, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
929 mytask, ntasks, ntasks_x, ntasks_y, &
930 ids, ide, jds, jde, 1 , 1 , &
931 ims, ime, jms, jme, 1 , 1 , &
932 ips, ipe, jps, jpe, 1 , 1 )
933 CALL RSL_LITE_PACK ( local_communicator, grid%xb%speed, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
934 mytask, ntasks, ntasks_x, ntasks_y, &
935 ids, ide, jds, jde, 1 , 1 , &
936 ims, ime, jms, jme, 1 , 1 , &
937 ips, ipe, jps, jpe, 1 , 1 )
938 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb19v, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
939 mytask, ntasks, ntasks_x, ntasks_y, &
940 ids, ide, jds, jde, 1 , 1 , &
941 ims, ime, jms, jme, 1 , 1 , &
942 ips, ipe, jps, jpe, 1 , 1 )
943 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb19h, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
944 mytask, ntasks, ntasks_x, ntasks_y, &
945 ids, ide, jds, jde, 1 , 1 , &
946 ims, ime, jms, jme, 1 , 1 , &
947 ips, ipe, jps, jpe, 1 , 1 )
948 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb22v, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
949 mytask, ntasks, ntasks_x, ntasks_y, &
950 ids, ide, jds, jde, 1 , 1 , &
951 ims, ime, jms, jme, 1 , 1 , &
952 ips, ipe, jps, jpe, 1 , 1 )
953 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb37v, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
954 mytask, ntasks, ntasks_x, ntasks_y, &
955 ids, ide, jds, jde, 1 , 1 , &
956 ims, ime, jms, jme, 1 , 1 , &
957 ips, ipe, jps, jpe, 1 , 1 )
958 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb37h, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
959 mytask, ntasks, ntasks_x, ntasks_y, &
960 ids, ide, jds, jde, 1 , 1 , &
961 ims, ime, jms, jme, 1 , 1 , &
962 ips, ipe, jps, jpe, 1 , 1 )
963 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb85v, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
964 mytask, ntasks, ntasks_x, ntasks_y, &
965 ids, ide, jds, jde, 1 , 1 , &
966 ims, ime, jms, jme, 1 , 1 , &
967 ips, ipe, jps, jpe, 1 , 1 )
968 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tb85h, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
969 mytask, ntasks, ntasks_x, ntasks_y, &
970 ids, ide, jds, jde, 1 , 1 , &
971 ims, ime, jms, jme, 1 , 1 , &
972 ips, ipe, jps, jpe, 1 , 1 )
973 CALL RSL_LITE_PACK ( local_communicator, grid%xb%ref, 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
974 mytask, ntasks, ntasks_x, ntasks_y, &
975 ids, ide, jds, jde, kds, kde, &
976 ims, ime, jms, jme, kms, kme, &
977 ips, ipe, jps, jpe, kps, kpe )
978 CALL RSL_LITE_PACK ( local_communicator, grid%xb%delt, 2, RWORDSIZE, 1, 1, DATA_ORDER_XYZ, 0, &
979 mytask, ntasks, ntasks_x, ntasks_y, &
980 ids, ide, jds, jde, kds, kde, &
981 ims, ime, jms, jme, kms, kme, &
982 ips, ipe, jps, jpe, kps, kpe )
983 CALL RSL_LITE_PACK ( local_communicator, grid%xb%slp, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
984 mytask, ntasks, ntasks_x, ntasks_y, &
985 ids, ide, jds, jde, 1 , 1 , &
986 ims, ime, jms, jme, 1 , 1 , &
987 ips, ipe, jps, jpe, 1 , 1 )
988 CALL RSL_LITE_PACK ( local_communicator, grid%xb%coefx, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
989 mytask, ntasks, ntasks_x, ntasks_y, &
990 ids, ide, jds, jde, 1 , 1 , &
991 ims, ime, jms, jme, 1 , 1 , &
992 ips, ipe, jps, jpe, 1 , 1 )
993 CALL RSL_LITE_PACK ( local_communicator, grid%xb%coefy, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
994 mytask, ntasks, ntasks_x, ntasks_y, &
995 ids, ide, jds, jde, 1 , 1 , &
996 ims, ime, jms, jme, 1 , 1 , &
997 ips, ipe, jps, jpe, 1 , 1 )
998 CALL RSL_LITE_PACK ( local_communicator, grid%xb%coefz, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
999 mytask, ntasks, ntasks_x, ntasks_y, &
1000 ids, ide, jds, jde, 1 , 1 , &
1001 ims, ime, jms, jme, 1 , 1 , &
1002 ips, ipe, jps, jpe, 1 , 1 )
1003 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tsk, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1004 mytask, ntasks, ntasks_x, ntasks_y, &
1005 ids, ide, jds, jde, 1 , 1 , &
1006 ims, ime, jms, jme, 1 , 1 , &
1007 ips, ipe, jps, jpe, 1 , 1 )
1008 CALL RSL_LITE_PACK ( local_communicator, grid%xb%smois, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1009 mytask, ntasks, ntasks_x, ntasks_y, &
1010 ids, ide, jds, jde, 1 , 1 , &
1011 ims, ime, jms, jme, 1 , 1 , &
1012 ips, ipe, jps, jpe, 1 , 1 )
1013 CALL RSL_LITE_PACK ( local_communicator, grid%xb%tslb, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1014 mytask, ntasks, ntasks_x, ntasks_y, &
1015 ids, ide, jds, jde, 1 , 1 , &
1016 ims, ime, jms, jme, 1 , 1 , &
1017 ips, ipe, jps, jpe, 1 , 1 )
1018 CALL RSL_LITE_PACK ( local_communicator, grid%xb%xice, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1019 mytask, ntasks, ntasks_x, ntasks_y, &
1020 ids, ide, jds, jde, 1 , 1 , &
1021 ims, ime, jms, jme, 1 , 1 , &
1022 ips, ipe, jps, jpe, 1 , 1 )
1023 CALL RSL_LITE_PACK ( local_communicator, grid%xb%ivgtyp, 2, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1024 mytask, ntasks, ntasks_x, ntasks_y, &
1025 ids, ide, jds, jde, 1 , 1 , &
1026 ims, ime, jms, jme, 1 , 1 , &
1027 ips, ipe, jps, jpe, 1 , 1 )
1028 CALL RSL_LITE_PACK ( local_communicator, grid%xb%isltyp, 2, IWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1029 mytask, ntasks, ntasks_x, ntasks_y, &
1030 ids, ide, jds, jde, 1 , 1 , &
1031 ims, ime, jms, jme, 1 , 1 , &
1032 ips, ipe, jps, jpe, 1 , 1 )
1033 CALL RSL_LITE_PACK ( local_communicator, grid%xb%vegfra, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1034 mytask, ntasks, ntasks_x, ntasks_y, &
1035 ids, ide, jds, jde, 1 , 1 , &
1036 ims, ime, jms, jme, 1 , 1 , &
1037 ips, ipe, jps, jpe, 1 , 1 )
1038 CALL RSL_LITE_PACK ( local_communicator, grid%xb%snowh, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1039 mytask, ntasks, ntasks_x, ntasks_y, &
1040 ids, ide, jds, jde, 1 , 1 , &
1041 ims, ime, jms, jme, 1 , 1 , &
1042 ips, ipe, jps, jpe, 1 , 1 )
1043 CALL RSL_LITE_PACK ( local_communicator, grid%xb%snow, 2, RWORDSIZE, 1, 1, DATA_ORDER_XY, 0, &
1044 mytask, ntasks, ntasks_x, ntasks_y, &
1045 ids, ide, jds, jde, 1 , 1 , &
1046 ims, ime, jms, jme, 1 , 1 , &
1047 ips, ipe, jps, jpe, 1 , 1 )
1048 !ENDOFREGISTRYGENERATEDINCLUDE