nodyn_nest_forcedown_interp.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/nodyn_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%a_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%a_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 ,a_u_bxs,ngrid%a_u_bxs &
21 ,a_u_bxe,ngrid%a_u_bxe &
22 ,a_u_bys,ngrid%a_u_bys &
23 ,a_u_bye,ngrid%a_u_bye &
24 ,a_u_btxs,ngrid%a_u_btxs &
25 ,a_u_btxe,ngrid%a_u_btxe &
26 ,a_u_btys,ngrid%a_u_btys &
27 ,a_u_btye,ngrid%a_u_btye &
28 ,grid%dt,ngrid%dt &
29 )
30 CALL bdy_interp ( &
31 grid%g_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%g_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 ,g_u_bxs,ngrid%g_u_bxs &
44 ,g_u_bxe,ngrid%g_u_bxe &
45 ,g_u_bys,ngrid%g_u_bys &
46 ,g_u_bye,ngrid%g_u_bye &
47 ,g_u_btxs,ngrid%g_u_btxs &
48 ,g_u_btxe,ngrid%g_u_btxe &
49 ,g_u_btys,ngrid%g_u_btys &
50 ,g_u_btye,ngrid%g_u_btye &
51 ,grid%dt,ngrid%dt &
52 )
53 CALL bdy_interp ( &
54 grid%a_v_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%a_v_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_ystag, & ! stencil half width
63 .FALSE., .TRUE., & ! xstag, ystag
64 ngrid%i_parent_start, ngrid%j_parent_start, &
65 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
66 ,a_v_bxs,ngrid%a_v_bxs &
67 ,a_v_bxe,ngrid%a_v_bxe &
68 ,a_v_bys,ngrid%a_v_bys &
69 ,a_v_bye,ngrid%a_v_bye &
70 ,a_v_btxs,ngrid%a_v_btxs &
71 ,a_v_btxe,ngrid%a_v_btxe &
72 ,a_v_btys,ngrid%a_v_btys &
73 ,a_v_btye,ngrid%a_v_btye &
74 ,grid%dt,ngrid%dt &
75 )
76 CALL bdy_interp ( &
77 grid%g_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%g_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 ,g_v_bxs,ngrid%g_v_bxs &
90 ,g_v_bxe,ngrid%g_v_bxe &
91 ,g_v_bys,ngrid%g_v_bys &
92 ,g_v_bye,ngrid%g_v_bye &
93 ,g_v_btxs,ngrid%g_v_btxs &
94 ,g_v_btxe,ngrid%g_v_btxe &
95 ,g_v_btys,ngrid%g_v_btys &
96 ,g_v_btye,ngrid%g_v_btye &
97 ,grid%dt,ngrid%dt &
98 )
99 CALL bdy_interp ( &
100 grid%a_w_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, ckpe ), cjps, cjpe, & ! CD dims
104 ngrid%a_w_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, nkpe ), njps, njpe, & ! ND dims
108 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
109 .FALSE., .FALSE., & ! xstag, ystag
110 ngrid%i_parent_start, ngrid%j_parent_start, &
111 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
112 ,a_w_bxs,ngrid%a_w_bxs &
113 ,a_w_bxe,ngrid%a_w_bxe &
114 ,a_w_bys,ngrid%a_w_bys &
115 ,a_w_bye,ngrid%a_w_bye &
116 ,a_w_btxs,ngrid%a_w_btxs &
117 ,a_w_btxe,ngrid%a_w_btxe &
118 ,a_w_btys,ngrid%a_w_btys &
119 ,a_w_btye,ngrid%a_w_btye &
120 ,grid%dt,ngrid%dt &
121 )
122 CALL bdy_interp ( &
123 grid%g_w_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, ckpe ), cjps, cjpe, & ! CD dims
127 ngrid%g_w_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, nkpe ), njps, njpe, & ! ND dims
131 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
132 .FALSE., .FALSE., & ! xstag, ystag
133 ngrid%i_parent_start, ngrid%j_parent_start, &
134 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
135 ,g_w_bxs,ngrid%g_w_bxs &
136 ,g_w_bxe,ngrid%g_w_bxe &
137 ,g_w_bys,ngrid%g_w_bys &
138 ,g_w_bye,ngrid%g_w_bye &
139 ,g_w_btxs,ngrid%g_w_btxs &
140 ,g_w_btxe,ngrid%g_w_btxe &
141 ,g_w_btys,ngrid%g_w_btys &
142 ,g_w_btye,ngrid%g_w_btye &
143 ,grid%dt,ngrid%dt &
144 )
145 CALL bdy_interp ( &
146 grid%a_ph_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%a_ph_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 ,a_ph_bxs,ngrid%a_ph_bxs &
159 ,a_ph_bxe,ngrid%a_ph_bxe &
160 ,a_ph_bys,ngrid%a_ph_bys &
161 ,a_ph_bye,ngrid%a_ph_bye &
162 ,a_ph_btxs,ngrid%a_ph_btxs &
163 ,a_ph_btxe,ngrid%a_ph_btxe &
164 ,a_ph_btys,ngrid%a_ph_btys &
165 ,a_ph_btye,ngrid%a_ph_btye &
166 ,grid%dt,ngrid%dt &
167 )
168 CALL bdy_interp ( &
169 grid%g_ph_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%g_ph_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 ,g_ph_bxs,ngrid%g_ph_bxs &
182 ,g_ph_bxe,ngrid%g_ph_bxe &
183 ,g_ph_bys,ngrid%g_ph_bys &
184 ,g_ph_bye,ngrid%g_ph_bye &
185 ,g_ph_btxs,ngrid%g_ph_btxs &
186 ,g_ph_btxe,ngrid%g_ph_btxe &
187 ,g_ph_btys,ngrid%g_ph_btys &
188 ,g_ph_btye,ngrid%g_ph_btye &
189 ,grid%dt,ngrid%dt &
190 )
191 CALL bdy_interp ( &
192 grid%a_t_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-1), ckpe ), cjps, cjpe, & ! CD dims
196 ngrid%a_t_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-1), 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 ,a_t_bxs,ngrid%a_t_bxs &
205 ,a_t_bxe,ngrid%a_t_bxe &
206 ,a_t_bys,ngrid%a_t_bys &
207 ,a_t_bye,ngrid%a_t_bye &
208 ,a_t_btxs,ngrid%a_t_btxs &
209 ,a_t_btxe,ngrid%a_t_btxe &
210 ,a_t_btys,ngrid%a_t_btys &
211 ,a_t_btye,ngrid%a_t_btye &
212 ,grid%dt,ngrid%dt &
213 )
214 CALL bdy_interp ( &
215 grid%g_t_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-1), ckpe ), cjps, cjpe, & ! CD dims
219 ngrid%g_t_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-1), 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 ,g_t_bxs,ngrid%g_t_bxs &
228 ,g_t_bxe,ngrid%g_t_bxe &
229 ,g_t_bys,ngrid%g_t_bys &
230 ,g_t_bye,ngrid%g_t_bye &
231 ,g_t_btxs,ngrid%g_t_btxs &
232 ,g_t_btxe,ngrid%g_t_btxe &
233 ,g_t_btys,ngrid%g_t_btys &
234 ,g_t_btye,ngrid%g_t_btye &
235 ,grid%dt,ngrid%dt &
236 )
237 CALL bdy_interp ( &
238 grid%a_mu_2, & ! CD field
239 cids, cide, 1, 1, cjds, cjde, & ! CD dims
240 cims, cime, 1, 1, cjms, cjme, & ! CD dims
241 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
242 ngrid%a_mu_2, & ! ND field
243 nids, nide, 1, 1, njds, njde, & ! ND dims
244 nims, nime, 1, 1, njms, njme, & ! ND dims
245 nips, nipe, 1, 1, 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_mu_bxs,ngrid%a_mu_bxs &
251 ,a_mu_bxe,ngrid%a_mu_bxe &
252 ,a_mu_bys,ngrid%a_mu_bys &
253 ,a_mu_bye,ngrid%a_mu_bye &
254 ,a_mu_btxs,ngrid%a_mu_btxs &
255 ,a_mu_btxe,ngrid%a_mu_btxe &
256 ,a_mu_btys,ngrid%a_mu_btys &
257 ,a_mu_btye,ngrid%a_mu_btye &
258 ,grid%dt,ngrid%dt &
259 )
260 CALL bdy_interp ( &
261 grid%g_mu_2, & ! CD field
262 cids, cide, 1, 1, cjds, cjde, & ! CD dims
263 cims, cime, 1, 1, cjms, cjme, & ! CD dims
264 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
265 ngrid%g_mu_2, & ! ND field
266 nids, nide, 1, 1, njds, njde, & ! ND dims
267 nims, nime, 1, 1, njms, njme, & ! ND dims
268 nips, nipe, 1, 1, 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_mu_bxs,ngrid%g_mu_bxs &
274 ,g_mu_bxe,ngrid%g_mu_bxe &
275 ,g_mu_bys,ngrid%g_mu_bys &
276 ,g_mu_bye,ngrid%g_mu_bye &
277 ,g_mu_btxs,ngrid%g_mu_btxs &
278 ,g_mu_btxe,ngrid%g_mu_btxe &
279 ,g_mu_btys,ngrid%g_mu_btys &
280 ,g_mu_btye,ngrid%g_mu_btye &
281 ,grid%dt,ngrid%dt &
282 )
283 DO itrace = PARAM_FIRST_SCALAR, num_moist
284 CALL bdy_interp ( &
285 moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
286 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
287 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
288 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
289 ngrid%moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
290 nids, nide, nkds, nkde, njds, njde, & ! ND dims
291 nims, nime, nkms, nkme, njms, njme, & ! ND dims
292 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
293 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
294 .FALSE., .FALSE., & ! xstag, ystag
295 ngrid%i_parent_start, ngrid%j_parent_start, &
296 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
297 ,moist_bxs(cjms,1,1,itrace),ngrid%moist_bxs(njms,1,1,itrace) &
298 ,moist_bxe(cjms,1,1,itrace),ngrid%moist_bxe(njms,1,1,itrace) &
299 ,moist_bys(cims,1,1,itrace),ngrid%moist_bys(nims,1,1,itrace) &
300 ,moist_bye(cims,1,1,itrace),ngrid%moist_bye(nims,1,1,itrace) &
301 ,moist_btxs(cjms,1,1,itrace),ngrid%moist_btxs(njms,1,1,itrace) &
302 ,moist_btxe(cjms,1,1,itrace),ngrid%moist_btxe(njms,1,1,itrace) &
303 ,moist_btys(cims,1,1,itrace),ngrid%moist_btys(nims,1,1,itrace) &
304 ,moist_btye(cims,1,1,itrace),ngrid%moist_btye(nims,1,1,itrace) &
305 ,grid%dt,ngrid%dt &
306 )
307 ENDDO
308 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
309 CALL bdy_interp ( &
310 a_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
311 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
312 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
313 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
314 ngrid%a_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
315 nids, nide, nkds, nkde, njds, njde, & ! ND dims
316 nims, nime, nkms, nkme, njms, njme, & ! ND dims
317 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
318 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
319 .FALSE., .FALSE., & ! xstag, ystag
320 ngrid%i_parent_start, ngrid%j_parent_start, &
321 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
322 ,a_moist_bxs(cjms,1,1,itrace),ngrid%a_moist_bxs(njms,1,1,itrace) &
323 ,a_moist_bxe(cjms,1,1,itrace),ngrid%a_moist_bxe(njms,1,1,itrace) &
324 ,a_moist_bys(cims,1,1,itrace),ngrid%a_moist_bys(nims,1,1,itrace) &
325 ,a_moist_bye(cims,1,1,itrace),ngrid%a_moist_bye(nims,1,1,itrace) &
326 ,a_moist_btxs(cjms,1,1,itrace),ngrid%a_moist_btxs(njms,1,1,itrace) &
327 ,a_moist_btxe(cjms,1,1,itrace),ngrid%a_moist_btxe(njms,1,1,itrace) &
328 ,a_moist_btys(cims,1,1,itrace),ngrid%a_moist_btys(nims,1,1,itrace) &
329 ,a_moist_btye(cims,1,1,itrace),ngrid%a_moist_btye(nims,1,1,itrace) &
330 ,grid%dt,ngrid%dt &
331 )
332 ENDDO
333 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
334 CALL bdy_interp ( &
335 g_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
336 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
337 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
338 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
339 ngrid%g_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
340 nids, nide, nkds, nkde, njds, njde, & ! ND dims
341 nims, nime, nkms, nkme, njms, njme, & ! ND dims
342 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
343 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
344 .FALSE., .FALSE., & ! xstag, ystag
345 ngrid%i_parent_start, ngrid%j_parent_start, &
346 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
347 ,g_moist_bxs(cjms,1,1,itrace),ngrid%g_moist_bxs(njms,1,1,itrace) &
348 ,g_moist_bxe(cjms,1,1,itrace),ngrid%g_moist_bxe(njms,1,1,itrace) &
349 ,g_moist_bys(cims,1,1,itrace),ngrid%g_moist_bys(nims,1,1,itrace) &
350 ,g_moist_bye(cims,1,1,itrace),ngrid%g_moist_bye(nims,1,1,itrace) &
351 ,g_moist_btxs(cjms,1,1,itrace),ngrid%g_moist_btxs(njms,1,1,itrace) &
352 ,g_moist_btxe(cjms,1,1,itrace),ngrid%g_moist_btxe(njms,1,1,itrace) &
353 ,g_moist_btys(cims,1,1,itrace),ngrid%g_moist_btys(nims,1,1,itrace) &
354 ,g_moist_btye(cims,1,1,itrace),ngrid%g_moist_btye(nims,1,1,itrace) &
355 ,grid%dt,ngrid%dt &
356 )
357 ENDDO
358 DO itrace = PARAM_FIRST_SCALAR, num_scalar
359 CALL bdy_interp ( &
360 scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
361 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
362 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
363 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
364 ngrid%scalar(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
365 nids, nide, nkds, nkde, njds, njde, & ! ND dims
366 nims, nime, nkms, nkme, njms, njme, & ! ND dims
367 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
368 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
369 .FALSE., .FALSE., & ! xstag, ystag
370 ngrid%i_parent_start, ngrid%j_parent_start, &
371 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
372 ,scalar_bxs(cjms,1,1,itrace),ngrid%scalar_bxs(njms,1,1,itrace) &
373 ,scalar_bxe(cjms,1,1,itrace),ngrid%scalar_bxe(njms,1,1,itrace) &
374 ,scalar_bys(cims,1,1,itrace),ngrid%scalar_bys(nims,1,1,itrace) &
375 ,scalar_bye(cims,1,1,itrace),ngrid%scalar_bye(nims,1,1,itrace) &
376 ,scalar_btxs(cjms,1,1,itrace),ngrid%scalar_btxs(njms,1,1,itrace) &
377 ,scalar_btxe(cjms,1,1,itrace),ngrid%scalar_btxe(njms,1,1,itrace) &
378 ,scalar_btys(cims,1,1,itrace),ngrid%scalar_btys(nims,1,1,itrace) &
379 ,scalar_btye(cims,1,1,itrace),ngrid%scalar_btye(nims,1,1,itrace) &
380 ,grid%dt,ngrid%dt &
381 )
382 ENDDO
383 !ENDOFREGISTRYGENERATEDINCLUDE