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_lite_from_child_info(pig,pjg,retval)
8 DO while ( retval .eq. 1 )
9 CALL rsl_lite_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_lite_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_lite_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%a_u_2(pig,pjg,k),xv(k))
23 ENDDO
24 ENDIF
25 CALL rsl_lite_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%g_u_2(pig,pjg,k),xv(k))
29 ENDDO
30 ENDIF
31 CALL rsl_lite_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_lite_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%a_v_2(pig,pjg,k),xv(k))
41 ENDDO
42 ENDIF
43 CALL rsl_lite_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%g_v_2(pig,pjg,k),xv(k))
47 ENDDO
48 ENDIF
49 CALL rsl_lite_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_lite_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%a_w_2(pig,pjg,k),xv(k))
59 ENDDO
60 ENDIF
61 CALL rsl_lite_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%g_w_2(pig,pjg,k),xv(k))
65 ENDDO
66 ENDIF
67 CALL rsl_lite_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_lite_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%a_ph_2(pig,pjg,k),xv(k))
77 ENDDO
78 ENDIF
79 CALL rsl_lite_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%g_ph_2(pig,pjg,k),xv(k))
83 ENDDO
84 ENDIF
85 CALL rsl_lite_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_lite_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_lite_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%a_t_2(pig,pjg,k),xv(k))
101 ENDDO
102 ENDIF
103 CALL rsl_lite_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%g_t_2(pig,pjg,k),xv(k))
107 ENDDO
108 ENDIF
109 CALL rsl_lite_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_lite_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%a_mu_2(pig,pjg) = xv(1) ;
116 ENDIF
117 CALL rsl_lite_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%g_mu_2(pig,pjg) = xv(1) ;
120 ENDIF
121 CALL rsl_lite_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_lite_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_lite_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_lite_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 DO itrace =  PARAM_FIRST_SCALAR, num_moist
138 CALL rsl_lite_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(moist(pig,pjg,k,itrace),xv(k))
142 ENDDO
143 ENDIF
144 ENDDO
145 DO itrace =  PARAM_FIRST_SCALAR, num_a_moist
146 CALL rsl_lite_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(a_moist(pig,pjg,k,itrace),xv(k))
150 ENDDO
151 ENDIF
152 ENDDO
153 DO itrace =  PARAM_FIRST_SCALAR, num_g_moist
154 CALL rsl_lite_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(g_moist(pig,pjg,k,itrace),xv(k))
158 ENDDO
159 ENDIF
160 ENDDO
161 DO itrace =  PARAM_FIRST_SCALAR, num_scalar
162 CALL rsl_lite_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(scalar(pig,pjg,k,itrace),xv(k))
166 ENDDO
167 ENDIF
168 ENDDO
169 CALL rsl_lite_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%landmask(pig,pjg) = xv(1) ;
172 ENDIF
173 CALL rsl_lite_from_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv) ;
174 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
175 DO k = 1,config_flags%num_soil_layers
176 NEST_INFLUENCE(grid%tslb(pig,pjg,k),xv(k))
177 ENDDO
178 ENDIF
179 CALL rsl_lite_from_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv) ;
180 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
181 DO k = 1,config_flags%num_soil_layers
182 NEST_INFLUENCE(grid%smois(pig,pjg,k),xv(k))
183 ENDDO
184 ENDIF
185 CALL rsl_lite_from_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv) ;
186 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
187 DO k = 1,config_flags%num_soil_layers
188 NEST_INFLUENCE(grid%sh2o(pig,pjg,k),xv(k))
189 ENDDO
190 ENDIF
191 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
192 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
193 grid%xice(pig,pjg) = xv(1) ;
194 ENDIF
195 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
196 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
197 grid%ivgtyp(pig,pjg) = xv(1) ;
198 ENDIF
199 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
200 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
201 grid%isltyp(pig,pjg) = xv(1) ;
202 ENDIF
203 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
204 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
205 grid%vegfra(pig,pjg) = xv(1) ;
206 ENDIF
207 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
208 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
209 grid%acsnow(pig,pjg) = xv(1) ;
210 ENDIF
211 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
212 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
213 grid%acsnom(pig,pjg) = xv(1) ;
214 ENDIF
215 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
216 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
217 grid%snow(pig,pjg) = xv(1) ;
218 ENDIF
219 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
220 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
221 grid%snowh(pig,pjg) = xv(1) ;
222 ENDIF
223 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
224 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
225 grid%rhosn(pig,pjg) = xv(1) ;
226 ENDIF
227 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
228 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
229 grid%canwat(pig,pjg) = xv(1) ;
230 ENDIF
231 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
232 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
233 grid%msft(pig,pjg) = xv(1) ;
234 ENDIF
235 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
236 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .TRUE., .FALSE. ) ) THEN
237 grid%msfu(pig,pjg) = xv(1) ;
238 ENDIF
239 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
240 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .TRUE. ) ) THEN
241 grid%msfv(pig,pjg) = xv(1) ;
242 ENDIF
243 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
244 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
245 grid%f(pig,pjg) = xv(1) ;
246 ENDIF
247 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
248 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
249 grid%e(pig,pjg) = xv(1) ;
250 ENDIF
251 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
252 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
253 grid%sina(pig,pjg) = xv(1) ;
254 ENDIF
255 CALL rsl_lite_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%cosa(pig,pjg) = xv(1) ;
258 ENDIF
259 CALL rsl_lite_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%ht(pig,pjg) = xv(1) ;
262 ENDIF
263 CALL rsl_lite_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%tsk(pig,pjg) = xv(1) ;
266 ENDIF
267 CALL rsl_lite_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%rainc(pig,pjg) = xv(1) ;
270 ENDIF
271 CALL rsl_lite_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%rainnc(pig,pjg) = xv(1) ;
274 ENDIF
275 CALL rsl_lite_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%xlat(pig,pjg) = xv(1) ;
278 ENDIF
279 CALL rsl_lite_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%xlong(pig,pjg) = xv(1) ;
282 ENDIF
283 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
284 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .TRUE., .FALSE. ) ) THEN
285 grid%em_xlat_u(pig,pjg) = xv(1) ;
286 ENDIF
287 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
288 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .TRUE., .FALSE. ) ) THEN
289 grid%em_xlong_u(pig,pjg) = xv(1) ;
290 ENDIF
291 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
292 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .TRUE. ) ) THEN
293 grid%em_xlat_v(pig,pjg) = xv(1) ;
294 ENDIF
295 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
296 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .TRUE. ) ) THEN
297 grid%em_xlong_v(pig,pjg) = xv(1) ;
298 ENDIF
299 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
300 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
301 grid%tmn(pig,pjg) = xv(1) ;
302 ENDIF
303 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
304 IF ( em_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
305 grid%xland(pig,pjg) = xv(1) ;
306 ENDIF
307 CALL rsl_lite_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%snowc(pig,pjg) = xv(1) ;
310 ENDIF
311 CALL rsl_lite_from_child_info(pig,pjg,retval)
312 ENDDO
313 !ENDOFREGISTRYGENERATEDINCLUDE