em_nest_feedbackup_smooth.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_nest_feedbackup_smooth.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 smoother ( &
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 nids, nide, njds, njde, nkds, nkde, & ! ND dims
13 nims, nime, njms, njme, nkms, nkme, & ! ND dims
14 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
15 .TRUE., .FALSE., & ! xstag, ystag
16 ngrid%i_parent_start, ngrid%j_parent_start, &
17 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
18 )
19 CALL smoother ( &
20 grid%em_a_u_2, & ! CD field
21 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
22 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
23 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
24 nids, nide, njds, njde, nkds, nkde, & ! ND dims
25 nims, nime, njms, njme, nkms, nkme, & ! ND dims
26 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
27 .TRUE., .FALSE., & ! xstag, ystag
28 ngrid%i_parent_start, ngrid%j_parent_start, &
29 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
30 )
31 CALL smoother ( &
32 grid%em_g_u_2, & ! CD field
33 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
34 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
35 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
36 nids, nide, njds, njde, nkds, nkde, & ! ND dims
37 nims, nime, njms, njme, nkms, nkme, & ! ND dims
38 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
39 .TRUE., .FALSE., & ! xstag, ystag
40 ngrid%i_parent_start, ngrid%j_parent_start, &
41 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
42 )
43 CALL smoother ( &
44 grid%em_v_2, & ! CD field
45 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
46 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
47 cips, cipe, cjps, MIN( cjde, cjpe ), ckps, ckpe, & ! CD dims
48 nids, nide, njds, njde, nkds, nkde, & ! ND dims
49 nims, nime, njms, njme, nkms, nkme, & ! ND dims
50 nips, nipe, njps, MIN( njde, njpe ), nkps, nkpe, & ! ND dims
51 .FALSE., .TRUE., & ! xstag, ystag
52 ngrid%i_parent_start, ngrid%j_parent_start, &
53 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
54 )
55 CALL smoother ( &
56 grid%em_a_v_2, & ! CD field
57 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
58 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
59 cips, cipe, cjps, MIN( cjde, cjpe ), ckps, ckpe, & ! CD dims
60 nids, nide, njds, njde, nkds, nkde, & ! ND dims
61 nims, nime, njms, njme, nkms, nkme, & ! ND dims
62 nips, nipe, njps, MIN( njde, njpe ), nkps, nkpe, & ! ND dims
63 .FALSE., .TRUE., & ! xstag, ystag
64 ngrid%i_parent_start, ngrid%j_parent_start, &
65 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
66 )
67 CALL smoother ( &
68 grid%em_g_v_2, & ! CD field
69 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
70 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
71 cips, cipe, cjps, MIN( cjde, cjpe ), ckps, ckpe, & ! CD dims
72 nids, nide, njds, njde, nkds, nkde, & ! ND dims
73 nims, nime, njms, njme, nkms, nkme, & ! ND dims
74 nips, nipe, njps, MIN( njde, njpe ), nkps, nkpe, & ! ND dims
75 .FALSE., .TRUE., & ! xstag, ystag
76 ngrid%i_parent_start, ngrid%j_parent_start, &
77 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
78 )
79 CALL smoother ( &
80 grid%em_w_2, & ! CD field
81 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
82 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
83 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
84 nids, nide, njds, njde, nkds, nkde, & ! ND dims
85 nims, nime, njms, njme, nkms, nkme, & ! ND dims
86 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
87 .FALSE., .FALSE., & ! xstag, ystag
88 ngrid%i_parent_start, ngrid%j_parent_start, &
89 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
90 )
91 CALL smoother ( &
92 grid%em_a_w_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-1), cjpe ), ckps, ckpe, & ! CD dims
96 nids, nide, njds, njde, nkds, nkde, & ! ND dims
97 nims, nime, njms, njme, nkms, nkme, & ! ND dims
98 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
99 .FALSE., .FALSE., & ! xstag, ystag
100 ngrid%i_parent_start, ngrid%j_parent_start, &
101 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
102 )
103 CALL smoother ( &
104 grid%em_g_w_2, & ! CD field
105 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
106 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
107 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
108 nids, nide, njds, njde, nkds, nkde, & ! ND dims
109 nims, nime, njms, njme, nkms, nkme, & ! ND dims
110 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
111 .FALSE., .FALSE., & ! xstag, ystag
112 ngrid%i_parent_start, ngrid%j_parent_start, &
113 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
114 )
115 CALL smoother ( &
116 grid%em_ph_2, & ! CD field
117 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
118 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
119 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
120 nids, nide, njds, njde, nkds, nkde, & ! ND dims
121 nims, nime, njms, njme, nkms, nkme, & ! ND dims
122 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
123 .FALSE., .FALSE., & ! xstag, ystag
124 ngrid%i_parent_start, ngrid%j_parent_start, &
125 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
126 )
127 CALL smoother ( &
128 grid%em_a_ph_2, & ! CD field
129 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
130 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
131 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
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 .FALSE., .FALSE., & ! xstag, ystag
136 ngrid%i_parent_start, ngrid%j_parent_start, &
137 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
138 )
139 CALL smoother ( &
140 grid%em_g_ph_2, & ! CD field
141 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
142 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
143 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
144 nids, nide, njds, njde, nkds, nkde, & ! ND dims
145 nims, nime, njms, njme, nkms, nkme, & ! ND dims
146 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
147 .FALSE., .FALSE., & ! xstag, ystag
148 ngrid%i_parent_start, ngrid%j_parent_start, &
149 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
150 )
151 CALL smoother ( &
152 grid%em_phb, & ! CD field
153 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
154 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
155 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
156 nids, nide, njds, njde, nkds, nkde, & ! ND dims
157 nims, nime, njms, njme, nkms, nkme, & ! ND dims
158 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
159 .FALSE., .FALSE., & ! xstag, ystag
160 ngrid%i_parent_start, ngrid%j_parent_start, &
161 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
162 )
163 CALL smoother ( &
164 grid%em_a_phb, & ! CD field
165 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
166 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
167 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
168 nids, nide, njds, njde, nkds, nkde, & ! ND dims
169 nims, nime, njms, njme, nkms, nkme, & ! ND dims
170 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
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 smoother ( &
176 grid%em_g_phb, & ! 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 nids, nide, njds, njde, nkds, nkde, & ! ND dims
181 nims, nime, njms, njme, nkms, nkme, & ! ND dims
182 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
183 .FALSE., .FALSE., & ! xstag, ystag
184 ngrid%i_parent_start, ngrid%j_parent_start, &
185 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
186 )
187 CALL smoother ( &
188 grid%em_t_2, & ! CD field
189 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
190 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
191 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
192 nids, nide, njds, njde, nkds, nkde, & ! ND dims
193 nims, nime, njms, njme, nkms, nkme, & ! ND dims
194 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
195 .FALSE., .FALSE., & ! xstag, ystag
196 ngrid%i_parent_start, ngrid%j_parent_start, &
197 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
198 )
199 CALL smoother ( &
200 grid%em_a_t_2, & ! CD field
201 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
202 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
203 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
204 nids, nide, njds, njde, nkds, nkde, & ! ND dims
205 nims, nime, njms, njme, nkms, nkme, & ! ND dims
206 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
207 .FALSE., .FALSE., & ! xstag, ystag
208 ngrid%i_parent_start, ngrid%j_parent_start, &
209 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
210 )
211 CALL smoother ( &
212 grid%em_g_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 nids, nide, njds, njde, nkds, nkde, & ! ND dims
217 nims, nime, njms, njme, nkms, nkme, & ! ND dims
218 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
219 .FALSE., .FALSE., & ! xstag, ystag
220 ngrid%i_parent_start, ngrid%j_parent_start, &
221 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
222 )
223 CALL smoother ( &
224 grid%em_t_save, & ! CD field
225 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
226 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
227 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
228 nids, nide, njds, njde, nkds, nkde, & ! ND dims
229 nims, nime, njms, njme, nkms, nkme, & ! ND dims
230 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
231 .FALSE., .FALSE., & ! xstag, ystag
232 ngrid%i_parent_start, ngrid%j_parent_start, &
233 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
234 )
235 CALL smoother ( &
236 grid%em_a_t_save, & ! CD field
237 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
238 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
239 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
240 nids, nide, njds, njde, nkds, nkde, & ! ND dims
241 nims, nime, njms, njme, nkms, nkme, & ! ND dims
242 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
243 .FALSE., .FALSE., & ! xstag, ystag
244 ngrid%i_parent_start, ngrid%j_parent_start, &
245 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
246 )
247 CALL smoother ( &
248 grid%em_g_t_save, & ! CD field
249 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
250 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
251 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
252 nids, nide, njds, njde, nkds, nkde, & ! ND dims
253 nims, nime, njms, njme, nkms, nkme, & ! ND dims
254 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
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 smoother ( &
260 grid%em_mu_2, & ! CD field
261 cids, cide, 1, 1, cjds, cjde, & ! CD dims
262 cims, cime, 1, 1, cjms, cjme, & ! CD dims
263 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
264 nids, nide, 1, 1, njds, njde, & ! ND dims
265 nims, nime, 1, 1, njms, njme, & ! ND dims
266 nips, nipe, 1, 1, njps, njpe, & ! ND dims
267 .FALSE., .FALSE., & ! xstag, ystag
268 ngrid%i_parent_start, ngrid%j_parent_start, &
269 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
270 )
271 CALL smoother ( &
272 grid%em_a_mu_2, & ! CD field
273 cids, cide, 1, 1, cjds, cjde, & ! CD dims
274 cims, cime, 1, 1, cjms, cjme, & ! CD dims
275 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
276 nids, nide, 1, 1, njds, njde, & ! ND dims
277 nims, nime, 1, 1, njms, njme, & ! ND dims
278 nips, nipe, 1, 1, njps, njpe, & ! ND dims
279 .FALSE., .FALSE., & ! xstag, ystag
280 ngrid%i_parent_start, ngrid%j_parent_start, &
281 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
282 )
283 CALL smoother ( &
284 grid%em_g_mu_2, & ! CD field
285 cids, cide, 1, 1, cjds, cjde, & ! CD dims
286 cims, cime, 1, 1, cjms, cjme, & ! CD dims
287 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
288 nids, nide, 1, 1, njds, njde, & ! ND dims
289 nims, nime, 1, 1, njms, njme, & ! ND dims
290 nips, nipe, 1, 1, njps, njpe, & ! ND dims
291 .FALSE., .FALSE., & ! xstag, ystag
292 ngrid%i_parent_start, ngrid%j_parent_start, &
293 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
294 )
295 CALL smoother ( &
296 grid%em_mub, & ! CD field
297 cids, cide, 1, 1, cjds, cjde, & ! CD dims
298 cims, cime, 1, 1, cjms, cjme, & ! CD dims
299 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
300 nids, nide, 1, 1, njds, njde, & ! ND dims
301 nims, nime, 1, 1, njms, njme, & ! ND dims
302 nips, nipe, 1, 1, njps, njpe, & ! ND dims
303 .FALSE., .FALSE., & ! xstag, ystag
304 ngrid%i_parent_start, ngrid%j_parent_start, &
305 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
306 )
307 CALL smoother ( &
308 grid%em_a_mub, & ! CD field
309 cids, cide, 1, 1, cjds, cjde, & ! CD dims
310 cims, cime, 1, 1, cjms, cjme, & ! CD dims
311 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
312 nids, nide, 1, 1, njds, njde, & ! ND dims
313 nims, nime, 1, 1, njms, njme, & ! ND dims
314 nips, nipe, 1, 1, njps, njpe, & ! ND dims
315 .FALSE., .FALSE., & ! xstag, ystag
316 ngrid%i_parent_start, ngrid%j_parent_start, &
317 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
318 )
319 CALL smoother ( &
320 grid%em_g_mub, & ! CD field
321 cids, cide, 1, 1, cjds, cjde, & ! CD dims
322 cims, cime, 1, 1, cjms, cjme, & ! CD dims
323 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
324 nids, nide, 1, 1, njds, njde, & ! ND dims
325 nims, nime, 1, 1, njms, njme, & ! ND dims
326 nips, nipe, 1, 1, njps, njpe, & ! ND dims
327 .FALSE., .FALSE., & ! xstag, ystag
328 ngrid%i_parent_start, ngrid%j_parent_start, &
329 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
330 )
331 CALL smoother ( &
332 grid%em_muts, & ! CD field
333 cids, cide, 1, 1, cjds, cjde, & ! CD dims
334 cims, cime, 1, 1, cjms, cjme, & ! CD dims
335 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
336 nids, nide, 1, 1, njds, njde, & ! ND dims
337 nims, nime, 1, 1, njms, njme, & ! ND dims
338 nips, nipe, 1, 1, njps, njpe, & ! ND dims
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 smoother ( &
344 grid%em_a_muts, & ! 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 nids, nide, 1, 1, njds, njde, & ! ND dims
349 nims, nime, 1, 1, njms, njme, & ! ND dims
350 nips, nipe, 1, 1, njps, njpe, & ! ND dims
351 .FALSE., .FALSE., & ! xstag, ystag
352 ngrid%i_parent_start, ngrid%j_parent_start, &
353 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
354 )
355 CALL smoother ( &
356 grid%em_g_muts, & ! CD field
357 cids, cide, 1, 1, cjds, cjde, & ! CD dims
358 cims, cime, 1, 1, cjms, cjme, & ! CD dims
359 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
360 nids, nide, 1, 1, njds, njde, & ! ND dims
361 nims, nime, 1, 1, njms, njme, & ! ND dims
362 nips, nipe, 1, 1, njps, njpe, & ! ND dims
363 .FALSE., .FALSE., & ! xstag, ystag
364 ngrid%i_parent_start, ngrid%j_parent_start, &
365 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
366 )
367 CALL smoother ( &
368 grid%em_alb, & ! CD field
369 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
370 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
371 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
372 nids, nide, njds, njde, nkds, nkde, & ! ND dims
373 nims, nime, njms, njme, nkms, nkme, & ! ND dims
374 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
375 .FALSE., .FALSE., & ! xstag, ystag
376 ngrid%i_parent_start, ngrid%j_parent_start, &
377 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
378 )
379 CALL smoother ( &
380 grid%em_pb, & ! CD field
381 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
382 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
383 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
384 nids, nide, njds, njde, nkds, nkde, & ! ND dims
385 nims, nime, njms, njme, nkms, nkme, & ! ND dims
386 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
387 .FALSE., .FALSE., & ! xstag, ystag
388 ngrid%i_parent_start, ngrid%j_parent_start, &
389 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
390 )
391 DO itrace = PARAM_FIRST_SCALAR, num_moist
392 CALL smoother ( &
393 moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
394 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
395 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
396 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
397 nids, nide, njds, njde, nkds, nkde, & ! ND dims
398 nims, nime, njms, njme, nkms, nkme, & ! ND dims
399 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
400 .FALSE., .FALSE., & ! xstag, ystag
401 ngrid%i_parent_start, ngrid%j_parent_start, &
402 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
403 )
404 ENDDO
405 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
406 CALL smoother ( &
407 a_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
408 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
409 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
410 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
411 nids, nide, njds, njde, nkds, nkde, & ! ND dims
412 nims, nime, njms, njme, nkms, nkme, & ! ND dims
413 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
414 .FALSE., .FALSE., & ! xstag, ystag
415 ngrid%i_parent_start, ngrid%j_parent_start, &
416 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
417 )
418 ENDDO
419 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
420 CALL smoother ( &
421 g_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
422 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
423 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
424 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
425 nids, nide, njds, njde, nkds, nkde, & ! ND dims
426 nims, nime, njms, njme, nkms, nkme, & ! ND dims
427 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
428 .FALSE., .FALSE., & ! xstag, ystag
429 ngrid%i_parent_start, ngrid%j_parent_start, &
430 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
431 )
432 ENDDO
433 DO itrace = PARAM_FIRST_SCALAR, num_scalar
434 CALL smoother ( &
435 scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
436 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
437 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
438 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
439 nids, nide, njds, njde, nkds, nkde, & ! ND dims
440 nims, nime, njms, njme, nkms, nkme, & ! ND dims
441 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
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 CALL smoother ( &
448 grid%ht, & ! CD field
449 cids, cide, 1, 1, cjds, cjde, & ! CD dims
450 cims, cime, 1, 1, cjms, cjme, & ! CD dims
451 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
452 nids, nide, 1, 1, njds, njde, & ! ND dims
453 nims, nime, 1, 1, njms, njme, & ! ND dims
454 nips, nipe, 1, 1, njps, njpe, & ! ND dims
455 .FALSE., .FALSE., & ! xstag, ystag
456 ngrid%i_parent_start, ngrid%j_parent_start, &
457 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
458 )
459 !ENDOFREGISTRYGENERATEDINCLUDE