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 DO itrace = PARAM_FIRST_SCALAR, num_moist
22 CALL interp_fcn ( &
23 moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
24 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
25 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
26 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
27 ngrid%moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
28 nids, nide, njds, njde, nkds, nkde, & ! ND dims
29 nims, nime, njms, njme, nkms, nkme, & ! ND dims
30 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
31 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
32 .FALSE., .FALSE., & ! xstag, ystag
33 ngrid%i_parent_start, ngrid%j_parent_start, &
34 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
35 )
36 ENDDO
37 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
38 CALL interp_fcn ( &
39 a_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
40 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
41 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
42 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
43 ngrid%a_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
44 nids, nide, njds, njde, nkds, nkde, & ! ND dims
45 nims, nime, njms, njme, nkms, nkme, & ! ND dims
46 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
47 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
48 .FALSE., .FALSE., & ! xstag, ystag
49 ngrid%i_parent_start, ngrid%j_parent_start, &
50 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
51 )
52 ENDDO
53 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
54 CALL interp_fcn ( &
55 g_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
56 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
57 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
58 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
59 ngrid%g_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
60 nids, nide, njds, njde, nkds, nkde, & ! ND dims
61 nims, nime, njms, njme, nkms, nkme, & ! ND dims
62 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
63 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
64 .FALSE., .FALSE., & ! xstag, ystag
65 ngrid%i_parent_start, ngrid%j_parent_start, &
66 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
67 )
68 ENDDO
69 DO itrace = PARAM_FIRST_SCALAR, num_scalar
70 CALL interp_fcn ( &
71 scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
72 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
73 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
74 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
75 ngrid%scalar(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
76 nids, nide, njds, njde, nkds, nkde, & ! ND dims
77 nims, nime, njms, njme, nkms, nkme, & ! ND dims
78 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
79 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
80 .FALSE., .FALSE., & ! xstag, ystag
81 ngrid%i_parent_start, ngrid%j_parent_start, &
82 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
83 )
84 ENDDO
85 CALL interp_fcnm ( &
86 grid%landmask, & ! CD field
87 cids, cide, 1, 1, cjds, cjde, & ! CD dims
88 cims, cime, 1, 1, cjms, cjme, & ! CD dims
89 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
90 ngrid%landmask, & ! ND field
91 nids, nide, 1, 1, njds, njde, & ! ND dims
92 nims, nime, 1, 1, njms, njme, & ! ND dims
93 nips, nipe, 1, 1, njps, njpe, & ! ND dims
94 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
95 .FALSE., .FALSE., & ! xstag, ystag
96 ngrid%i_parent_start, ngrid%j_parent_start, &
97 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
98 )
99 CALL interp_mask_land_field ( &
100 grid%tslb, & ! CD field
101 cids, cide, cjds, cjde, 1, config_flags%num_soil_layers, & ! CD dims
102 cims, cime, cjms, cjme, 1, config_flags%num_soil_layers, & ! CD dims
103 cips, cipe, cjps, MIN( (cjde-1), cjpe ), 1, config_flags%num_soil_layers, & ! CD dims
104 ngrid%tslb, & ! ND field
105 nids, nide, njds, njde, 1, config_flags%num_soil_layers, & ! ND dims
106 nims, nime, njms, njme, 1, config_flags%num_soil_layers, & ! ND dims
107 nips, nipe, njps, MIN( (njde-1), njpe ), 1, config_flags%num_soil_layers, & ! ND dims
108 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
109 .FALSE., .FALSE., & ! xstag, ystag
110 ngrid%i_parent_start, ngrid%j_parent_start, &
111 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
112 ,grid%lu_index,ngrid%lu_index &
113 )
114 CALL interp_mask_land_field ( &
115 grid%smois, & ! CD field
116 cids, cide, cjds, cjde, 1, config_flags%num_soil_layers, & ! CD dims
117 cims, cime, cjms, cjme, 1, config_flags%num_soil_layers, & ! CD dims
118 cips, cipe, cjps, MIN( (cjde-1), cjpe ), 1, config_flags%num_soil_layers, & ! CD dims
119 ngrid%smois, & ! ND field
120 nids, nide, njds, njde, 1, config_flags%num_soil_layers, & ! ND dims
121 nims, nime, njms, njme, 1, config_flags%num_soil_layers, & ! ND dims
122 nips, nipe, njps, MIN( (njde-1), njpe ), 1, config_flags%num_soil_layers, & ! ND dims
123 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
124 .FALSE., .FALSE., & ! xstag, ystag
125 ngrid%i_parent_start, ngrid%j_parent_start, &
126 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
127 ,grid%lu_index,ngrid%lu_index &
128 )
129 CALL interp_mask_land_field ( &
130 grid%sh2o, & ! CD field
131 cids, cide, cjds, cjde, 1, config_flags%num_soil_layers, & ! CD dims
132 cims, cime, cjms, cjme, 1, config_flags%num_soil_layers, & ! CD dims
133 cips, cipe, cjps, MIN( (cjde-1), cjpe ), 1, config_flags%num_soil_layers, & ! CD dims
134 ngrid%sh2o, & ! ND field
135 nids, nide, njds, njde, 1, config_flags%num_soil_layers, & ! ND dims
136 nims, nime, njms, njme, 1, config_flags%num_soil_layers, & ! ND dims
137 nips, nipe, njps, MIN( (njde-1), njpe ), 1, config_flags%num_soil_layers, & ! ND dims
138 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
139 .FALSE., .FALSE., & ! xstag, ystag
140 ngrid%i_parent_start, ngrid%j_parent_start, &
141 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
142 ,grid%lu_index,ngrid%lu_index &
143 )
144 CALL interp_mask_water_field ( &
145 grid%xice, & ! CD field
146 cids, cide, 1, 1, cjds, cjde, & ! CD dims
147 cims, cime, 1, 1, cjms, cjme, & ! CD dims
148 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
149 ngrid%xice, & ! ND field
150 nids, nide, 1, 1, njds, njde, & ! ND dims
151 nims, nime, 1, 1, njms, njme, & ! ND dims
152 nips, nipe, 1, 1, njps, njpe, & ! ND dims
153 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
154 .FALSE., .FALSE., & ! xstag, ystag
155 ngrid%i_parent_start, ngrid%j_parent_start, &
156 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
157 ,grid%lu_index,ngrid%lu_index &
158 )
159 CALL interp_mask_land_field ( &
160 grid%sfcrunoff, & ! CD field
161 cids, cide, 1, 1, cjds, cjde, & ! CD dims
162 cims, cime, 1, 1, cjms, cjme, & ! CD dims
163 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
164 ngrid%sfcrunoff, & ! ND field
165 nids, nide, 1, 1, njds, njde, & ! ND dims
166 nims, nime, 1, 1, njms, njme, & ! ND dims
167 nips, nipe, 1, 1, njps, njpe, & ! ND dims
168 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
169 .FALSE., .FALSE., & ! xstag, ystag
170 ngrid%i_parent_start, ngrid%j_parent_start, &
171 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
172 ,grid%lu_index,ngrid%lu_index &
173 )
174 CALL interp_mask_land_field ( &
175 grid%udrunoff, & ! CD field
176 cids, cide, 1, 1, cjds, cjde, & ! CD dims
177 cims, cime, 1, 1, cjms, cjme, & ! CD dims
178 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
179 ngrid%udrunoff, & ! ND field
180 nids, nide, 1, 1, njds, njde, & ! ND dims
181 nims, nime, 1, 1, njms, njme, & ! ND dims
182 nips, nipe, 1, 1, njps, njpe, & ! ND dims
183 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
184 .FALSE., .FALSE., & ! xstag, ystag
185 ngrid%i_parent_start, ngrid%j_parent_start, &
186 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
187 ,grid%lu_index,ngrid%lu_index &
188 )
189 CALL interp_fcni ( &
190 grid%ivgtyp, & ! CD field
191 cids, cide, 1, 1, cjds, cjde, & ! CD dims
192 cims, cime, 1, 1, cjms, cjme, & ! CD dims
193 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
194 ngrid%ivgtyp, & ! ND field
195 nids, nide, 1, 1, njds, njde, & ! ND dims
196 nims, nime, 1, 1, njms, njme, & ! ND dims
197 nips, nipe, 1, 1, njps, njpe, & ! ND dims
198 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
199 .FALSE., .FALSE., & ! xstag, ystag
200 ngrid%i_parent_start, ngrid%j_parent_start, &
201 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
202 )
203 CALL interp_fcni ( &
204 grid%isltyp, & ! CD field
205 cids, cide, 1, 1, cjds, cjde, & ! CD dims
206 cims, cime, 1, 1, cjms, cjme, & ! CD dims
207 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
208 ngrid%isltyp, & ! ND field
209 nids, nide, 1, 1, njds, njde, & ! ND dims
210 nims, nime, 1, 1, njms, njme, & ! ND dims
211 nips, nipe, 1, 1, njps, njpe, & ! ND dims
212 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
213 .FALSE., .FALSE., & ! xstag, ystag
214 ngrid%i_parent_start, ngrid%j_parent_start, &
215 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
216 )
217 CALL interp_mask_land_field ( &
218 grid%vegfra, & ! CD field
219 cids, cide, 1, 1, cjds, cjde, & ! CD dims
220 cims, cime, 1, 1, cjms, cjme, & ! CD dims
221 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
222 ngrid%vegfra, & ! ND field
223 nids, nide, 1, 1, njds, njde, & ! ND dims
224 nims, nime, 1, 1, njms, njme, & ! ND dims
225 nips, nipe, 1, 1, njps, njpe, & ! ND dims
226 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
227 .FALSE., .FALSE., & ! xstag, ystag
228 ngrid%i_parent_start, ngrid%j_parent_start, &
229 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
230 ,grid%lu_index,ngrid%lu_index &
231 )
232 CALL interp_mask_land_field ( &
233 grid%acsnow, & ! CD field
234 cids, cide, 1, 1, cjds, cjde, & ! CD dims
235 cims, cime, 1, 1, cjms, cjme, & ! CD dims
236 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
237 ngrid%acsnow, & ! ND field
238 nids, nide, 1, 1, njds, njde, & ! ND dims
239 nims, nime, 1, 1, njms, njme, & ! ND dims
240 nips, nipe, 1, 1, njps, njpe, & ! ND dims
241 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
242 .FALSE., .FALSE., & ! xstag, ystag
243 ngrid%i_parent_start, ngrid%j_parent_start, &
244 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
245 ,grid%lu_index,ngrid%lu_index &
246 )
247 CALL interp_mask_land_field ( &
248 grid%acsnom, & ! CD field
249 cids, cide, 1, 1, cjds, cjde, & ! CD dims
250 cims, cime, 1, 1, cjms, cjme, & ! CD dims
251 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
252 ngrid%acsnom, & ! ND field
253 nids, nide, 1, 1, njds, njde, & ! ND dims
254 nims, nime, 1, 1, njms, njme, & ! ND dims
255 nips, nipe, 1, 1, njps, njpe, & ! ND dims
256 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
257 .FALSE., .FALSE., & ! xstag, ystag
258 ngrid%i_parent_start, ngrid%j_parent_start, &
259 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
260 ,grid%lu_index,ngrid%lu_index &
261 )
262 CALL interp_mask_land_field ( &
263 grid%snow, & ! CD field
264 cids, cide, 1, 1, cjds, cjde, & ! CD dims
265 cims, cime, 1, 1, cjms, cjme, & ! CD dims
266 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
267 ngrid%snow, & ! ND field
268 nids, nide, 1, 1, njds, njde, & ! ND dims
269 nims, nime, 1, 1, njms, njme, & ! ND dims
270 nips, nipe, 1, 1, njps, njpe, & ! ND dims
271 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
272 .FALSE., .FALSE., & ! xstag, ystag
273 ngrid%i_parent_start, ngrid%j_parent_start, &
274 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
275 ,grid%lu_index,ngrid%lu_index &
276 )
277 CALL interp_mask_land_field ( &
278 grid%snowh, & ! CD field
279 cids, cide, 1, 1, cjds, cjde, & ! CD dims
280 cims, cime, 1, 1, cjms, cjme, & ! CD dims
281 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
282 ngrid%snowh, & ! ND field
283 nids, nide, 1, 1, njds, njde, & ! ND dims
284 nims, nime, 1, 1, njms, njme, & ! ND dims
285 nips, nipe, 1, 1, njps, njpe, & ! ND dims
286 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
287 .FALSE., .FALSE., & ! xstag, ystag
288 ngrid%i_parent_start, ngrid%j_parent_start, &
289 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
290 ,grid%lu_index,ngrid%lu_index &
291 )
292 CALL interp_mask_land_field ( &
293 grid%rhosn, & ! CD field
294 cids, cide, 1, 1, cjds, cjde, & ! CD dims
295 cims, cime, 1, 1, cjms, cjme, & ! CD dims
296 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
297 ngrid%rhosn, & ! ND field
298 nids, nide, 1, 1, njds, njde, & ! ND dims
299 nims, nime, 1, 1, njms, njme, & ! ND dims
300 nips, nipe, 1, 1, njps, njpe, & ! ND dims
301 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
302 .FALSE., .FALSE., & ! xstag, ystag
303 ngrid%i_parent_start, ngrid%j_parent_start, &
304 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
305 ,grid%lu_index,ngrid%lu_index &
306 )
307 CALL interp_mask_land_field ( &
308 grid%canwat, & ! CD field
309 cids, cide, 1, 1, cjds, cjde, & ! CD dims
310 cims, cime, 1, 1, cjms, cjme, & ! CD dims
311 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
312 ngrid%canwat, & ! ND field
313 nids, nide, 1, 1, njds, njde, & ! ND dims
314 nims, nime, 1, 1, njms, njme, & ! ND dims
315 nips, nipe, 1, 1, njps, njpe, & ! ND dims
316 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
317 .FALSE., .FALSE., & ! xstag, ystag
318 ngrid%i_parent_start, ngrid%j_parent_start, &
319 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
320 ,grid%lu_index,ngrid%lu_index &
321 )
322 CALL interp_mask_water_field ( &
323 grid%sst, & ! CD field
324 cids, cide, 1, 1, cjds, cjde, & ! CD dims
325 cims, cime, 1, 1, cjms, cjme, & ! CD dims
326 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
327 ngrid%sst, & ! ND field
328 nids, nide, 1, 1, njds, njde, & ! ND dims
329 nims, nime, 1, 1, njms, njme, & ! ND dims
330 nips, nipe, 1, 1, njps, njpe, & ! ND dims
331 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
332 .FALSE., .FALSE., & ! xstag, ystag
333 ngrid%i_parent_start, ngrid%j_parent_start, &
334 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
335 ,grid%lu_index,ngrid%lu_index &
336 )
337 CALL interp_fcn ( &
338 grid%msft, & ! CD field
339 cids, cide, 1, 1, cjds, cjde, & ! CD dims
340 cims, cime, 1, 1, cjms, cjme, & ! CD dims
341 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
342 ngrid%msft, & ! ND field
343 nids, nide, 1, 1, njds, njde, & ! ND dims
344 nims, nime, 1, 1, njms, njme, & ! ND dims
345 nips, nipe, 1, 1, njps, njpe, & ! ND dims
346 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
347 .FALSE., .FALSE., & ! xstag, ystag
348 ngrid%i_parent_start, ngrid%j_parent_start, &
349 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
350 )
351 CALL interp_fcn ( &
352 grid%msfu, & ! CD field
353 cids, cide, 1, 1, cjds, cjde, & ! CD dims
354 cims, cime, 1, 1, cjms, cjme, & ! CD dims
355 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
356 ngrid%msfu, & ! ND field
357 nids, nide, 1, 1, njds, njde, & ! ND dims
358 nims, nime, 1, 1, njms, njme, & ! ND dims
359 nips, nipe, 1, 1, njps, njpe, & ! ND dims
360 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
361 .TRUE., .FALSE., & ! xstag, ystag
362 ngrid%i_parent_start, ngrid%j_parent_start, &
363 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
364 )
365 CALL interp_fcn ( &
366 grid%msfv, & ! CD field
367 cids, cide, 1, 1, cjds, cjde, & ! CD dims
368 cims, cime, 1, 1, cjms, cjme, & ! CD dims
369 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
370 ngrid%msfv, & ! ND field
371 nids, nide, 1, 1, njds, njde, & ! ND dims
372 nims, nime, 1, 1, njms, njme, & ! ND dims
373 nips, nipe, 1, 1, njps, njpe, & ! ND dims
374 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
375 .FALSE., .TRUE., & ! xstag, ystag
376 ngrid%i_parent_start, ngrid%j_parent_start, &
377 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
378 )
379 CALL interp_fcn ( &
380 grid%f, & ! CD field
381 cids, cide, 1, 1, cjds, cjde, & ! CD dims
382 cims, cime, 1, 1, cjms, cjme, & ! CD dims
383 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
384 ngrid%f, & ! ND field
385 nids, nide, 1, 1, njds, njde, & ! ND dims
386 nims, nime, 1, 1, njms, njme, & ! ND dims
387 nips, nipe, 1, 1, njps, njpe, & ! ND dims
388 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
389 .FALSE., .FALSE., & ! xstag, ystag
390 ngrid%i_parent_start, ngrid%j_parent_start, &
391 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
392 )
393 CALL interp_fcn ( &
394 grid%e, & ! CD field
395 cids, cide, 1, 1, cjds, cjde, & ! CD dims
396 cims, cime, 1, 1, cjms, cjme, & ! CD dims
397 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
398 ngrid%e, & ! ND field
399 nids, nide, 1, 1, njds, njde, & ! ND dims
400 nims, nime, 1, 1, njms, njme, & ! ND dims
401 nips, nipe, 1, 1, njps, njpe, & ! ND dims
402 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
403 .FALSE., .FALSE., & ! xstag, ystag
404 ngrid%i_parent_start, ngrid%j_parent_start, &
405 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
406 )
407 CALL interp_fcn ( &
408 grid%sina, & ! CD field
409 cids, cide, 1, 1, cjds, cjde, & ! CD dims
410 cims, cime, 1, 1, cjms, cjme, & ! CD dims
411 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
412 ngrid%sina, & ! ND field
413 nids, nide, 1, 1, njds, njde, & ! ND dims
414 nims, nime, 1, 1, njms, njme, & ! ND dims
415 nips, nipe, 1, 1, njps, njpe, & ! ND dims
416 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
417 .FALSE., .FALSE., & ! xstag, ystag
418 ngrid%i_parent_start, ngrid%j_parent_start, &
419 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
420 )
421 CALL interp_fcn ( &
422 grid%cosa, & ! CD field
423 cids, cide, 1, 1, cjds, cjde, & ! CD dims
424 cims, cime, 1, 1, cjms, cjme, & ! CD dims
425 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
426 ngrid%cosa, & ! ND field
427 nids, nide, 1, 1, njds, njde, & ! ND dims
428 nims, nime, 1, 1, njms, njme, & ! ND dims
429 nips, nipe, 1, 1, njps, njpe, & ! ND dims
430 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
431 .FALSE., .FALSE., & ! xstag, ystag
432 ngrid%i_parent_start, ngrid%j_parent_start, &
433 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
434 )
435 CALL interp_fcn ( &
436 grid%ht, & ! CD field
437 cids, cide, 1, 1, cjds, cjde, & ! CD dims
438 cims, cime, 1, 1, cjms, cjme, & ! CD dims
439 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
440 ngrid%ht, & ! ND field
441 nids, nide, 1, 1, njds, njde, & ! ND dims
442 nims, nime, 1, 1, njms, njme, & ! ND dims
443 nips, nipe, 1, 1, njps, njpe, & ! ND dims
444 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
445 .FALSE., .FALSE., & ! xstag, ystag
446 ngrid%i_parent_start, ngrid%j_parent_start, &
447 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
448 )
449 CALL interp_fcn ( &
450 grid%tsk, & ! CD field
451 cids, cide, 1, 1, cjds, cjde, & ! CD dims
452 cims, cime, 1, 1, cjms, cjme, & ! CD dims
453 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
454 ngrid%tsk, & ! ND field
455 nids, nide, 1, 1, njds, njde, & ! ND dims
456 nims, nime, 1, 1, njms, njme, & ! ND dims
457 nips, nipe, 1, 1, njps, njpe, & ! ND dims
458 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
459 .FALSE., .FALSE., & ! xstag, ystag
460 ngrid%i_parent_start, ngrid%j_parent_start, &
461 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
462 )
463 CALL interp_fcn ( &
464 grid%rainc, & ! CD field
465 cids, cide, 1, 1, cjds, cjde, & ! CD dims
466 cims, cime, 1, 1, cjms, cjme, & ! CD dims
467 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
468 ngrid%rainc, & ! ND field
469 nids, nide, 1, 1, njds, njde, & ! ND dims
470 nims, nime, 1, 1, njms, njme, & ! ND dims
471 nips, nipe, 1, 1, njps, njpe, & ! ND dims
472 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
473 .FALSE., .FALSE., & ! xstag, ystag
474 ngrid%i_parent_start, ngrid%j_parent_start, &
475 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
476 )
477 CALL interp_fcn ( &
478 grid%rainnc, & ! CD field
479 cids, cide, 1, 1, cjds, cjde, & ! CD dims
480 cims, cime, 1, 1, cjms, cjme, & ! CD dims
481 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
482 ngrid%rainnc, & ! ND field
483 nids, nide, 1, 1, njds, njde, & ! ND dims
484 nims, nime, 1, 1, njms, njme, & ! ND dims
485 nips, nipe, 1, 1, njps, njpe, & ! ND dims
486 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
487 .FALSE., .FALSE., & ! xstag, ystag
488 ngrid%i_parent_start, ngrid%j_parent_start, &
489 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
490 )
491 CALL interp_fcn ( &
492 grid%xlat, & ! CD field
493 cids, cide, 1, 1, cjds, cjde, & ! CD dims
494 cims, cime, 1, 1, cjms, cjme, & ! CD dims
495 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
496 ngrid%xlat, & ! ND field
497 nids, nide, 1, 1, njds, njde, & ! ND dims
498 nims, nime, 1, 1, njms, njme, & ! ND dims
499 nips, nipe, 1, 1, njps, njpe, & ! ND dims
500 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
501 .FALSE., .FALSE., & ! xstag, ystag
502 ngrid%i_parent_start, ngrid%j_parent_start, &
503 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
504 )
505 CALL interp_fcn ( &
506 grid%xlong, & ! 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%xlong, & ! 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_mask_land_field ( &
520 grid%tmn, & ! 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%tmn, & ! 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_nostag, & ! stencil half width
529 .FALSE., .FALSE., & ! xstag, ystag
530 ngrid%i_parent_start, ngrid%j_parent_start, &
531 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
532 ,grid%lu_index,ngrid%lu_index &
533 )
534 CALL interp_fcnm ( &
535 grid%xland, & ! CD field
536 cids, cide, 1, 1, cjds, cjde, & ! CD dims
537 cims, cime, 1, 1, cjms, cjme, & ! CD dims
538 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
539 ngrid%xland, & ! ND field
540 nids, nide, 1, 1, njds, njde, & ! ND dims
541 nims, nime, 1, 1, njms, njme, & ! ND dims
542 nips, nipe, 1, 1, njps, njpe, & ! ND dims
543 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
544 .FALSE., .FALSE., & ! xstag, ystag
545 ngrid%i_parent_start, ngrid%j_parent_start, &
546 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
547 )
548 CALL interp_mask_land_field ( &
549 grid%snowc, & ! CD field
550 cids, cide, 1, 1, cjds, cjde, & ! CD dims
551 cims, cime, 1, 1, cjms, cjme, & ! CD dims
552 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
553 ngrid%snowc, & ! ND field
554 nids, nide, 1, 1, njds, njde, & ! ND dims
555 nims, nime, 1, 1, njms, njme, & ! ND dims
556 nips, nipe, 1, 1, njps, njpe, & ! ND dims
557 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
558 .FALSE., .FALSE., & ! xstag, ystag
559 ngrid%i_parent_start, ngrid%j_parent_start, &
560 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
561 ,grid%lu_index,ngrid%lu_index &
562 )
563 !ENDOFREGISTRYGENERATEDINCLUDE