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, 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 nids, nide, nkds, nkde, njds, njde, & ! ND dims
13 nims, nime, nkms, nkme, njms, njme, & ! ND dims
14 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! 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%a_u_2, & ! CD field
21 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
22 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
23 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
24 nids, nide, nkds, nkde, njds, njde, & ! ND dims
25 nims, nime, nkms, nkme, njms, njme, & ! ND dims
26 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! 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%g_u_2, & ! CD field
33 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
34 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
35 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
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 .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, ckds, ckde, cjds, cjde, & ! CD dims
46 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
47 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
48 nids, nide, nkds, nkde, njds, njde, & ! ND dims
49 nims, nime, nkms, nkme, njms, njme, & ! ND dims
50 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! 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%a_v_2, & ! CD field
57 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
58 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
59 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
60 nids, nide, nkds, nkde, njds, njde, & ! ND dims
61 nims, nime, nkms, nkme, njms, njme, & ! ND dims
62 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! 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%g_v_2, & ! CD field
69 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
70 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
71 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
72 nids, nide, nkds, nkde, njds, njde, & ! ND dims
73 nims, nime, nkms, nkme, njms, njme, & ! ND dims
74 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! 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, ckds, ckde, cjds, cjde, & ! CD dims
82 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
83 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
84 nids, nide, nkds, nkde, njds, njde, & ! ND dims
85 nims, nime, nkms, nkme, njms, njme, & ! ND dims
86 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! 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%a_w_2, & ! CD field
93 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
94 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
95 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
96 nids, nide, nkds, nkde, njds, njde, & ! ND dims
97 nims, nime, nkms, nkme, njms, njme, & ! ND dims
98 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! 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%g_w_2, & ! CD field
105 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
106 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
107 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
108 nids, nide, nkds, nkde, njds, njde, & ! ND dims
109 nims, nime, nkms, nkme, njms, njme, & ! ND dims
110 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! 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, ckds, ckde, cjds, cjde, & ! CD dims
118 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
119 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
120 nids, nide, nkds, nkde, njds, njde, & ! ND dims
121 nims, nime, nkms, nkme, njms, njme, & ! ND dims
122 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! 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%a_ph_2, & ! CD field
129 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
130 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
131 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
132 nids, nide, nkds, nkde, njds, njde, & ! ND dims
133 nims, nime, nkms, nkme, njms, njme, & ! ND dims
134 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! 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%g_ph_2, & ! CD field
141 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
142 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
143 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
144 nids, nide, nkds, nkde, njds, njde, & ! ND dims
145 nims, nime, nkms, nkme, njms, njme, & ! ND dims
146 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! 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, ckds, ckde, cjds, cjde, & ! CD dims
154 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
155 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
156 nids, nide, nkds, nkde, njds, njde, & ! ND dims
157 nims, nime, nkms, nkme, njms, njme, & ! ND dims
158 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! 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_t_2, & ! CD field
165 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
166 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
167 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
168 nids, nide, nkds, nkde, njds, njde, & ! ND dims
169 nims, nime, nkms, nkme, njms, njme, & ! ND dims
170 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! 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%a_t_2, & ! CD field
177 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
178 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
179 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
180 nids, nide, nkds, nkde, njds, njde, & ! ND dims
181 nims, nime, nkms, nkme, njms, njme, & ! ND dims
182 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! 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%g_t_2, & ! CD field
189 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
190 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
191 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
192 nids, nide, nkds, nkde, njds, njde, & ! ND dims
193 nims, nime, nkms, nkme, njms, njme, & ! ND dims
194 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! 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_mu_2, & ! CD field
201 cids, cide, 1, 1, cjds, cjde, & ! CD dims
202 cims, cime, 1, 1, cjms, cjme, & ! CD dims
203 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
204 nids, nide, 1, 1, njds, njde, & ! ND dims
205 nims, nime, 1, 1, njms, njme, & ! ND dims
206 nips, nipe, 1, 1, njps, njpe, & ! 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%a_mu_2, & ! CD field
213 cids, cide, 1, 1, cjds, cjde, & ! CD dims
214 cims, cime, 1, 1, cjms, cjme, & ! CD dims
215 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
216 nids, nide, 1, 1, njds, njde, & ! ND dims
217 nims, nime, 1, 1, njms, njme, & ! ND dims
218 nips, nipe, 1, 1, njps, njpe, & ! 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%g_mu_2, & ! CD field
225 cids, cide, 1, 1, cjds, cjde, & ! CD dims
226 cims, cime, 1, 1, cjms, cjme, & ! CD dims
227 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
228 nids, nide, 1, 1, njds, njde, & ! ND dims
229 nims, nime, 1, 1, njms, njme, & ! ND dims
230 nips, nipe, 1, 1, njps, njpe, & ! 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_mub, & ! CD field
237 cids, cide, 1, 1, cjds, cjde, & ! CD dims
238 cims, cime, 1, 1, cjms, cjme, & ! CD dims
239 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
240 nids, nide, 1, 1, njds, njde, & ! ND dims
241 nims, nime, 1, 1, njms, njme, & ! ND dims
242 nips, nipe, 1, 1, njps, njpe, & ! 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 DO itrace = PARAM_FIRST_SCALAR, num_moist
248 CALL smoother ( &
249 moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
250 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
251 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
252 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
253 nids, nide, nkds, nkde, njds, njde, & ! ND dims
254 nims, nime, nkms, nkme, njms, njme, & ! ND dims
255 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
256 .FALSE., .FALSE., & ! xstag, ystag
257 ngrid%i_parent_start, ngrid%j_parent_start, &
258 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
259 )
260 ENDDO
261 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
262 CALL smoother ( &
263 a_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
264 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
265 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
266 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
267 nids, nide, nkds, nkde, njds, njde, & ! ND dims
268 nims, nime, nkms, nkme, njms, njme, & ! ND dims
269 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
270 .FALSE., .FALSE., & ! xstag, ystag
271 ngrid%i_parent_start, ngrid%j_parent_start, &
272 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
273 )
274 ENDDO
275 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
276 CALL smoother ( &
277 g_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
278 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
279 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
280 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
281 nids, nide, nkds, nkde, njds, njde, & ! ND dims
282 nims, nime, nkms, nkme, njms, njme, & ! ND dims
283 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
284 .FALSE., .FALSE., & ! xstag, ystag
285 ngrid%i_parent_start, ngrid%j_parent_start, &
286 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
287 )
288 ENDDO
289 DO itrace = PARAM_FIRST_SCALAR, num_scalar
290 CALL smoother ( &
291 scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
292 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
293 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
294 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
295 nids, nide, nkds, nkde, njds, njde, & ! ND dims
296 nims, nime, nkms, nkme, njms, njme, & ! ND dims
297 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
298 .FALSE., .FALSE., & ! xstag, ystag
299 ngrid%i_parent_start, ngrid%j_parent_start, &
300 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
301 )
302 ENDDO
303 CALL smoother ( &
304 grid%ht, & ! CD field
305 cids, cide, 1, 1, cjds, cjde, & ! CD dims
306 cims, cime, 1, 1, cjms, cjme, & ! CD dims
307 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
308 nids, nide, 1, 1, njds, njde, & ! ND dims
309 nims, nime, 1, 1, njms, njme, & ! ND dims
310 nips, nipe, 1, 1, njps, njpe, & ! ND dims
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 !ENDOFREGISTRYGENERATEDINCLUDE