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_g_qv .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%g_moist(pig,pjg,k,P_g_qv),xv(k))
90 ENDDO
91 ENDIF
92 ENDIF
93 IF ( P_g_qc .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%g_moist(pig,pjg,k,P_g_qc),xv(k))
98 ENDDO
99 ENDIF
100 ENDIF
101 IF ( P_qni .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%scalar(pig,pjg,k,P_qni),xv(k))
106 ENDDO
107 ENDIF
108 ENDIF
109 IF ( P_qt .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%scalar(pig,k,pjg,P_qt),xv(k))
114 ENDDO
115 ENDIF
116 ENDIF
117 CALL rsl_from_child_msg(RWORDSIZE,xv)
118 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
119 grid%landmask(pig,pjg) = xv(1) ;
120 ENDIF
121 CALL rsl_from_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv) ;
122 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
123 DO k = 1,config_flags%num_soil_layers
124 NEST_INFLUENCE(grid%tslb(pig,pjg,k),xv(k))
125 ENDDO
126 ENDIF
127 CALL rsl_from_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv) ;
128 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
129 DO k = 1,config_flags%num_soil_layers
130 NEST_INFLUENCE(grid%smois(pig,pjg,k),xv(k))
131 ENDDO
132 ENDIF
133 CALL rsl_from_child_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv) ;
134 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
135 DO k = 1,config_flags%num_soil_layers
136 NEST_INFLUENCE(grid%sh2o(pig,pjg,k),xv(k))
137 ENDDO
138 ENDIF
139 CALL rsl_from_child_msg(RWORDSIZE,xv)
140 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
141 grid%xice(pig,pjg) = xv(1) ;
142 ENDIF
143 CALL rsl_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%ivgtyp(pig,pjg) = xv(1) ;
146 ENDIF
147 CALL rsl_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%isltyp(pig,pjg) = xv(1) ;
150 ENDIF
151 CALL rsl_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%vegfra(pig,pjg) = xv(1) ;
154 ENDIF
155 CALL rsl_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%acsnow(pig,pjg) = xv(1) ;
158 ENDIF
159 CALL rsl_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%acsnom(pig,pjg) = xv(1) ;
162 ENDIF
163 CALL rsl_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%snow(pig,pjg) = xv(1) ;
166 ENDIF
167 CALL rsl_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%snowh(pig,pjg) = xv(1) ;
170 ENDIF
171 CALL rsl_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%rhosn(pig,pjg) = xv(1) ;
174 ENDIF
175 CALL rsl_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%canwat(pig,pjg) = xv(1) ;
178 ENDIF
179 CALL rsl_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%msft(pig,pjg) = xv(1) ;
182 ENDIF
183 CALL rsl_from_child_msg(RWORDSIZE,xv)
184 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .TRUE., .FALSE. ) ) THEN
185 grid%msfu(pig,pjg) = xv(1) ;
186 ENDIF
187 CALL rsl_from_child_msg(RWORDSIZE,xv)
188 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .TRUE. ) ) THEN
189 grid%msfv(pig,pjg) = xv(1) ;
190 ENDIF
191 CALL rsl_from_child_msg(RWORDSIZE,xv)
192 IF ( nodyn_cd_feedback_mask( pig, ips_save, ipe_save , pjg, jps_save, jpe_save, .FALSE., .FALSE. ) ) THEN
193 grid%f(pig,pjg) = xv(1) ;
194 ENDIF
195 CALL rsl_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%e(pig,pjg) = xv(1) ;
198 ENDIF
199 CALL rsl_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%sina(pig,pjg) = xv(1) ;
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%cosa(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%ht(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%tsk(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%rainc(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%rainnc(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%xlat(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%xlong(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%tmn(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%xland(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%snowc(pig,pjg) = xv(1) ;
242 ENDIF
243 CALL rsl_from_child_info(i,j,pig,pjg,cm,cn,nig,njg,retval)
244 ENDDO
245 !ENDOFREGISTRYGENERATEDINCLUDE