em_nest_feedbackup_interp.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_nest_feedbackup_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 copy_fcnm ( &
8 grid%lu_index, & ! CD field
9 cids, cide, 1, 1, cjds, cjde, & ! CD dims
10 cims, cime, 1, 1, cjms, cjme, & ! CD dims
11 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
12 ngrid%lu_index, & ! ND field
13 nids, nide, 1, 1, njds, njde, & ! ND dims
14 nims, nime, 1, 1, njms, njme, & ! ND dims
15 nips, nipe, 1, 1, njps, njpe, & ! ND dims
16 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
17 .FALSE., .FALSE., & ! xstag, ystag
18 ngrid%i_parent_start, ngrid%j_parent_start, &
19 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
20 )
21 CALL copy_fcn ( &
22 grid%em_u_2, & ! CD field
23 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
24 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
25 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
26 ngrid%em_u_2, & ! ND field
27 nids, nide, njds, njde, nkds, nkde, & ! ND dims
28 nims, nime, njms, njme, nkms, nkme, & ! ND dims
29 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
30 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
31 .TRUE., .FALSE., & ! xstag, ystag
32 ngrid%i_parent_start, ngrid%j_parent_start, &
33 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
34 )
35 CALL copy_fcn ( &
36 grid%em_a_u_2, & ! CD field
37 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
38 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
39 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
40 ngrid%em_a_u_2, & ! ND field
41 nids, nide, njds, njde, nkds, nkde, & ! ND dims
42 nims, nime, njms, njme, nkms, nkme, & ! ND dims
43 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
44 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
45 .TRUE., .FALSE., & ! xstag, ystag
46 ngrid%i_parent_start, ngrid%j_parent_start, &
47 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
48 )
49 CALL copy_fcn ( &
50 grid%em_g_u_2, & ! CD field
51 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
52 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
53 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
54 ngrid%em_g_u_2, & ! ND field
55 nids, nide, njds, njde, nkds, nkde, & ! ND dims
56 nims, nime, njms, njme, nkms, nkme, & ! ND dims
57 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
58 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
59 .TRUE., .FALSE., & ! xstag, ystag
60 ngrid%i_parent_start, ngrid%j_parent_start, &
61 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
62 )
63 CALL copy_fcn ( &
64 grid%em_v_2, & ! CD field
65 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
66 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
67 cips, cipe, cjps, MIN( cjde, cjpe ), ckps, ckpe, & ! CD dims
68 ngrid%em_v_2, & ! ND field
69 nids, nide, njds, njde, nkds, nkde, & ! ND dims
70 nims, nime, njms, njme, nkms, nkme, & ! ND dims
71 nips, nipe, njps, MIN( njde, njpe ), nkps, nkpe, & ! ND dims
72 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
73 .FALSE., .TRUE., & ! xstag, ystag
74 ngrid%i_parent_start, ngrid%j_parent_start, &
75 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
76 )
77 CALL copy_fcn ( &
78 grid%em_a_v_2, & ! CD field
79 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
80 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
81 cips, cipe, cjps, MIN( cjde, cjpe ), ckps, ckpe, & ! CD dims
82 ngrid%em_a_v_2, & ! ND field
83 nids, nide, njds, njde, nkds, nkde, & ! ND dims
84 nims, nime, njms, njme, nkms, nkme, & ! ND dims
85 nips, nipe, njps, MIN( njde, njpe ), nkps, nkpe, & ! ND dims
86 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
87 .FALSE., .TRUE., & ! xstag, ystag
88 ngrid%i_parent_start, ngrid%j_parent_start, &
89 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
90 )
91 CALL copy_fcn ( &
92 grid%em_g_v_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, cjpe ), ckps, ckpe, & ! CD dims
96 ngrid%em_g_v_2, & ! ND field
97 nids, nide, njds, njde, nkds, nkde, & ! ND dims
98 nims, nime, njms, njme, nkms, nkme, & ! ND dims
99 nips, nipe, njps, MIN( njde, njpe ), nkps, nkpe, & ! ND dims
100 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
101 .FALSE., .TRUE., & ! xstag, ystag
102 ngrid%i_parent_start, ngrid%j_parent_start, &
103 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
104 )
105 CALL copy_fcn ( &
106 grid%em_w_2, & ! CD field
107 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
108 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
109 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
110 ngrid%em_w_2, & ! ND field
111 nids, nide, njds, njde, nkds, nkde, & ! ND dims
112 nims, nime, njms, njme, nkms, nkme, & ! ND dims
113 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
114 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
115 .FALSE., .FALSE., & ! xstag, ystag
116 ngrid%i_parent_start, ngrid%j_parent_start, &
117 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
118 )
119 CALL copy_fcn ( &
120 grid%em_a_w_2, & ! CD field
121 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
122 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
123 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
124 ngrid%em_a_w_2, & ! ND field
125 nids, nide, njds, njde, nkds, nkde, & ! ND dims
126 nims, nime, njms, njme, nkms, nkme, & ! ND dims
127 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
128 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
129 .FALSE., .FALSE., & ! xstag, ystag
130 ngrid%i_parent_start, ngrid%j_parent_start, &
131 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
132 )
133 CALL copy_fcn ( &
134 grid%em_g_w_2, & ! CD field
135 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
136 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
137 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
138 ngrid%em_g_w_2, & ! ND field
139 nids, nide, njds, njde, nkds, nkde, & ! ND dims
140 nims, nime, njms, njme, nkms, nkme, & ! ND dims
141 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
142 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
143 .FALSE., .FALSE., & ! xstag, ystag
144 ngrid%i_parent_start, ngrid%j_parent_start, &
145 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
146 )
147 CALL copy_fcn ( &
148 grid%em_ph_2, & ! CD field
149 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
150 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
151 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
152 ngrid%em_ph_2, & ! ND field
153 nids, nide, njds, njde, nkds, nkde, & ! ND dims
154 nims, nime, njms, njme, nkms, nkme, & ! ND dims
155 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
156 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
157 .FALSE., .FALSE., & ! xstag, ystag
158 ngrid%i_parent_start, ngrid%j_parent_start, &
159 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
160 )
161 CALL copy_fcn ( &
162 grid%em_a_ph_2, & ! CD field
163 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
164 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
165 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
166 ngrid%em_a_ph_2, & ! ND field
167 nids, nide, njds, njde, nkds, nkde, & ! ND dims
168 nims, nime, njms, njme, nkms, nkme, & ! ND dims
169 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
170 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
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 copy_fcn ( &
176 grid%em_g_ph_2, & ! 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 ngrid%em_g_ph_2, & ! ND field
181 nids, nide, njds, njde, nkds, nkde, & ! ND dims
182 nims, nime, njms, njme, nkms, nkme, & ! ND dims
183 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
184 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
185 .FALSE., .FALSE., & ! xstag, ystag
186 ngrid%i_parent_start, ngrid%j_parent_start, &
187 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
188 )
189 CALL copy_fcn ( &
190 grid%em_phb, & ! CD field
191 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
192 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
193 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
194 ngrid%em_phb, & ! ND field
195 nids, nide, njds, njde, nkds, nkde, & ! ND dims
196 nims, nime, njms, njme, nkms, nkme, & ! ND dims
197 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
198 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
199 .FALSE., .FALSE., & ! xstag, ystag
200 ngrid%i_parent_start, ngrid%j_parent_start, &
201 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
202 )
203 CALL copy_fcn ( &
204 grid%em_a_phb, & ! CD field
205 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
206 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
207 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
208 ngrid%em_a_phb, & ! ND field
209 nids, nide, njds, njde, nkds, nkde, & ! ND dims
210 nims, nime, njms, njme, nkms, nkme, & ! ND dims
211 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
212 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
213 .FALSE., .FALSE., & ! xstag, ystag
214 ngrid%i_parent_start, ngrid%j_parent_start, &
215 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
216 )
217 CALL copy_fcn ( &
218 grid%em_g_phb, & ! CD field
219 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
220 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
221 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
222 ngrid%em_g_phb, & ! ND field
223 nids, nide, njds, njde, nkds, nkde, & ! ND dims
224 nims, nime, njms, njme, nkms, nkme, & ! ND dims
225 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
226 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
227 .FALSE., .FALSE., & ! xstag, ystag
228 ngrid%i_parent_start, ngrid%j_parent_start, &
229 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
230 )
231 CALL copy_fcn ( &
232 grid%em_t_2, & ! CD field
233 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
234 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
235 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
236 ngrid%em_t_2, & ! ND field
237 nids, nide, njds, njde, nkds, nkde, & ! ND dims
238 nims, nime, njms, njme, nkms, nkme, & ! ND dims
239 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
240 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
241 .FALSE., .FALSE., & ! xstag, ystag
242 ngrid%i_parent_start, ngrid%j_parent_start, &
243 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
244 )
245 CALL copy_fcn ( &
246 grid%em_a_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_a_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 )
259 CALL copy_fcn ( &
260 grid%em_g_t_2, & ! CD field
261 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
262 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
263 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
264 ngrid%em_g_t_2, & ! ND field
265 nids, nide, njds, njde, nkds, nkde, & ! ND dims
266 nims, nime, njms, njme, nkms, nkme, & ! ND dims
267 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
268 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
269 .FALSE., .FALSE., & ! xstag, ystag
270 ngrid%i_parent_start, ngrid%j_parent_start, &
271 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
272 )
273 CALL copy_fcn ( &
274 grid%em_mu_2, & ! CD field
275 cids, cide, 1, 1, cjds, cjde, & ! CD dims
276 cims, cime, 1, 1, cjms, cjme, & ! CD dims
277 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
278 ngrid%em_mu_2, & ! ND field
279 nids, nide, 1, 1, njds, njde, & ! ND dims
280 nims, nime, 1, 1, njms, njme, & ! ND dims
281 nips, nipe, 1, 1, njps, njpe, & ! ND dims
282 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
283 .FALSE., .FALSE., & ! xstag, ystag
284 ngrid%i_parent_start, ngrid%j_parent_start, &
285 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
286 )
287 CALL copy_fcn ( &
288 grid%em_a_mu_2, & ! CD field
289 cids, cide, 1, 1, cjds, cjde, & ! CD dims
290 cims, cime, 1, 1, cjms, cjme, & ! CD dims
291 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
292 ngrid%em_a_mu_2, & ! ND field
293 nids, nide, 1, 1, njds, njde, & ! ND dims
294 nims, nime, 1, 1, njms, njme, & ! ND dims
295 nips, nipe, 1, 1, njps, njpe, & ! ND dims
296 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
297 .FALSE., .FALSE., & ! xstag, ystag
298 ngrid%i_parent_start, ngrid%j_parent_start, &
299 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
300 )
301 CALL copy_fcn ( &
302 grid%em_g_mu_2, & ! CD field
303 cids, cide, 1, 1, cjds, cjde, & ! CD dims
304 cims, cime, 1, 1, cjms, cjme, & ! CD dims
305 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
306 ngrid%em_g_mu_2, & ! ND field
307 nids, nide, 1, 1, njds, njde, & ! ND dims
308 nims, nime, 1, 1, njms, njme, & ! ND dims
309 nips, nipe, 1, 1, njps, njpe, & ! ND dims
310 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
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 CALL copy_fcn ( &
316 grid%em_mub, & ! CD field
317 cids, cide, 1, 1, cjds, cjde, & ! CD dims
318 cims, cime, 1, 1, cjms, cjme, & ! CD dims
319 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
320 ngrid%em_mub, & ! ND field
321 nids, nide, 1, 1, njds, njde, & ! ND dims
322 nims, nime, 1, 1, njms, njme, & ! ND dims
323 nips, nipe, 1, 1, njps, njpe, & ! ND dims
324 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
325 .FALSE., .FALSE., & ! xstag, ystag
326 ngrid%i_parent_start, ngrid%j_parent_start, &
327 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
328 )
329 CALL copy_fcn ( &
330 grid%em_a_mub, & ! CD field
331 cids, cide, 1, 1, cjds, cjde, & ! CD dims
332 cims, cime, 1, 1, cjms, cjme, & ! CD dims
333 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
334 ngrid%em_a_mub, & ! ND field
335 nids, nide, 1, 1, njds, njde, & ! ND dims
336 nims, nime, 1, 1, njms, njme, & ! ND dims
337 nips, nipe, 1, 1, njps, njpe, & ! ND dims
338 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
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 copy_fcn ( &
344 grid%em_g_mub, & ! 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 ngrid%em_g_mub, & ! ND field
349 nids, nide, 1, 1, njds, njde, & ! ND dims
350 nims, nime, 1, 1, njms, njme, & ! ND dims
351 nips, nipe, 1, 1, njps, njpe, & ! ND dims
352 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
353 .FALSE., .FALSE., & ! xstag, ystag
354 ngrid%i_parent_start, ngrid%j_parent_start, &
355 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
356 )
357 CALL copy_fcn ( &
358 grid%em_mu0, & ! CD field
359 cids, cide, 1, 1, cjds, cjde, & ! CD dims
360 cims, cime, 1, 1, cjms, cjme, & ! CD dims
361 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
362 ngrid%em_mu0, & ! ND field
363 nids, nide, 1, 1, njds, njde, & ! ND dims
364 nims, nime, 1, 1, njms, njme, & ! ND dims
365 nips, nipe, 1, 1, njps, njpe, & ! ND dims
366 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
367 .FALSE., .FALSE., & ! xstag, ystag
368 ngrid%i_parent_start, ngrid%j_parent_start, &
369 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
370 )
371 CALL copy_fcn ( &
372 grid%em_muu, & ! CD field
373 cids, cide, 1, 1, cjds, cjde, & ! CD dims
374 cims, cime, 1, 1, cjms, cjme, & ! CD dims
375 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
376 ngrid%em_muu, & ! ND field
377 nids, nide, 1, 1, njds, njde, & ! ND dims
378 nims, nime, 1, 1, njms, njme, & ! ND dims
379 nips, nipe, 1, 1, njps, njpe, & ! 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 )
385 CALL copy_fcn ( &
386 grid%em_a_muu, & ! CD field
387 cids, cide, 1, 1, cjds, cjde, & ! CD dims
388 cims, cime, 1, 1, cjms, cjme, & ! CD dims
389 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
390 ngrid%em_a_muu, & ! ND field
391 nids, nide, 1, 1, njds, njde, & ! ND dims
392 nims, nime, 1, 1, njms, njme, & ! ND dims
393 nips, nipe, 1, 1, njps, njpe, & ! ND dims
394 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
395 .FALSE., .FALSE., & ! xstag, ystag
396 ngrid%i_parent_start, ngrid%j_parent_start, &
397 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
398 )
399 CALL copy_fcn ( &
400 grid%em_g_muu, & ! CD field
401 cids, cide, 1, 1, cjds, cjde, & ! CD dims
402 cims, cime, 1, 1, cjms, cjme, & ! CD dims
403 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
404 ngrid%em_g_muu, & ! ND field
405 nids, nide, 1, 1, njds, njde, & ! ND dims
406 nims, nime, 1, 1, njms, njme, & ! ND dims
407 nips, nipe, 1, 1, njps, njpe, & ! ND dims
408 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
409 .FALSE., .FALSE., & ! xstag, ystag
410 ngrid%i_parent_start, ngrid%j_parent_start, &
411 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
412 )
413 CALL copy_fcn ( &
414 grid%em_muv, & ! CD field
415 cids, cide, 1, 1, cjds, cjde, & ! CD dims
416 cims, cime, 1, 1, cjms, cjme, & ! CD dims
417 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
418 ngrid%em_muv, & ! ND field
419 nids, nide, 1, 1, njds, njde, & ! ND dims
420 nims, nime, 1, 1, njms, njme, & ! ND dims
421 nips, nipe, 1, 1, njps, njpe, & ! ND dims
422 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
423 .FALSE., .FALSE., & ! xstag, ystag
424 ngrid%i_parent_start, ngrid%j_parent_start, &
425 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
426 )
427 CALL copy_fcn ( &
428 grid%em_a_muv, & ! CD field
429 cids, cide, 1, 1, cjds, cjde, & ! CD dims
430 cims, cime, 1, 1, cjms, cjme, & ! CD dims
431 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
432 ngrid%em_a_muv, & ! ND field
433 nids, nide, 1, 1, njds, njde, & ! ND dims
434 nims, nime, 1, 1, njms, njme, & ! ND dims
435 nips, nipe, 1, 1, njps, njpe, & ! ND dims
436 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
437 .FALSE., .FALSE., & ! xstag, ystag
438 ngrid%i_parent_start, ngrid%j_parent_start, &
439 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
440 )
441 CALL copy_fcn ( &
442 grid%em_g_muv, & ! CD field
443 cids, cide, 1, 1, cjds, cjde, & ! CD dims
444 cims, cime, 1, 1, cjms, cjme, & ! CD dims
445 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
446 ngrid%em_g_muv, & ! ND field
447 nids, nide, 1, 1, njds, njde, & ! ND dims
448 nims, nime, 1, 1, njms, njme, & ! ND dims
449 nips, nipe, 1, 1, njps, njpe, & ! ND dims
450 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
451 .FALSE., .FALSE., & ! xstag, ystag
452 ngrid%i_parent_start, ngrid%j_parent_start, &
453 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
454 )
455 CALL copy_fcn ( &
456 grid%em_mut, & ! CD field
457 cids, cide, 1, 1, cjds, cjde, & ! CD dims
458 cims, cime, 1, 1, cjms, cjme, & ! CD dims
459 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
460 ngrid%em_mut, & ! ND field
461 nids, nide, 1, 1, njds, njde, & ! ND dims
462 nims, nime, 1, 1, njms, njme, & ! ND dims
463 nips, nipe, 1, 1, njps, njpe, & ! ND dims
464 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
465 .FALSE., .FALSE., & ! xstag, ystag
466 ngrid%i_parent_start, ngrid%j_parent_start, &
467 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
468 )
469 CALL copy_fcn ( &
470 grid%em_a_mut, & ! CD field
471 cids, cide, 1, 1, cjds, cjde, & ! CD dims
472 cims, cime, 1, 1, cjms, cjme, & ! CD dims
473 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
474 ngrid%em_a_mut, & ! ND field
475 nids, nide, 1, 1, njds, njde, & ! ND dims
476 nims, nime, 1, 1, njms, njme, & ! ND dims
477 nips, nipe, 1, 1, njps, njpe, & ! ND dims
478 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
479 .FALSE., .FALSE., & ! xstag, ystag
480 ngrid%i_parent_start, ngrid%j_parent_start, &
481 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
482 )
483 CALL copy_fcn ( &
484 grid%em_g_mut, & ! CD field
485 cids, cide, 1, 1, cjds, cjde, & ! CD dims
486 cims, cime, 1, 1, cjms, cjme, & ! CD dims
487 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
488 ngrid%em_g_mut, & ! ND field
489 nids, nide, 1, 1, njds, njde, & ! ND dims
490 nims, nime, 1, 1, njms, njme, & ! ND dims
491 nips, nipe, 1, 1, njps, njpe, & ! ND dims
492 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
493 .FALSE., .FALSE., & ! xstag, ystag
494 ngrid%i_parent_start, ngrid%j_parent_start, &
495 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
496 )
497 CALL copy_fcn ( &
498 grid%em_muts, & ! CD field
499 cids, cide, 1, 1, cjds, cjde, & ! CD dims
500 cims, cime, 1, 1, cjms, cjme, & ! CD dims
501 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
502 ngrid%em_muts, & ! ND field
503 nids, nide, 1, 1, njds, njde, & ! ND dims
504 nims, nime, 1, 1, njms, njme, & ! ND dims
505 nips, nipe, 1, 1, njps, njpe, & ! ND dims
506 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
507 .FALSE., .FALSE., & ! xstag, ystag
508 ngrid%i_parent_start, ngrid%j_parent_start, &
509 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
510 )
511 CALL copy_fcn ( &
512 grid%em_a_muts, & ! CD field
513 cids, cide, 1, 1, cjds, cjde, & ! CD dims
514 cims, cime, 1, 1, cjms, cjme, & ! CD dims
515 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
516 ngrid%em_a_muts, & ! ND field
517 nids, nide, 1, 1, njds, njde, & ! ND dims
518 nims, nime, 1, 1, njms, njme, & ! ND dims
519 nips, nipe, 1, 1, njps, njpe, & ! ND dims
520 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
521 .FALSE., .FALSE., & ! xstag, ystag
522 ngrid%i_parent_start, ngrid%j_parent_start, &
523 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
524 )
525 CALL copy_fcn ( &
526 grid%em_g_muts, & ! CD field
527 cids, cide, 1, 1, cjds, cjde, & ! CD dims
528 cims, cime, 1, 1, cjms, cjme, & ! CD dims
529 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
530 ngrid%em_g_muts, & ! ND field
531 nids, nide, 1, 1, njds, njde, & ! ND dims
532 nims, nime, 1, 1, njms, njme, & ! ND dims
533 nips, nipe, 1, 1, njps, njpe, & ! ND dims
534 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
535 .FALSE., .FALSE., & ! xstag, ystag
536 ngrid%i_parent_start, ngrid%j_parent_start, &
537 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
538 )
539 CALL mark_domain ( &
540 grid%nest_pos, & ! CD field
541 cids, cide, 1, 1, cjds, cjde, & ! CD dims
542 cims, cime, 1, 1, cjms, cjme, & ! CD dims
543 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
544 ngrid%nest_pos, & ! ND field
545 nids, nide, 1, 1, njds, njde, & ! ND dims
546 nims, nime, 1, 1, njms, njme, & ! ND dims
547 nips, nipe, 1, 1, njps, njpe, & ! ND dims
548 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
549 .FALSE., .FALSE., & ! xstag, ystag
550 ngrid%i_parent_start, ngrid%j_parent_start, &
551 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
552 )
553 CALL mark_domain ( &
554 grid%nest_mask, & ! CD field
555 cids, cide, 1, 1, cjds, cjde, & ! CD dims
556 cims, cime, 1, 1, cjms, cjme, & ! CD dims
557 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
558 ngrid%nest_mask, & ! ND field
559 nids, nide, 1, 1, njds, njde, & ! ND dims
560 nims, nime, 1, 1, njms, njme, & ! ND dims
561 nips, nipe, 1, 1, njps, njpe, & ! ND dims
562 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
563 .FALSE., .FALSE., & ! xstag, ystag
564 ngrid%i_parent_start, ngrid%j_parent_start, &
565 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
566 )
567 CALL copy_fcn ( &
568 grid%em_alb, & ! CD field
569 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
570 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
571 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
572 ngrid%em_alb, & ! ND field
573 nids, nide, njds, njde, nkds, nkde, & ! ND dims
574 nims, nime, njms, njme, nkms, nkme, & ! ND dims
575 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
576 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
577 .FALSE., .FALSE., & ! xstag, ystag
578 ngrid%i_parent_start, ngrid%j_parent_start, &
579 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
580 )
581 CALL copy_fcn ( &
582 grid%em_pb, & ! CD field
583 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
584 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
585 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
586 ngrid%em_pb, & ! ND field
587 nids, nide, njds, njde, nkds, nkde, & ! ND dims
588 nims, nime, njms, njme, nkms, nkme, & ! ND dims
589 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
590 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
591 .FALSE., .FALSE., & ! xstag, ystag
592 ngrid%i_parent_start, ngrid%j_parent_start, &
593 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
594 )
595 DO itrace = PARAM_FIRST_SCALAR, num_moist
596 CALL copy_fcn ( &
597 moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
598 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
599 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
600 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
601 ngrid%moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
602 nids, nide, njds, njde, nkds, nkde, & ! ND dims
603 nims, nime, njms, njme, nkms, nkme, & ! ND dims
604 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
605 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
606 .FALSE., .FALSE., & ! xstag, ystag
607 ngrid%i_parent_start, ngrid%j_parent_start, &
608 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
609 )
610 ENDDO
611 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
612 CALL copy_fcn ( &
613 a_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
614 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
615 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
616 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
617 ngrid%a_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
618 nids, nide, njds, njde, nkds, nkde, & ! ND dims
619 nims, nime, njms, njme, nkms, nkme, & ! ND dims
620 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
621 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
622 .FALSE., .FALSE., & ! xstag, ystag
623 ngrid%i_parent_start, ngrid%j_parent_start, &
624 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
625 )
626 ENDDO
627 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
628 CALL copy_fcn ( &
629 g_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
630 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
631 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
632 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
633 ngrid%g_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
634 nids, nide, njds, njde, nkds, nkde, & ! ND dims
635 nims, nime, njms, njme, nkms, nkme, & ! ND dims
636 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
637 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
638 .FALSE., .FALSE., & ! xstag, ystag
639 ngrid%i_parent_start, ngrid%j_parent_start, &
640 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
641 )
642 ENDDO
643 DO itrace = PARAM_FIRST_SCALAR, num_scalar
644 CALL copy_fcn ( &
645 scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
646 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
647 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
648 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
649 ngrid%scalar(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
650 nids, nide, njds, njde, nkds, nkde, & ! ND dims
651 nims, nime, njms, njme, nkms, nkme, & ! ND dims
652 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
653 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
654 .FALSE., .FALSE., & ! xstag, ystag
655 ngrid%i_parent_start, ngrid%j_parent_start, &
656 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
657 )
658 ENDDO
659 CALL copy_fcnm ( &
660 grid%landmask, & ! CD field
661 cids, cide, 1, 1, cjds, cjde, & ! CD dims
662 cims, cime, 1, 1, cjms, cjme, & ! CD dims
663 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
664 ngrid%landmask, & ! ND field
665 nids, nide, 1, 1, njds, njde, & ! ND dims
666 nims, nime, 1, 1, njms, njme, & ! ND dims
667 nips, nipe, 1, 1, njps, njpe, & ! ND dims
668 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
669 .FALSE., .FALSE., & ! xstag, ystag
670 ngrid%i_parent_start, ngrid%j_parent_start, &
671 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
672 )
673 CALL copy_fcnm ( &
674 grid%tslb, & ! CD field
675 cids, cide, cjds, cjde, 1, config_flags%num_soil_layers, & ! CD dims
676 cims, cime, cjms, cjme, 1, config_flags%num_soil_layers, & ! CD dims
677 cips, cipe, cjps, MIN( (cjde-1), cjpe ), 1, config_flags%num_soil_layers, & ! CD dims
678 ngrid%tslb, & ! ND field
679 nids, nide, njds, njde, 1, config_flags%num_soil_layers, & ! ND dims
680 nims, nime, njms, njme, 1, config_flags%num_soil_layers, & ! ND dims
681 nips, nipe, njps, MIN( (njde-1), njpe ), 1, config_flags%num_soil_layers, & ! ND dims
682 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
683 .FALSE., .FALSE., & ! xstag, ystag
684 ngrid%i_parent_start, ngrid%j_parent_start, &
685 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
686 )
687 CALL copy_fcnm ( &
688 grid%smois, & ! CD field
689 cids, cide, cjds, cjde, 1, config_flags%num_soil_layers, & ! CD dims
690 cims, cime, cjms, cjme, 1, config_flags%num_soil_layers, & ! CD dims
691 cips, cipe, cjps, MIN( (cjde-1), cjpe ), 1, config_flags%num_soil_layers, & ! CD dims
692 ngrid%smois, & ! ND field
693 nids, nide, njds, njde, 1, config_flags%num_soil_layers, & ! ND dims
694 nims, nime, njms, njme, 1, config_flags%num_soil_layers, & ! ND dims
695 nips, nipe, njps, MIN( (njde-1), njpe ), 1, config_flags%num_soil_layers, & ! ND dims
696 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
697 .FALSE., .FALSE., & ! xstag, ystag
698 ngrid%i_parent_start, ngrid%j_parent_start, &
699 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
700 )
701 CALL copy_fcnm ( &
702 grid%sh2o, & ! CD field
703 cids, cide, cjds, cjde, 1, config_flags%num_soil_layers, & ! CD dims
704 cims, cime, cjms, cjme, 1, config_flags%num_soil_layers, & ! CD dims
705 cips, cipe, cjps, MIN( (cjde-1), cjpe ), 1, config_flags%num_soil_layers, & ! CD dims
706 ngrid%sh2o, & ! ND field
707 nids, nide, njds, njde, 1, config_flags%num_soil_layers, & ! ND dims
708 nims, nime, njms, njme, 1, config_flags%num_soil_layers, & ! ND dims
709 nips, nipe, njps, MIN( (njde-1), njpe ), 1, config_flags%num_soil_layers, & ! ND dims
710 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
711 .FALSE., .FALSE., & ! xstag, ystag
712 ngrid%i_parent_start, ngrid%j_parent_start, &
713 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
714 )
715 CALL copy_fcnm ( &
716 grid%xice, & ! CD field
717 cids, cide, 1, 1, cjds, cjde, & ! CD dims
718 cims, cime, 1, 1, cjms, cjme, & ! CD dims
719 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
720 ngrid%xice, & ! ND field
721 nids, nide, 1, 1, njds, njde, & ! ND dims
722 nims, nime, 1, 1, njms, njme, & ! ND dims
723 nips, nipe, 1, 1, njps, njpe, & ! ND dims
724 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
725 .FALSE., .FALSE., & ! xstag, ystag
726 ngrid%i_parent_start, ngrid%j_parent_start, &
727 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
728 )
729 CALL copy_fcni ( &
730 grid%ivgtyp, & ! CD field
731 cids, cide, 1, 1, cjds, cjde, & ! CD dims
732 cims, cime, 1, 1, cjms, cjme, & ! CD dims
733 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
734 ngrid%ivgtyp, & ! ND field
735 nids, nide, 1, 1, njds, njde, & ! ND dims
736 nims, nime, 1, 1, njms, njme, & ! ND dims
737 nips, nipe, 1, 1, njps, njpe, & ! ND dims
738 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
739 .FALSE., .FALSE., & ! xstag, ystag
740 ngrid%i_parent_start, ngrid%j_parent_start, &
741 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
742 )
743 CALL copy_fcni ( &
744 grid%isltyp, & ! CD field
745 cids, cide, 1, 1, cjds, cjde, & ! CD dims
746 cims, cime, 1, 1, cjms, cjme, & ! CD dims
747 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
748 ngrid%isltyp, & ! ND field
749 nids, nide, 1, 1, njds, njde, & ! ND dims
750 nims, nime, 1, 1, njms, njme, & ! ND dims
751 nips, nipe, 1, 1, njps, njpe, & ! ND dims
752 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
753 .FALSE., .FALSE., & ! xstag, ystag
754 ngrid%i_parent_start, ngrid%j_parent_start, &
755 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
756 )
757 CALL copy_fcnm ( &
758 grid%vegfra, & ! CD field
759 cids, cide, 1, 1, cjds, cjde, & ! CD dims
760 cims, cime, 1, 1, cjms, cjme, & ! CD dims
761 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
762 ngrid%vegfra, & ! ND field
763 nids, nide, 1, 1, njds, njde, & ! ND dims
764 nims, nime, 1, 1, njms, njme, & ! ND dims
765 nips, nipe, 1, 1, njps, njpe, & ! ND dims
766 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
767 .FALSE., .FALSE., & ! xstag, ystag
768 ngrid%i_parent_start, ngrid%j_parent_start, &
769 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
770 )
771 CALL copy_fcnm ( &
772 grid%acsnow, & ! CD field
773 cids, cide, 1, 1, cjds, cjde, & ! CD dims
774 cims, cime, 1, 1, cjms, cjme, & ! CD dims
775 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
776 ngrid%acsnow, & ! ND field
777 nids, nide, 1, 1, njds, njde, & ! ND dims
778 nims, nime, 1, 1, njms, njme, & ! ND dims
779 nips, nipe, 1, 1, njps, njpe, & ! ND dims
780 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
781 .FALSE., .FALSE., & ! xstag, ystag
782 ngrid%i_parent_start, ngrid%j_parent_start, &
783 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
784 )
785 CALL copy_fcnm ( &
786 grid%acsnom, & ! CD field
787 cids, cide, 1, 1, cjds, cjde, & ! CD dims
788 cims, cime, 1, 1, cjms, cjme, & ! CD dims
789 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
790 ngrid%acsnom, & ! ND field
791 nids, nide, 1, 1, njds, njde, & ! ND dims
792 nims, nime, 1, 1, njms, njme, & ! ND dims
793 nips, nipe, 1, 1, njps, njpe, & ! ND dims
794 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
795 .FALSE., .FALSE., & ! xstag, ystag
796 ngrid%i_parent_start, ngrid%j_parent_start, &
797 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
798 )
799 CALL copy_fcnm ( &
800 grid%snow, & ! CD field
801 cids, cide, 1, 1, cjds, cjde, & ! CD dims
802 cims, cime, 1, 1, cjms, cjme, & ! CD dims
803 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
804 ngrid%snow, & ! ND field
805 nids, nide, 1, 1, njds, njde, & ! ND dims
806 nims, nime, 1, 1, njms, njme, & ! ND dims
807 nips, nipe, 1, 1, njps, njpe, & ! ND dims
808 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
809 .FALSE., .FALSE., & ! xstag, ystag
810 ngrid%i_parent_start, ngrid%j_parent_start, &
811 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
812 )
813 CALL copy_fcnm ( &
814 grid%snowh, & ! CD field
815 cids, cide, 1, 1, cjds, cjde, & ! CD dims
816 cims, cime, 1, 1, cjms, cjme, & ! CD dims
817 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
818 ngrid%snowh, & ! ND field
819 nids, nide, 1, 1, njds, njde, & ! ND dims
820 nims, nime, 1, 1, njms, njme, & ! ND dims
821 nips, nipe, 1, 1, njps, njpe, & ! ND dims
822 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
823 .FALSE., .FALSE., & ! xstag, ystag
824 ngrid%i_parent_start, ngrid%j_parent_start, &
825 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
826 )
827 CALL copy_fcnm ( &
828 grid%rhosn, & ! CD field
829 cids, cide, 1, 1, cjds, cjde, & ! CD dims
830 cims, cime, 1, 1, cjms, cjme, & ! CD dims
831 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
832 ngrid%rhosn, & ! ND field
833 nids, nide, 1, 1, njds, njde, & ! ND dims
834 nims, nime, 1, 1, njms, njme, & ! ND dims
835 nips, nipe, 1, 1, njps, njpe, & ! ND dims
836 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
837 .FALSE., .FALSE., & ! xstag, ystag
838 ngrid%i_parent_start, ngrid%j_parent_start, &
839 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
840 )
841 CALL copy_fcnm ( &
842 grid%canwat, & ! CD field
843 cids, cide, 1, 1, cjds, cjde, & ! CD dims
844 cims, cime, 1, 1, cjms, cjme, & ! CD dims
845 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
846 ngrid%canwat, & ! ND field
847 nids, nide, 1, 1, njds, njde, & ! ND dims
848 nims, nime, 1, 1, njms, njme, & ! ND dims
849 nips, nipe, 1, 1, njps, njpe, & ! ND dims
850 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
851 .FALSE., .FALSE., & ! xstag, ystag
852 ngrid%i_parent_start, ngrid%j_parent_start, &
853 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
854 )
855 CALL copy_fcnm ( &
856 grid%msft, & ! CD field
857 cids, cide, 1, 1, cjds, cjde, & ! CD dims
858 cims, cime, 1, 1, cjms, cjme, & ! CD dims
859 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
860 ngrid%msft, & ! ND field
861 nids, nide, 1, 1, njds, njde, & ! ND dims
862 nims, nime, 1, 1, njms, njme, & ! ND dims
863 nips, nipe, 1, 1, njps, njpe, & ! ND dims
864 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
865 .FALSE., .FALSE., & ! xstag, ystag
866 ngrid%i_parent_start, ngrid%j_parent_start, &
867 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
868 )
869 CALL copy_fcnm ( &
870 grid%msfu, & ! CD field
871 cids, cide, 1, 1, cjds, cjde, & ! CD dims
872 cims, cime, 1, 1, cjms, cjme, & ! CD dims
873 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
874 ngrid%msfu, & ! ND field
875 nids, nide, 1, 1, njds, njde, & ! ND dims
876 nims, nime, 1, 1, njms, njme, & ! ND dims
877 nips, nipe, 1, 1, njps, njpe, & ! ND dims
878 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
879 .TRUE., .FALSE., & ! xstag, ystag
880 ngrid%i_parent_start, ngrid%j_parent_start, &
881 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
882 )
883 CALL copy_fcnm ( &
884 grid%msfv, & ! CD field
885 cids, cide, 1, 1, cjds, cjde, & ! CD dims
886 cims, cime, 1, 1, cjms, cjme, & ! CD dims
887 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
888 ngrid%msfv, & ! ND field
889 nids, nide, 1, 1, njds, njde, & ! ND dims
890 nims, nime, 1, 1, njms, njme, & ! ND dims
891 nips, nipe, 1, 1, njps, njpe, & ! ND dims
892 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
893 .FALSE., .TRUE., & ! xstag, ystag
894 ngrid%i_parent_start, ngrid%j_parent_start, &
895 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
896 )
897 CALL copy_fcnm ( &
898 grid%f, & ! CD field
899 cids, cide, 1, 1, cjds, cjde, & ! CD dims
900 cims, cime, 1, 1, cjms, cjme, & ! CD dims
901 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
902 ngrid%f, & ! ND field
903 nids, nide, 1, 1, njds, njde, & ! ND dims
904 nims, nime, 1, 1, njms, njme, & ! ND dims
905 nips, nipe, 1, 1, njps, njpe, & ! ND dims
906 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
907 .FALSE., .FALSE., & ! xstag, ystag
908 ngrid%i_parent_start, ngrid%j_parent_start, &
909 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
910 )
911 CALL copy_fcnm ( &
912 grid%e, & ! CD field
913 cids, cide, 1, 1, cjds, cjde, & ! CD dims
914 cims, cime, 1, 1, cjms, cjme, & ! CD dims
915 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
916 ngrid%e, & ! ND field
917 nids, nide, 1, 1, njds, njde, & ! ND dims
918 nims, nime, 1, 1, njms, njme, & ! ND dims
919 nips, nipe, 1, 1, njps, njpe, & ! ND dims
920 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
921 .FALSE., .FALSE., & ! xstag, ystag
922 ngrid%i_parent_start, ngrid%j_parent_start, &
923 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
924 )
925 CALL copy_fcnm ( &
926 grid%sina, & ! CD field
927 cids, cide, 1, 1, cjds, cjde, & ! CD dims
928 cims, cime, 1, 1, cjms, cjme, & ! CD dims
929 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
930 ngrid%sina, & ! ND field
931 nids, nide, 1, 1, njds, njde, & ! ND dims
932 nims, nime, 1, 1, njms, njme, & ! ND dims
933 nips, nipe, 1, 1, njps, njpe, & ! ND dims
934 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
935 .FALSE., .FALSE., & ! xstag, ystag
936 ngrid%i_parent_start, ngrid%j_parent_start, &
937 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
938 )
939 CALL copy_fcnm ( &
940 grid%cosa, & ! CD field
941 cids, cide, 1, 1, cjds, cjde, & ! CD dims
942 cims, cime, 1, 1, cjms, cjme, & ! CD dims
943 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
944 ngrid%cosa, & ! ND field
945 nids, nide, 1, 1, njds, njde, & ! ND dims
946 nims, nime, 1, 1, njms, njme, & ! ND dims
947 nips, nipe, 1, 1, njps, njpe, & ! ND dims
948 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
949 .FALSE., .FALSE., & ! xstag, ystag
950 ngrid%i_parent_start, ngrid%j_parent_start, &
951 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
952 )
953 CALL copy_fcn ( &
954 grid%ht, & ! CD field
955 cids, cide, 1, 1, cjds, cjde, & ! CD dims
956 cims, cime, 1, 1, cjms, cjme, & ! CD dims
957 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
958 ngrid%ht, & ! ND field
959 nids, nide, 1, 1, njds, njde, & ! ND dims
960 nims, nime, 1, 1, njms, njme, & ! ND dims
961 nips, nipe, 1, 1, njps, njpe, & ! ND dims
962 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
963 .FALSE., .FALSE., & ! xstag, ystag
964 ngrid%i_parent_start, ngrid%j_parent_start, &
965 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
966 )
967 CALL copy_fcnm ( &
968 grid%tsk, & ! CD field
969 cids, cide, 1, 1, cjds, cjde, & ! CD dims
970 cims, cime, 1, 1, cjms, cjme, & ! CD dims
971 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
972 ngrid%tsk, & ! ND field
973 nids, nide, 1, 1, njds, njde, & ! ND dims
974 nims, nime, 1, 1, njms, njme, & ! ND dims
975 nips, nipe, 1, 1, njps, njpe, & ! ND dims
976 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
977 .FALSE., .FALSE., & ! xstag, ystag
978 ngrid%i_parent_start, ngrid%j_parent_start, &
979 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
980 )
981 CALL copy_fcn ( &
982 grid%rainc, & ! CD field
983 cids, cide, 1, 1, cjds, cjde, & ! CD dims
984 cims, cime, 1, 1, cjms, cjme, & ! CD dims
985 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
986 ngrid%rainc, & ! ND field
987 nids, nide, 1, 1, njds, njde, & ! ND dims
988 nims, nime, 1, 1, njms, njme, & ! ND dims
989 nips, nipe, 1, 1, njps, njpe, & ! ND dims
990 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
991 .FALSE., .FALSE., & ! xstag, ystag
992 ngrid%i_parent_start, ngrid%j_parent_start, &
993 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
994 )
995 CALL copy_fcn ( &
996 grid%rainnc, & ! CD field
997 cids, cide, 1, 1, cjds, cjde, & ! CD dims
998 cims, cime, 1, 1, cjms, cjme, & ! CD dims
999 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
1000 ngrid%rainnc, & ! ND field
1001 nids, nide, 1, 1, njds, njde, & ! ND dims
1002 nims, nime, 1, 1, njms, njme, & ! ND dims
1003 nips, nipe, 1, 1, njps, njpe, & ! ND dims
1004 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
1005 .FALSE., .FALSE., & ! xstag, ystag
1006 ngrid%i_parent_start, ngrid%j_parent_start, &
1007 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
1008 )
1009 CALL copy_fcn ( &
1010 grid%snownc, & ! CD field
1011 cids, cide, 1, 1, cjds, cjde, & ! CD dims
1012 cims, cime, 1, 1, cjms, cjme, & ! CD dims
1013 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
1014 ngrid%snownc, & ! ND field
1015 nids, nide, 1, 1, njds, njde, & ! ND dims
1016 nims, nime, 1, 1, njms, njme, & ! ND dims
1017 nips, nipe, 1, 1, njps, njpe, & ! ND dims
1018 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
1019 .FALSE., .FALSE., & ! xstag, ystag
1020 ngrid%i_parent_start, ngrid%j_parent_start, &
1021 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
1022 )
1023 CALL copy_fcn ( &
1024 grid%graupelnc, & ! CD field
1025 cids, cide, 1, 1, cjds, cjde, & ! CD dims
1026 cims, cime, 1, 1, cjms, cjme, & ! CD dims
1027 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
1028 ngrid%graupelnc, & ! ND field
1029 nids, nide, 1, 1, njds, njde, & ! ND dims
1030 nims, nime, 1, 1, njms, njme, & ! ND dims
1031 nips, nipe, 1, 1, njps, njpe, & ! ND dims
1032 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
1033 .FALSE., .FALSE., & ! xstag, ystag
1034 ngrid%i_parent_start, ngrid%j_parent_start, &
1035 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
1036 )
1037 CALL copy_fcnm ( &
1038 grid%xlat, & ! CD field
1039 cids, cide, 1, 1, cjds, cjde, & ! CD dims
1040 cims, cime, 1, 1, cjms, cjme, & ! CD dims
1041 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
1042 ngrid%xlat, & ! ND field
1043 nids, nide, 1, 1, njds, njde, & ! ND dims
1044 nims, nime, 1, 1, njms, njme, & ! ND dims
1045 nips, nipe, 1, 1, njps, njpe, & ! ND dims
1046 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
1047 .FALSE., .FALSE., & ! xstag, ystag
1048 ngrid%i_parent_start, ngrid%j_parent_start, &
1049 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
1050 )
1051 CALL copy_fcnm ( &
1052 grid%xlong, & ! CD field
1053 cids, cide, 1, 1, cjds, cjde, & ! CD dims
1054 cims, cime, 1, 1, cjms, cjme, & ! CD dims
1055 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
1056 ngrid%xlong, & ! ND field
1057 nids, nide, 1, 1, njds, njde, & ! ND dims
1058 nims, nime, 1, 1, njms, njme, & ! ND dims
1059 nips, nipe, 1, 1, njps, njpe, & ! ND dims
1060 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
1061 .FALSE., .FALSE., & ! xstag, ystag
1062 ngrid%i_parent_start, ngrid%j_parent_start, &
1063 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
1064 )
1065 CALL copy_fcnm ( &
1066 grid%em_xlat_u, & ! CD field
1067 cids, cide, 1, 1, cjds, cjde, & ! CD dims
1068 cims, cime, 1, 1, cjms, cjme, & ! CD dims
1069 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
1070 ngrid%em_xlat_u, & ! ND field
1071 nids, nide, 1, 1, njds, njde, & ! ND dims
1072 nims, nime, 1, 1, njms, njme, & ! ND dims
1073 nips, nipe, 1, 1, njps, njpe, & ! ND dims
1074 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
1075 .TRUE., .FALSE., & ! xstag, ystag
1076 ngrid%i_parent_start, ngrid%j_parent_start, &
1077 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
1078 )
1079 CALL copy_fcnm ( &
1080 grid%em_xlong_u, & ! CD field
1081 cids, cide, 1, 1, cjds, cjde, & ! CD dims
1082 cims, cime, 1, 1, cjms, cjme, & ! CD dims
1083 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
1084 ngrid%em_xlong_u, & ! ND field
1085 nids, nide, 1, 1, njds, njde, & ! ND dims
1086 nims, nime, 1, 1, njms, njme, & ! ND dims
1087 nips, nipe, 1, 1, njps, njpe, & ! ND dims
1088 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
1089 .TRUE., .FALSE., & ! xstag, ystag
1090 ngrid%i_parent_start, ngrid%j_parent_start, &
1091 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
1092 )
1093 CALL copy_fcnm ( &
1094 grid%em_xlat_v, & ! CD field
1095 cids, cide, 1, 1, cjds, cjde, & ! CD dims
1096 cims, cime, 1, 1, cjms, cjme, & ! CD dims
1097 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
1098 ngrid%em_xlat_v, & ! ND field
1099 nids, nide, 1, 1, njds, njde, & ! ND dims
1100 nims, nime, 1, 1, njms, njme, & ! ND dims
1101 nips, nipe, 1, 1, njps, njpe, & ! ND dims
1102 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
1103 .FALSE., .TRUE., & ! xstag, ystag
1104 ngrid%i_parent_start, ngrid%j_parent_start, &
1105 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
1106 )
1107 CALL copy_fcnm ( &
1108 grid%em_xlong_v, & ! CD field
1109 cids, cide, 1, 1, cjds, cjde, & ! CD dims
1110 cims, cime, 1, 1, cjms, cjme, & ! CD dims
1111 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
1112 ngrid%em_xlong_v, & ! ND field
1113 nids, nide, 1, 1, njds, njde, & ! ND dims
1114 nims, nime, 1, 1, njms, njme, & ! ND dims
1115 nips, nipe, 1, 1, njps, njpe, & ! ND dims
1116 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
1117 .FALSE., .TRUE., & ! xstag, ystag
1118 ngrid%i_parent_start, ngrid%j_parent_start, &
1119 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
1120 )
1121 CALL copy_fcnm ( &
1122 grid%tmn, & ! CD field
1123 cids, cide, 1, 1, cjds, cjde, & ! CD dims
1124 cims, cime, 1, 1, cjms, cjme, & ! CD dims
1125 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
1126 ngrid%tmn, & ! ND field
1127 nids, nide, 1, 1, njds, njde, & ! ND dims
1128 nims, nime, 1, 1, njms, njme, & ! ND dims
1129 nips, nipe, 1, 1, njps, njpe, & ! ND dims
1130 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
1131 .FALSE., .FALSE., & ! xstag, ystag
1132 ngrid%i_parent_start, ngrid%j_parent_start, &
1133 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
1134 )
1135 CALL copy_fcnm ( &
1136 grid%xland, & ! CD field
1137 cids, cide, 1, 1, cjds, cjde, & ! CD dims
1138 cims, cime, 1, 1, cjms, cjme, & ! CD dims
1139 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
1140 ngrid%xland, & ! ND field
1141 nids, nide, 1, 1, njds, njde, & ! ND dims
1142 nims, nime, 1, 1, njms, njme, & ! ND dims
1143 nips, nipe, 1, 1, njps, njpe, & ! ND dims
1144 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
1145 .FALSE., .FALSE., & ! xstag, ystag
1146 ngrid%i_parent_start, ngrid%j_parent_start, &
1147 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
1148 )
1149 CALL copy_fcnm ( &
1150 grid%snowc, & ! CD field
1151 cids, cide, 1, 1, cjds, cjde, & ! CD dims
1152 cims, cime, 1, 1, cjms, cjme, & ! CD dims
1153 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
1154 ngrid%snowc, & ! ND field
1155 nids, nide, 1, 1, njds, njde, & ! ND dims
1156 nims, nime, 1, 1, njms, njme, & ! ND dims
1157 nips, nipe, 1, 1, njps, njpe, & ! ND dims
1158 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
1159 .FALSE., .FALSE., & ! xstag, ystag
1160 ngrid%i_parent_start, ngrid%j_parent_start, &
1161 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
1162 )
1163 !ENDOFREGISTRYGENERATEDINCLUDE