nodyn_nest_interpdown_unpack.inc

1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/nodyn_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 IF ( P_qv .GE. PARAM_FIRST_SCALAR ) THEN
12 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
13 DO k = ckds,(ckde-1)
14 grid%moist(pig,pjg,k,P_qv) = xv(k)
15 ENDDO
16 ENDIF
17 IF ( P_qc .GE. PARAM_FIRST_SCALAR ) THEN
18 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
19 DO k = ckds,(ckde-1)
20 grid%moist(pig,pjg,k,P_qc) = xv(k)
21 ENDDO
22 ENDIF
23 IF ( P_qr .GE. PARAM_FIRST_SCALAR ) THEN
24 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
25 DO k = ckds,(ckde-1)
26 grid%moist(pig,pjg,k,P_qr) = xv(k)
27 ENDDO
28 ENDIF
29 IF ( P_qi .GE. PARAM_FIRST_SCALAR ) THEN
30 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
31 DO k = ckds,(ckde-1)
32 grid%moist(pig,pjg,k,P_qi) = xv(k)
33 ENDDO
34 ENDIF
35 IF ( P_qs .GE. PARAM_FIRST_SCALAR ) THEN
36 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
37 DO k = ckds,(ckde-1)
38 grid%moist(pig,pjg,k,P_qs) = xv(k)
39 ENDDO
40 ENDIF
41 IF ( P_qg .GE. PARAM_FIRST_SCALAR ) THEN
42 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
43 DO k = ckds,(ckde-1)
44 grid%moist(pig,pjg,k,P_qg) = xv(k)
45 ENDDO
46 ENDIF
47 IF ( P_a_qv .GE. PARAM_FIRST_SCALAR ) THEN
48 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
49 DO k = ckds,(ckde-1)
50 grid%a_moist(pig,pjg,k,P_a_qv) = xv(k)
51 ENDDO
52 ENDIF
53 IF ( P_a_qc .GE. PARAM_FIRST_SCALAR ) THEN
54 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
55 DO k = ckds,(ckde-1)
56 grid%a_moist(pig,pjg,k,P_a_qc) = xv(k)
57 ENDDO
58 ENDIF
59 IF ( P_a_qr .GE. PARAM_FIRST_SCALAR ) THEN
60 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
61 DO k = ckds,(ckde-1)
62 grid%a_moist(pig,pjg,k,P_a_qr) = xv(k)
63 ENDDO
64 ENDIF
65 IF ( P_a_qi .GE. PARAM_FIRST_SCALAR ) THEN
66 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
67 DO k = ckds,(ckde-1)
68 grid%a_moist(pig,pjg,k,P_a_qi) = xv(k)
69 ENDDO
70 ENDIF
71 IF ( P_a_qs .GE. PARAM_FIRST_SCALAR ) THEN
72 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
73 DO k = ckds,(ckde-1)
74 grid%a_moist(pig,pjg,k,P_a_qs) = xv(k)
75 ENDDO
76 ENDIF
77 IF ( P_a_qg .GE. PARAM_FIRST_SCALAR ) THEN
78 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
79 DO k = ckds,(ckde-1)
80 grid%a_moist(pig,pjg,k,P_a_qg) = xv(k)
81 ENDDO
82 ENDIF
83 IF ( P_g_qv .GE. PARAM_FIRST_SCALAR ) THEN
84 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
85 DO k = ckds,(ckde-1)
86 grid%g_moist(pig,pjg,k,P_g_qv) = xv(k)
87 ENDDO
88 ENDIF
89 IF ( P_g_qc .GE. PARAM_FIRST_SCALAR ) THEN
90 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
91 DO k = ckds,(ckde-1)
92 grid%g_moist(pig,pjg,k,P_g_qc) = xv(k)
93 ENDDO
94 ENDIF
95 IF ( P_g_qr .GE. PARAM_FIRST_SCALAR ) THEN
96 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
97 DO k = ckds,(ckde-1)
98 grid%g_moist(pig,pjg,k,P_g_qr) = xv(k)
99 ENDDO
100 ENDIF
101 IF ( P_g_qi .GE. PARAM_FIRST_SCALAR ) THEN
102 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
103 DO k = ckds,(ckde-1)
104 grid%g_moist(pig,pjg,k,P_g_qi) = xv(k)
105 ENDDO
106 ENDIF
107 IF ( P_g_qs .GE. PARAM_FIRST_SCALAR ) THEN
108 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
109 DO k = ckds,(ckde-1)
110 grid%g_moist(pig,pjg,k,P_g_qs) = xv(k)
111 ENDDO
112 ENDIF
113 IF ( P_g_qg .GE. PARAM_FIRST_SCALAR ) THEN
114 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
115 DO k = ckds,(ckde-1)
116 grid%g_moist(pig,pjg,k,P_g_qg) = xv(k)
117 ENDDO
118 ENDIF
119 IF ( P_qni .GE. PARAM_FIRST_SCALAR ) THEN
120 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
121 DO k = ckds,(ckde-1)
122 grid%scalar(pig,pjg,k,P_qni) = xv(k)
123 ENDDO
124 ENDIF
125 IF ( P_qt .GE. PARAM_FIRST_SCALAR ) THEN
126 CALL rsl_from_parent_msg((((ckde-1))-(ckds)+1)*RWORDSIZE,xv)
127 DO k = ckds,(ckde-1)
128 grid%scalar(pig,k,pjg,P_qt) = xv(k)
129 ENDDO
130 ENDIF
131 CALL rsl_from_parent_msg(RWORDSIZE,xv)
132 grid%landmask(pig,pjg) = xv(1)
133 CALL rsl_from_parent_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
134 DO k = 1,config_flags%num_soil_layers
135 grid%tslb(pig,pjg,k) = xv(k)
136 ENDDO
137 CALL rsl_from_parent_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
138 DO k = 1,config_flags%num_soil_layers
139 grid%smois(pig,pjg,k) = xv(k)
140 ENDDO
141 CALL rsl_from_parent_msg(((config_flags%num_soil_layers)-(1)+1)*RWORDSIZE,xv)
142 DO k = 1,config_flags%num_soil_layers
143 grid%sh2o(pig,pjg,k) = xv(k)
144 ENDDO
145 CALL rsl_from_parent_msg(RWORDSIZE,xv)
146 grid%xice(pig,pjg) = xv(1)
147 CALL rsl_from_parent_msg(RWORDSIZE,xv)
148 grid%sfcrunoff(pig,pjg) = xv(1)
149 CALL rsl_from_parent_msg(RWORDSIZE,xv)
150 grid%udrunoff(pig,pjg) = xv(1)
151 CALL rsl_from_parent_msg(RWORDSIZE,xv)
152 grid%ivgtyp(pig,pjg) = xv(1)
153 CALL rsl_from_parent_msg(RWORDSIZE,xv)
154 grid%isltyp(pig,pjg) = xv(1)
155 CALL rsl_from_parent_msg(RWORDSIZE,xv)
156 grid%vegfra(pig,pjg) = xv(1)
157 CALL rsl_from_parent_msg(RWORDSIZE,xv)
158 grid%acsnow(pig,pjg) = xv(1)
159 CALL rsl_from_parent_msg(RWORDSIZE,xv)
160 grid%acsnom(pig,pjg) = xv(1)
161 CALL rsl_from_parent_msg(RWORDSIZE,xv)
162 grid%snow(pig,pjg) = xv(1)
163 CALL rsl_from_parent_msg(RWORDSIZE,xv)
164 grid%snowh(pig,pjg) = xv(1)
165 CALL rsl_from_parent_msg(RWORDSIZE,xv)
166 grid%rhosn(pig,pjg) = xv(1)
167 CALL rsl_from_parent_msg(RWORDSIZE,xv)
168 grid%canwat(pig,pjg) = xv(1)
169 CALL rsl_from_parent_msg(RWORDSIZE,xv)
170 grid%sst(pig,pjg) = xv(1)
171 CALL rsl_from_parent_msg(RWORDSIZE,xv)
172 grid%msft(pig,pjg) = xv(1)
173 CALL rsl_from_parent_msg(RWORDSIZE,xv)
174 grid%msfu(pig,pjg) = xv(1)
175 CALL rsl_from_parent_msg(RWORDSIZE,xv)
176 grid%msfv(pig,pjg) = xv(1)
177 CALL rsl_from_parent_msg(RWORDSIZE,xv)
178 grid%f(pig,pjg) = xv(1)
179 CALL rsl_from_parent_msg(RWORDSIZE,xv)
180 grid%e(pig,pjg) = xv(1)
181 CALL rsl_from_parent_msg(RWORDSIZE,xv)
182 grid%sina(pig,pjg) = xv(1)
183 CALL rsl_from_parent_msg(RWORDSIZE,xv)
184 grid%cosa(pig,pjg) = xv(1)
185 CALL rsl_from_parent_msg(RWORDSIZE,xv)
186 grid%ht(pig,pjg) = xv(1)
187 CALL rsl_from_parent_msg(RWORDSIZE,xv)
188 grid%tsk(pig,pjg) = xv(1)
189 CALL rsl_from_parent_msg(RWORDSIZE,xv)
190 grid%rainc(pig,pjg) = xv(1)
191 CALL rsl_from_parent_msg(RWORDSIZE,xv)
192 grid%rainnc(pig,pjg) = xv(1)
193 CALL rsl_from_parent_msg(RWORDSIZE,xv)
194 grid%snownc(pig,pjg) = xv(1)
195 CALL rsl_from_parent_msg(RWORDSIZE,xv)
196 grid%graupelnc(pig,pjg) = xv(1)
197 CALL rsl_from_parent_msg(RWORDSIZE,xv)
198 grid%xlat(pig,pjg) = xv(1)
199 CALL rsl_from_parent_msg(RWORDSIZE,xv)
200 grid%xlong(pig,pjg) = xv(1)
201 CALL rsl_from_parent_msg(RWORDSIZE,xv)
202 grid%tmn(pig,pjg) = xv(1)
203 CALL rsl_from_parent_msg(RWORDSIZE,xv)
204 grid%xland(pig,pjg) = xv(1)
205 CALL rsl_from_parent_msg(RWORDSIZE,xv)
206 grid%snowc(pig,pjg) = xv(1)
207 CALL rsl_from_parent_info(i,j,nig,njg,cm,cn,pig,pjg,retval)
208 ENDDO
209 !ENDOFREGISTRYGENERATEDINCLUDE