nodyn_nest_feedbackup_smooth.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/nodyn_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%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 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%g_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%a_v_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 .FALSE., .TRUE., & ! 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%g_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_w_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, 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, nkpe ), njps, njpe, & ! ND dims
63 .FALSE., .FALSE., & ! 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_w_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, 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, nkpe ), njps, njpe, & ! ND dims
75 .FALSE., .FALSE., & ! 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%a_ph_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%g_ph_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%a_t_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-1), 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-1), 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%g_t_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-1), 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-1), 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_mu_2, & ! CD field
129 cids, cide, 1, 1, cjds, cjde, & ! CD dims
130 cims, cime, 1, 1, cjms, cjme, & ! CD dims
131 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
132 nids, nide, 1, 1, njds, njde, & ! ND dims
133 nims, nime, 1, 1, njms, njme, & ! ND dims
134 nips, nipe, 1, 1, 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_mu_2, & ! CD field
141 cids, cide, 1, 1, cjds, cjde, & ! CD dims
142 cims, cime, 1, 1, cjms, cjme, & ! CD dims
143 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
144 nids, nide, 1, 1, njds, njde, & ! ND dims
145 nims, nime, 1, 1, njms, njme, & ! ND dims
146 nips, nipe, 1, 1, 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 DO itrace = PARAM_FIRST_SCALAR, num_moist
152 CALL smoother ( &
153 moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
154 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
155 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
156 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
157 nids, nide, nkds, nkde, njds, njde, & ! ND dims
158 nims, nime, nkms, nkme, njms, njme, & ! ND dims
159 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
160 .FALSE., .FALSE., & ! xstag, ystag
161 ngrid%i_parent_start, ngrid%j_parent_start, &
162 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
163 )
164 ENDDO
165 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
166 CALL smoother ( &
167 a_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
168 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
169 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
170 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
171 nids, nide, nkds, nkde, njds, njde, & ! ND dims
172 nims, nime, nkms, nkme, njms, njme, & ! ND dims
173 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
174 .FALSE., .FALSE., & ! xstag, ystag
175 ngrid%i_parent_start, ngrid%j_parent_start, &
176 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
177 )
178 ENDDO
179 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
180 CALL smoother ( &
181 g_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
182 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
183 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
184 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
185 nids, nide, nkds, nkde, njds, njde, & ! ND dims
186 nims, nime, nkms, nkme, njms, njme, & ! ND dims
187 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
188 .FALSE., .FALSE., & ! xstag, ystag
189 ngrid%i_parent_start, ngrid%j_parent_start, &
190 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
191 )
192 ENDDO
193 DO itrace = PARAM_FIRST_SCALAR, num_scalar
194 CALL smoother ( &
195 scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
196 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
197 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
198 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
199 nids, nide, nkds, nkde, njds, njde, & ! ND dims
200 nims, nime, nkms, nkme, njms, njme, & ! ND dims
201 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
202 .FALSE., .FALSE., & ! xstag, ystag
203 ngrid%i_parent_start, ngrid%j_parent_start, &
204 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
205 )
206 ENDDO
207 CALL smoother ( &
208 grid%ht, & ! CD field
209 cids, cide, 1, 1, cjds, cjde, & ! CD dims
210 cims, cime, 1, 1, cjms, cjme, & ! CD dims
211 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
212 nids, nide, 1, 1, njds, njde, & ! ND dims
213 nims, nime, 1, 1, njms, njme, & ! ND dims
214 nips, nipe, 1, 1, njps, njpe, & ! ND dims
215 .FALSE., .FALSE., & ! xstag, ystag
216 ngrid%i_parent_start, ngrid%j_parent_start, &
217 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
218 )
219 !ENDOFREGISTRYGENERATEDINCLUDE