nodyn_nest_interpdown_interp.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/nodyn_nest_interpdown_interp.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 interp_fcnm ( &
8 grid%lu_index, & ! CD field
9 cids, cide, 1, 1, cjds, cjde, & ! CD dims
10 cims, cime, 1, 1, cjms, cjme, & ! CD dims
11 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
12 ngrid%lu_index, & ! ND field
13 nids, nide, 1, 1, njds, njde, & ! ND dims
14 nims, nime, 1, 1, njms, njme, & ! ND dims
15 nips, nipe, 1, 1, njps, njpe, & ! ND dims
16 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
17 .FALSE., .FALSE., & ! xstag, ystag
18 ngrid%i_parent_start, ngrid%j_parent_start, &
19 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
20 )
21 CALL interp_fcn ( &
22 grid%a_u_2, & ! CD field
23 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
24 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
25 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
26 ngrid%a_u_2, & ! ND field
27 nids, nide, nkds, nkde, njds, njde, & ! ND dims
28 nims, nime, nkms, nkme, njms, njme, & ! ND dims
29 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
30 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
31 .TRUE., .FALSE., & ! xstag, ystag
32 ngrid%i_parent_start, ngrid%j_parent_start, &
33 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
34 )
35 CALL interp_fcn ( &
36 grid%g_u_2, & ! CD field
37 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
38 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
39 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
40 ngrid%g_u_2, & ! ND field
41 nids, nide, nkds, nkde, njds, njde, & ! ND dims
42 nims, nime, nkms, nkme, njms, njme, & ! ND dims
43 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
44 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
45 .TRUE., .FALSE., & ! xstag, ystag
46 ngrid%i_parent_start, ngrid%j_parent_start, &
47 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
48 )
49 CALL interp_fcn ( &
50 grid%a_v_2, & ! CD field
51 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
52 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
53 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
54 ngrid%a_v_2, & ! ND field
55 nids, nide, nkds, nkde, njds, njde, & ! ND dims
56 nims, nime, nkms, nkme, njms, njme, & ! ND dims
57 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
58 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
59 .FALSE., .TRUE., & ! xstag, ystag
60 ngrid%i_parent_start, ngrid%j_parent_start, &
61 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
62 )
63 CALL interp_fcn ( &
64 grid%g_v_2, & ! CD field
65 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
66 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
67 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
68 ngrid%g_v_2, & ! ND field
69 nids, nide, nkds, nkde, njds, njde, & ! ND dims
70 nims, nime, nkms, nkme, njms, njme, & ! ND dims
71 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
72 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
73 .FALSE., .TRUE., & ! xstag, ystag
74 ngrid%i_parent_start, ngrid%j_parent_start, &
75 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
76 )
77 CALL interp_fcn ( &
78 grid%a_w_2, & ! CD field
79 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
80 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
81 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
82 ngrid%a_w_2, & ! ND field
83 nids, nide, nkds, nkde, njds, njde, & ! ND dims
84 nims, nime, nkms, nkme, njms, njme, & ! ND dims
85 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! ND dims
86 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
87 .FALSE., .FALSE., & ! xstag, ystag
88 ngrid%i_parent_start, ngrid%j_parent_start, &
89 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
90 )
91 CALL interp_fcn ( &
92 grid%g_w_2, & ! CD field
93 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
94 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
95 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
96 ngrid%g_w_2, & ! ND field
97 nids, nide, nkds, nkde, njds, njde, & ! ND dims
98 nims, nime, nkms, nkme, njms, njme, & ! ND dims
99 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! ND dims
100 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
101 .FALSE., .FALSE., & ! xstag, ystag
102 ngrid%i_parent_start, ngrid%j_parent_start, &
103 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
104 )
105 CALL interp_fcn ( &
106 grid%a_ph_2, & ! CD field
107 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
108 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
109 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
110 ngrid%a_ph_2, & ! ND field
111 nids, nide, nkds, nkde, njds, njde, & ! ND dims
112 nims, nime, nkms, nkme, njms, njme, & ! ND dims
113 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! ND dims
114 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
115 .FALSE., .FALSE., & ! xstag, ystag
116 ngrid%i_parent_start, ngrid%j_parent_start, &
117 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
118 )
119 CALL interp_fcn ( &
120 grid%g_ph_2, & ! CD field
121 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
122 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
123 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
124 ngrid%g_ph_2, & ! ND field
125 nids, nide, nkds, nkde, njds, njde, & ! ND dims
126 nims, nime, nkms, nkme, njms, njme, & ! ND dims
127 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! ND dims
128 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
129 .FALSE., .FALSE., & ! xstag, ystag
130 ngrid%i_parent_start, ngrid%j_parent_start, &
131 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
132 )
133 CALL interp_fcn ( &
134 grid%a_t_2, & ! CD field
135 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
136 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
137 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
138 ngrid%a_t_2, & ! ND field
139 nids, nide, nkds, nkde, njds, njde, & ! ND dims
140 nims, nime, nkms, nkme, njms, njme, & ! ND dims
141 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
142 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
143 .FALSE., .FALSE., & ! xstag, ystag
144 ngrid%i_parent_start, ngrid%j_parent_start, &
145 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
146 )
147 CALL interp_fcn ( &
148 grid%g_t_2, & ! CD field
149 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
150 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
151 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
152 ngrid%g_t_2, & ! ND field
153 nids, nide, nkds, nkde, njds, njde, & ! ND dims
154 nims, nime, nkms, nkme, njms, njme, & ! ND dims
155 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
156 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
157 .FALSE., .FALSE., & ! xstag, ystag
158 ngrid%i_parent_start, ngrid%j_parent_start, &
159 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
160 )
161 CALL interp_fcn ( &
162 grid%a_mu_2, & ! CD field
163 cids, cide, 1, 1, cjds, cjde, & ! CD dims
164 cims, cime, 1, 1, cjms, cjme, & ! CD dims
165 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
166 ngrid%a_mu_2, & ! ND field
167 nids, nide, 1, 1, njds, njde, & ! ND dims
168 nims, nime, 1, 1, njms, njme, & ! ND dims
169 nips, nipe, 1, 1, njps, njpe, & ! ND dims
170 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
171 .FALSE., .FALSE., & ! xstag, ystag
172 ngrid%i_parent_start, ngrid%j_parent_start, &
173 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
174 )
175 CALL interp_fcn ( &
176 grid%g_mu_2, & ! CD field
177 cids, cide, 1, 1, cjds, cjde, & ! CD dims
178 cims, cime, 1, 1, cjms, cjme, & ! CD dims
179 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
180 ngrid%g_mu_2, & ! ND field
181 nids, nide, 1, 1, njds, njde, & ! ND dims
182 nims, nime, 1, 1, njms, njme, & ! ND dims
183 nips, nipe, 1, 1, njps, njpe, & ! ND dims
184 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
185 .FALSE., .FALSE., & ! xstag, ystag
186 ngrid%i_parent_start, ngrid%j_parent_start, &
187 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
188 )
189 DO itrace = PARAM_FIRST_SCALAR, num_moist
190 CALL interp_fcn ( &
191 moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
192 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
193 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
194 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
195 ngrid%moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
196 nids, nide, nkds, nkde, njds, njde, & ! ND dims
197 nims, nime, nkms, nkme, njms, njme, & ! ND dims
198 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
199 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
200 .FALSE., .FALSE., & ! xstag, ystag
201 ngrid%i_parent_start, ngrid%j_parent_start, &
202 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
203 )
204 ENDDO
205 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
206 CALL interp_fcn ( &
207 a_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
208 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
209 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
210 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
211 ngrid%a_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
212 nids, nide, nkds, nkde, njds, njde, & ! ND dims
213 nims, nime, nkms, nkme, njms, njme, & ! ND dims
214 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
215 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
216 .FALSE., .FALSE., & ! xstag, ystag
217 ngrid%i_parent_start, ngrid%j_parent_start, &
218 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
219 )
220 ENDDO
221 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
222 CALL interp_fcn ( &
223 g_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
224 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
225 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
226 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
227 ngrid%g_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
228 nids, nide, nkds, nkde, njds, njde, & ! ND dims
229 nims, nime, nkms, nkme, njms, njme, & ! ND dims
230 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
231 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
232 .FALSE., .FALSE., & ! xstag, ystag
233 ngrid%i_parent_start, ngrid%j_parent_start, &
234 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
235 )
236 ENDDO
237 DO itrace = PARAM_FIRST_SCALAR, num_scalar
238 CALL interp_fcn ( &
239 scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
240 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
241 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
242 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
243 ngrid%scalar(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
244 nids, nide, nkds, nkde, njds, njde, & ! ND dims
245 nims, nime, nkms, nkme, njms, njme, & ! ND dims
246 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
247 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
248 .FALSE., .FALSE., & ! xstag, ystag
249 ngrid%i_parent_start, ngrid%j_parent_start, &
250 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
251 )
252 ENDDO
253 CALL interp_fcnm ( &
254 grid%landmask, & ! CD field
255 cids, cide, 1, 1, cjds, cjde, & ! CD dims
256 cims, cime, 1, 1, cjms, cjme, & ! CD dims
257 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
258 ngrid%landmask, & ! ND field
259 nids, nide, 1, 1, njds, njde, & ! ND dims
260 nims, nime, 1, 1, njms, njme, & ! ND dims
261 nips, nipe, 1, 1, njps, njpe, & ! ND dims
262 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
263 .FALSE., .FALSE., & ! xstag, ystag
264 ngrid%i_parent_start, ngrid%j_parent_start, &
265 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
266 )
267 CALL interp_mask_land_field ( &
268 grid%tslb, & ! CD field
269 cids, cide, 1, config_flags%num_soil_layers, cjds, cjde, & ! CD dims
270 cims, cime, 1, config_flags%num_soil_layers, cjms, cjme, & ! CD dims
271 cips, cipe, 1, config_flags%num_soil_layers, cjps, cjpe, & ! CD dims
272 ngrid%tslb, & ! ND field
273 nids, nide, 1, config_flags%num_soil_layers, njds, njde, & ! ND dims
274 nims, nime, 1, config_flags%num_soil_layers, njms, njme, & ! ND dims
275 nips, nipe, 1, config_flags%num_soil_layers, njps, njpe, & ! ND dims
276 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
277 .FALSE., .FALSE., & ! xstag, ystag
278 ngrid%i_parent_start, ngrid%j_parent_start, &
279 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
280 ,grid%lu_index,ngrid%lu_index &
281 )
282 CALL interp_mask_land_field ( &
283 grid%smois, & ! CD field
284 cids, cide, 1, config_flags%num_soil_layers, cjds, cjde, & ! CD dims
285 cims, cime, 1, config_flags%num_soil_layers, cjms, cjme, & ! CD dims
286 cips, cipe, 1, config_flags%num_soil_layers, cjps, cjpe, & ! CD dims
287 ngrid%smois, & ! ND field
288 nids, nide, 1, config_flags%num_soil_layers, njds, njde, & ! ND dims
289 nims, nime, 1, config_flags%num_soil_layers, njms, njme, & ! ND dims
290 nips, nipe, 1, config_flags%num_soil_layers, njps, njpe, & ! ND dims
291 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
292 .FALSE., .FALSE., & ! xstag, ystag
293 ngrid%i_parent_start, ngrid%j_parent_start, &
294 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
295 ,grid%lu_index,ngrid%lu_index &
296 )
297 CALL interp_mask_land_field ( &
298 grid%sh2o, & ! CD field
299 cids, cide, 1, config_flags%num_soil_layers, cjds, cjde, & ! CD dims
300 cims, cime, 1, config_flags%num_soil_layers, cjms, cjme, & ! CD dims
301 cips, cipe, 1, config_flags%num_soil_layers, cjps, cjpe, & ! CD dims
302 ngrid%sh2o, & ! ND field
303 nids, nide, 1, config_flags%num_soil_layers, njds, njde, & ! ND dims
304 nims, nime, 1, config_flags%num_soil_layers, njms, njme, & ! ND dims
305 nips, nipe, 1, config_flags%num_soil_layers, njps, njpe, & ! ND dims
306 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
307 .FALSE., .FALSE., & ! xstag, ystag
308 ngrid%i_parent_start, ngrid%j_parent_start, &
309 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
310 ,grid%lu_index,ngrid%lu_index &
311 )
312 CALL interp_mask_water_field ( &
313 grid%xice, & ! CD field
314 cids, cide, 1, 1, cjds, cjde, & ! CD dims
315 cims, cime, 1, 1, cjms, cjme, & ! CD dims
316 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
317 ngrid%xice, & ! ND field
318 nids, nide, 1, 1, njds, njde, & ! ND dims
319 nims, nime, 1, 1, njms, njme, & ! ND dims
320 nips, nipe, 1, 1, njps, njpe, & ! ND dims
321 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
322 .FALSE., .FALSE., & ! xstag, ystag
323 ngrid%i_parent_start, ngrid%j_parent_start, &
324 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
325 ,grid%lu_index,ngrid%lu_index &
326 )
327 CALL interp_mask_land_field ( &
328 grid%sfcrunoff, & ! CD field
329 cids, cide, 1, 1, cjds, cjde, & ! CD dims
330 cims, cime, 1, 1, cjms, cjme, & ! CD dims
331 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
332 ngrid%sfcrunoff, & ! ND field
333 nids, nide, 1, 1, njds, njde, & ! ND dims
334 nims, nime, 1, 1, njms, njme, & ! ND dims
335 nips, nipe, 1, 1, njps, njpe, & ! ND dims
336 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
337 .FALSE., .FALSE., & ! xstag, ystag
338 ngrid%i_parent_start, ngrid%j_parent_start, &
339 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
340 ,grid%lu_index,ngrid%lu_index &
341 )
342 CALL interp_mask_land_field ( &
343 grid%udrunoff, & ! CD field
344 cids, cide, 1, 1, cjds, cjde, & ! CD dims
345 cims, cime, 1, 1, cjms, cjme, & ! CD dims
346 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
347 ngrid%udrunoff, & ! ND field
348 nids, nide, 1, 1, njds, njde, & ! ND dims
349 nims, nime, 1, 1, njms, njme, & ! ND dims
350 nips, nipe, 1, 1, njps, njpe, & ! ND dims
351 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
352 .FALSE., .FALSE., & ! xstag, ystag
353 ngrid%i_parent_start, ngrid%j_parent_start, &
354 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
355 ,grid%lu_index,ngrid%lu_index &
356 )
357 CALL interp_fcni ( &
358 grid%ivgtyp, & ! CD field
359 cids, cide, 1, 1, cjds, cjde, & ! CD dims
360 cims, cime, 1, 1, cjms, cjme, & ! CD dims
361 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
362 ngrid%ivgtyp, & ! ND field
363 nids, nide, 1, 1, njds, njde, & ! ND dims
364 nims, nime, 1, 1, njms, njme, & ! ND dims
365 nips, nipe, 1, 1, njps, njpe, & ! ND dims
366 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
367 .FALSE., .FALSE., & ! xstag, ystag
368 ngrid%i_parent_start, ngrid%j_parent_start, &
369 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
370 )
371 CALL interp_fcni ( &
372 grid%isltyp, & ! CD field
373 cids, cide, 1, 1, cjds, cjde, & ! CD dims
374 cims, cime, 1, 1, cjms, cjme, & ! CD dims
375 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
376 ngrid%isltyp, & ! ND field
377 nids, nide, 1, 1, njds, njde, & ! ND dims
378 nims, nime, 1, 1, njms, njme, & ! ND dims
379 nips, nipe, 1, 1, njps, njpe, & ! ND dims
380 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
381 .FALSE., .FALSE., & ! xstag, ystag
382 ngrid%i_parent_start, ngrid%j_parent_start, &
383 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
384 )
385 CALL interp_mask_land_field ( &
386 grid%vegfra, & ! CD field
387 cids, cide, 1, 1, cjds, cjde, & ! CD dims
388 cims, cime, 1, 1, cjms, cjme, & ! CD dims
389 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
390 ngrid%vegfra, & ! ND field
391 nids, nide, 1, 1, njds, njde, & ! ND dims
392 nims, nime, 1, 1, njms, njme, & ! ND dims
393 nips, nipe, 1, 1, njps, njpe, & ! ND dims
394 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
395 .FALSE., .FALSE., & ! xstag, ystag
396 ngrid%i_parent_start, ngrid%j_parent_start, &
397 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
398 ,grid%lu_index,ngrid%lu_index &
399 )
400 CALL interp_mask_land_field ( &
401 grid%acsnow, & ! CD field
402 cids, cide, 1, 1, cjds, cjde, & ! CD dims
403 cims, cime, 1, 1, cjms, cjme, & ! CD dims
404 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
405 ngrid%acsnow, & ! ND field
406 nids, nide, 1, 1, njds, njde, & ! ND dims
407 nims, nime, 1, 1, njms, njme, & ! ND dims
408 nips, nipe, 1, 1, njps, njpe, & ! ND dims
409 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
410 .FALSE., .FALSE., & ! xstag, ystag
411 ngrid%i_parent_start, ngrid%j_parent_start, &
412 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
413 ,grid%lu_index,ngrid%lu_index &
414 )
415 CALL interp_mask_land_field ( &
416 grid%acsnom, & ! CD field
417 cids, cide, 1, 1, cjds, cjde, & ! CD dims
418 cims, cime, 1, 1, cjms, cjme, & ! CD dims
419 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
420 ngrid%acsnom, & ! ND field
421 nids, nide, 1, 1, njds, njde, & ! ND dims
422 nims, nime, 1, 1, njms, njme, & ! ND dims
423 nips, nipe, 1, 1, njps, njpe, & ! ND dims
424 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
425 .FALSE., .FALSE., & ! xstag, ystag
426 ngrid%i_parent_start, ngrid%j_parent_start, &
427 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
428 ,grid%lu_index,ngrid%lu_index &
429 )
430 CALL interp_mask_land_field ( &
431 grid%snow, & ! CD field
432 cids, cide, 1, 1, cjds, cjde, & ! CD dims
433 cims, cime, 1, 1, cjms, cjme, & ! CD dims
434 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
435 ngrid%snow, & ! ND field
436 nids, nide, 1, 1, njds, njde, & ! ND dims
437 nims, nime, 1, 1, njms, njme, & ! ND dims
438 nips, nipe, 1, 1, njps, njpe, & ! ND dims
439 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
440 .FALSE., .FALSE., & ! xstag, ystag
441 ngrid%i_parent_start, ngrid%j_parent_start, &
442 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
443 ,grid%lu_index,ngrid%lu_index &
444 )
445 CALL interp_mask_land_field ( &
446 grid%snowh, & ! CD field
447 cids, cide, 1, 1, cjds, cjde, & ! CD dims
448 cims, cime, 1, 1, cjms, cjme, & ! CD dims
449 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
450 ngrid%snowh, & ! ND field
451 nids, nide, 1, 1, njds, njde, & ! ND dims
452 nims, nime, 1, 1, njms, njme, & ! ND dims
453 nips, nipe, 1, 1, njps, njpe, & ! ND dims
454 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
455 .FALSE., .FALSE., & ! xstag, ystag
456 ngrid%i_parent_start, ngrid%j_parent_start, &
457 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
458 ,grid%lu_index,ngrid%lu_index &
459 )
460 CALL interp_mask_land_field ( &
461 grid%rhosn, & ! CD field
462 cids, cide, 1, 1, cjds, cjde, & ! CD dims
463 cims, cime, 1, 1, cjms, cjme, & ! CD dims
464 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
465 ngrid%rhosn, & ! ND field
466 nids, nide, 1, 1, njds, njde, & ! ND dims
467 nims, nime, 1, 1, njms, njme, & ! ND dims
468 nips, nipe, 1, 1, njps, njpe, & ! ND dims
469 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
470 .FALSE., .FALSE., & ! xstag, ystag
471 ngrid%i_parent_start, ngrid%j_parent_start, &
472 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
473 ,grid%lu_index,ngrid%lu_index &
474 )
475 CALL interp_mask_land_field ( &
476 grid%canwat, & ! CD field
477 cids, cide, 1, 1, cjds, cjde, & ! CD dims
478 cims, cime, 1, 1, cjms, cjme, & ! CD dims
479 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
480 ngrid%canwat, & ! ND field
481 nids, nide, 1, 1, njds, njde, & ! ND dims
482 nims, nime, 1, 1, njms, njme, & ! ND dims
483 nips, nipe, 1, 1, njps, njpe, & ! ND dims
484 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
485 .FALSE., .FALSE., & ! xstag, ystag
486 ngrid%i_parent_start, ngrid%j_parent_start, &
487 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
488 ,grid%lu_index,ngrid%lu_index &
489 )
490 CALL interp_mask_water_field ( &
491 grid%sst, & ! CD field
492 cids, cide, 1, 1, cjds, cjde, & ! CD dims
493 cims, cime, 1, 1, cjms, cjme, & ! CD dims
494 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
495 ngrid%sst, & ! ND field
496 nids, nide, 1, 1, njds, njde, & ! ND dims
497 nims, nime, 1, 1, njms, njme, & ! ND dims
498 nips, nipe, 1, 1, njps, njpe, & ! ND dims
499 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
500 .FALSE., .FALSE., & ! xstag, ystag
501 ngrid%i_parent_start, ngrid%j_parent_start, &
502 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
503 ,grid%lu_index,ngrid%lu_index &
504 )
505 CALL interp_fcn ( &
506 grid%msft, & ! CD field
507 cids, cide, 1, 1, cjds, cjde, & ! CD dims
508 cims, cime, 1, 1, cjms, cjme, & ! CD dims
509 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
510 ngrid%msft, & ! ND field
511 nids, nide, 1, 1, njds, njde, & ! ND dims
512 nims, nime, 1, 1, njms, njme, & ! ND dims
513 nips, nipe, 1, 1, njps, njpe, & ! ND dims
514 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
515 .FALSE., .FALSE., & ! xstag, ystag
516 ngrid%i_parent_start, ngrid%j_parent_start, &
517 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
518 )
519 CALL interp_fcn ( &
520 grid%msfu, & ! CD field
521 cids, cide, 1, 1, cjds, cjde, & ! CD dims
522 cims, cime, 1, 1, cjms, cjme, & ! CD dims
523 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
524 ngrid%msfu, & ! ND field
525 nids, nide, 1, 1, njds, njde, & ! ND dims
526 nims, nime, 1, 1, njms, njme, & ! ND dims
527 nips, nipe, 1, 1, njps, njpe, & ! ND dims
528 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
529 .TRUE., .FALSE., & ! xstag, ystag
530 ngrid%i_parent_start, ngrid%j_parent_start, &
531 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
532 )
533 CALL interp_fcn ( &
534 grid%msfv, & ! CD field
535 cids, cide, 1, 1, cjds, cjde, & ! CD dims
536 cims, cime, 1, 1, cjms, cjme, & ! CD dims
537 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
538 ngrid%msfv, & ! ND field
539 nids, nide, 1, 1, njds, njde, & ! ND dims
540 nims, nime, 1, 1, njms, njme, & ! ND dims
541 nips, nipe, 1, 1, njps, njpe, & ! ND dims
542 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
543 .FALSE., .TRUE., & ! xstag, ystag
544 ngrid%i_parent_start, ngrid%j_parent_start, &
545 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
546 )
547 CALL interp_fcn ( &
548 grid%f, & ! CD field
549 cids, cide, 1, 1, cjds, cjde, & ! CD dims
550 cims, cime, 1, 1, cjms, cjme, & ! CD dims
551 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
552 ngrid%f, & ! ND field
553 nids, nide, 1, 1, njds, njde, & ! ND dims
554 nims, nime, 1, 1, njms, njme, & ! ND dims
555 nips, nipe, 1, 1, njps, njpe, & ! ND dims
556 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
557 .FALSE., .FALSE., & ! xstag, ystag
558 ngrid%i_parent_start, ngrid%j_parent_start, &
559 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
560 )
561 CALL interp_fcn ( &
562 grid%e, & ! CD field
563 cids, cide, 1, 1, cjds, cjde, & ! CD dims
564 cims, cime, 1, 1, cjms, cjme, & ! CD dims
565 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
566 ngrid%e, & ! ND field
567 nids, nide, 1, 1, njds, njde, & ! ND dims
568 nims, nime, 1, 1, njms, njme, & ! ND dims
569 nips, nipe, 1, 1, njps, njpe, & ! ND dims
570 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
571 .FALSE., .FALSE., & ! xstag, ystag
572 ngrid%i_parent_start, ngrid%j_parent_start, &
573 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
574 )
575 CALL interp_fcn ( &
576 grid%sina, & ! CD field
577 cids, cide, 1, 1, cjds, cjde, & ! CD dims
578 cims, cime, 1, 1, cjms, cjme, & ! CD dims
579 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
580 ngrid%sina, & ! ND field
581 nids, nide, 1, 1, njds, njde, & ! ND dims
582 nims, nime, 1, 1, njms, njme, & ! ND dims
583 nips, nipe, 1, 1, njps, njpe, & ! ND dims
584 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
585 .FALSE., .FALSE., & ! xstag, ystag
586 ngrid%i_parent_start, ngrid%j_parent_start, &
587 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
588 )
589 CALL interp_fcn ( &
590 grid%cosa, & ! CD field
591 cids, cide, 1, 1, cjds, cjde, & ! CD dims
592 cims, cime, 1, 1, cjms, cjme, & ! CD dims
593 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
594 ngrid%cosa, & ! ND field
595 nids, nide, 1, 1, njds, njde, & ! ND dims
596 nims, nime, 1, 1, njms, njme, & ! ND dims
597 nips, nipe, 1, 1, njps, njpe, & ! ND dims
598 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
599 .FALSE., .FALSE., & ! xstag, ystag
600 ngrid%i_parent_start, ngrid%j_parent_start, &
601 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
602 )
603 CALL interp_fcn ( &
604 grid%ht, & ! CD field
605 cids, cide, 1, 1, cjds, cjde, & ! CD dims
606 cims, cime, 1, 1, cjms, cjme, & ! CD dims
607 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
608 ngrid%ht, & ! ND field
609 nids, nide, 1, 1, njds, njde, & ! ND dims
610 nims, nime, 1, 1, njms, njme, & ! ND dims
611 nips, nipe, 1, 1, njps, njpe, & ! ND dims
612 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
613 .FALSE., .FALSE., & ! xstag, ystag
614 ngrid%i_parent_start, ngrid%j_parent_start, &
615 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
616 )
617 CALL interp_fcn ( &
618 grid%tsk, & ! CD field
619 cids, cide, 1, 1, cjds, cjde, & ! CD dims
620 cims, cime, 1, 1, cjms, cjme, & ! CD dims
621 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
622 ngrid%tsk, & ! ND field
623 nids, nide, 1, 1, njds, njde, & ! ND dims
624 nims, nime, 1, 1, njms, njme, & ! ND dims
625 nips, nipe, 1, 1, njps, njpe, & ! ND dims
626 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
627 .FALSE., .FALSE., & ! xstag, ystag
628 ngrid%i_parent_start, ngrid%j_parent_start, &
629 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
630 )
631 CALL interp_fcn ( &
632 grid%rainc, & ! CD field
633 cids, cide, 1, 1, cjds, cjde, & ! CD dims
634 cims, cime, 1, 1, cjms, cjme, & ! CD dims
635 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
636 ngrid%rainc, & ! ND field
637 nids, nide, 1, 1, njds, njde, & ! ND dims
638 nims, nime, 1, 1, njms, njme, & ! ND dims
639 nips, nipe, 1, 1, njps, njpe, & ! ND dims
640 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
641 .FALSE., .FALSE., & ! xstag, ystag
642 ngrid%i_parent_start, ngrid%j_parent_start, &
643 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
644 )
645 CALL interp_fcn ( &
646 grid%rainnc, & ! CD field
647 cids, cide, 1, 1, cjds, cjde, & ! CD dims
648 cims, cime, 1, 1, cjms, cjme, & ! CD dims
649 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
650 ngrid%rainnc, & ! ND field
651 nids, nide, 1, 1, njds, njde, & ! ND dims
652 nims, nime, 1, 1, njms, njme, & ! ND dims
653 nips, nipe, 1, 1, njps, njpe, & ! ND dims
654 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
655 .FALSE., .FALSE., & ! xstag, ystag
656 ngrid%i_parent_start, ngrid%j_parent_start, &
657 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
658 )
659 CALL interp_fcn ( &
660 grid%xlat, & ! CD field
661 cids, cide, 1, 1, cjds, cjde, & ! CD dims
662 cims, cime, 1, 1, cjms, cjme, & ! CD dims
663 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
664 ngrid%xlat, & ! ND field
665 nids, nide, 1, 1, njds, njde, & ! ND dims
666 nims, nime, 1, 1, njms, njme, & ! ND dims
667 nips, nipe, 1, 1, njps, njpe, & ! ND dims
668 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
669 .FALSE., .FALSE., & ! xstag, ystag
670 ngrid%i_parent_start, ngrid%j_parent_start, &
671 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
672 )
673 CALL interp_fcn ( &
674 grid%xlong, & ! CD field
675 cids, cide, 1, 1, cjds, cjde, & ! CD dims
676 cims, cime, 1, 1, cjms, cjme, & ! CD dims
677 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
678 ngrid%xlong, & ! ND field
679 nids, nide, 1, 1, njds, njde, & ! ND dims
680 nims, nime, 1, 1, njms, njme, & ! ND dims
681 nips, nipe, 1, 1, njps, njpe, & ! ND dims
682 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
683 .FALSE., .FALSE., & ! xstag, ystag
684 ngrid%i_parent_start, ngrid%j_parent_start, &
685 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
686 )
687 CALL interp_mask_land_field ( &
688 grid%tmn, & ! CD field
689 cids, cide, 1, 1, cjds, cjde, & ! CD dims
690 cims, cime, 1, 1, cjms, cjme, & ! CD dims
691 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
692 ngrid%tmn, & ! ND field
693 nids, nide, 1, 1, njds, njde, & ! ND dims
694 nims, nime, 1, 1, njms, njme, & ! ND dims
695 nips, nipe, 1, 1, njps, njpe, & ! ND dims
696 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
697 .FALSE., .FALSE., & ! xstag, ystag
698 ngrid%i_parent_start, ngrid%j_parent_start, &
699 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
700 ,grid%lu_index,ngrid%lu_index &
701 )
702 CALL interp_fcnm ( &
703 grid%xland, & ! CD field
704 cids, cide, 1, 1, cjds, cjde, & ! CD dims
705 cims, cime, 1, 1, cjms, cjme, & ! CD dims
706 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
707 ngrid%xland, & ! ND field
708 nids, nide, 1, 1, njds, njde, & ! ND dims
709 nims, nime, 1, 1, njms, njme, & ! ND dims
710 nips, nipe, 1, 1, njps, njpe, & ! ND dims
711 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
712 .FALSE., .FALSE., & ! xstag, ystag
713 ngrid%i_parent_start, ngrid%j_parent_start, &
714 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
715 )
716 CALL interp_mask_land_field ( &
717 grid%snowc, & ! CD field
718 cids, cide, 1, 1, cjds, cjde, & ! CD dims
719 cims, cime, 1, 1, cjms, cjme, & ! CD dims
720 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
721 ngrid%snowc, & ! ND field
722 nids, nide, 1, 1, njds, njde, & ! ND dims
723 nims, nime, 1, 1, njms, njme, & ! ND dims
724 nips, nipe, 1, 1, njps, njpe, & ! ND dims
725 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
726 .FALSE., .FALSE., & ! xstag, ystag
727 ngrid%i_parent_start, ngrid%j_parent_start, &
728 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
729 ,grid%lu_index,ngrid%lu_index &
730 )
731 !ENDOFREGISTRYGENERATEDINCLUDE