em_nest_interpdown_unpack.inc

1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_nest_interpdown_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_parent_info(i,j,nig,njg,cm,cn,pig,pjg,retval)
8 DO while ( retval .eq. 1 )
9 CALL rsl_from_parent_msg(RWORDSIZE,xv)
10 grid%lu_index(pig,pjg) = xv(1)
11 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
12 DO k = ckds,(ckde-1)
13 grid%em_u_2(pig,pjg,k) = xv(k)
14 ENDDO
15 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
16 DO k = ckds,(ckde-1)
17 grid%em_a_u_2(pig,pjg,k) = xv(k)
18 ENDDO
19 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
20 DO k = ckds,(ckde-1)
21 grid%em_g_u_2(pig,pjg,k) = xv(k)
22 ENDDO
23 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
24 DO k = ckds,(ckde-1)
25 grid%em_v_2(pig,pjg,k) = xv(k)
26 ENDDO
27 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
28 DO k = ckds,(ckde-1)
29 grid%em_a_v_2(pig,pjg,k) = xv(k)
30 ENDDO
31 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
32 DO k = ckds,(ckde-1)
33 grid%em_g_v_2(pig,pjg,k) = xv(k)
34 ENDDO
35 CALL rsl_from_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
36 DO k = ckds,ckde
37 grid%em_w_2(pig,pjg,k) = xv(k)
38 ENDDO
39 CALL rsl_from_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
40 DO k = ckds,ckde
41 grid%em_a_w_2(pig,pjg,k) = xv(k)
42 ENDDO
43 CALL rsl_from_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
44 DO k = ckds,ckde
45 grid%em_g_w_2(pig,pjg,k) = xv(k)
46 ENDDO
47 CALL rsl_from_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
48 DO k = ckds,ckde
49 grid%em_ph_2(pig,pjg,k) = xv(k)
50 ENDDO
51 CALL rsl_from_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
52 DO k = ckds,ckde
53 grid%em_a_ph_2(pig,pjg,k) = xv(k)
54 ENDDO
55 CALL rsl_from_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
56 DO k = ckds,ckde
57 grid%em_g_ph_2(pig,pjg,k) = xv(k)
58 ENDDO
59 CALL rsl_from_parent_msg(((ckde)-(ckds)+1)*RWORDSIZE,xv)
60 DO k = ckds,ckde
61 grid%em_phb(pig,pjg,k) = xv(k)
62 ENDDO
63 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
64 DO k = ckds,(ckde-1)
65 grid%em_t_2(pig,pjg,k) = xv(k)
66 ENDDO
67 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
68 DO k = ckds,(ckde-1)
69 grid%em_a_t_2(pig,pjg,k) = xv(k)
70 ENDDO
71 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
72 DO k = ckds,(ckde-1)
73 grid%em_g_t_2(pig,pjg,k) = xv(k)
74 ENDDO
75 CALL rsl_from_parent_msg(RWORDSIZE,xv)
76 grid%em_mu_2(pig,pjg) = xv(1)
77 CALL rsl_from_parent_msg(RWORDSIZE,xv)
78 grid%em_a_mu_2(pig,pjg) = xv(1)
79 CALL rsl_from_parent_msg(RWORDSIZE,xv)
80 grid%em_g_mu_2(pig,pjg) = xv(1)
81 CALL rsl_from_parent_msg(RWORDSIZE,xv)
82 grid%em_mub(pig,pjg) = xv(1)
83 CALL rsl_from_parent_msg(RWORDSIZE,xv)
84 grid%em_mu0(pig,pjg) = xv(1)
85 IF ( P_qv .GE. PARAM_FIRST_SCALAR ) THEN
86 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
87 DO k = ckds,(ckde-1)
88 grid%moist(pig,pjg,k,P_qv) = xv(k)
89 ENDDO
90 ENDIF
91 IF ( P_qc .GE. PARAM_FIRST_SCALAR ) THEN
92 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
93 DO k = ckds,(ckde-1)
94 grid%moist(pig,pjg,k,P_qc) = xv(k)
95 ENDDO
96 ENDIF
97 IF ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN
98 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
99 DO k = ckds,(ckde-1)
100 grid%moist(pig,pjg,k,P_qr) = xv(k)
101 ENDDO
102 ENDIF
103 IF ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN
104 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
105 DO k = ckds,(ckde-1)
106 grid%moist(pig,pjg,k,P_qi) = xv(k)
107 ENDDO
108 ENDIF
109 IF ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN
110 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
111 DO k = ckds,(ckde-1)
112 grid%moist(pig,pjg,k,P_qs) = xv(k)
113 ENDDO
114 ENDIF
115 IF ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN
116 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
117 DO k = ckds,(ckde-1)
118 grid%moist(pig,pjg,k,P_qg) = xv(k)
119 ENDDO
120 ENDIF
121 IF ( P_a_qv .GE. PARAM_FIRST_SCALAR ) THEN
122 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
123 DO k = ckds,(ckde-1)
124 grid%a_moist(pig,pjg,k,P_a_qv) = xv(k)
125 ENDDO
126 ENDIF
127 IF ( P_a_qc .GE. PARAM_FIRST_SCALAR ) THEN
128 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
129 DO k = ckds,(ckde-1)
130 grid%a_moist(pig,pjg,k,P_a_qc) = xv(k)
131 ENDDO
132 ENDIF
133 IF ( P_g_qv .GE. PARAM_FIRST_SCALAR ) THEN
134 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
135 DO k = ckds,(ckde-1)
136 grid%g_moist(pig,pjg,k,P_g_qv) = xv(k)
137 ENDDO
138 ENDIF
139 IF ( P_g_qc .GE. PARAM_FIRST_SCALAR ) THEN
140 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
141 DO k = ckds,(ckde-1)
142 grid%g_moist(pig,pjg,k,P_g_qc) = xv(k)
143 ENDDO
144 ENDIF
145 IF ( P_qni .GE. PARAM_FIRST_SCALAR ) THEN
146 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
147 DO k = ckds,(ckde-1)
148 grid%scalar(pig,pjg,k,P_qni) = xv(k)
149 ENDDO
150 ENDIF
151 IF ( P_qt .GE. PARAM_FIRST_SCALAR ) THEN
152 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
153 DO k = ckds,(ckde-1)
154 grid%scalar(pig,k,pjg,P_qt) = xv(k)
155 ENDDO
156 ENDIF
157 CALL rsl_from_parent_msg(RWORDSIZE,xv)
158 grid%landmask(pig,pjg) = xv(1)
159 CALL rsl_from_parent_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
160 DO k = 1,config_flags%num_soil_layers
161 grid%tslb(pig,pjg,k) = xv(k)
162 ENDDO
163 CALL rsl_from_parent_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
164 DO k = 1,config_flags%num_soil_layers
165 grid%smois(pig,pjg,k) = xv(k)
166 ENDDO
167 CALL rsl_from_parent_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
168 DO k = 1,config_flags%num_soil_layers
169 grid%sh2o(pig,pjg,k) = xv(k)
170 ENDDO
171 CALL rsl_from_parent_msg(RWORDSIZE,xv)
172 grid%xice(pig,pjg) = xv(1)
173 CALL rsl_from_parent_msg(RWORDSIZE,xv)
174 grid%sfcrunoff(pig,pjg) = xv(1)
175 CALL rsl_from_parent_msg(RWORDSIZE,xv)
176 grid%udrunoff(pig,pjg) = xv(1)
177 CALL rsl_from_parent_msg(RWORDSIZE,xv)
178 grid%ivgtyp(pig,pjg) = xv(1)
179 CALL rsl_from_parent_msg(RWORDSIZE,xv)
180 grid%isltyp(pig,pjg) = xv(1)
181 CALL rsl_from_parent_msg(RWORDSIZE,xv)
182 grid%vegfra(pig,pjg) = xv(1)
183 CALL rsl_from_parent_msg(RWORDSIZE,xv)
184 grid%acsnow(pig,pjg) = xv(1)
185 CALL rsl_from_parent_msg(RWORDSIZE,xv)
186 grid%acsnom(pig,pjg) = xv(1)
187 CALL rsl_from_parent_msg(RWORDSIZE,xv)
188 grid%snow(pig,pjg) = xv(1)
189 CALL rsl_from_parent_msg(RWORDSIZE,xv)
190 grid%snowh(pig,pjg) = xv(1)
191 CALL rsl_from_parent_msg(RWORDSIZE,xv)
192 grid%rhosn(pig,pjg) = xv(1)
193 CALL rsl_from_parent_msg(RWORDSIZE,xv)
194 grid%canwat(pig,pjg) = xv(1)
195 CALL rsl_from_parent_msg(RWORDSIZE,xv)
196 grid%sst(pig,pjg) = xv(1)
197 CALL rsl_from_parent_msg(RWORDSIZE,xv)
198 grid%msft(pig,pjg) = xv(1)
199 CALL rsl_from_parent_msg(RWORDSIZE,xv)
200 grid%msfu(pig,pjg) = xv(1)
201 CALL rsl_from_parent_msg(RWORDSIZE,xv)
202 grid%msfv(pig,pjg) = xv(1)
203 CALL rsl_from_parent_msg(RWORDSIZE,xv)
204 grid%f(pig,pjg) = xv(1)
205 CALL rsl_from_parent_msg(RWORDSIZE,xv)
206 grid%e(pig,pjg) = xv(1)
207 CALL rsl_from_parent_msg(RWORDSIZE,xv)
208 grid%sina(pig,pjg) = xv(1)
209 CALL rsl_from_parent_msg(RWORDSIZE,xv)
210 grid%cosa(pig,pjg) = xv(1)
211 CALL rsl_from_parent_msg(RWORDSIZE,xv)
212 grid%ht(pig,pjg) = xv(1)
213 CALL rsl_from_parent_msg(RWORDSIZE,xv)
214 grid%tsk(pig,pjg) = xv(1)
215 CALL rsl_from_parent_msg(RWORDSIZE,xv)
216 grid%rainc(pig,pjg) = xv(1)
217 CALL rsl_from_parent_msg(RWORDSIZE,xv)
218 grid%rainnc(pig,pjg) = xv(1)
219 CALL rsl_from_parent_msg(RWORDSIZE,xv)
220 grid%xlat(pig,pjg) = xv(1)
221 CALL rsl_from_parent_msg(RWORDSIZE,xv)
222 grid%xlong(pig,pjg) = xv(1)
223 CALL rsl_from_parent_msg(RWORDSIZE,xv)
224 grid%em_xlat_u(pig,pjg) = xv(1)
225 CALL rsl_from_parent_msg(RWORDSIZE,xv)
226 grid%em_xlong_u(pig,pjg) = xv(1)
227 CALL rsl_from_parent_msg(RWORDSIZE,xv)
228 grid%em_xlat_v(pig,pjg) = xv(1)
229 CALL rsl_from_parent_msg(RWORDSIZE,xv)
230 grid%em_xlong_v(pig,pjg) = xv(1)
231 CALL rsl_from_parent_msg(RWORDSIZE,xv)
232 grid%tmn(pig,pjg) = xv(1)
233 CALL rsl_from_parent_msg(RWORDSIZE,xv)
234 grid%xland(pig,pjg) = xv(1)
235 CALL rsl_from_parent_msg(RWORDSIZE,xv)
236 grid%snowc(pig,pjg) = xv(1)
237 CALL rsl_from_parent_info(i,j,nig,njg,cm,cn,pig,pjg,retval)
238 ENDDO
239 !ENDOFREGISTRYGENERATEDINCLUDE