em_nest_feedbackup_unpack.inc

References to this file elsewhere.
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)-(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
94 NEST_INFLUENCE(grid%em_a_phb(pig,pjg,k),xv(k))
95 ENDDO
96 ENDIF
97 CALL rsl_from_child_msg(((ckde)-(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
100 NEST_INFLUENCE(grid%em_g_phb(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_t_2(pig,pjg,k),xv(k))
107 ENDDO
108 ENDIF
109 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
110 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
111 DO k = ckds,(ckde-1)
112 NEST_INFLUENCE(grid%em_a_t_2(pig,pjg,k),xv(k))
113 ENDDO
114 ENDIF
115 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
116 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
117 DO k = ckds,(ckde-1)
118 NEST_INFLUENCE(grid%em_g_t_2(pig,pjg,k),xv(k))
119 ENDDO
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_mu_2(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_a_mu_2(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%em_g_mu_2(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%em_mub(pig,pjg) = xv(1) ;
136 ENDIF
137 CALL rsl_from_child_msg(RWORDSIZE,xv)
138 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
139 grid%em_a_mub(pig,pjg) = xv(1) ;
140 ENDIF
141 CALL rsl_from_child_msg(RWORDSIZE,xv)
142 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
143 grid%em_g_mub(pig,pjg) = xv(1) ;
144 ENDIF
145 CALL rsl_from_child_msg(RWORDSIZE,xv)
146 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
147 grid%em_mu0(pig,pjg) = xv(1) ;
148 ENDIF
149 CALL rsl_from_child_msg(RWORDSIZE,xv)
150 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
151 grid%em_muu(pig,pjg) = xv(1) ;
152 ENDIF
153 CALL rsl_from_child_msg(RWORDSIZE,xv)
154 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
155 grid%em_a_muu(pig,pjg) = xv(1) ;
156 ENDIF
157 CALL rsl_from_child_msg(RWORDSIZE,xv)
158 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
159 grid%em_g_muu(pig,pjg) = xv(1) ;
160 ENDIF
161 CALL rsl_from_child_msg(RWORDSIZE,xv)
162 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
163 grid%em_muv(pig,pjg) = xv(1) ;
164 ENDIF
165 CALL rsl_from_child_msg(RWORDSIZE,xv)
166 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
167 grid%em_a_muv(pig,pjg) = xv(1) ;
168 ENDIF
169 CALL rsl_from_child_msg(RWORDSIZE,xv)
170 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
171 grid%em_g_muv(pig,pjg) = xv(1) ;
172 ENDIF
173 CALL rsl_from_child_msg(RWORDSIZE,xv)
174 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
175 grid%em_mut(pig,pjg) = xv(1) ;
176 ENDIF
177 CALL rsl_from_child_msg(RWORDSIZE,xv)
178 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
179 grid%em_a_mut(pig,pjg) = xv(1) ;
180 ENDIF
181 CALL rsl_from_child_msg(RWORDSIZE,xv)
182 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
183 grid%em_g_mut(pig,pjg) = xv(1) ;
184 ENDIF
185 CALL rsl_from_child_msg(RWORDSIZE,xv)
186 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
187 grid%em_muts(pig,pjg) = xv(1) ;
188 ENDIF
189 CALL rsl_from_child_msg(RWORDSIZE,xv)
190 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
191 grid%em_a_muts(pig,pjg) = xv(1) ;
192 ENDIF
193 CALL rsl_from_child_msg(RWORDSIZE,xv)
194 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
195 grid%em_g_muts(pig,pjg) = xv(1) ;
196 ENDIF
197 CALL rsl_from_child_msg(RWORDSIZE,xv)
198 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
199 grid%nest_pos(pig,pjg) = xv(1) ;
200 ENDIF
201 CALL rsl_from_child_msg(RWORDSIZE,xv)
202 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
203 grid%nest_mask(pig,pjg) = xv(1) ;
204 ENDIF
205 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
206 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
207 DO k = ckds,(ckde-1)
208 NEST_INFLUENCE(grid%em_alb(pig,pjg,k),xv(k))
209 ENDDO
210 ENDIF
211 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
212 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
213 DO k = ckds,(ckde-1)
214 NEST_INFLUENCE(grid%em_pb(pig,pjg,k),xv(k))
215 ENDDO
216 ENDIF
217 IF ( P_qv .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%moist(pig,pjg,k,P_qv),xv(k))
222 ENDDO
223 ENDIF
224 ENDIF
225 IF ( P_qc .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%moist(pig,pjg,k,P_qc),xv(k))
230 ENDDO
231 ENDIF
232 ENDIF
233 IF ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN
234 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
235 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
236 DO k = ckds,(ckde-1)
237 NEST_INFLUENCE(grid%moist(pig,pjg,k,P_qr),xv(k))
238 ENDDO
239 ENDIF
240 ENDIF
241 IF ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN
242 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
243 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
244 DO k = ckds,(ckde-1)
245 NEST_INFLUENCE(grid%moist(pig,pjg,k,P_qi),xv(k))
246 ENDDO
247 ENDIF
248 ENDIF
249 IF ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN
250 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
251 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
252 DO k = ckds,(ckde-1)
253 NEST_INFLUENCE(grid%moist(pig,pjg,k,P_qs),xv(k))
254 ENDDO
255 ENDIF
256 ENDIF
257 IF ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN
258 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
259 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
260 DO k = ckds,(ckde-1)
261 NEST_INFLUENCE(grid%moist(pig,pjg,k,P_qg),xv(k))
262 ENDDO
263 ENDIF
264 ENDIF
265 IF ( P_a_qv .GE. PARAM_FIRST_SCALAR ) THEN
266 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
267 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
268 DO k = ckds,(ckde-1)
269 NEST_INFLUENCE(grid%a_moist(pig,pjg,k,P_a_qv),xv(k))
270 ENDDO
271 ENDIF
272 ENDIF
273 IF ( P_a_qc .GE. PARAM_FIRST_SCALAR ) THEN
274 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
275 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
276 DO k = ckds,(ckde-1)
277 NEST_INFLUENCE(grid%a_moist(pig,pjg,k,P_a_qc),xv(k))
278 ENDDO
279 ENDIF
280 ENDIF
281 IF ( P_a_qr .GE. PARAM_FIRST_SCALAR ) THEN
282 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
283 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
284 DO k = ckds,(ckde-1)
285 NEST_INFLUENCE(grid%a_moist(pig,pjg,k,P_a_qr),xv(k))
286 ENDDO
287 ENDIF
288 ENDIF
289 IF ( P_a_qi .GE. PARAM_FIRST_SCALAR ) THEN
290 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
291 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
292 DO k = ckds,(ckde-1)
293 NEST_INFLUENCE(grid%a_moist(pig,pjg,k,P_a_qi),xv(k))
294 ENDDO
295 ENDIF
296 ENDIF
297 IF ( P_a_qs .GE. PARAM_FIRST_SCALAR ) THEN
298 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
299 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
300 DO k = ckds,(ckde-1)
301 NEST_INFLUENCE(grid%a_moist(pig,pjg,k,P_a_qs),xv(k))
302 ENDDO
303 ENDIF
304 ENDIF
305 IF ( P_a_qg .GE. PARAM_FIRST_SCALAR ) THEN
306 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
307 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
308 DO k = ckds,(ckde-1)
309 NEST_INFLUENCE(grid%a_moist(pig,pjg,k,P_a_qg),xv(k))
310 ENDDO
311 ENDIF
312 ENDIF
313 IF ( P_g_qv .GE. PARAM_FIRST_SCALAR ) THEN
314 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
315 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
316 DO k = ckds,(ckde-1)
317 NEST_INFLUENCE(grid%g_moist(pig,pjg,k,P_g_qv),xv(k))
318 ENDDO
319 ENDIF
320 ENDIF
321 IF ( P_g_qc .GE. PARAM_FIRST_SCALAR ) THEN
322 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
323 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
324 DO k = ckds,(ckde-1)
325 NEST_INFLUENCE(grid%g_moist(pig,pjg,k,P_g_qc),xv(k))
326 ENDDO
327 ENDIF
328 ENDIF
329 IF ( P_g_qr .GE. PARAM_FIRST_SCALAR ) THEN
330 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
331 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
332 DO k = ckds,(ckde-1)
333 NEST_INFLUENCE(grid%g_moist(pig,pjg,k,P_g_qr),xv(k))
334 ENDDO
335 ENDIF
336 ENDIF
337 IF ( P_g_qi .GE. PARAM_FIRST_SCALAR ) THEN
338 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
339 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
340 DO k = ckds,(ckde-1)
341 NEST_INFLUENCE(grid%g_moist(pig,pjg,k,P_g_qi),xv(k))
342 ENDDO
343 ENDIF
344 ENDIF
345 IF ( P_g_qs .GE. PARAM_FIRST_SCALAR ) THEN
346 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
347 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
348 DO k = ckds,(ckde-1)
349 NEST_INFLUENCE(grid%g_moist(pig,pjg,k,P_g_qs),xv(k))
350 ENDDO
351 ENDIF
352 ENDIF
353 IF ( P_g_qg .GE. PARAM_FIRST_SCALAR ) THEN
354 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
355 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
356 DO k = ckds,(ckde-1)
357 NEST_INFLUENCE(grid%g_moist(pig,pjg,k,P_g_qg),xv(k))
358 ENDDO
359 ENDIF
360 ENDIF
361 IF ( P_qni .GE. PARAM_FIRST_SCALAR ) THEN
362 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
363 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
364 DO k = ckds,(ckde-1)
365 NEST_INFLUENCE(grid%scalar(pig,pjg,k,P_qni),xv(k))
366 ENDDO
367 ENDIF
368 ENDIF
369 IF ( P_qt .GE. PARAM_FIRST_SCALAR ) THEN
370 CALL rsl_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
371 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
372 DO k = ckds,(ckde-1)
373 NEST_INFLUENCE(grid%scalar(pig,k,pjg,P_qt),xv(k))
374 ENDDO
375 ENDIF
376 ENDIF
377 CALL rsl_from_child_msg(RWORDSIZE,xv)
378 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
379 grid%landmask(pig,pjg) = xv(1) ;
380 ENDIF
381 CALL rsl_from_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv) ;
382 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
383 DO k = 1,config_flags%num_soil_layers
384 NEST_INFLUENCE(grid%tslb(pig,pjg,k),xv(k))
385 ENDDO
386 ENDIF
387 CALL rsl_from_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv) ;
388 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
389 DO k = 1,config_flags%num_soil_layers
390 NEST_INFLUENCE(grid%smois(pig,pjg,k),xv(k))
391 ENDDO
392 ENDIF
393 CALL rsl_from_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv) ;
394 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
395 DO k = 1,config_flags%num_soil_layers
396 NEST_INFLUENCE(grid%sh2o(pig,pjg,k),xv(k))
397 ENDDO
398 ENDIF
399 CALL rsl_from_child_msg(RWORDSIZE,xv)
400 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
401 grid%xice(pig,pjg) = xv(1) ;
402 ENDIF
403 CALL rsl_from_child_msg(RWORDSIZE,xv)
404 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
405 grid%ivgtyp(pig,pjg) = xv(1) ;
406 ENDIF
407 CALL rsl_from_child_msg(RWORDSIZE,xv)
408 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
409 grid%isltyp(pig,pjg) = xv(1) ;
410 ENDIF
411 CALL rsl_from_child_msg(RWORDSIZE,xv)
412 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
413 grid%vegfra(pig,pjg) = xv(1) ;
414 ENDIF
415 CALL rsl_from_child_msg(RWORDSIZE,xv)
416 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
417 grid%acsnow(pig,pjg) = xv(1) ;
418 ENDIF
419 CALL rsl_from_child_msg(RWORDSIZE,xv)
420 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
421 grid%acsnom(pig,pjg) = xv(1) ;
422 ENDIF
423 CALL rsl_from_child_msg(RWORDSIZE,xv)
424 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
425 grid%snow(pig,pjg) = xv(1) ;
426 ENDIF
427 CALL rsl_from_child_msg(RWORDSIZE,xv)
428 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
429 grid%snowh(pig,pjg) = xv(1) ;
430 ENDIF
431 CALL rsl_from_child_msg(RWORDSIZE,xv)
432 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
433 grid%rhosn(pig,pjg) = xv(1) ;
434 ENDIF
435 CALL rsl_from_child_msg(RWORDSIZE,xv)
436 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
437 grid%canwat(pig,pjg) = xv(1) ;
438 ENDIF
439 CALL rsl_from_child_msg(RWORDSIZE,xv)
440 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
441 grid%msft(pig,pjg) = xv(1) ;
442 ENDIF
443 CALL rsl_from_child_msg(RWORDSIZE,xv)
444 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .TRUE., .FALSE. ) ) THEN
445 grid%msfu(pig,pjg) = xv(1) ;
446 ENDIF
447 CALL rsl_from_child_msg(RWORDSIZE,xv)
448 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .TRUE. ) ) THEN
449 grid%msfv(pig,pjg) = xv(1) ;
450 ENDIF
451 CALL rsl_from_child_msg(RWORDSIZE,xv)
452 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
453 grid%f(pig,pjg) = xv(1) ;
454 ENDIF
455 CALL rsl_from_child_msg(RWORDSIZE,xv)
456 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
457 grid%e(pig,pjg) = xv(1) ;
458 ENDIF
459 CALL rsl_from_child_msg(RWORDSIZE,xv)
460 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
461 grid%sina(pig,pjg) = xv(1) ;
462 ENDIF
463 CALL rsl_from_child_msg(RWORDSIZE,xv)
464 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
465 grid%cosa(pig,pjg) = xv(1) ;
466 ENDIF
467 CALL rsl_from_child_msg(RWORDSIZE,xv)
468 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
469 grid%ht(pig,pjg) = xv(1) ;
470 ENDIF
471 CALL rsl_from_child_msg(RWORDSIZE,xv)
472 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
473 grid%tsk(pig,pjg) = xv(1) ;
474 ENDIF
475 CALL rsl_from_child_msg(RWORDSIZE,xv)
476 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
477 grid%rainc(pig,pjg) = xv(1) ;
478 ENDIF
479 CALL rsl_from_child_msg(RWORDSIZE,xv)
480 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
481 grid%rainnc(pig,pjg) = xv(1) ;
482 ENDIF
483 CALL rsl_from_child_msg(RWORDSIZE,xv)
484 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
485 grid%snownc(pig,pjg) = xv(1) ;
486 ENDIF
487 CALL rsl_from_child_msg(RWORDSIZE,xv)
488 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
489 grid%graupelnc(pig,pjg) = xv(1) ;
490 ENDIF
491 CALL rsl_from_child_msg(RWORDSIZE,xv)
492 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
493 grid%xlat(pig,pjg) = xv(1) ;
494 ENDIF
495 CALL rsl_from_child_msg(RWORDSIZE,xv)
496 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
497 grid%xlong(pig,pjg) = xv(1) ;
498 ENDIF
499 CALL rsl_from_child_msg(RWORDSIZE,xv)
500 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .TRUE., .FALSE. ) ) THEN
501 grid%em_xlat_u(pig,pjg) = xv(1) ;
502 ENDIF
503 CALL rsl_from_child_msg(RWORDSIZE,xv)
504 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .TRUE., .FALSE. ) ) THEN
505 grid%em_xlong_u(pig,pjg) = xv(1) ;
506 ENDIF
507 CALL rsl_from_child_msg(RWORDSIZE,xv)
508 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .TRUE. ) ) THEN
509 grid%em_xlat_v(pig,pjg) = xv(1) ;
510 ENDIF
511 CALL rsl_from_child_msg(RWORDSIZE,xv)
512 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .TRUE. ) ) THEN
513 grid%em_xlong_v(pig,pjg) = xv(1) ;
514 ENDIF
515 CALL rsl_from_child_msg(RWORDSIZE,xv)
516 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
517 grid%tmn(pig,pjg) = xv(1) ;
518 ENDIF
519 CALL rsl_from_child_msg(RWORDSIZE,xv)
520 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
521 grid%xland(pig,pjg) = xv(1) ;
522 ENDIF
523 CALL rsl_from_child_msg(RWORDSIZE,xv)
524 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
525 grid%snowc(pig,pjg) = xv(1) ;
526 ENDIF
527 CALL rsl_from_child_info(i,j,pig,pjg,cm,cn,nig,njg,retval)
528 ENDDO
529 !ENDOFREGISTRYGENERATEDINCLUDE