em_nest_interpdown_unpack.inc

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