em_nest_feedbackup_unpack.inc

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