em_nest_interpdown_interp.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_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%em_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%em_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%a_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%a_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%g_u_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%g_u_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_xstag, & ! stencil half width
59 .TRUE., .FALSE., & ! 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%em_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%em_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_v_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-1), ckpe ), cjps, cjpe, & ! CD dims
82 ngrid%a_v_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-1), nkpe ), njps, njpe, & ! ND dims
86 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
87 .FALSE., .TRUE., & ! 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_v_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-1), ckpe ), cjps, cjpe, & ! CD dims
96 ngrid%g_v_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-1), nkpe ), njps, njpe, & ! ND dims
100 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
101 .FALSE., .TRUE., & ! 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%em_w_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%em_w_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%a_w_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%a_w_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%g_w_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, ckpe ), cjps, cjpe, & ! CD dims
138 ngrid%g_w_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, 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%em_ph_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, ckpe ), cjps, cjpe, & ! CD dims
152 ngrid%em_ph_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, 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_ph_2, & ! CD field
163 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
164 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
165 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
166 ngrid%a_ph_2, & ! ND field
167 nids, nide, nkds, nkde, njds, njde, & ! ND dims
168 nims, nime, nkms, nkme, njms, njme, & ! ND dims
169 nips, nipe, nkps, MIN( nkde, nkpe ), 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_ph_2, & ! CD field
177 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
178 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
179 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
180 ngrid%g_ph_2, & ! ND field
181 nids, nide, nkds, nkde, njds, njde, & ! ND dims
182 nims, nime, nkms, nkme, njms, njme, & ! ND dims
183 nips, nipe, nkps, MIN( nkde, nkpe ), 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 CALL interp_fcn ( &
190 grid%em_phb, & ! CD field
191 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
192 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
193 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
194 ngrid%em_phb, & ! ND field
195 nids, nide, nkds, nkde, njds, njde, & ! ND dims
196 nims, nime, nkms, nkme, njms, njme, & ! ND dims
197 nips, nipe, nkps, MIN( nkde, nkpe ), 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_fcn ( &
204 grid%em_t_2, & ! CD field
205 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
206 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
207 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
208 ngrid%em_t_2, & ! ND field
209 nids, nide, nkds, nkde, njds, njde, & ! ND dims
210 nims, nime, nkms, nkme, njms, njme, & ! ND dims
211 nips, nipe, nkps, MIN( (nkde-1), nkpe ), 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_fcn ( &
218 grid%a_t_2, & ! CD field
219 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
220 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
221 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
222 ngrid%a_t_2, & ! ND field
223 nids, nide, nkds, nkde, njds, njde, & ! ND dims
224 nims, nime, nkms, nkme, njms, njme, & ! ND dims
225 nips, nipe, nkps, MIN( (nkde-1), nkpe ), 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 )
231 CALL interp_fcn ( &
232 grid%g_t_2, & ! CD field
233 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
234 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
235 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
236 ngrid%g_t_2, & ! ND field
237 nids, nide, nkds, nkde, njds, njde, & ! ND dims
238 nims, nime, nkms, nkme, njms, njme, & ! ND dims
239 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
240 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
241 .FALSE., .FALSE., & ! xstag, ystag
242 ngrid%i_parent_start, ngrid%j_parent_start, &
243 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
244 )
245 CALL interp_fcn ( &
246 grid%em_mu_2, & ! CD field
247 cids, cide, 1, 1, cjds, cjde, & ! CD dims
248 cims, cime, 1, 1, cjms, cjme, & ! CD dims
249 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
250 ngrid%em_mu_2, & ! ND field
251 nids, nide, 1, 1, njds, njde, & ! ND dims
252 nims, nime, 1, 1, njms, njme, & ! ND dims
253 nips, nipe, 1, 1, njps, njpe, & ! ND dims
254 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
255 .FALSE., .FALSE., & ! xstag, ystag
256 ngrid%i_parent_start, ngrid%j_parent_start, &
257 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
258 )
259 CALL interp_fcn ( &
260 grid%a_mu_2, & ! CD field
261 cids, cide, 1, 1, cjds, cjde, & ! CD dims
262 cims, cime, 1, 1, cjms, cjme, & ! CD dims
263 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
264 ngrid%a_mu_2, & ! ND field
265 nids, nide, 1, 1, njds, njde, & ! ND dims
266 nims, nime, 1, 1, njms, njme, & ! ND dims
267 nips, nipe, 1, 1, njps, njpe, & ! ND dims
268 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
269 .FALSE., .FALSE., & ! xstag, ystag
270 ngrid%i_parent_start, ngrid%j_parent_start, &
271 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
272 )
273 CALL interp_fcn ( &
274 grid%g_mu_2, & ! CD field
275 cids, cide, 1, 1, cjds, cjde, & ! CD dims
276 cims, cime, 1, 1, cjms, cjme, & ! CD dims
277 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
278 ngrid%g_mu_2, & ! ND field
279 nids, nide, 1, 1, njds, njde, & ! ND dims
280 nims, nime, 1, 1, njms, njme, & ! ND dims
281 nips, nipe, 1, 1, njps, njpe, & ! ND dims
282 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
283 .FALSE., .FALSE., & ! xstag, ystag
284 ngrid%i_parent_start, ngrid%j_parent_start, &
285 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
286 )
287 CALL interp_fcn ( &
288 grid%em_mub, & ! CD field
289 cids, cide, 1, 1, cjds, cjde, & ! CD dims
290 cims, cime, 1, 1, cjms, cjme, & ! CD dims
291 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
292 ngrid%em_mub, & ! ND field
293 nids, nide, 1, 1, njds, njde, & ! ND dims
294 nims, nime, 1, 1, njms, njme, & ! ND dims
295 nips, nipe, 1, 1, njps, njpe, & ! ND dims
296 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
297 .FALSE., .FALSE., & ! xstag, ystag
298 ngrid%i_parent_start, ngrid%j_parent_start, &
299 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
300 )
301 CALL interp_fcn ( &
302 grid%em_mu0, & ! CD field
303 cids, cide, 1, 1, cjds, cjde, & ! CD dims
304 cims, cime, 1, 1, cjms, cjme, & ! CD dims
305 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
306 ngrid%em_mu0, & ! ND field
307 nids, nide, 1, 1, njds, njde, & ! ND dims
308 nims, nime, 1, 1, njms, njme, & ! ND dims
309 nips, nipe, 1, 1, njps, njpe, & ! ND dims
310 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
311 .FALSE., .FALSE., & ! xstag, ystag
312 ngrid%i_parent_start, ngrid%j_parent_start, &
313 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
314 )
315 DO itrace = PARAM_FIRST_SCALAR, num_moist
316 CALL interp_fcn ( &
317 moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
318 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
319 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
320 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
321 ngrid%moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
322 nids, nide, nkds, nkde, njds, njde, & ! ND dims
323 nims, nime, nkms, nkme, njms, njme, & ! ND dims
324 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
325 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
326 .FALSE., .FALSE., & ! xstag, ystag
327 ngrid%i_parent_start, ngrid%j_parent_start, &
328 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
329 )
330 ENDDO
331 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
332 CALL interp_fcn ( &
333 a_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
334 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
335 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
336 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
337 ngrid%a_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
338 nids, nide, nkds, nkde, njds, njde, & ! ND dims
339 nims, nime, nkms, nkme, njms, njme, & ! ND dims
340 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
341 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
342 .FALSE., .FALSE., & ! xstag, ystag
343 ngrid%i_parent_start, ngrid%j_parent_start, &
344 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
345 )
346 ENDDO
347 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
348 CALL interp_fcn ( &
349 g_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
350 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
351 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
352 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
353 ngrid%g_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
354 nids, nide, nkds, nkde, njds, njde, & ! ND dims
355 nims, nime, nkms, nkme, njms, njme, & ! ND dims
356 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
357 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
358 .FALSE., .FALSE., & ! xstag, ystag
359 ngrid%i_parent_start, ngrid%j_parent_start, &
360 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
361 )
362 ENDDO
363 DO itrace = PARAM_FIRST_SCALAR, num_scalar
364 CALL interp_fcn ( &
365 scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
366 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
367 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
368 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
369 ngrid%scalar(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
370 nids, nide, nkds, nkde, njds, njde, & ! ND dims
371 nims, nime, nkms, nkme, njms, njme, & ! ND dims
372 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
373 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
374 .FALSE., .FALSE., & ! xstag, ystag
375 ngrid%i_parent_start, ngrid%j_parent_start, &
376 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
377 )
378 ENDDO
379 CALL interp_fcnm ( &
380 grid%landmask, & ! 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%landmask, & ! 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_mask_land_field ( &
394 grid%tslb, & ! CD field
395 cids, cide, 1, config_flags%num_soil_layers, cjds, cjde, & ! CD dims
396 cims, cime, 1, config_flags%num_soil_layers, cjms, cjme, & ! CD dims
397 cips, cipe, 1, config_flags%num_soil_layers, cjps, cjpe, & ! CD dims
398 ngrid%tslb, & ! ND field
399 nids, nide, 1, config_flags%num_soil_layers, njds, njde, & ! ND dims
400 nims, nime, 1, config_flags%num_soil_layers, njms, njme, & ! ND dims
401 nips, nipe, 1, config_flags%num_soil_layers, 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 ,grid%lu_index,ngrid%lu_index &
407 )
408 CALL interp_mask_land_field ( &
409 grid%smois, & ! CD field
410 cids, cide, 1, config_flags%num_soil_layers, cjds, cjde, & ! CD dims
411 cims, cime, 1, config_flags%num_soil_layers, cjms, cjme, & ! CD dims
412 cips, cipe, 1, config_flags%num_soil_layers, cjps, cjpe, & ! CD dims
413 ngrid%smois, & ! ND field
414 nids, nide, 1, config_flags%num_soil_layers, njds, njde, & ! ND dims
415 nims, nime, 1, config_flags%num_soil_layers, njms, njme, & ! ND dims
416 nips, nipe, 1, config_flags%num_soil_layers, njps, njpe, & ! ND dims
417 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
418 .FALSE., .FALSE., & ! xstag, ystag
419 ngrid%i_parent_start, ngrid%j_parent_start, &
420 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
421 ,grid%lu_index,ngrid%lu_index &
422 )
423 CALL interp_mask_land_field ( &
424 grid%sh2o, & ! CD field
425 cids, cide, 1, config_flags%num_soil_layers, cjds, cjde, & ! CD dims
426 cims, cime, 1, config_flags%num_soil_layers, cjms, cjme, & ! CD dims
427 cips, cipe, 1, config_flags%num_soil_layers, cjps, cjpe, & ! CD dims
428 ngrid%sh2o, & ! ND field
429 nids, nide, 1, config_flags%num_soil_layers, njds, njde, & ! ND dims
430 nims, nime, 1, config_flags%num_soil_layers, njms, njme, & ! ND dims
431 nips, nipe, 1, config_flags%num_soil_layers, njps, njpe, & ! ND dims
432 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
433 .FALSE., .FALSE., & ! xstag, ystag
434 ngrid%i_parent_start, ngrid%j_parent_start, &
435 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
436 ,grid%lu_index,ngrid%lu_index &
437 )
438 CALL interp_mask_water_field ( &
439 grid%xice, & ! CD field
440 cids, cide, 1, 1, cjds, cjde, & ! CD dims
441 cims, cime, 1, 1, cjms, cjme, & ! CD dims
442 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
443 ngrid%xice, & ! ND field
444 nids, nide, 1, 1, njds, njde, & ! ND dims
445 nims, nime, 1, 1, njms, njme, & ! ND dims
446 nips, nipe, 1, 1, njps, njpe, & ! ND dims
447 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
448 .FALSE., .FALSE., & ! xstag, ystag
449 ngrid%i_parent_start, ngrid%j_parent_start, &
450 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
451 ,grid%lu_index,ngrid%lu_index &
452 )
453 CALL interp_mask_land_field ( &
454 grid%sfcrunoff, & ! CD field
455 cids, cide, 1, 1, cjds, cjde, & ! CD dims
456 cims, cime, 1, 1, cjms, cjme, & ! CD dims
457 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
458 ngrid%sfcrunoff, & ! ND field
459 nids, nide, 1, 1, njds, njde, & ! ND dims
460 nims, nime, 1, 1, njms, njme, & ! ND dims
461 nips, nipe, 1, 1, njps, njpe, & ! ND dims
462 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
463 .FALSE., .FALSE., & ! xstag, ystag
464 ngrid%i_parent_start, ngrid%j_parent_start, &
465 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
466 ,grid%lu_index,ngrid%lu_index &
467 )
468 CALL interp_mask_land_field ( &
469 grid%udrunoff, & ! CD field
470 cids, cide, 1, 1, cjds, cjde, & ! CD dims
471 cims, cime, 1, 1, cjms, cjme, & ! CD dims
472 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
473 ngrid%udrunoff, & ! ND field
474 nids, nide, 1, 1, njds, njde, & ! ND dims
475 nims, nime, 1, 1, njms, njme, & ! ND dims
476 nips, nipe, 1, 1, njps, njpe, & ! ND dims
477 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
478 .FALSE., .FALSE., & ! xstag, ystag
479 ngrid%i_parent_start, ngrid%j_parent_start, &
480 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
481 ,grid%lu_index,ngrid%lu_index &
482 )
483 CALL interp_fcni ( &
484 grid%ivgtyp, & ! CD field
485 cids, cide, 1, 1, cjds, cjde, & ! CD dims
486 cims, cime, 1, 1, cjms, cjme, & ! CD dims
487 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
488 ngrid%ivgtyp, & ! ND field
489 nids, nide, 1, 1, njds, njde, & ! ND dims
490 nims, nime, 1, 1, njms, njme, & ! ND dims
491 nips, nipe, 1, 1, njps, njpe, & ! ND dims
492 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
493 .FALSE., .FALSE., & ! xstag, ystag
494 ngrid%i_parent_start, ngrid%j_parent_start, &
495 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
496 )
497 CALL interp_fcni ( &
498 grid%isltyp, & ! CD field
499 cids, cide, 1, 1, cjds, cjde, & ! CD dims
500 cims, cime, 1, 1, cjms, cjme, & ! CD dims
501 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
502 ngrid%isltyp, & ! ND field
503 nids, nide, 1, 1, njds, njde, & ! ND dims
504 nims, nime, 1, 1, njms, njme, & ! ND dims
505 nips, nipe, 1, 1, njps, njpe, & ! ND dims
506 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
507 .FALSE., .FALSE., & ! xstag, ystag
508 ngrid%i_parent_start, ngrid%j_parent_start, &
509 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
510 )
511 CALL interp_mask_land_field ( &
512 grid%vegfra, & ! CD field
513 cids, cide, 1, 1, cjds, cjde, & ! CD dims
514 cims, cime, 1, 1, cjms, cjme, & ! CD dims
515 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
516 ngrid%vegfra, & ! ND field
517 nids, nide, 1, 1, njds, njde, & ! ND dims
518 nims, nime, 1, 1, njms, njme, & ! ND dims
519 nips, nipe, 1, 1, njps, njpe, & ! ND dims
520 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
521 .FALSE., .FALSE., & ! xstag, ystag
522 ngrid%i_parent_start, ngrid%j_parent_start, &
523 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
524 ,grid%lu_index,ngrid%lu_index &
525 )
526 CALL interp_mask_land_field ( &
527 grid%acsnow, & ! CD field
528 cids, cide, 1, 1, cjds, cjde, & ! CD dims
529 cims, cime, 1, 1, cjms, cjme, & ! CD dims
530 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
531 ngrid%acsnow, & ! ND field
532 nids, nide, 1, 1, njds, njde, & ! ND dims
533 nims, nime, 1, 1, njms, njme, & ! ND dims
534 nips, nipe, 1, 1, njps, njpe, & ! ND dims
535 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
536 .FALSE., .FALSE., & ! xstag, ystag
537 ngrid%i_parent_start, ngrid%j_parent_start, &
538 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
539 ,grid%lu_index,ngrid%lu_index &
540 )
541 CALL interp_mask_land_field ( &
542 grid%acsnom, & ! CD field
543 cids, cide, 1, 1, cjds, cjde, & ! CD dims
544 cims, cime, 1, 1, cjms, cjme, & ! CD dims
545 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
546 ngrid%acsnom, & ! ND field
547 nids, nide, 1, 1, njds, njde, & ! ND dims
548 nims, nime, 1, 1, njms, njme, & ! ND dims
549 nips, nipe, 1, 1, njps, njpe, & ! ND dims
550 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
551 .FALSE., .FALSE., & ! xstag, ystag
552 ngrid%i_parent_start, ngrid%j_parent_start, &
553 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
554 ,grid%lu_index,ngrid%lu_index &
555 )
556 CALL interp_mask_land_field ( &
557 grid%snow, & ! CD field
558 cids, cide, 1, 1, cjds, cjde, & ! CD dims
559 cims, cime, 1, 1, cjms, cjme, & ! CD dims
560 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
561 ngrid%snow, & ! ND field
562 nids, nide, 1, 1, njds, njde, & ! ND dims
563 nims, nime, 1, 1, njms, njme, & ! ND dims
564 nips, nipe, 1, 1, njps, njpe, & ! ND dims
565 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
566 .FALSE., .FALSE., & ! xstag, ystag
567 ngrid%i_parent_start, ngrid%j_parent_start, &
568 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
569 ,grid%lu_index,ngrid%lu_index &
570 )
571 CALL interp_mask_land_field ( &
572 grid%snowh, & ! CD field
573 cids, cide, 1, 1, cjds, cjde, & ! CD dims
574 cims, cime, 1, 1, cjms, cjme, & ! CD dims
575 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
576 ngrid%snowh, & ! ND field
577 nids, nide, 1, 1, njds, njde, & ! ND dims
578 nims, nime, 1, 1, njms, njme, & ! ND dims
579 nips, nipe, 1, 1, njps, njpe, & ! ND dims
580 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
581 .FALSE., .FALSE., & ! xstag, ystag
582 ngrid%i_parent_start, ngrid%j_parent_start, &
583 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
584 ,grid%lu_index,ngrid%lu_index &
585 )
586 CALL interp_mask_land_field ( &
587 grid%rhosn, & ! CD field
588 cids, cide, 1, 1, cjds, cjde, & ! CD dims
589 cims, cime, 1, 1, cjms, cjme, & ! CD dims
590 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
591 ngrid%rhosn, & ! ND field
592 nids, nide, 1, 1, njds, njde, & ! ND dims
593 nims, nime, 1, 1, njms, njme, & ! ND dims
594 nips, nipe, 1, 1, njps, njpe, & ! ND dims
595 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
596 .FALSE., .FALSE., & ! xstag, ystag
597 ngrid%i_parent_start, ngrid%j_parent_start, &
598 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
599 ,grid%lu_index,ngrid%lu_index &
600 )
601 CALL interp_mask_land_field ( &
602 grid%canwat, & ! CD field
603 cids, cide, 1, 1, cjds, cjde, & ! CD dims
604 cims, cime, 1, 1, cjms, cjme, & ! CD dims
605 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
606 ngrid%canwat, & ! ND field
607 nids, nide, 1, 1, njds, njde, & ! ND dims
608 nims, nime, 1, 1, njms, njme, & ! ND dims
609 nips, nipe, 1, 1, njps, njpe, & ! ND dims
610 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
611 .FALSE., .FALSE., & ! xstag, ystag
612 ngrid%i_parent_start, ngrid%j_parent_start, &
613 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
614 ,grid%lu_index,ngrid%lu_index &
615 )
616 CALL interp_mask_water_field ( &
617 grid%sst, & ! CD field
618 cids, cide, 1, 1, cjds, cjde, & ! CD dims
619 cims, cime, 1, 1, cjms, cjme, & ! CD dims
620 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
621 ngrid%sst, & ! ND field
622 nids, nide, 1, 1, njds, njde, & ! ND dims
623 nims, nime, 1, 1, njms, njme, & ! ND dims
624 nips, nipe, 1, 1, njps, njpe, & ! ND dims
625 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
626 .FALSE., .FALSE., & ! xstag, ystag
627 ngrid%i_parent_start, ngrid%j_parent_start, &
628 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
629 ,grid%lu_index,ngrid%lu_index &
630 )
631 CALL interp_fcn ( &
632 grid%msft, & ! 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%msft, & ! 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%msfu, & ! 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%msfu, & ! 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_xstag, & ! stencil half width
655 .TRUE., .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%msfv, & ! 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%msfv, & ! 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_ystag, & ! stencil half width
669 .FALSE., .TRUE., & ! 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%f, & ! 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%f, & ! 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_fcn ( &
688 grid%e, & ! 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%e, & ! 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 )
701 CALL interp_fcn ( &
702 grid%sina, & ! CD field
703 cids, cide, 1, 1, cjds, cjde, & ! CD dims
704 cims, cime, 1, 1, cjms, cjme, & ! CD dims
705 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
706 ngrid%sina, & ! ND field
707 nids, nide, 1, 1, njds, njde, & ! ND dims
708 nims, nime, 1, 1, njms, njme, & ! ND dims
709 nips, nipe, 1, 1, njps, njpe, & ! ND dims
710 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
711 .FALSE., .FALSE., & ! xstag, ystag
712 ngrid%i_parent_start, ngrid%j_parent_start, &
713 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
714 )
715 CALL interp_fcn ( &
716 grid%cosa, & ! CD field
717 cids, cide, 1, 1, cjds, cjde, & ! CD dims
718 cims, cime, 1, 1, cjms, cjme, & ! CD dims
719 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
720 ngrid%cosa, & ! ND field
721 nids, nide, 1, 1, njds, njde, & ! ND dims
722 nims, nime, 1, 1, njms, njme, & ! ND dims
723 nips, nipe, 1, 1, njps, njpe, & ! ND dims
724 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
725 .FALSE., .FALSE., & ! xstag, ystag
726 ngrid%i_parent_start, ngrid%j_parent_start, &
727 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
728 )
729 CALL interp_fcn ( &
730 grid%ht, & ! CD field
731 cids, cide, 1, 1, cjds, cjde, & ! CD dims
732 cims, cime, 1, 1, cjms, cjme, & ! CD dims
733 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
734 ngrid%ht, & ! ND field
735 nids, nide, 1, 1, njds, njde, & ! ND dims
736 nims, nime, 1, 1, njms, njme, & ! ND dims
737 nips, nipe, 1, 1, njps, njpe, & ! ND dims
738 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
739 .FALSE., .FALSE., & ! xstag, ystag
740 ngrid%i_parent_start, ngrid%j_parent_start, &
741 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
742 )
743 CALL interp_fcn ( &
744 grid%tsk, & ! CD field
745 cids, cide, 1, 1, cjds, cjde, & ! CD dims
746 cims, cime, 1, 1, cjms, cjme, & ! CD dims
747 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
748 ngrid%tsk, & ! ND field
749 nids, nide, 1, 1, njds, njde, & ! ND dims
750 nims, nime, 1, 1, njms, njme, & ! ND dims
751 nips, nipe, 1, 1, njps, njpe, & ! ND dims
752 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
753 .FALSE., .FALSE., & ! xstag, ystag
754 ngrid%i_parent_start, ngrid%j_parent_start, &
755 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
756 )
757 CALL interp_fcn ( &
758 grid%rainc, & ! CD field
759 cids, cide, 1, 1, cjds, cjde, & ! CD dims
760 cims, cime, 1, 1, cjms, cjme, & ! CD dims
761 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
762 ngrid%rainc, & ! ND field
763 nids, nide, 1, 1, njds, njde, & ! ND dims
764 nims, nime, 1, 1, njms, njme, & ! ND dims
765 nips, nipe, 1, 1, njps, njpe, & ! ND dims
766 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
767 .FALSE., .FALSE., & ! xstag, ystag
768 ngrid%i_parent_start, ngrid%j_parent_start, &
769 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
770 )
771 CALL interp_fcn ( &
772 grid%rainnc, & ! CD field
773 cids, cide, 1, 1, cjds, cjde, & ! CD dims
774 cims, cime, 1, 1, cjms, cjme, & ! CD dims
775 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
776 ngrid%rainnc, & ! ND field
777 nids, nide, 1, 1, njds, njde, & ! ND dims
778 nims, nime, 1, 1, njms, njme, & ! ND dims
779 nips, nipe, 1, 1, njps, njpe, & ! ND dims
780 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
781 .FALSE., .FALSE., & ! xstag, ystag
782 ngrid%i_parent_start, ngrid%j_parent_start, &
783 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
784 )
785 CALL interp_fcn ( &
786 grid%xlat, & ! CD field
787 cids, cide, 1, 1, cjds, cjde, & ! CD dims
788 cims, cime, 1, 1, cjms, cjme, & ! CD dims
789 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
790 ngrid%xlat, & ! ND field
791 nids, nide, 1, 1, njds, njde, & ! ND dims
792 nims, nime, 1, 1, njms, njme, & ! ND dims
793 nips, nipe, 1, 1, njps, njpe, & ! ND dims
794 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
795 .FALSE., .FALSE., & ! xstag, ystag
796 ngrid%i_parent_start, ngrid%j_parent_start, &
797 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
798 )
799 CALL interp_fcn ( &
800 grid%xlong, & ! CD field
801 cids, cide, 1, 1, cjds, cjde, & ! CD dims
802 cims, cime, 1, 1, cjms, cjme, & ! CD dims
803 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
804 ngrid%xlong, & ! ND field
805 nids, nide, 1, 1, njds, njde, & ! ND dims
806 nims, nime, 1, 1, njms, njme, & ! ND dims
807 nips, nipe, 1, 1, njps, njpe, & ! ND dims
808 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
809 .FALSE., .FALSE., & ! xstag, ystag
810 ngrid%i_parent_start, ngrid%j_parent_start, &
811 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
812 )
813 CALL interp_fcn ( &
814 grid%em_xlat_u, & ! CD field
815 cids, cide, 1, 1, cjds, cjde, & ! CD dims
816 cims, cime, 1, 1, cjms, cjme, & ! CD dims
817 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
818 ngrid%em_xlat_u, & ! ND field
819 nids, nide, 1, 1, njds, njde, & ! ND dims
820 nims, nime, 1, 1, njms, njme, & ! ND dims
821 nips, nipe, 1, 1, njps, njpe, & ! ND dims
822 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
823 .TRUE., .FALSE., & ! xstag, ystag
824 ngrid%i_parent_start, ngrid%j_parent_start, &
825 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
826 )
827 CALL interp_fcn ( &
828 grid%em_xlong_u, & ! CD field
829 cids, cide, 1, 1, cjds, cjde, & ! CD dims
830 cims, cime, 1, 1, cjms, cjme, & ! CD dims
831 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
832 ngrid%em_xlong_u, & ! ND field
833 nids, nide, 1, 1, njds, njde, & ! ND dims
834 nims, nime, 1, 1, njms, njme, & ! ND dims
835 nips, nipe, 1, 1, njps, njpe, & ! ND dims
836 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
837 .TRUE., .FALSE., & ! xstag, ystag
838 ngrid%i_parent_start, ngrid%j_parent_start, &
839 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
840 )
841 CALL interp_fcn ( &
842 grid%em_xlat_v, & ! CD field
843 cids, cide, 1, 1, cjds, cjde, & ! CD dims
844 cims, cime, 1, 1, cjms, cjme, & ! CD dims
845 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
846 ngrid%em_xlat_v, & ! ND field
847 nids, nide, 1, 1, njds, njde, & ! ND dims
848 nims, nime, 1, 1, njms, njme, & ! ND dims
849 nips, nipe, 1, 1, njps, njpe, & ! ND dims
850 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
851 .FALSE., .TRUE., & ! xstag, ystag
852 ngrid%i_parent_start, ngrid%j_parent_start, &
853 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
854 )
855 CALL interp_fcn ( &
856 grid%em_xlong_v, & ! CD field
857 cids, cide, 1, 1, cjds, cjde, & ! CD dims
858 cims, cime, 1, 1, cjms, cjme, & ! CD dims
859 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
860 ngrid%em_xlong_v, & ! ND field
861 nids, nide, 1, 1, njds, njde, & ! ND dims
862 nims, nime, 1, 1, njms, njme, & ! ND dims
863 nips, nipe, 1, 1, njps, njpe, & ! ND dims
864 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
865 .FALSE., .TRUE., & ! xstag, ystag
866 ngrid%i_parent_start, ngrid%j_parent_start, &
867 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
868 )
869 CALL interp_mask_land_field ( &
870 grid%tmn, & ! CD field
871 cids, cide, 1, 1, cjds, cjde, & ! CD dims
872 cims, cime, 1, 1, cjms, cjme, & ! CD dims
873 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
874 ngrid%tmn, & ! ND field
875 nids, nide, 1, 1, njds, njde, & ! ND dims
876 nims, nime, 1, 1, njms, njme, & ! ND dims
877 nips, nipe, 1, 1, njps, njpe, & ! ND dims
878 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
879 .FALSE., .FALSE., & ! xstag, ystag
880 ngrid%i_parent_start, ngrid%j_parent_start, &
881 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
882 ,grid%lu_index,ngrid%lu_index &
883 )
884 CALL interp_fcnm ( &
885 grid%xland, & ! CD field
886 cids, cide, 1, 1, cjds, cjde, & ! CD dims
887 cims, cime, 1, 1, cjms, cjme, & ! CD dims
888 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
889 ngrid%xland, & ! ND field
890 nids, nide, 1, 1, njds, njde, & ! ND dims
891 nims, nime, 1, 1, njms, njme, & ! ND dims
892 nips, nipe, 1, 1, njps, njpe, & ! ND dims
893 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
894 .FALSE., .FALSE., & ! xstag, ystag
895 ngrid%i_parent_start, ngrid%j_parent_start, &
896 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
897 )
898 CALL interp_mask_land_field ( &
899 grid%snowc, & ! CD field
900 cids, cide, 1, 1, cjds, cjde, & ! CD dims
901 cims, cime, 1, 1, cjms, cjme, & ! CD dims
902 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
903 ngrid%snowc, & ! ND field
904 nids, nide, 1, 1, njds, njde, & ! ND dims
905 nims, nime, 1, 1, njms, njme, & ! ND dims
906 nips, nipe, 1, 1, njps, njpe, & ! ND dims
907 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
908 .FALSE., .FALSE., & ! xstag, ystag
909 ngrid%i_parent_start, ngrid%j_parent_start, &
910 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
911 ,grid%lu_index,ngrid%lu_index &
912 )
913 !ENDOFREGISTRYGENERATEDINCLUDE