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, cjds, cjde, ckds, ckde, & ! CD dims
24 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
25 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
26 ngrid%em_u_2, & ! ND field
27 nids, nide, njds, njde, nkds, nkde, & ! ND dims
28 nims, nime, njms, njme, nkms, nkme, & ! ND dims
29 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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%em_a_u_2, & ! CD field
37 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
38 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
39 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
40 ngrid%em_a_u_2, & ! ND field
41 nids, nide, njds, njde, nkds, nkde, & ! ND dims
42 nims, nime, njms, njme, nkms, nkme, & ! ND dims
43 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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%em_g_u_2, & ! CD field
51 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
52 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
53 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
54 ngrid%em_g_u_2, & ! ND field
55 nids, nide, njds, njde, nkds, nkde, & ! ND dims
56 nims, nime, njms, njme, nkms, nkme, & ! ND dims
57 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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, cjds, cjde, ckds, ckde, & ! CD dims
66 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
67 cips, cipe, cjps, MIN( cjde, cjpe ), ckps, ckpe, & ! CD dims
68 ngrid%em_v_2, & ! ND field
69 nids, nide, njds, njde, nkds, nkde, & ! ND dims
70 nims, nime, njms, njme, nkms, nkme, & ! ND dims
71 nips, nipe, njps, MIN( njde, njpe ), nkps, nkpe, & ! 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%em_a_v_2, & ! CD field
79 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
80 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
81 cips, cipe, cjps, MIN( cjde, cjpe ), ckps, ckpe, & ! CD dims
82 ngrid%em_a_v_2, & ! ND field
83 nids, nide, njds, njde, nkds, nkde, & ! ND dims
84 nims, nime, njms, njme, nkms, nkme, & ! ND dims
85 nips, nipe, njps, MIN( njde, njpe ), nkps, nkpe, & ! 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%em_g_v_2, & ! CD field
93 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
94 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
95 cips, cipe, cjps, MIN( cjde, cjpe ), ckps, ckpe, & ! CD dims
96 ngrid%em_g_v_2, & ! ND field
97 nids, nide, njds, njde, nkds, nkde, & ! ND dims
98 nims, nime, njms, njme, nkms, nkme, & ! ND dims
99 nips, nipe, njps, MIN( njde, njpe ), nkps, nkpe, & ! 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, cjds, cjde, ckds, ckde, & ! CD dims
108 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
109 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
110 ngrid%em_w_2, & ! ND field
111 nids, nide, njds, njde, nkds, nkde, & ! ND dims
112 nims, nime, njms, njme, nkms, nkme, & ! ND dims
113 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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%em_a_w_2, & ! CD field
121 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
122 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
123 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
124 ngrid%em_a_w_2, & ! ND field
125 nids, nide, njds, njde, nkds, nkde, & ! ND dims
126 nims, nime, njms, njme, nkms, nkme, & ! ND dims
127 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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%em_g_w_2, & ! CD field
135 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
136 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
137 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
138 ngrid%em_g_w_2, & ! ND field
139 nids, nide, njds, njde, nkds, nkde, & ! ND dims
140 nims, nime, njms, njme, nkms, nkme, & ! ND dims
141 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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, cjds, cjde, ckds, ckde, & ! CD dims
150 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
151 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
152 ngrid%em_ph_2, & ! ND field
153 nids, nide, njds, njde, nkds, nkde, & ! ND dims
154 nims, nime, njms, njme, nkms, nkme, & ! ND dims
155 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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%em_a_ph_2, & ! CD field
163 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
164 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
165 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
166 ngrid%em_a_ph_2, & ! ND field
167 nids, nide, njds, njde, nkds, nkde, & ! ND dims
168 nims, nime, njms, njme, nkms, nkme, & ! ND dims
169 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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%em_g_ph_2, & ! CD field
177 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
178 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
179 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
180 ngrid%em_g_ph_2, & ! ND field
181 nids, nide, njds, njde, nkds, nkde, & ! ND dims
182 nims, nime, njms, njme, nkms, nkme, & ! ND dims
183 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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, cjds, cjde, ckds, ckde, & ! CD dims
192 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
193 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
194 ngrid%em_phb, & ! ND field
195 nids, nide, njds, njde, nkds, nkde, & ! ND dims
196 nims, nime, njms, njme, nkms, nkme, & ! ND dims
197 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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_a_phb, & ! CD field
205 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
206 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
207 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
208 ngrid%em_a_phb, & ! ND field
209 nids, nide, njds, njde, nkds, nkde, & ! ND dims
210 nims, nime, njms, njme, nkms, nkme, & ! ND dims
211 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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%em_g_phb, & ! CD field
219 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
220 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
221 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
222 ngrid%em_g_phb, & ! ND field
223 nids, nide, njds, njde, nkds, nkde, & ! ND dims
224 nims, nime, njms, njme, nkms, nkme, & ! ND dims
225 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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%em_t_2, & ! CD field
233 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
234 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
235 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
236 ngrid%em_t_2, & ! ND field
237 nids, nide, njds, njde, nkds, nkde, & ! ND dims
238 nims, nime, njms, njme, nkms, nkme, & ! ND dims
239 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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_a_t_2, & ! CD field
247 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
248 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
249 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
250 ngrid%em_a_t_2, & ! ND field
251 nids, nide, njds, njde, nkds, nkde, & ! ND dims
252 nims, nime, njms, njme, nkms, nkme, & ! ND dims
253 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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%em_g_t_2, & ! CD field
261 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
262 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
263 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
264 ngrid%em_g_t_2, & ! ND field
265 nids, nide, njds, njde, nkds, nkde, & ! ND dims
266 nims, nime, njms, njme, nkms, nkme, & ! ND dims
267 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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%em_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%em_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_a_mu_2, & ! 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_a_mu_2, & ! 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_g_mu_2, & ! 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_g_mu_2, & ! 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 CALL interp_fcn ( &
316 grid%em_mub, & ! CD field
317 cids, cide, 1, 1, cjds, cjde, & ! CD dims
318 cims, cime, 1, 1, cjms, cjme, & ! CD dims
319 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
320 ngrid%em_mub, & ! ND field
321 nids, nide, 1, 1, njds, njde, & ! ND dims
322 nims, nime, 1, 1, njms, njme, & ! ND dims
323 nips, nipe, 1, 1, njps, njpe, & ! ND dims
324 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
325 .FALSE., .FALSE., & ! xstag, ystag
326 ngrid%i_parent_start, ngrid%j_parent_start, &
327 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
328 )
329 CALL interp_fcn ( &
330 grid%em_a_mub, & ! CD field
331 cids, cide, 1, 1, cjds, cjde, & ! CD dims
332 cims, cime, 1, 1, cjms, cjme, & ! CD dims
333 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
334 ngrid%em_a_mub, & ! ND field
335 nids, nide, 1, 1, njds, njde, & ! ND dims
336 nims, nime, 1, 1, njms, njme, & ! ND dims
337 nips, nipe, 1, 1, njps, njpe, & ! ND dims
338 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
339 .FALSE., .FALSE., & ! xstag, ystag
340 ngrid%i_parent_start, ngrid%j_parent_start, &
341 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
342 )
343 CALL interp_fcn ( &
344 grid%em_g_mub, & ! CD field
345 cids, cide, 1, 1, cjds, cjde, & ! CD dims
346 cims, cime, 1, 1, cjms, cjme, & ! CD dims
347 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
348 ngrid%em_g_mub, & ! ND field
349 nids, nide, 1, 1, njds, njde, & ! ND dims
350 nims, nime, 1, 1, njms, njme, & ! ND dims
351 nips, nipe, 1, 1, njps, njpe, & ! ND dims
352 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
353 .FALSE., .FALSE., & ! xstag, ystag
354 ngrid%i_parent_start, ngrid%j_parent_start, &
355 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
356 )
357 CALL interp_fcn ( &
358 grid%em_mu0, & ! 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%em_mu0, & ! 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_fcn ( &
372 grid%em_alb, & ! CD field
373 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
374 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
375 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
376 ngrid%em_alb, & ! ND field
377 nids, nide, njds, njde, nkds, nkde, & ! ND dims
378 nims, nime, njms, njme, nkms, nkme, & ! ND dims
379 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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_fcn ( &
386 grid%em_pb, & ! CD field
387 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
388 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
389 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
390 ngrid%em_pb, & ! ND field
391 nids, nide, njds, njde, nkds, nkde, & ! ND dims
392 nims, nime, njms, njme, nkms, nkme, & ! ND dims
393 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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 )
399 DO itrace = PARAM_FIRST_SCALAR, num_moist
400 CALL interp_fcn ( &
401 moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
402 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
403 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
404 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
405 ngrid%moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
406 nids, nide, njds, njde, nkds, nkde, & ! ND dims
407 nims, nime, njms, njme, nkms, nkme, & ! ND dims
408 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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 )
414 ENDDO
415 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
416 CALL interp_fcn ( &
417 a_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
418 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
419 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
420 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
421 ngrid%a_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
422 nids, nide, njds, njde, nkds, nkde, & ! ND dims
423 nims, nime, njms, njme, nkms, nkme, & ! ND dims
424 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
425 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
426 .FALSE., .FALSE., & ! xstag, ystag
427 ngrid%i_parent_start, ngrid%j_parent_start, &
428 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
429 )
430 ENDDO
431 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
432 CALL interp_fcn ( &
433 g_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
434 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
435 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
436 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
437 ngrid%g_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
438 nids, nide, njds, njde, nkds, nkde, & ! ND dims
439 nims, nime, njms, njme, nkms, nkme, & ! ND dims
440 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
441 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
442 .FALSE., .FALSE., & ! xstag, ystag
443 ngrid%i_parent_start, ngrid%j_parent_start, &
444 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
445 )
446 ENDDO
447 DO itrace = PARAM_FIRST_SCALAR, num_scalar
448 CALL interp_fcn ( &
449 scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
450 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
451 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
452 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
453 ngrid%scalar(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
454 nids, nide, njds, njde, nkds, nkde, & ! ND dims
455 nims, nime, njms, njme, nkms, nkme, & ! ND dims
456 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
457 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
458 .FALSE., .FALSE., & ! xstag, ystag
459 ngrid%i_parent_start, ngrid%j_parent_start, &
460 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
461 )
462 ENDDO
463 CALL interp_fcnm ( &
464 grid%landmask, & ! 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%landmask, & ! 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_mask_land_field ( &
478 grid%tslb, & ! CD field
479 cids, cide, cjds, cjde, 1, config_flags%num_soil_layers, & ! CD dims
480 cims, cime, cjms, cjme, 1, config_flags%num_soil_layers, & ! CD dims
481 cips, cipe, cjps, MIN( (cjde-1), cjpe ), 1, config_flags%num_soil_layers, & ! CD dims
482 ngrid%tslb, & ! ND field
483 nids, nide, njds, njde, 1, config_flags%num_soil_layers, & ! ND dims
484 nims, nime, njms, njme, 1, config_flags%num_soil_layers, & ! ND dims
485 nips, nipe, njps, MIN( (njde-1), njpe ), 1, config_flags%num_soil_layers, & ! 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 ,grid%lu_index,ngrid%lu_index &
491 )
492 CALL interp_mask_land_field ( &
493 grid%smois, & ! CD field
494 cids, cide, cjds, cjde, 1, config_flags%num_soil_layers, & ! CD dims
495 cims, cime, cjms, cjme, 1, config_flags%num_soil_layers, & ! CD dims
496 cips, cipe, cjps, MIN( (cjde-1), cjpe ), 1, config_flags%num_soil_layers, & ! CD dims
497 ngrid%smois, & ! ND field
498 nids, nide, njds, njde, 1, config_flags%num_soil_layers, & ! ND dims
499 nims, nime, njms, njme, 1, config_flags%num_soil_layers, & ! ND dims
500 nips, nipe, njps, MIN( (njde-1), njpe ), 1, config_flags%num_soil_layers, & ! ND dims
501 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
502 .FALSE., .FALSE., & ! xstag, ystag
503 ngrid%i_parent_start, ngrid%j_parent_start, &
504 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
505 ,grid%lu_index,ngrid%lu_index &
506 )
507 CALL interp_mask_land_field ( &
508 grid%sh2o, & ! CD field
509 cids, cide, cjds, cjde, 1, config_flags%num_soil_layers, & ! CD dims
510 cims, cime, cjms, cjme, 1, config_flags%num_soil_layers, & ! CD dims
511 cips, cipe, cjps, MIN( (cjde-1), cjpe ), 1, config_flags%num_soil_layers, & ! CD dims
512 ngrid%sh2o, & ! ND field
513 nids, nide, njds, njde, 1, config_flags%num_soil_layers, & ! ND dims
514 nims, nime, njms, njme, 1, config_flags%num_soil_layers, & ! ND dims
515 nips, nipe, njps, MIN( (njde-1), njpe ), 1, config_flags%num_soil_layers, & ! ND dims
516 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
517 .FALSE., .FALSE., & ! xstag, ystag
518 ngrid%i_parent_start, ngrid%j_parent_start, &
519 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
520 ,grid%lu_index,ngrid%lu_index &
521 )
522 CALL interp_mask_water_field ( &
523 grid%xice, & ! CD field
524 cids, cide, 1, 1, cjds, cjde, & ! CD dims
525 cims, cime, 1, 1, cjms, cjme, & ! CD dims
526 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
527 ngrid%xice, & ! ND field
528 nids, nide, 1, 1, njds, njde, & ! ND dims
529 nims, nime, 1, 1, njms, njme, & ! ND dims
530 nips, nipe, 1, 1, njps, njpe, & ! ND dims
531 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
532 .FALSE., .FALSE., & ! xstag, ystag
533 ngrid%i_parent_start, ngrid%j_parent_start, &
534 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
535 ,grid%lu_index,ngrid%lu_index &
536 )
537 CALL interp_mask_land_field ( &
538 grid%sfcrunoff, & ! CD field
539 cids, cide, 1, 1, cjds, cjde, & ! CD dims
540 cims, cime, 1, 1, cjms, cjme, & ! CD dims
541 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
542 ngrid%sfcrunoff, & ! ND field
543 nids, nide, 1, 1, njds, njde, & ! ND dims
544 nims, nime, 1, 1, njms, njme, & ! ND dims
545 nips, nipe, 1, 1, njps, njpe, & ! ND dims
546 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
547 .FALSE., .FALSE., & ! xstag, ystag
548 ngrid%i_parent_start, ngrid%j_parent_start, &
549 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
550 ,grid%lu_index,ngrid%lu_index &
551 )
552 CALL interp_mask_land_field ( &
553 grid%udrunoff, & ! CD field
554 cids, cide, 1, 1, cjds, cjde, & ! CD dims
555 cims, cime, 1, 1, cjms, cjme, & ! CD dims
556 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
557 ngrid%udrunoff, & ! ND field
558 nids, nide, 1, 1, njds, njde, & ! ND dims
559 nims, nime, 1, 1, njms, njme, & ! ND dims
560 nips, nipe, 1, 1, njps, njpe, & ! ND dims
561 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
562 .FALSE., .FALSE., & ! xstag, ystag
563 ngrid%i_parent_start, ngrid%j_parent_start, &
564 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
565 ,grid%lu_index,ngrid%lu_index &
566 )
567 CALL interp_fcni ( &
568 grid%ivgtyp, & ! CD field
569 cids, cide, 1, 1, cjds, cjde, & ! CD dims
570 cims, cime, 1, 1, cjms, cjme, & ! CD dims
571 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
572 ngrid%ivgtyp, & ! ND field
573 nids, nide, 1, 1, njds, njde, & ! ND dims
574 nims, nime, 1, 1, njms, njme, & ! ND dims
575 nips, nipe, 1, 1, njps, njpe, & ! ND dims
576 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
577 .FALSE., .FALSE., & ! xstag, ystag
578 ngrid%i_parent_start, ngrid%j_parent_start, &
579 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
580 )
581 CALL interp_fcni ( &
582 grid%isltyp, & ! CD field
583 cids, cide, 1, 1, cjds, cjde, & ! CD dims
584 cims, cime, 1, 1, cjms, cjme, & ! CD dims
585 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
586 ngrid%isltyp, & ! ND field
587 nids, nide, 1, 1, njds, njde, & ! ND dims
588 nims, nime, 1, 1, njms, njme, & ! ND dims
589 nips, nipe, 1, 1, njps, njpe, & ! ND dims
590 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
591 .FALSE., .FALSE., & ! xstag, ystag
592 ngrid%i_parent_start, ngrid%j_parent_start, &
593 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
594 )
595 CALL interp_mask_land_field ( &
596 grid%vegfra, & ! CD field
597 cids, cide, 1, 1, cjds, cjde, & ! CD dims
598 cims, cime, 1, 1, cjms, cjme, & ! CD dims
599 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
600 ngrid%vegfra, & ! ND field
601 nids, nide, 1, 1, njds, njde, & ! ND dims
602 nims, nime, 1, 1, njms, njme, & ! ND dims
603 nips, nipe, 1, 1, njps, njpe, & ! ND dims
604 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
605 .FALSE., .FALSE., & ! xstag, ystag
606 ngrid%i_parent_start, ngrid%j_parent_start, &
607 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
608 ,grid%lu_index,ngrid%lu_index &
609 )
610 CALL interp_mask_land_field ( &
611 grid%acsnow, & ! CD field
612 cids, cide, 1, 1, cjds, cjde, & ! CD dims
613 cims, cime, 1, 1, cjms, cjme, & ! CD dims
614 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
615 ngrid%acsnow, & ! ND field
616 nids, nide, 1, 1, njds, njde, & ! ND dims
617 nims, nime, 1, 1, njms, njme, & ! ND dims
618 nips, nipe, 1, 1, njps, njpe, & ! ND dims
619 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
620 .FALSE., .FALSE., & ! xstag, ystag
621 ngrid%i_parent_start, ngrid%j_parent_start, &
622 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
623 ,grid%lu_index,ngrid%lu_index &
624 )
625 CALL interp_mask_land_field ( &
626 grid%acsnom, & ! CD field
627 cids, cide, 1, 1, cjds, cjde, & ! CD dims
628 cims, cime, 1, 1, cjms, cjme, & ! CD dims
629 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
630 ngrid%acsnom, & ! ND field
631 nids, nide, 1, 1, njds, njde, & ! ND dims
632 nims, nime, 1, 1, njms, njme, & ! ND dims
633 nips, nipe, 1, 1, njps, njpe, & ! ND dims
634 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
635 .FALSE., .FALSE., & ! xstag, ystag
636 ngrid%i_parent_start, ngrid%j_parent_start, &
637 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
638 ,grid%lu_index,ngrid%lu_index &
639 )
640 CALL interp_mask_land_field ( &
641 grid%snow, & ! CD field
642 cids, cide, 1, 1, cjds, cjde, & ! CD dims
643 cims, cime, 1, 1, cjms, cjme, & ! CD dims
644 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
645 ngrid%snow, & ! ND field
646 nids, nide, 1, 1, njds, njde, & ! ND dims
647 nims, nime, 1, 1, njms, njme, & ! ND dims
648 nips, nipe, 1, 1, njps, njpe, & ! ND dims
649 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
650 .FALSE., .FALSE., & ! xstag, ystag
651 ngrid%i_parent_start, ngrid%j_parent_start, &
652 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
653 ,grid%lu_index,ngrid%lu_index &
654 )
655 CALL interp_mask_land_field ( &
656 grid%snowh, & ! CD field
657 cids, cide, 1, 1, cjds, cjde, & ! CD dims
658 cims, cime, 1, 1, cjms, cjme, & ! CD dims
659 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
660 ngrid%snowh, & ! ND field
661 nids, nide, 1, 1, njds, njde, & ! ND dims
662 nims, nime, 1, 1, njms, njme, & ! ND dims
663 nips, nipe, 1, 1, njps, njpe, & ! ND dims
664 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
665 .FALSE., .FALSE., & ! xstag, ystag
666 ngrid%i_parent_start, ngrid%j_parent_start, &
667 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
668 ,grid%lu_index,ngrid%lu_index &
669 )
670 CALL interp_mask_land_field ( &
671 grid%rhosn, & ! CD field
672 cids, cide, 1, 1, cjds, cjde, & ! CD dims
673 cims, cime, 1, 1, cjms, cjme, & ! CD dims
674 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
675 ngrid%rhosn, & ! ND field
676 nids, nide, 1, 1, njds, njde, & ! ND dims
677 nims, nime, 1, 1, njms, njme, & ! ND dims
678 nips, nipe, 1, 1, njps, njpe, & ! ND dims
679 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
680 .FALSE., .FALSE., & ! xstag, ystag
681 ngrid%i_parent_start, ngrid%j_parent_start, &
682 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
683 ,grid%lu_index,ngrid%lu_index &
684 )
685 CALL interp_mask_land_field ( &
686 grid%canwat, & ! CD field
687 cids, cide, 1, 1, cjds, cjde, & ! CD dims
688 cims, cime, 1, 1, cjms, cjme, & ! CD dims
689 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
690 ngrid%canwat, & ! ND field
691 nids, nide, 1, 1, njds, njde, & ! ND dims
692 nims, nime, 1, 1, njms, njme, & ! ND dims
693 nips, nipe, 1, 1, njps, njpe, & ! ND dims
694 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
695 .FALSE., .FALSE., & ! xstag, ystag
696 ngrid%i_parent_start, ngrid%j_parent_start, &
697 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
698 ,grid%lu_index,ngrid%lu_index &
699 )
700 CALL interp_mask_water_field ( &
701 grid%sst, & ! CD field
702 cids, cide, 1, 1, cjds, cjde, & ! CD dims
703 cims, cime, 1, 1, cjms, cjme, & ! CD dims
704 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
705 ngrid%sst, & ! ND field
706 nids, nide, 1, 1, njds, njde, & ! ND dims
707 nims, nime, 1, 1, njms, njme, & ! ND dims
708 nips, nipe, 1, 1, njps, njpe, & ! ND dims
709 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
710 .FALSE., .FALSE., & ! xstag, ystag
711 ngrid%i_parent_start, ngrid%j_parent_start, &
712 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
713 ,grid%lu_index,ngrid%lu_index &
714 )
715 CALL interp_fcn ( &
716 grid%msft, & ! 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%msft, & ! 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%msfu, & ! 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%msfu, & ! 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_xstag, & ! stencil half width
739 .TRUE., .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%msfv, & ! 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%msfv, & ! 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_ystag, & ! stencil half width
753 .FALSE., .TRUE., & ! 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%f, & ! 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%f, & ! 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%e, & ! 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%e, & ! 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%sina, & ! 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%sina, & ! 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%cosa, & ! 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%cosa, & ! 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%ht, & ! 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%ht, & ! 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_nostag, & ! stencil half width
823 .FALSE., .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%tsk, & ! 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%tsk, & ! 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_nostag, & ! stencil half width
837 .FALSE., .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%rainc, & ! 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%rainc, & ! 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_nostag, & ! stencil half width
851 .FALSE., .FALSE., & ! 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%rainnc, & ! 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%rainnc, & ! 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_nostag, & ! stencil half width
865 .FALSE., .FALSE., & ! xstag, ystag
866 ngrid%i_parent_start, ngrid%j_parent_start, &
867 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
868 )
869 CALL interp_fcn ( &
870 grid%snownc, & ! 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%snownc, & ! 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 )
883 CALL interp_fcn ( &
884 grid%graupelnc, & ! CD field
885 cids, cide, 1, 1, cjds, cjde, & ! CD dims
886 cims, cime, 1, 1, cjms, cjme, & ! CD dims
887 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
888 ngrid%graupelnc, & ! ND field
889 nids, nide, 1, 1, njds, njde, & ! ND dims
890 nims, nime, 1, 1, njms, njme, & ! ND dims
891 nips, nipe, 1, 1, njps, njpe, & ! ND dims
892 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
893 .FALSE., .FALSE., & ! xstag, ystag
894 ngrid%i_parent_start, ngrid%j_parent_start, &
895 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
896 )
897 CALL interp_fcn ( &
898 grid%xlat, & ! CD field
899 cids, cide, 1, 1, cjds, cjde, & ! CD dims
900 cims, cime, 1, 1, cjms, cjme, & ! CD dims
901 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
902 ngrid%xlat, & ! ND field
903 nids, nide, 1, 1, njds, njde, & ! ND dims
904 nims, nime, 1, 1, njms, njme, & ! ND dims
905 nips, nipe, 1, 1, njps, njpe, & ! ND dims
906 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
907 .FALSE., .FALSE., & ! xstag, ystag
908 ngrid%i_parent_start, ngrid%j_parent_start, &
909 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
910 )
911 CALL interp_fcn ( &
912 grid%xlong, & ! CD field
913 cids, cide, 1, 1, cjds, cjde, & ! CD dims
914 cims, cime, 1, 1, cjms, cjme, & ! CD dims
915 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
916 ngrid%xlong, & ! ND field
917 nids, nide, 1, 1, njds, njde, & ! ND dims
918 nims, nime, 1, 1, njms, njme, & ! ND dims
919 nips, nipe, 1, 1, njps, njpe, & ! ND dims
920 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
921 .FALSE., .FALSE., & ! xstag, ystag
922 ngrid%i_parent_start, ngrid%j_parent_start, &
923 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
924 )
925 CALL interp_fcn ( &
926 grid%em_xlat_u, & ! CD field
927 cids, cide, 1, 1, cjds, cjde, & ! CD dims
928 cims, cime, 1, 1, cjms, cjme, & ! CD dims
929 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
930 ngrid%em_xlat_u, & ! ND field
931 nids, nide, 1, 1, njds, njde, & ! ND dims
932 nims, nime, 1, 1, njms, njme, & ! ND dims
933 nips, nipe, 1, 1, njps, njpe, & ! ND dims
934 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
935 .TRUE., .FALSE., & ! xstag, ystag
936 ngrid%i_parent_start, ngrid%j_parent_start, &
937 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
938 )
939 CALL interp_fcn ( &
940 grid%em_xlong_u, & ! CD field
941 cids, cide, 1, 1, cjds, cjde, & ! CD dims
942 cims, cime, 1, 1, cjms, cjme, & ! CD dims
943 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
944 ngrid%em_xlong_u, & ! ND field
945 nids, nide, 1, 1, njds, njde, & ! ND dims
946 nims, nime, 1, 1, njms, njme, & ! ND dims
947 nips, nipe, 1, 1, njps, njpe, & ! ND dims
948 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
949 .TRUE., .FALSE., & ! xstag, ystag
950 ngrid%i_parent_start, ngrid%j_parent_start, &
951 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
952 )
953 CALL interp_fcn ( &
954 grid%em_xlat_v, & ! CD field
955 cids, cide, 1, 1, cjds, cjde, & ! CD dims
956 cims, cime, 1, 1, cjms, cjme, & ! CD dims
957 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
958 ngrid%em_xlat_v, & ! ND field
959 nids, nide, 1, 1, njds, njde, & ! ND dims
960 nims, nime, 1, 1, njms, njme, & ! ND dims
961 nips, nipe, 1, 1, njps, njpe, & ! ND dims
962 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
963 .FALSE., .TRUE., & ! xstag, ystag
964 ngrid%i_parent_start, ngrid%j_parent_start, &
965 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
966 )
967 CALL interp_fcn ( &
968 grid%em_xlong_v, & ! CD field
969 cids, cide, 1, 1, cjds, cjde, & ! CD dims
970 cims, cime, 1, 1, cjms, cjme, & ! CD dims
971 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
972 ngrid%em_xlong_v, & ! ND field
973 nids, nide, 1, 1, njds, njde, & ! ND dims
974 nims, nime, 1, 1, njms, njme, & ! ND dims
975 nips, nipe, 1, 1, njps, njpe, & ! ND dims
976 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
977 .FALSE., .TRUE., & ! xstag, ystag
978 ngrid%i_parent_start, ngrid%j_parent_start, &
979 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
980 )
981 CALL interp_mask_land_field ( &
982 grid%tmn, & ! CD field
983 cids, cide, 1, 1, cjds, cjde, & ! CD dims
984 cims, cime, 1, 1, cjms, cjme, & ! CD dims
985 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
986 ngrid%tmn, & ! ND field
987 nids, nide, 1, 1, njds, njde, & ! ND dims
988 nims, nime, 1, 1, njms, njme, & ! ND dims
989 nips, nipe, 1, 1, njps, njpe, & ! ND dims
990 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
991 .FALSE., .FALSE., & ! xstag, ystag
992 ngrid%i_parent_start, ngrid%j_parent_start, &
993 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
994 ,grid%lu_index,ngrid%lu_index &
995 )
996 CALL interp_fcnm ( &
997 grid%xland, & ! CD field
998 cids, cide, 1, 1, cjds, cjde, & ! CD dims
999 cims, cime, 1, 1, cjms, cjme, & ! CD dims
1000 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
1001 ngrid%xland, & ! ND field
1002 nids, nide, 1, 1, njds, njde, & ! ND dims
1003 nims, nime, 1, 1, njms, njme, & ! ND dims
1004 nips, nipe, 1, 1, njps, njpe, & ! ND dims
1005 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
1006 .FALSE., .FALSE., & ! xstag, ystag
1007 ngrid%i_parent_start, ngrid%j_parent_start, &
1008 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
1009 )
1010 CALL interp_mask_land_field ( &
1011 grid%snowc, & ! CD field
1012 cids, cide, 1, 1, cjds, cjde, & ! CD dims
1013 cims, cime, 1, 1, cjms, cjme, & ! CD dims
1014 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
1015 ngrid%snowc, & ! ND field
1016 nids, nide, 1, 1, njds, njde, & ! ND dims
1017 nims, nime, 1, 1, njms, njme, & ! ND dims
1018 nips, nipe, 1, 1, njps, njpe, & ! ND dims
1019 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
1020 .FALSE., .FALSE., & ! xstag, ystag
1021 ngrid%i_parent_start, ngrid%j_parent_start, &
1022 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
1023 ,grid%lu_index,ngrid%lu_index &
1024 )
1025 !ENDOFREGISTRYGENERATEDINCLUDE