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, cjds, cjde, ckds, ckde, & ! CD dims
10 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
11 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
12 ngrid%em_u_2, & ! ND field
13 nids, nide, njds, njde, nkds, nkde, & ! ND dims
14 nims, nime, njms, njme, nkms, nkme, & ! ND dims
15 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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_b,ngrid%em_u_b &
21 ,u_bt,ngrid%em_u_bt &
22 ,grid%dt,ngrid%dt &
23 )
24 CALL bdy_interp ( &
25 grid%em_a_u_2, & ! CD field
26 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
27 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
28 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
29 ngrid%em_a_u_2, & ! ND field
30 nids, nide, njds, njde, nkds, nkde, & ! ND dims
31 nims, nime, njms, njme, nkms, nkme, & ! ND dims
32 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
33 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
34 .TRUE., .FALSE., & ! xstag, ystag
35 ngrid%i_parent_start, ngrid%j_parent_start, &
36 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
37 ,a_u_b,ngrid%em_a_u_b &
38 ,a_u_bt,ngrid%em_a_u_bt &
39 ,grid%dt,ngrid%dt &
40 )
41 CALL bdy_interp ( &
42 grid%em_g_u_2, & ! CD field
43 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
44 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
45 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
46 ngrid%em_g_u_2, & ! ND field
47 nids, nide, njds, njde, nkds, nkde, & ! ND dims
48 nims, nime, njms, njme, nkms, nkme, & ! ND dims
49 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
50 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
51 .TRUE., .FALSE., & ! xstag, ystag
52 ngrid%i_parent_start, ngrid%j_parent_start, &
53 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
54 ,g_u_b,ngrid%em_g_u_b &
55 ,g_u_bt,ngrid%em_g_u_bt &
56 ,grid%dt,ngrid%dt &
57 )
58 CALL bdy_interp ( &
59 grid%em_v_2, & ! CD field
60 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
61 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
62 cips, cipe, cjps, MIN( cjde, cjpe ), ckps, ckpe, & ! CD dims
63 ngrid%em_v_2, & ! ND field
64 nids, nide, njds, njde, nkds, nkde, & ! ND dims
65 nims, nime, njms, njme, nkms, nkme, & ! ND dims
66 nips, nipe, njps, MIN( njde, njpe ), nkps, nkpe, & ! ND dims
67 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
68 .FALSE., .TRUE., & ! xstag, ystag
69 ngrid%i_parent_start, ngrid%j_parent_start, &
70 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
71 ,v_b,ngrid%em_v_b &
72 ,v_bt,ngrid%em_v_bt &
73 ,grid%dt,ngrid%dt &
74 )
75 CALL bdy_interp ( &
76 grid%em_a_v_2, & ! CD field
77 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
78 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
79 cips, cipe, cjps, MIN( cjde, cjpe ), ckps, ckpe, & ! CD dims
80 ngrid%em_a_v_2, & ! ND field
81 nids, nide, njds, njde, nkds, nkde, & ! ND dims
82 nims, nime, njms, njme, nkms, nkme, & ! ND dims
83 nips, nipe, njps, MIN( njde, njpe ), nkps, nkpe, & ! ND dims
84 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
85 .FALSE., .TRUE., & ! xstag, ystag
86 ngrid%i_parent_start, ngrid%j_parent_start, &
87 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
88 ,a_v_b,ngrid%em_a_v_b &
89 ,a_v_bt,ngrid%em_a_v_bt &
90 ,grid%dt,ngrid%dt &
91 )
92 CALL bdy_interp ( &
93 grid%em_g_v_2, & ! CD field
94 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
95 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
96 cips, cipe, cjps, MIN( cjde, cjpe ), ckps, ckpe, & ! CD dims
97 ngrid%em_g_v_2, & ! ND field
98 nids, nide, njds, njde, nkds, nkde, & ! ND dims
99 nims, nime, njms, njme, nkms, nkme, & ! ND dims
100 nips, nipe, njps, MIN( njde, njpe ), nkps, nkpe, & ! ND dims
101 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
102 .FALSE., .TRUE., & ! xstag, ystag
103 ngrid%i_parent_start, ngrid%j_parent_start, &
104 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
105 ,g_v_b,ngrid%em_g_v_b &
106 ,g_v_bt,ngrid%em_g_v_bt &
107 ,grid%dt,ngrid%dt &
108 )
109 CALL bdy_interp ( &
110 grid%em_w_2, & ! CD field
111 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
112 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
113 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
114 ngrid%em_w_2, & ! ND field
115 nids, nide, njds, njde, nkds, nkde, & ! ND dims
116 nims, nime, njms, njme, nkms, nkme, & ! ND dims
117 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
118 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
119 .FALSE., .FALSE., & ! xstag, ystag
120 ngrid%i_parent_start, ngrid%j_parent_start, &
121 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
122 ,w_b,ngrid%em_w_b &
123 ,w_bt,ngrid%em_w_bt &
124 ,grid%dt,ngrid%dt &
125 )
126 CALL bdy_interp ( &
127 grid%em_a_w_2, & ! CD field
128 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
129 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
130 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
131 ngrid%em_a_w_2, & ! ND field
132 nids, nide, njds, njde, nkds, nkde, & ! ND dims
133 nims, nime, njms, njme, nkms, nkme, & ! ND dims
134 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
135 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
136 .FALSE., .FALSE., & ! xstag, ystag
137 ngrid%i_parent_start, ngrid%j_parent_start, &
138 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
139 ,a_w_b,ngrid%em_a_w_b &
140 ,a_w_bt,ngrid%em_a_w_bt &
141 ,grid%dt,ngrid%dt &
142 )
143 CALL bdy_interp ( &
144 grid%em_g_w_2, & ! CD field
145 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
146 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
147 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
148 ngrid%em_g_w_2, & ! ND field
149 nids, nide, njds, njde, nkds, nkde, & ! ND dims
150 nims, nime, njms, njme, nkms, nkme, & ! ND dims
151 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
152 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
153 .FALSE., .FALSE., & ! xstag, ystag
154 ngrid%i_parent_start, ngrid%j_parent_start, &
155 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
156 ,g_w_b,ngrid%em_g_w_b &
157 ,g_w_bt,ngrid%em_g_w_bt &
158 ,grid%dt,ngrid%dt &
159 )
160 CALL bdy_interp ( &
161 grid%em_ph_2, & ! CD field
162 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
163 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
164 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
165 ngrid%em_ph_2, & ! ND field
166 nids, nide, njds, njde, nkds, nkde, & ! ND dims
167 nims, nime, njms, njme, nkms, nkme, & ! ND dims
168 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
169 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
170 .FALSE., .FALSE., & ! xstag, ystag
171 ngrid%i_parent_start, ngrid%j_parent_start, &
172 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
173 ,ph_b,ngrid%em_ph_b &
174 ,ph_bt,ngrid%em_ph_bt &
175 ,grid%dt,ngrid%dt &
176 )
177 CALL bdy_interp ( &
178 grid%em_a_ph_2, & ! CD field
179 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
180 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
181 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
182 ngrid%em_a_ph_2, & ! ND field
183 nids, nide, njds, njde, nkds, nkde, & ! ND dims
184 nims, nime, njms, njme, nkms, nkme, & ! ND dims
185 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
186 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
187 .FALSE., .FALSE., & ! xstag, ystag
188 ngrid%i_parent_start, ngrid%j_parent_start, &
189 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
190 ,a_ph_b,ngrid%em_a_ph_b &
191 ,a_ph_bt,ngrid%em_a_ph_bt &
192 ,grid%dt,ngrid%dt &
193 )
194 CALL bdy_interp ( &
195 grid%em_g_ph_2, & ! CD field
196 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
197 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
198 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
199 ngrid%em_g_ph_2, & ! ND field
200 nids, nide, njds, njde, nkds, nkde, & ! ND dims
201 nims, nime, njms, njme, nkms, nkme, & ! ND dims
202 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
203 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
204 .FALSE., .FALSE., & ! xstag, ystag
205 ngrid%i_parent_start, ngrid%j_parent_start, &
206 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
207 ,g_ph_b,ngrid%em_g_ph_b &
208 ,g_ph_bt,ngrid%em_g_ph_bt &
209 ,grid%dt,ngrid%dt &
210 )
211 CALL bdy_interp ( &
212 grid%em_t_2, & ! CD field
213 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
214 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
215 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
216 ngrid%em_t_2, & ! ND field
217 nids, nide, njds, njde, nkds, nkde, & ! ND dims
218 nims, nime, njms, njme, nkms, nkme, & ! ND dims
219 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
220 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
221 .FALSE., .FALSE., & ! xstag, ystag
222 ngrid%i_parent_start, ngrid%j_parent_start, &
223 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
224 ,t_b,ngrid%em_t_b &
225 ,t_bt,ngrid%em_t_bt &
226 ,grid%dt,ngrid%dt &
227 )
228 CALL bdy_interp ( &
229 grid%em_a_t_2, & ! CD field
230 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
231 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
232 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
233 ngrid%em_a_t_2, & ! ND field
234 nids, nide, njds, njde, nkds, nkde, & ! ND dims
235 nims, nime, njms, njme, nkms, nkme, & ! ND dims
236 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
237 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
238 .FALSE., .FALSE., & ! xstag, ystag
239 ngrid%i_parent_start, ngrid%j_parent_start, &
240 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
241 ,a_t_b,ngrid%em_a_t_b &
242 ,a_t_bt,ngrid%em_a_t_bt &
243 ,grid%dt,ngrid%dt &
244 )
245 CALL bdy_interp ( &
246 grid%em_g_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_g_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 ,g_t_b,ngrid%em_g_t_b &
259 ,g_t_bt,ngrid%em_g_t_bt &
260 ,grid%dt,ngrid%dt &
261 )
262 CALL bdy_interp ( &
263 grid%em_mu_2, & ! CD field
264 cids, cide, 1, 1, cjds, cjde, & ! CD dims
265 cims, cime, 1, 1, cjms, cjme, & ! CD dims
266 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
267 ngrid%em_mu_2, & ! ND field
268 nids, nide, 1, 1, njds, njde, & ! ND dims
269 nims, nime, 1, 1, njms, njme, & ! ND dims
270 nips, nipe, 1, 1, njps, njpe, & ! ND dims
271 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
272 .FALSE., .FALSE., & ! xstag, ystag
273 ngrid%i_parent_start, ngrid%j_parent_start, &
274 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
275 ,mu_b,ngrid%em_mu_b &
276 ,mu_bt,ngrid%em_mu_bt &
277 ,grid%dt,ngrid%dt &
278 )
279 CALL bdy_interp ( &
280 grid%em_a_mu_2, & ! CD field
281 cids, cide, 1, 1, cjds, cjde, & ! CD dims
282 cims, cime, 1, 1, cjms, cjme, & ! CD dims
283 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
284 ngrid%em_a_mu_2, & ! ND field
285 nids, nide, 1, 1, njds, njde, & ! ND dims
286 nims, nime, 1, 1, njms, njme, & ! ND dims
287 nips, nipe, 1, 1, njps, njpe, & ! ND dims
288 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
289 .FALSE., .FALSE., & ! xstag, ystag
290 ngrid%i_parent_start, ngrid%j_parent_start, &
291 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
292 ,a_mu_b,ngrid%em_a_mu_b &
293 ,a_mu_bt,ngrid%em_a_mu_bt &
294 ,grid%dt,ngrid%dt &
295 )
296 CALL bdy_interp ( &
297 grid%em_g_mu_2, & ! CD field
298 cids, cide, 1, 1, cjds, cjde, & ! CD dims
299 cims, cime, 1, 1, cjms, cjme, & ! CD dims
300 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
301 ngrid%em_g_mu_2, & ! ND field
302 nids, nide, 1, 1, njds, njde, & ! ND dims
303 nims, nime, 1, 1, njms, njme, & ! ND dims
304 nips, nipe, 1, 1, njps, njpe, & ! ND dims
305 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
306 .FALSE., .FALSE., & ! xstag, ystag
307 ngrid%i_parent_start, ngrid%j_parent_start, &
308 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
309 ,g_mu_b,ngrid%em_g_mu_b &
310 ,g_mu_bt,ngrid%em_g_mu_bt &
311 ,grid%dt,ngrid%dt &
312 )
313 DO itrace = PARAM_FIRST_SCALAR, num_moist
314 CALL bdy_interp ( &
315 moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
316 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
317 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
318 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
319 ngrid%moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
320 nids, nide, njds, njde, nkds, nkde, & ! ND dims
321 nims, nime, njms, njme, nkms, nkme, & ! ND dims
322 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
323 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
324 .FALSE., .FALSE., & ! xstag, ystag
325 ngrid%i_parent_start, ngrid%j_parent_start, &
326 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
327 ,moist_b(1,1,1,1,itrace),ngrid%moist_b(1,1,1,1,itrace) &
328 ,moist_bt(1,1,1,1,itrace),ngrid%moist_bt(1,1,1,1,itrace) &
329 ,grid%dt,ngrid%dt &
330 )
331 ENDDO
332 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
333 CALL bdy_interp ( &
334 a_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
335 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
336 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
337 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
338 ngrid%a_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
339 nids, nide, njds, njde, nkds, nkde, & ! ND dims
340 nims, nime, njms, njme, nkms, nkme, & ! ND dims
341 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
342 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
343 .FALSE., .FALSE., & ! xstag, ystag
344 ngrid%i_parent_start, ngrid%j_parent_start, &
345 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
346 ,a_moist_b(1,1,1,1,itrace),ngrid%a_moist_b(1,1,1,1,itrace) &
347 ,a_moist_bt(1,1,1,1,itrace),ngrid%a_moist_bt(1,1,1,1,itrace) &
348 ,grid%dt,ngrid%dt &
349 )
350 ENDDO
351 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
352 CALL bdy_interp ( &
353 g_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
354 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
355 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
356 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
357 ngrid%g_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
358 nids, nide, njds, njde, nkds, nkde, & ! ND dims
359 nims, nime, njms, njme, nkms, nkme, & ! ND dims
360 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! 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 ,g_moist_b(1,1,1,1,itrace),ngrid%g_moist_b(1,1,1,1,itrace) &
366 ,g_moist_bt(1,1,1,1,itrace),ngrid%g_moist_bt(1,1,1,1,itrace) &
367 ,grid%dt,ngrid%dt &
368 )
369 ENDDO
370 DO itrace = PARAM_FIRST_SCALAR, num_scalar
371 CALL bdy_interp ( &
372 scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & ! 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%scalar(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! 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 ,scalar_b(1,1,1,1,itrace),ngrid%scalar_b(1,1,1,1,itrace) &
385 ,scalar_bt(1,1,1,1,itrace),ngrid%scalar_bt(1,1,1,1,itrace) &
386 ,grid%dt,ngrid%dt &
387 )
388 ENDDO
389 !ENDOFREGISTRYGENERATEDINCLUDE