em_nest_forcedown_interp.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_nest_forcedown_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 bdy_interp ( &
8 grid%em_u_2, & ! CD field
9 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
10 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
11 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
12 ngrid%em_u_2, & ! ND field
13 nids, nide, nkds, nkde, njds, njde, & ! ND dims
14 nims, nime, nkms, nkme, njms, njme, & ! ND dims
15 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
16 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
17 .TRUE., .FALSE., & ! xstag, ystag
18 ngrid%i_parent_start, ngrid%j_parent_start, &
19 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
20 ,u_bxs,ngrid%em_u_bxs &
21 ,u_bxe,ngrid%em_u_bxe &
22 ,u_bys,ngrid%em_u_bys &
23 ,u_bye,ngrid%em_u_bye &
24 ,u_btxs,ngrid%em_u_btxs &
25 ,u_btxe,ngrid%em_u_btxe &
26 ,u_btys,ngrid%em_u_btys &
27 ,u_btye,ngrid%em_u_btye &
28 ,grid%dt,ngrid%dt &
29 )
30 CALL bdy_interp ( &
31 grid%a_u_2, & ! CD field
32 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
33 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
34 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
35 ngrid%a_u_2, & ! ND field
36 nids, nide, nkds, nkde, njds, njde, & ! ND dims
37 nims, nime, nkms, nkme, njms, njme, & ! ND dims
38 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
39 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
40 .TRUE., .FALSE., & ! xstag, ystag
41 ngrid%i_parent_start, ngrid%j_parent_start, &
42 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
43 ,a_u_bxs,ngrid%a_u_bxs &
44 ,a_u_bxe,ngrid%a_u_bxe &
45 ,a_u_bys,ngrid%a_u_bys &
46 ,a_u_bye,ngrid%a_u_bye &
47 ,a_u_btxs,ngrid%a_u_btxs &
48 ,a_u_btxe,ngrid%a_u_btxe &
49 ,a_u_btys,ngrid%a_u_btys &
50 ,a_u_btye,ngrid%a_u_btye &
51 ,grid%dt,ngrid%dt &
52 )
53 CALL bdy_interp ( &
54 grid%g_u_2, & ! CD field
55 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
56 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
57 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
58 ngrid%g_u_2, & ! ND field
59 nids, nide, nkds, nkde, njds, njde, & ! ND dims
60 nims, nime, nkms, nkme, njms, njme, & ! ND dims
61 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
62 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
63 .TRUE., .FALSE., & ! xstag, ystag
64 ngrid%i_parent_start, ngrid%j_parent_start, &
65 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
66 ,g_u_bxs,ngrid%g_u_bxs &
67 ,g_u_bxe,ngrid%g_u_bxe &
68 ,g_u_bys,ngrid%g_u_bys &
69 ,g_u_bye,ngrid%g_u_bye &
70 ,g_u_btxs,ngrid%g_u_btxs &
71 ,g_u_btxe,ngrid%g_u_btxe &
72 ,g_u_btys,ngrid%g_u_btys &
73 ,g_u_btye,ngrid%g_u_btye &
74 ,grid%dt,ngrid%dt &
75 )
76 CALL bdy_interp ( &
77 grid%em_v_2, & ! CD field
78 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
79 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
80 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
81 ngrid%em_v_2, & ! ND field
82 nids, nide, nkds, nkde, njds, njde, & ! ND dims
83 nims, nime, nkms, nkme, njms, njme, & ! ND dims
84 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
85 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
86 .FALSE., .TRUE., & ! xstag, ystag
87 ngrid%i_parent_start, ngrid%j_parent_start, &
88 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
89 ,v_bxs,ngrid%em_v_bxs &
90 ,v_bxe,ngrid%em_v_bxe &
91 ,v_bys,ngrid%em_v_bys &
92 ,v_bye,ngrid%em_v_bye &
93 ,v_btxs,ngrid%em_v_btxs &
94 ,v_btxe,ngrid%em_v_btxe &
95 ,v_btys,ngrid%em_v_btys &
96 ,v_btye,ngrid%em_v_btye &
97 ,grid%dt,ngrid%dt &
98 )
99 CALL bdy_interp ( &
100 grid%a_v_2, & ! CD field
101 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
102 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
103 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
104 ngrid%a_v_2, & ! ND field
105 nids, nide, nkds, nkde, njds, njde, & ! ND dims
106 nims, nime, nkms, nkme, njms, njme, & ! ND dims
107 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
108 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
109 .FALSE., .TRUE., & ! xstag, ystag
110 ngrid%i_parent_start, ngrid%j_parent_start, &
111 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
112 ,a_v_bxs,ngrid%a_v_bxs &
113 ,a_v_bxe,ngrid%a_v_bxe &
114 ,a_v_bys,ngrid%a_v_bys &
115 ,a_v_bye,ngrid%a_v_bye &
116 ,a_v_btxs,ngrid%a_v_btxs &
117 ,a_v_btxe,ngrid%a_v_btxe &
118 ,a_v_btys,ngrid%a_v_btys &
119 ,a_v_btye,ngrid%a_v_btye &
120 ,grid%dt,ngrid%dt &
121 )
122 CALL bdy_interp ( &
123 grid%g_v_2, & ! CD field
124 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
125 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
126 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
127 ngrid%g_v_2, & ! ND field
128 nids, nide, nkds, nkde, njds, njde, & ! ND dims
129 nims, nime, nkms, nkme, njms, njme, & ! ND dims
130 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
131 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
132 .FALSE., .TRUE., & ! xstag, ystag
133 ngrid%i_parent_start, ngrid%j_parent_start, &
134 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
135 ,g_v_bxs,ngrid%g_v_bxs &
136 ,g_v_bxe,ngrid%g_v_bxe &
137 ,g_v_bys,ngrid%g_v_bys &
138 ,g_v_bye,ngrid%g_v_bye &
139 ,g_v_btxs,ngrid%g_v_btxs &
140 ,g_v_btxe,ngrid%g_v_btxe &
141 ,g_v_btys,ngrid%g_v_btys &
142 ,g_v_btye,ngrid%g_v_btye &
143 ,grid%dt,ngrid%dt &
144 )
145 CALL bdy_interp ( &
146 grid%em_w_2, & ! CD field
147 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
148 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
149 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
150 ngrid%em_w_2, & ! ND field
151 nids, nide, nkds, nkde, njds, njde, & ! ND dims
152 nims, nime, nkms, nkme, njms, njme, & ! ND dims
153 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! ND dims
154 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
155 .FALSE., .FALSE., & ! xstag, ystag
156 ngrid%i_parent_start, ngrid%j_parent_start, &
157 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
158 ,w_bxs,ngrid%em_w_bxs &
159 ,w_bxe,ngrid%em_w_bxe &
160 ,w_bys,ngrid%em_w_bys &
161 ,w_bye,ngrid%em_w_bye &
162 ,w_btxs,ngrid%em_w_btxs &
163 ,w_btxe,ngrid%em_w_btxe &
164 ,w_btys,ngrid%em_w_btys &
165 ,w_btye,ngrid%em_w_btye &
166 ,grid%dt,ngrid%dt &
167 )
168 CALL bdy_interp ( &
169 grid%a_w_2, & ! CD field
170 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
171 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
172 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
173 ngrid%a_w_2, & ! ND field
174 nids, nide, nkds, nkde, njds, njde, & ! ND dims
175 nims, nime, nkms, nkme, njms, njme, & ! ND dims
176 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! ND dims
177 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
178 .FALSE., .FALSE., & ! xstag, ystag
179 ngrid%i_parent_start, ngrid%j_parent_start, &
180 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
181 ,a_w_bxs,ngrid%a_w_bxs &
182 ,a_w_bxe,ngrid%a_w_bxe &
183 ,a_w_bys,ngrid%a_w_bys &
184 ,a_w_bye,ngrid%a_w_bye &
185 ,a_w_btxs,ngrid%a_w_btxs &
186 ,a_w_btxe,ngrid%a_w_btxe &
187 ,a_w_btys,ngrid%a_w_btys &
188 ,a_w_btye,ngrid%a_w_btye &
189 ,grid%dt,ngrid%dt &
190 )
191 CALL bdy_interp ( &
192 grid%g_w_2, & ! CD field
193 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
194 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
195 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
196 ngrid%g_w_2, & ! ND field
197 nids, nide, nkds, nkde, njds, njde, & ! ND dims
198 nims, nime, nkms, nkme, njms, njme, & ! ND dims
199 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! ND dims
200 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
201 .FALSE., .FALSE., & ! xstag, ystag
202 ngrid%i_parent_start, ngrid%j_parent_start, &
203 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
204 ,g_w_bxs,ngrid%g_w_bxs &
205 ,g_w_bxe,ngrid%g_w_bxe &
206 ,g_w_bys,ngrid%g_w_bys &
207 ,g_w_bye,ngrid%g_w_bye &
208 ,g_w_btxs,ngrid%g_w_btxs &
209 ,g_w_btxe,ngrid%g_w_btxe &
210 ,g_w_btys,ngrid%g_w_btys &
211 ,g_w_btye,ngrid%g_w_btye &
212 ,grid%dt,ngrid%dt &
213 )
214 CALL bdy_interp ( &
215 grid%em_ph_2, & ! CD field
216 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
217 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
218 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
219 ngrid%em_ph_2, & ! ND field
220 nids, nide, nkds, nkde, njds, njde, & ! ND dims
221 nims, nime, nkms, nkme, njms, njme, & ! ND dims
222 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! ND dims
223 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
224 .FALSE., .FALSE., & ! xstag, ystag
225 ngrid%i_parent_start, ngrid%j_parent_start, &
226 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
227 ,ph_bxs,ngrid%em_ph_bxs &
228 ,ph_bxe,ngrid%em_ph_bxe &
229 ,ph_bys,ngrid%em_ph_bys &
230 ,ph_bye,ngrid%em_ph_bye &
231 ,ph_btxs,ngrid%em_ph_btxs &
232 ,ph_btxe,ngrid%em_ph_btxe &
233 ,ph_btys,ngrid%em_ph_btys &
234 ,ph_btye,ngrid%em_ph_btye &
235 ,grid%dt,ngrid%dt &
236 )
237 CALL bdy_interp ( &
238 grid%a_ph_2, & ! CD field
239 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
240 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
241 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
242 ngrid%a_ph_2, & ! ND field
243 nids, nide, nkds, nkde, njds, njde, & ! ND dims
244 nims, nime, nkms, nkme, njms, njme, & ! ND dims
245 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! ND dims
246 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
247 .FALSE., .FALSE., & ! xstag, ystag
248 ngrid%i_parent_start, ngrid%j_parent_start, &
249 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
250 ,a_ph_bxs,ngrid%a_ph_bxs &
251 ,a_ph_bxe,ngrid%a_ph_bxe &
252 ,a_ph_bys,ngrid%a_ph_bys &
253 ,a_ph_bye,ngrid%a_ph_bye &
254 ,a_ph_btxs,ngrid%a_ph_btxs &
255 ,a_ph_btxe,ngrid%a_ph_btxe &
256 ,a_ph_btys,ngrid%a_ph_btys &
257 ,a_ph_btye,ngrid%a_ph_btye &
258 ,grid%dt,ngrid%dt &
259 )
260 CALL bdy_interp ( &
261 grid%g_ph_2, & ! CD field
262 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
263 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
264 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
265 ngrid%g_ph_2, & ! ND field
266 nids, nide, nkds, nkde, njds, njde, & ! ND dims
267 nims, nime, nkms, nkme, njms, njme, & ! ND dims
268 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! ND dims
269 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
270 .FALSE., .FALSE., & ! xstag, ystag
271 ngrid%i_parent_start, ngrid%j_parent_start, &
272 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
273 ,g_ph_bxs,ngrid%g_ph_bxs &
274 ,g_ph_bxe,ngrid%g_ph_bxe &
275 ,g_ph_bys,ngrid%g_ph_bys &
276 ,g_ph_bye,ngrid%g_ph_bye &
277 ,g_ph_btxs,ngrid%g_ph_btxs &
278 ,g_ph_btxe,ngrid%g_ph_btxe &
279 ,g_ph_btys,ngrid%g_ph_btys &
280 ,g_ph_btye,ngrid%g_ph_btye &
281 ,grid%dt,ngrid%dt &
282 )
283 CALL bdy_interp ( &
284 grid%em_t_2, & ! CD field
285 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
286 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
287 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
288 ngrid%em_t_2, & ! ND field
289 nids, nide, nkds, nkde, njds, njde, & ! ND dims
290 nims, nime, nkms, nkme, njms, njme, & ! ND dims
291 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
292 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
293 .FALSE., .FALSE., & ! xstag, ystag
294 ngrid%i_parent_start, ngrid%j_parent_start, &
295 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
296 ,t_bxs,ngrid%em_t_bxs &
297 ,t_bxe,ngrid%em_t_bxe &
298 ,t_bys,ngrid%em_t_bys &
299 ,t_bye,ngrid%em_t_bye &
300 ,t_btxs,ngrid%em_t_btxs &
301 ,t_btxe,ngrid%em_t_btxe &
302 ,t_btys,ngrid%em_t_btys &
303 ,t_btye,ngrid%em_t_btye &
304 ,grid%dt,ngrid%dt &
305 )
306 CALL bdy_interp ( &
307 grid%a_t_2, & ! CD field
308 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
309 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
310 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
311 ngrid%a_t_2, & ! ND field
312 nids, nide, nkds, nkde, njds, njde, & ! ND dims
313 nims, nime, nkms, nkme, njms, njme, & ! ND dims
314 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
315 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
316 .FALSE., .FALSE., & ! xstag, ystag
317 ngrid%i_parent_start, ngrid%j_parent_start, &
318 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
319 ,a_t_bxs,ngrid%a_t_bxs &
320 ,a_t_bxe,ngrid%a_t_bxe &
321 ,a_t_bys,ngrid%a_t_bys &
322 ,a_t_bye,ngrid%a_t_bye &
323 ,a_t_btxs,ngrid%a_t_btxs &
324 ,a_t_btxe,ngrid%a_t_btxe &
325 ,a_t_btys,ngrid%a_t_btys &
326 ,a_t_btye,ngrid%a_t_btye &
327 ,grid%dt,ngrid%dt &
328 )
329 CALL bdy_interp ( &
330 grid%g_t_2, & ! CD field
331 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
332 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
333 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
334 ngrid%g_t_2, & ! ND field
335 nids, nide, nkds, nkde, njds, njde, & ! ND dims
336 nims, nime, nkms, nkme, njms, njme, & ! ND dims
337 nips, nipe, nkps, MIN( (nkde-1), nkpe ), 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 ,g_t_bxs,ngrid%g_t_bxs &
343 ,g_t_bxe,ngrid%g_t_bxe &
344 ,g_t_bys,ngrid%g_t_bys &
345 ,g_t_bye,ngrid%g_t_bye &
346 ,g_t_btxs,ngrid%g_t_btxs &
347 ,g_t_btxe,ngrid%g_t_btxe &
348 ,g_t_btys,ngrid%g_t_btys &
349 ,g_t_btye,ngrid%g_t_btye &
350 ,grid%dt,ngrid%dt &
351 )
352 CALL bdy_interp ( &
353 grid%em_mu_2, & ! CD field
354 cids, cide, 1, 1, cjds, cjde, & ! CD dims
355 cims, cime, 1, 1, cjms, cjme, & ! CD dims
356 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
357 ngrid%em_mu_2, & ! ND field
358 nids, nide, 1, 1, njds, njde, & ! ND dims
359 nims, nime, 1, 1, njms, njme, & ! ND dims
360 nips, nipe, 1, 1, njps, njpe, & ! ND dims
361 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
362 .FALSE., .FALSE., & ! xstag, ystag
363 ngrid%i_parent_start, ngrid%j_parent_start, &
364 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
365 ,mu_bxs,ngrid%em_mu_bxs &
366 ,mu_bxe,ngrid%em_mu_bxe &
367 ,mu_bys,ngrid%em_mu_bys &
368 ,mu_bye,ngrid%em_mu_bye &
369 ,mu_btxs,ngrid%em_mu_btxs &
370 ,mu_btxe,ngrid%em_mu_btxe &
371 ,mu_btys,ngrid%em_mu_btys &
372 ,mu_btye,ngrid%em_mu_btye &
373 ,grid%dt,ngrid%dt &
374 )
375 CALL bdy_interp ( &
376 grid%a_mu_2, & ! CD field
377 cids, cide, 1, 1, cjds, cjde, & ! CD dims
378 cims, cime, 1, 1, cjms, cjme, & ! CD dims
379 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
380 ngrid%a_mu_2, & ! ND field
381 nids, nide, 1, 1, njds, njde, & ! ND dims
382 nims, nime, 1, 1, njms, njme, & ! ND dims
383 nips, nipe, 1, 1, njps, njpe, & ! ND dims
384 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
385 .FALSE., .FALSE., & ! xstag, ystag
386 ngrid%i_parent_start, ngrid%j_parent_start, &
387 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
388 ,a_mu_bxs,ngrid%a_mu_bxs &
389 ,a_mu_bxe,ngrid%a_mu_bxe &
390 ,a_mu_bys,ngrid%a_mu_bys &
391 ,a_mu_bye,ngrid%a_mu_bye &
392 ,a_mu_btxs,ngrid%a_mu_btxs &
393 ,a_mu_btxe,ngrid%a_mu_btxe &
394 ,a_mu_btys,ngrid%a_mu_btys &
395 ,a_mu_btye,ngrid%a_mu_btye &
396 ,grid%dt,ngrid%dt &
397 )
398 CALL bdy_interp ( &
399 grid%g_mu_2, & ! CD field
400 cids, cide, 1, 1, cjds, cjde, & ! CD dims
401 cims, cime, 1, 1, cjms, cjme, & ! CD dims
402 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
403 ngrid%g_mu_2, & ! ND field
404 nids, nide, 1, 1, njds, njde, & ! ND dims
405 nims, nime, 1, 1, njms, njme, & ! ND dims
406 nips, nipe, 1, 1, njps, njpe, & ! ND dims
407 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
408 .FALSE., .FALSE., & ! xstag, ystag
409 ngrid%i_parent_start, ngrid%j_parent_start, &
410 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
411 ,g_mu_bxs,ngrid%g_mu_bxs &
412 ,g_mu_bxe,ngrid%g_mu_bxe &
413 ,g_mu_bys,ngrid%g_mu_bys &
414 ,g_mu_bye,ngrid%g_mu_bye &
415 ,g_mu_btxs,ngrid%g_mu_btxs &
416 ,g_mu_btxe,ngrid%g_mu_btxe &
417 ,g_mu_btys,ngrid%g_mu_btys &
418 ,g_mu_btye,ngrid%g_mu_btye &
419 ,grid%dt,ngrid%dt &
420 )
421 DO itrace = PARAM_FIRST_SCALAR, num_moist
422 CALL bdy_interp ( &
423 moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
424 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
425 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
426 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
427 ngrid%moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
428 nids, nide, nkds, nkde, njds, njde, & ! ND dims
429 nims, nime, nkms, nkme, njms, njme, & ! ND dims
430 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
431 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
432 .FALSE., .FALSE., & ! xstag, ystag
433 ngrid%i_parent_start, ngrid%j_parent_start, &
434 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
435 ,moist_bxs(cjms,1,1,itrace),ngrid%moist_bxs(njms,1,1,itrace) &
436 ,moist_bxe(cjms,1,1,itrace),ngrid%moist_bxe(njms,1,1,itrace) &
437 ,moist_bys(cims,1,1,itrace),ngrid%moist_bys(nims,1,1,itrace) &
438 ,moist_bye(cims,1,1,itrace),ngrid%moist_bye(nims,1,1,itrace) &
439 ,moist_btxs(cjms,1,1,itrace),ngrid%moist_btxs(njms,1,1,itrace) &
440 ,moist_btxe(cjms,1,1,itrace),ngrid%moist_btxe(njms,1,1,itrace) &
441 ,moist_btys(cims,1,1,itrace),ngrid%moist_btys(nims,1,1,itrace) &
442 ,moist_btye(cims,1,1,itrace),ngrid%moist_btye(nims,1,1,itrace) &
443 ,grid%dt,ngrid%dt &
444 )
445 ENDDO
446 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
447 CALL bdy_interp ( &
448 a_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
449 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
450 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
451 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
452 ngrid%a_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
453 nids, nide, nkds, nkde, njds, njde, & ! ND dims
454 nims, nime, nkms, nkme, njms, njme, & ! ND dims
455 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
456 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
457 .FALSE., .FALSE., & ! xstag, ystag
458 ngrid%i_parent_start, ngrid%j_parent_start, &
459 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
460 ,a_moist_bxs(cjms,1,1,itrace),ngrid%a_moist_bxs(njms,1,1,itrace) &
461 ,a_moist_bxe(cjms,1,1,itrace),ngrid%a_moist_bxe(njms,1,1,itrace) &
462 ,a_moist_bys(cims,1,1,itrace),ngrid%a_moist_bys(nims,1,1,itrace) &
463 ,a_moist_bye(cims,1,1,itrace),ngrid%a_moist_bye(nims,1,1,itrace) &
464 ,a_moist_btxs(cjms,1,1,itrace),ngrid%a_moist_btxs(njms,1,1,itrace) &
465 ,a_moist_btxe(cjms,1,1,itrace),ngrid%a_moist_btxe(njms,1,1,itrace) &
466 ,a_moist_btys(cims,1,1,itrace),ngrid%a_moist_btys(nims,1,1,itrace) &
467 ,a_moist_btye(cims,1,1,itrace),ngrid%a_moist_btye(nims,1,1,itrace) &
468 ,grid%dt,ngrid%dt &
469 )
470 ENDDO
471 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
472 CALL bdy_interp ( &
473 g_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
474 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
475 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
476 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
477 ngrid%g_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
478 nids, nide, nkds, nkde, njds, njde, & ! ND dims
479 nims, nime, nkms, nkme, njms, njme, & ! ND dims
480 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
481 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
482 .FALSE., .FALSE., & ! xstag, ystag
483 ngrid%i_parent_start, ngrid%j_parent_start, &
484 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
485 ,g_moist_bxs(cjms,1,1,itrace),ngrid%g_moist_bxs(njms,1,1,itrace) &
486 ,g_moist_bxe(cjms,1,1,itrace),ngrid%g_moist_bxe(njms,1,1,itrace) &
487 ,g_moist_bys(cims,1,1,itrace),ngrid%g_moist_bys(nims,1,1,itrace) &
488 ,g_moist_bye(cims,1,1,itrace),ngrid%g_moist_bye(nims,1,1,itrace) &
489 ,g_moist_btxs(cjms,1,1,itrace),ngrid%g_moist_btxs(njms,1,1,itrace) &
490 ,g_moist_btxe(cjms,1,1,itrace),ngrid%g_moist_btxe(njms,1,1,itrace) &
491 ,g_moist_btys(cims,1,1,itrace),ngrid%g_moist_btys(nims,1,1,itrace) &
492 ,g_moist_btye(cims,1,1,itrace),ngrid%g_moist_btye(nims,1,1,itrace) &
493 ,grid%dt,ngrid%dt &
494 )
495 ENDDO
496 DO itrace = PARAM_FIRST_SCALAR, num_scalar
497 CALL bdy_interp ( &
498 scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
499 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
500 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
501 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
502 ngrid%scalar(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
503 nids, nide, nkds, nkde, njds, njde, & ! ND dims
504 nims, nime, nkms, nkme, njms, njme, & ! ND dims
505 nips, nipe, nkps, MIN( (nkde-1), nkpe ), 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 ,scalar_bxs(cjms,1,1,itrace),ngrid%scalar_bxs(njms,1,1,itrace) &
511 ,scalar_bxe(cjms,1,1,itrace),ngrid%scalar_bxe(njms,1,1,itrace) &
512 ,scalar_bys(cims,1,1,itrace),ngrid%scalar_bys(nims,1,1,itrace) &
513 ,scalar_bye(cims,1,1,itrace),ngrid%scalar_bye(nims,1,1,itrace) &
514 ,scalar_btxs(cjms,1,1,itrace),ngrid%scalar_btxs(njms,1,1,itrace) &
515 ,scalar_btxe(cjms,1,1,itrace),ngrid%scalar_btxe(njms,1,1,itrace) &
516 ,scalar_btys(cims,1,1,itrace),ngrid%scalar_btys(nims,1,1,itrace) &
517 ,scalar_btye(cims,1,1,itrace),ngrid%scalar_btye(nims,1,1,itrace) &
518 ,grid%dt,ngrid%dt &
519 )
520 ENDDO
521 !ENDOFREGISTRYGENERATEDINCLUDE