em_nest_interpdown_pack.inc

1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_nest_interpdown_pack.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 msize = 43 * nlev + 44
8 CALL rsl_to_child_info( grid%domdesc, intermediate_grid%domdesc ,  &
9                         msize*RWORDSIZE,                             &
10                         i,j,pig,pjg,cm,cn,nig,njg,retval )
11 DO while ( retval .eq. 1 )
12 xv(1)=grid%lu_index(pig,pjg)
13 CALL rsl_to_child_msg(RWORDSIZE,xv)
14 DO k = ckds,(ckde-1)
15 xv(k)= grid%em_u_2(pig,pjg,k)
16 ENDDO
17 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
18 DO k = ckds,(ckde-1)
19 xv(k)= grid%em_a_u_2(pig,pjg,k)
20 ENDDO
21 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
22 DO k = ckds,(ckde-1)
23 xv(k)= grid%em_g_u_2(pig,pjg,k)
24 ENDDO
25 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
26 DO k = ckds,(ckde-1)
27 xv(k)= grid%em_v_2(pig,pjg,k)
28 ENDDO
29 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
30 DO k = ckds,(ckde-1)
31 xv(k)= grid%em_a_v_2(pig,pjg,k)
32 ENDDO
33 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
34 DO k = ckds,(ckde-1)
35 xv(k)= grid%em_g_v_2(pig,pjg,k)
36 ENDDO
37 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
38 DO k = ckds,ckde
39 xv(k)= grid%em_w_2(pig,pjg,k)
40 ENDDO
41 CALL rsl_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
42 DO k = ckds,ckde
43 xv(k)= grid%em_a_w_2(pig,pjg,k)
44 ENDDO
45 CALL rsl_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
46 DO k = ckds,ckde
47 xv(k)= grid%em_g_w_2(pig,pjg,k)
48 ENDDO
49 CALL rsl_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
50 DO k = ckds,ckde
51 xv(k)= grid%em_ph_2(pig,pjg,k)
52 ENDDO
53 CALL rsl_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
54 DO k = ckds,ckde
55 xv(k)= grid%em_a_ph_2(pig,pjg,k)
56 ENDDO
57 CALL rsl_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
58 DO k = ckds,ckde
59 xv(k)= grid%em_g_ph_2(pig,pjg,k)
60 ENDDO
61 CALL rsl_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
62 DO k = ckds,ckde
63 xv(k)= grid%em_phb(pig,pjg,k)
64 ENDDO
65 CALL rsl_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
66 DO k = ckds,ckde
67 xv(k)= grid%em_a_phb(pig,pjg,k)
68 ENDDO
69 CALL rsl_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
70 DO k = ckds,ckde
71 xv(k)= grid%em_g_phb(pig,pjg,k)
72 ENDDO
73 CALL rsl_to_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
74 DO k = ckds,(ckde-1)
75 xv(k)= grid%em_t_2(pig,pjg,k)
76 ENDDO
77 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
78 DO k = ckds,(ckde-1)
79 xv(k)= grid%em_a_t_2(pig,pjg,k)
80 ENDDO
81 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
82 DO k = ckds,(ckde-1)
83 xv(k)= grid%em_g_t_2(pig,pjg,k)
84 ENDDO
85 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
86 xv(1)=grid%em_mu_2(pig,pjg)
87 CALL rsl_to_child_msg(RWORDSIZE,xv)
88 xv(1)=grid%em_a_mu_2(pig,pjg)
89 CALL rsl_to_child_msg(RWORDSIZE,xv)
90 xv(1)=grid%em_g_mu_2(pig,pjg)
91 CALL rsl_to_child_msg(RWORDSIZE,xv)
92 xv(1)=grid%em_mub(pig,pjg)
93 CALL rsl_to_child_msg(RWORDSIZE,xv)
94 xv(1)=grid%em_a_mub(pig,pjg)
95 CALL rsl_to_child_msg(RWORDSIZE,xv)
96 xv(1)=grid%em_g_mub(pig,pjg)
97 CALL rsl_to_child_msg(RWORDSIZE,xv)
98 xv(1)=grid%em_mu0(pig,pjg)
99 CALL rsl_to_child_msg(RWORDSIZE,xv)
100 DO k = ckds,(ckde-1)
101 xv(k)= grid%em_alb(pig,pjg,k)
102 ENDDO
103 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
104 DO k = ckds,(ckde-1)
105 xv(k)= grid%em_pb(pig,pjg,k)
106 ENDDO
107 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
108 IF ( P_qv .GE. PARAM_FIRST_SCALAR ) THEN
109 DO k = ckds,(ckde-1)
110 xv(k)= grid%moist(pig,pjg,k,P_qv)
111 ENDDO
112 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
113 ENDIF
114 IF ( P_qc .GE. PARAM_FIRST_SCALAR ) THEN
115 DO k = ckds,(ckde-1)
116 xv(k)= grid%moist(pig,pjg,k,P_qc)
117 ENDDO
118 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
119 ENDIF
120 IF ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN
121 DO k = ckds,(ckde-1)
122 xv(k)= grid%moist(pig,pjg,k,P_qr)
123 ENDDO
124 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
125 ENDIF
126 IF ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN
127 DO k = ckds,(ckde-1)
128 xv(k)= grid%moist(pig,pjg,k,P_qi)
129 ENDDO
130 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
131 ENDIF
132 IF ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN
133 DO k = ckds,(ckde-1)
134 xv(k)= grid%moist(pig,pjg,k,P_qs)
135 ENDDO
136 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
137 ENDIF
138 IF ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN
139 DO k = ckds,(ckde-1)
140 xv(k)= grid%moist(pig,pjg,k,P_qg)
141 ENDDO
142 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
143 ENDIF
144 IF ( P_a_qv .GE. PARAM_FIRST_SCALAR ) THEN
145 DO k = ckds,(ckde-1)
146 xv(k)= grid%a_moist(pig,pjg,k,P_a_qv)
147 ENDDO
148 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
149 ENDIF
150 IF ( P_a_qc .GE. PARAM_FIRST_SCALAR ) THEN
151 DO k = ckds,(ckde-1)
152 xv(k)= grid%a_moist(pig,pjg,k,P_a_qc)
153 ENDDO
154 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
155 ENDIF
156 IF ( P_a_qr .GE. PARAM_FIRST_SCALAR ) THEN
157 DO k = ckds,(ckde-1)
158 xv(k)= grid%a_moist(pig,pjg,k,P_a_qr)
159 ENDDO
160 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
161 ENDIF
162 IF ( P_a_qi .GE. PARAM_FIRST_SCALAR ) THEN
163 DO k = ckds,(ckde-1)
164 xv(k)= grid%a_moist(pig,pjg,k,P_a_qi)
165 ENDDO
166 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
167 ENDIF
168 IF ( P_a_qs .GE. PARAM_FIRST_SCALAR ) THEN
169 DO k = ckds,(ckde-1)
170 xv(k)= grid%a_moist(pig,pjg,k,P_a_qs)
171 ENDDO
172 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
173 ENDIF
174 IF ( P_a_qg .GE. PARAM_FIRST_SCALAR ) THEN
175 DO k = ckds,(ckde-1)
176 xv(k)= grid%a_moist(pig,pjg,k,P_a_qg)
177 ENDDO
178 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
179 ENDIF
180 IF ( P_g_qv .GE. PARAM_FIRST_SCALAR ) THEN
181 DO k = ckds,(ckde-1)
182 xv(k)= grid%g_moist(pig,pjg,k,P_g_qv)
183 ENDDO
184 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
185 ENDIF
186 IF ( P_g_qc .GE. PARAM_FIRST_SCALAR ) THEN
187 DO k = ckds,(ckde-1)
188 xv(k)= grid%g_moist(pig,pjg,k,P_g_qc)
189 ENDDO
190 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
191 ENDIF
192 IF ( P_g_qr .GE. PARAM_FIRST_SCALAR ) THEN
193 DO k = ckds,(ckde-1)
194 xv(k)= grid%g_moist(pig,pjg,k,P_g_qr)
195 ENDDO
196 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
197 ENDIF
198 IF ( P_g_qi .GE. PARAM_FIRST_SCALAR ) THEN
199 DO k = ckds,(ckde-1)
200 xv(k)= grid%g_moist(pig,pjg,k,P_g_qi)
201 ENDDO
202 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
203 ENDIF
204 IF ( P_g_qs .GE. PARAM_FIRST_SCALAR ) THEN
205 DO k = ckds,(ckde-1)
206 xv(k)= grid%g_moist(pig,pjg,k,P_g_qs)
207 ENDDO
208 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
209 ENDIF
210 IF ( P_g_qg .GE. PARAM_FIRST_SCALAR ) THEN
211 DO k = ckds,(ckde-1)
212 xv(k)= grid%g_moist(pig,pjg,k,P_g_qg)
213 ENDDO
214 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
215 ENDIF
216 IF ( P_qni .GE. PARAM_FIRST_SCALAR ) THEN
217 DO k = ckds,(ckde-1)
218 xv(k)= grid%scalar(pig,pjg,k,P_qni)
219 ENDDO
220 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
221 ENDIF
222 IF ( P_qt .GE. PARAM_FIRST_SCALAR ) THEN
223 DO k = ckds,(ckde-1)
224 xv(k)= grid%scalar(pig,k,pjg,P_qt)
225 ENDDO
226 CALL rsl_to_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
227 ENDIF
228 xv(1)=grid%landmask(pig,pjg)
229 CALL rsl_to_child_msg(RWORDSIZE,xv)
230 DO k = 1,config_flags%num_soil_layers
231 xv(k)= grid%tslb(pig,pjg,k)
232 ENDDO
233 CALL rsl_to_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
234 DO k = 1,config_flags%num_soil_layers
235 xv(k)= grid%smois(pig,pjg,k)
236 ENDDO
237 CALL rsl_to_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
238 DO k = 1,config_flags%num_soil_layers
239 xv(k)= grid%sh2o(pig,pjg,k)
240 ENDDO
241 CALL rsl_to_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
242 xv(1)=grid%xice(pig,pjg)
243 CALL rsl_to_child_msg(RWORDSIZE,xv)
244 xv(1)=grid%sfcrunoff(pig,pjg)
245 CALL rsl_to_child_msg(RWORDSIZE,xv)
246 xv(1)=grid%udrunoff(pig,pjg)
247 CALL rsl_to_child_msg(RWORDSIZE,xv)
248 xv(1)=grid%ivgtyp(pig,pjg)
249 CALL rsl_to_child_msg(RWORDSIZE,xv)
250 xv(1)=grid%isltyp(pig,pjg)
251 CALL rsl_to_child_msg(RWORDSIZE,xv)
252 xv(1)=grid%vegfra(pig,pjg)
253 CALL rsl_to_child_msg(RWORDSIZE,xv)
254 xv(1)=grid%acsnow(pig,pjg)
255 CALL rsl_to_child_msg(RWORDSIZE,xv)
256 xv(1)=grid%acsnom(pig,pjg)
257 CALL rsl_to_child_msg(RWORDSIZE,xv)
258 xv(1)=grid%snow(pig,pjg)
259 CALL rsl_to_child_msg(RWORDSIZE,xv)
260 xv(1)=grid%snowh(pig,pjg)
261 CALL rsl_to_child_msg(RWORDSIZE,xv)
262 xv(1)=grid%rhosn(pig,pjg)
263 CALL rsl_to_child_msg(RWORDSIZE,xv)
264 xv(1)=grid%canwat(pig,pjg)
265 CALL rsl_to_child_msg(RWORDSIZE,xv)
266 xv(1)=grid%sst(pig,pjg)
267 CALL rsl_to_child_msg(RWORDSIZE,xv)
268 xv(1)=grid%msft(pig,pjg)
269 CALL rsl_to_child_msg(RWORDSIZE,xv)
270 xv(1)=grid%msfu(pig,pjg)
271 CALL rsl_to_child_msg(RWORDSIZE,xv)
272 xv(1)=grid%msfv(pig,pjg)
273 CALL rsl_to_child_msg(RWORDSIZE,xv)
274 xv(1)=grid%f(pig,pjg)
275 CALL rsl_to_child_msg(RWORDSIZE,xv)
276 xv(1)=grid%e(pig,pjg)
277 CALL rsl_to_child_msg(RWORDSIZE,xv)
278 xv(1)=grid%sina(pig,pjg)
279 CALL rsl_to_child_msg(RWORDSIZE,xv)
280 xv(1)=grid%cosa(pig,pjg)
281 CALL rsl_to_child_msg(RWORDSIZE,xv)
282 xv(1)=grid%ht(pig,pjg)
283 CALL rsl_to_child_msg(RWORDSIZE,xv)
284 xv(1)=grid%tsk(pig,pjg)
285 CALL rsl_to_child_msg(RWORDSIZE,xv)
286 xv(1)=grid%rainc(pig,pjg)
287 CALL rsl_to_child_msg(RWORDSIZE,xv)
288 xv(1)=grid%rainnc(pig,pjg)
289 CALL rsl_to_child_msg(RWORDSIZE,xv)
290 xv(1)=grid%snownc(pig,pjg)
291 CALL rsl_to_child_msg(RWORDSIZE,xv)
292 xv(1)=grid%graupelnc(pig,pjg)
293 CALL rsl_to_child_msg(RWORDSIZE,xv)
294 xv(1)=grid%xlat(pig,pjg)
295 CALL rsl_to_child_msg(RWORDSIZE,xv)
296 xv(1)=grid%xlong(pig,pjg)
297 CALL rsl_to_child_msg(RWORDSIZE,xv)
298 xv(1)=grid%em_xlat_u(pig,pjg)
299 CALL rsl_to_child_msg(RWORDSIZE,xv)
300 xv(1)=grid%em_xlong_u(pig,pjg)
301 CALL rsl_to_child_msg(RWORDSIZE,xv)
302 xv(1)=grid%em_xlat_v(pig,pjg)
303 CALL rsl_to_child_msg(RWORDSIZE,xv)
304 xv(1)=grid%em_xlong_v(pig,pjg)
305 CALL rsl_to_child_msg(RWORDSIZE,xv)
306 xv(1)=grid%tmn(pig,pjg)
307 CALL rsl_to_child_msg(RWORDSIZE,xv)
308 xv(1)=grid%xland(pig,pjg)
309 CALL rsl_to_child_msg(RWORDSIZE,xv)
310 xv(1)=grid%snowc(pig,pjg)
311 CALL rsl_to_child_msg(RWORDSIZE,xv)
312 CALL rsl_to_child_info( grid%domdesc, intermediate_grid%domdesc ,  &
313                         msize*RWORDSIZE,                             &
314                         i,j,pig,pjg,cm,cn,nig,njg,retval )
315 ENDDO
316 !ENDOFREGISTRYGENERATEDINCLUDE