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