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_lite_from_child_info(pig,pjg,retval)
8 DO while ( retval .eq. 1 )
9 CALL rsl_lite_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_lite_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
14 IF ( nodyn_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%a_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 ( nodyn_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%g_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 ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .TRUE. ) ) THEN
27 DO k = ckds,(ckde-1)
28 NEST_INFLUENCE(grid%a_v_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 ( nodyn_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%g_v_2(pig,pjg,k),xv(k))
35 ENDDO
36 ENDIF
37 CALL rsl_lite_from_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv) ;
38 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
39 DO k = ckds,ckde
40 NEST_INFLUENCE(grid%a_w_2(pig,pjg,k),xv(k))
41 ENDDO
42 ENDIF
43 CALL rsl_lite_from_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv) ;
44 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
45 DO k = ckds,ckde
46 NEST_INFLUENCE(grid%g_w_2(pig,pjg,k),xv(k))
47 ENDDO
48 ENDIF
49 CALL rsl_lite_from_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv) ;
50 IF ( nodyn_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%a_ph_2(pig,pjg,k),xv(k))
53 ENDDO
54 ENDIF
55 CALL rsl_lite_from_child_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv) ;
56 IF ( nodyn_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%g_ph_2(pig,pjg,k),xv(k))
59 ENDDO
60 ENDIF
61 CALL rsl_lite_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
62 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
63 DO k = ckds,(ckde-1)
64 NEST_INFLUENCE(grid%a_t_2(pig,pjg,k),xv(k))
65 ENDDO
66 ENDIF
67 CALL rsl_lite_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
68 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
69 DO k = ckds,(ckde-1)
70 NEST_INFLUENCE(grid%g_t_2(pig,pjg,k),xv(k))
71 ENDDO
72 ENDIF
73 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
74 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
75 grid%a_mu_2(pig,pjg) = xv(1) ;
76 ENDIF
77 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
78 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
79 grid%g_mu_2(pig,pjg) = xv(1) ;
80 ENDIF
81 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
82 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
83 grid%nest_pos(pig,pjg) = xv(1) ;
84 ENDIF
85 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
86 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
87 grid%nest_mask(pig,pjg) = xv(1) ;
88 ENDIF
89 DO itrace =  PARAM_FIRST_SCALAR, num_moist
90 CALL rsl_lite_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
91 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
92 DO k = ckds,(ckde-1)
93 NEST_INFLUENCE(moist(pig,pjg,k,itrace),xv(k))
94 ENDDO
95 ENDIF
96 ENDDO
97 DO itrace =  PARAM_FIRST_SCALAR, num_a_moist
98 CALL rsl_lite_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
99 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
100 DO k = ckds,(ckde-1)
101 NEST_INFLUENCE(a_moist(pig,pjg,k,itrace),xv(k))
102 ENDDO
103 ENDIF
104 ENDDO
105 DO itrace =  PARAM_FIRST_SCALAR, num_g_moist
106 CALL rsl_lite_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
107 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
108 DO k = ckds,(ckde-1)
109 NEST_INFLUENCE(g_moist(pig,pjg,k,itrace),xv(k))
110 ENDDO
111 ENDIF
112 ENDDO
113 DO itrace =  PARAM_FIRST_SCALAR, num_scalar
114 CALL rsl_lite_from_child_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv) ;
115 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
116 DO k = ckds,(ckde-1)
117 NEST_INFLUENCE(scalar(pig,pjg,k,itrace),xv(k))
118 ENDDO
119 ENDIF
120 ENDDO
121 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
122 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
123 grid%landmask(pig,pjg) = xv(1) ;
124 ENDIF
125 CALL rsl_lite_from_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv) ;
126 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
127 DO k = 1,config_flags%num_soil_layers
128 NEST_INFLUENCE(grid%tslb(pig,pjg,k),xv(k))
129 ENDDO
130 ENDIF
131 CALL rsl_lite_from_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv) ;
132 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
133 DO k = 1,config_flags%num_soil_layers
134 NEST_INFLUENCE(grid%smois(pig,pjg,k),xv(k))
135 ENDDO
136 ENDIF
137 CALL rsl_lite_from_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv) ;
138 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
139 DO k = 1,config_flags%num_soil_layers
140 NEST_INFLUENCE(grid%sh2o(pig,pjg,k),xv(k))
141 ENDDO
142 ENDIF
143 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
144 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
145 grid%xice(pig,pjg) = xv(1) ;
146 ENDIF
147 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
148 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
149 grid%ivgtyp(pig,pjg) = xv(1) ;
150 ENDIF
151 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
152 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
153 grid%isltyp(pig,pjg) = xv(1) ;
154 ENDIF
155 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
156 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
157 grid%vegfra(pig,pjg) = xv(1) ;
158 ENDIF
159 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
160 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
161 grid%acsnow(pig,pjg) = xv(1) ;
162 ENDIF
163 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
164 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
165 grid%acsnom(pig,pjg) = xv(1) ;
166 ENDIF
167 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
168 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
169 grid%snow(pig,pjg) = xv(1) ;
170 ENDIF
171 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
172 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
173 grid%snowh(pig,pjg) = xv(1) ;
174 ENDIF
175 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
176 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
177 grid%rhosn(pig,pjg) = xv(1) ;
178 ENDIF
179 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
180 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
181 grid%canwat(pig,pjg) = xv(1) ;
182 ENDIF
183 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
184 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
185 grid%msft(pig,pjg) = xv(1) ;
186 ENDIF
187 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
188 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .TRUE., .FALSE. ) ) THEN
189 grid%msfu(pig,pjg) = xv(1) ;
190 ENDIF
191 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
192 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .TRUE. ) ) THEN
193 grid%msfv(pig,pjg) = xv(1) ;
194 ENDIF
195 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
196 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
197 grid%f(pig,pjg) = xv(1) ;
198 ENDIF
199 CALL rsl_lite_from_child_msg(RWORDSIZE,xv)
200 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
201 grid%e(pig,pjg) = xv(1) ;
202 ENDIF
203 CALL rsl_lite_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%sina(pig,pjg) = xv(1) ;
206 ENDIF
207 CALL rsl_lite_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%cosa(pig,pjg) = xv(1) ;
210 ENDIF
211 CALL rsl_lite_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%ht(pig,pjg) = xv(1) ;
214 ENDIF
215 CALL rsl_lite_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%tsk(pig,pjg) = xv(1) ;
218 ENDIF
219 CALL rsl_lite_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%rainc(pig,pjg) = xv(1) ;
222 ENDIF
223 CALL rsl_lite_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%rainnc(pig,pjg) = xv(1) ;
226 ENDIF
227 CALL rsl_lite_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%xlat(pig,pjg) = xv(1) ;
230 ENDIF
231 CALL rsl_lite_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%xlong(pig,pjg) = xv(1) ;
234 ENDIF
235 CALL rsl_lite_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%tmn(pig,pjg) = xv(1) ;
238 ENDIF
239 CALL rsl_lite_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%xland(pig,pjg) = xv(1) ;
242 ENDIF
243 CALL rsl_lite_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%snowc(pig,pjg) = xv(1) ;
246 ENDIF
247 CALL rsl_lite_from_child_info(pig,pjg,retval)
248 ENDDO
249 !ENDOFREGISTRYGENERATEDINCLUDE