nodyn_nest_feedbackup_unpack.inc

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