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, ckds, ckde, cjds, cjde, & ! CD dims
24 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
25 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
26 ngrid%em_u_2, & ! ND field
27 nids, nide, nkds, nkde, njds, njde, & ! ND dims
28 nims, nime, nkms, nkme, njms, njme, & ! ND dims
29 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! 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%a_u_2, & ! CD field
37 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
38 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
39 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
40 ngrid%a_u_2, & ! ND field
41 nids, nide, nkds, nkde, njds, njde, & ! ND dims
42 nims, nime, nkms, nkme, njms, njme, & ! ND dims
43 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! 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%g_u_2, & ! CD field
51 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
52 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
53 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
54 ngrid%g_u_2, & ! ND field
55 nids, nide, nkds, nkde, njds, njde, & ! ND dims
56 nims, nime, nkms, nkme, njms, njme, & ! ND dims
57 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! 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, ckds, ckde, cjds, cjde, & ! CD dims
66 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
67 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
68 ngrid%em_v_2, & ! ND field
69 nids, nide, nkds, nkde, njds, njde, & ! ND dims
70 nims, nime, nkms, nkme, njms, njme, & ! ND dims
71 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! 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%a_v_2, & ! CD field
79 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
80 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
81 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
82 ngrid%a_v_2, & ! ND field
83 nids, nide, nkds, nkde, njds, njde, & ! ND dims
84 nims, nime, nkms, nkme, njms, njme, & ! ND dims
85 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! 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%g_v_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-1), ckpe ), cjps, cjpe, & ! CD dims
96 ngrid%g_v_2, & ! ND field
97 nids, nide, nkds, nkde, njds, njde, & ! ND dims
98 nims, nime, nkms, nkme, njms, njme, & ! ND dims
99 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! 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, ckds, ckde, cjds, cjde, & ! CD dims
108 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
109 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
110 ngrid%em_w_2, & ! ND field
111 nids, nide, nkds, nkde, njds, njde, & ! ND dims
112 nims, nime, nkms, nkme, njms, njme, & ! ND dims
113 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! 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%a_w_2, & ! CD field
121 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
122 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
123 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
124 ngrid%a_w_2, & ! ND field
125 nids, nide, nkds, nkde, njds, njde, & ! ND dims
126 nims, nime, nkms, nkme, njms, njme, & ! ND dims
127 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! 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%g_w_2, & ! CD field
135 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
136 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
137 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
138 ngrid%g_w_2, & ! ND field
139 nids, nide, nkds, nkde, njds, njde, & ! ND dims
140 nims, nime, nkms, nkme, njms, njme, & ! ND dims
141 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! 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, ckds, ckde, cjds, cjde, & ! CD dims
150 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
151 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
152 ngrid%em_ph_2, & ! ND field
153 nids, nide, nkds, nkde, njds, njde, & ! ND dims
154 nims, nime, nkms, nkme, njms, njme, & ! ND dims
155 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! 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%a_ph_2, & ! CD field
163 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
164 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
165 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
166 ngrid%a_ph_2, & ! ND field
167 nids, nide, nkds, nkde, njds, njde, & ! ND dims
168 nims, nime, nkms, nkme, njms, njme, & ! ND dims
169 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! 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%g_ph_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, ckpe ), cjps, cjpe, & ! CD dims
180 ngrid%g_ph_2, & ! ND field
181 nids, nide, nkds, nkde, njds, njde, & ! ND dims
182 nims, nime, nkms, nkme, njms, njme, & ! ND dims
183 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! 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, ckds, ckde, cjds, cjde, & ! CD dims
192 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
193 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
194 ngrid%em_phb, & ! ND field
195 nids, nide, nkds, nkde, njds, njde, & ! ND dims
196 nims, nime, nkms, nkme, njms, njme, & ! ND dims
197 nips, nipe, nkps, MIN( nkde, nkpe ), njps, njpe, & ! 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_t_2, & ! CD field
205 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
206 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
207 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
208 ngrid%em_t_2, & ! ND field
209 nids, nide, nkds, nkde, njds, njde, & ! ND dims
210 nims, nime, nkms, nkme, njms, njme, & ! ND dims
211 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! 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%a_t_2, & ! CD field
219 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
220 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
221 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
222 ngrid%a_t_2, & ! ND field
223 nids, nide, nkds, nkde, njds, njde, & ! ND dims
224 nims, nime, nkms, nkme, njms, njme, & ! ND dims
225 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! 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%g_t_2, & ! CD field
233 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
234 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
235 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
236 ngrid%g_t_2, & ! ND field
237 nids, nide, nkds, nkde, njds, njde, & ! ND dims
238 nims, nime, nkms, nkme, njms, njme, & ! ND dims
239 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! 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_mu_2, & ! CD field
247 cids, cide, 1, 1, cjds, cjde, & ! CD dims
248 cims, cime, 1, 1, cjms, cjme, & ! CD dims
249 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
250 ngrid%em_mu_2, & ! ND field
251 nids, nide, 1, 1, njds, njde, & ! ND dims
252 nims, nime, 1, 1, njms, njme, & ! ND dims
253 nips, nipe, 1, 1, njps, njpe, & ! 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%a_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 ngrid%a_mu_2, & ! ND field
265 nids, nide, 1, 1, njds, njde, & ! ND dims
266 nims, nime, 1, 1, njms, njme, & ! ND dims
267 nips, nipe, 1, 1, njps, njpe, & ! 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%g_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%g_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_mub, & ! 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_mub, & ! 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_mu0, & ! 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_mu0, & ! 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 mark_domain ( &
316 grid%nest_pos, & ! 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%nest_pos, & ! 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 mark_domain ( &
330 grid%nest_mask, & ! 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%nest_mask, & ! 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 DO itrace = PARAM_FIRST_SCALAR, num_moist
344 CALL copy_fcn ( &
345 moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
346 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
347 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
348 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
349 ngrid%moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
350 nids, nide, nkds, nkde, njds, njde, & ! ND dims
351 nims, nime, nkms, nkme, njms, njme, & ! ND dims
352 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
353 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
354 .FALSE., .FALSE., & ! xstag, ystag
355 ngrid%i_parent_start, ngrid%j_parent_start, &
356 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
357 )
358 ENDDO
359 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
360 CALL copy_fcn ( &
361 a_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
362 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
363 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
364 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
365 ngrid%a_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
366 nids, nide, nkds, nkde, njds, njde, & ! ND dims
367 nims, nime, nkms, nkme, njms, njme, & ! ND dims
368 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
369 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
370 .FALSE., .FALSE., & ! xstag, ystag
371 ngrid%i_parent_start, ngrid%j_parent_start, &
372 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
373 )
374 ENDDO
375 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
376 CALL copy_fcn ( &
377 g_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
378 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
379 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
380 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
381 ngrid%g_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
382 nids, nide, nkds, nkde, njds, njde, & ! ND dims
383 nims, nime, nkms, nkme, njms, njme, & ! ND dims
384 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
385 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
386 .FALSE., .FALSE., & ! xstag, ystag
387 ngrid%i_parent_start, ngrid%j_parent_start, &
388 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
389 )
390 ENDDO
391 DO itrace = PARAM_FIRST_SCALAR, num_scalar
392 CALL copy_fcn ( &
393 scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
394 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
395 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
396 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
397 ngrid%scalar(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
398 nids, nide, nkds, nkde, njds, njde, & ! ND dims
399 nims, nime, nkms, nkme, njms, njme, & ! ND dims
400 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
401 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
402 .FALSE., .FALSE., & ! xstag, ystag
403 ngrid%i_parent_start, ngrid%j_parent_start, &
404 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
405 )
406 ENDDO
407 CALL copy_fcnm ( &
408 grid%landmask, & ! CD field
409 cids, cide, 1, 1, cjds, cjde, & ! CD dims
410 cims, cime, 1, 1, cjms, cjme, & ! CD dims
411 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
412 ngrid%landmask, & ! ND field
413 nids, nide, 1, 1, njds, njde, & ! ND dims
414 nims, nime, 1, 1, njms, njme, & ! ND dims
415 nips, nipe, 1, 1, njps, njpe, & ! ND dims
416 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
417 .FALSE., .FALSE., & ! xstag, ystag
418 ngrid%i_parent_start, ngrid%j_parent_start, &
419 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
420 )
421 CALL copy_fcnm ( &
422 grid%tslb, & ! CD field
423 cids, cide, 1, config_flags%num_soil_layers, cjds, cjde, & ! CD dims
424 cims, cime, 1, config_flags%num_soil_layers, cjms, cjme, & ! CD dims
425 cips, cipe, 1, config_flags%num_soil_layers, cjps, cjpe, & ! CD dims
426 ngrid%tslb, & ! ND field
427 nids, nide, 1, config_flags%num_soil_layers, njds, njde, & ! ND dims
428 nims, nime, 1, config_flags%num_soil_layers, njms, njme, & ! ND dims
429 nips, nipe, 1, config_flags%num_soil_layers, njps, njpe, & ! ND dims
430 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
431 .FALSE., .FALSE., & ! xstag, ystag
432 ngrid%i_parent_start, ngrid%j_parent_start, &
433 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
434 )
435 CALL copy_fcnm ( &
436 grid%smois, & ! CD field
437 cids, cide, 1, config_flags%num_soil_layers, cjds, cjde, & ! CD dims
438 cims, cime, 1, config_flags%num_soil_layers, cjms, cjme, & ! CD dims
439 cips, cipe, 1, config_flags%num_soil_layers, cjps, cjpe, & ! CD dims
440 ngrid%smois, & ! ND field
441 nids, nide, 1, config_flags%num_soil_layers, njds, njde, & ! ND dims
442 nims, nime, 1, config_flags%num_soil_layers, njms, njme, & ! ND dims
443 nips, nipe, 1, config_flags%num_soil_layers, njps, njpe, & ! ND dims
444 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
445 .FALSE., .FALSE., & ! xstag, ystag
446 ngrid%i_parent_start, ngrid%j_parent_start, &
447 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
448 )
449 CALL copy_fcnm ( &
450 grid%sh2o, & ! CD field
451 cids, cide, 1, config_flags%num_soil_layers, cjds, cjde, & ! CD dims
452 cims, cime, 1, config_flags%num_soil_layers, cjms, cjme, & ! CD dims
453 cips, cipe, 1, config_flags%num_soil_layers, cjps, cjpe, & ! CD dims
454 ngrid%sh2o, & ! ND field
455 nids, nide, 1, config_flags%num_soil_layers, njds, njde, & ! ND dims
456 nims, nime, 1, config_flags%num_soil_layers, njms, njme, & ! ND dims
457 nips, nipe, 1, config_flags%num_soil_layers, njps, njpe, & ! ND dims
458 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
459 .FALSE., .FALSE., & ! xstag, ystag
460 ngrid%i_parent_start, ngrid%j_parent_start, &
461 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
462 )
463 CALL copy_fcnm ( &
464 grid%xice, & ! CD field
465 cids, cide, 1, 1, cjds, cjde, & ! CD dims
466 cims, cime, 1, 1, cjms, cjme, & ! CD dims
467 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
468 ngrid%xice, & ! ND field
469 nids, nide, 1, 1, njds, njde, & ! ND dims
470 nims, nime, 1, 1, njms, njme, & ! ND dims
471 nips, nipe, 1, 1, njps, njpe, & ! ND dims
472 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
473 .FALSE., .FALSE., & ! xstag, ystag
474 ngrid%i_parent_start, ngrid%j_parent_start, &
475 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
476 )
477 CALL copy_fcni ( &
478 grid%ivgtyp, & ! CD field
479 cids, cide, 1, 1, cjds, cjde, & ! CD dims
480 cims, cime, 1, 1, cjms, cjme, & ! CD dims
481 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
482 ngrid%ivgtyp, & ! ND field
483 nids, nide, 1, 1, njds, njde, & ! ND dims
484 nims, nime, 1, 1, njms, njme, & ! ND dims
485 nips, nipe, 1, 1, njps, njpe, & ! ND dims
486 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
487 .FALSE., .FALSE., & ! xstag, ystag
488 ngrid%i_parent_start, ngrid%j_parent_start, &
489 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
490 )
491 CALL copy_fcni ( &
492 grid%isltyp, & ! CD field
493 cids, cide, 1, 1, cjds, cjde, & ! CD dims
494 cims, cime, 1, 1, cjms, cjme, & ! CD dims
495 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
496 ngrid%isltyp, & ! ND field
497 nids, nide, 1, 1, njds, njde, & ! ND dims
498 nims, nime, 1, 1, njms, njme, & ! ND dims
499 nips, nipe, 1, 1, njps, njpe, & ! ND dims
500 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
501 .FALSE., .FALSE., & ! xstag, ystag
502 ngrid%i_parent_start, ngrid%j_parent_start, &
503 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
504 )
505 CALL copy_fcnm ( &
506 grid%vegfra, & ! CD field
507 cids, cide, 1, 1, cjds, cjde, & ! CD dims
508 cims, cime, 1, 1, cjms, cjme, & ! CD dims
509 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
510 ngrid%vegfra, & ! ND field
511 nids, nide, 1, 1, njds, njde, & ! ND dims
512 nims, nime, 1, 1, njms, njme, & ! ND dims
513 nips, nipe, 1, 1, njps, njpe, & ! ND dims
514 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
515 .FALSE., .FALSE., & ! xstag, ystag
516 ngrid%i_parent_start, ngrid%j_parent_start, &
517 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
518 )
519 CALL copy_fcnm ( &
520 grid%acsnow, & ! CD field
521 cids, cide, 1, 1, cjds, cjde, & ! CD dims
522 cims, cime, 1, 1, cjms, cjme, & ! CD dims
523 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
524 ngrid%acsnow, & ! ND field
525 nids, nide, 1, 1, njds, njde, & ! ND dims
526 nims, nime, 1, 1, njms, njme, & ! ND dims
527 nips, nipe, 1, 1, njps, njpe, & ! ND dims
528 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
529 .FALSE., .FALSE., & ! xstag, ystag
530 ngrid%i_parent_start, ngrid%j_parent_start, &
531 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
532 )
533 CALL copy_fcnm ( &
534 grid%acsnom, & ! CD field
535 cids, cide, 1, 1, cjds, cjde, & ! CD dims
536 cims, cime, 1, 1, cjms, cjme, & ! CD dims
537 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
538 ngrid%acsnom, & ! ND field
539 nids, nide, 1, 1, njds, njde, & ! ND dims
540 nims, nime, 1, 1, njms, njme, & ! ND dims
541 nips, nipe, 1, 1, njps, njpe, & ! ND dims
542 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
543 .FALSE., .FALSE., & ! xstag, ystag
544 ngrid%i_parent_start, ngrid%j_parent_start, &
545 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
546 )
547 CALL copy_fcnm ( &
548 grid%snow, & ! CD field
549 cids, cide, 1, 1, cjds, cjde, & ! CD dims
550 cims, cime, 1, 1, cjms, cjme, & ! CD dims
551 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
552 ngrid%snow, & ! ND field
553 nids, nide, 1, 1, njds, njde, & ! ND dims
554 nims, nime, 1, 1, njms, njme, & ! ND dims
555 nips, nipe, 1, 1, njps, njpe, & ! ND dims
556 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
557 .FALSE., .FALSE., & ! xstag, ystag
558 ngrid%i_parent_start, ngrid%j_parent_start, &
559 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
560 )
561 CALL copy_fcnm ( &
562 grid%snowh, & ! CD field
563 cids, cide, 1, 1, cjds, cjde, & ! CD dims
564 cims, cime, 1, 1, cjms, cjme, & ! CD dims
565 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
566 ngrid%snowh, & ! ND field
567 nids, nide, 1, 1, njds, njde, & ! ND dims
568 nims, nime, 1, 1, njms, njme, & ! ND dims
569 nips, nipe, 1, 1, njps, njpe, & ! ND dims
570 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
571 .FALSE., .FALSE., & ! xstag, ystag
572 ngrid%i_parent_start, ngrid%j_parent_start, &
573 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
574 )
575 CALL copy_fcnm ( &
576 grid%rhosn, & ! CD field
577 cids, cide, 1, 1, cjds, cjde, & ! CD dims
578 cims, cime, 1, 1, cjms, cjme, & ! CD dims
579 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
580 ngrid%rhosn, & ! ND field
581 nids, nide, 1, 1, njds, njde, & ! ND dims
582 nims, nime, 1, 1, njms, njme, & ! ND dims
583 nips, nipe, 1, 1, njps, njpe, & ! ND dims
584 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
585 .FALSE., .FALSE., & ! xstag, ystag
586 ngrid%i_parent_start, ngrid%j_parent_start, &
587 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
588 )
589 CALL copy_fcnm ( &
590 grid%canwat, & ! CD field
591 cids, cide, 1, 1, cjds, cjde, & ! CD dims
592 cims, cime, 1, 1, cjms, cjme, & ! CD dims
593 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
594 ngrid%canwat, & ! ND field
595 nids, nide, 1, 1, njds, njde, & ! ND dims
596 nims, nime, 1, 1, njms, njme, & ! ND dims
597 nips, nipe, 1, 1, njps, njpe, & ! ND dims
598 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
599 .FALSE., .FALSE., & ! xstag, ystag
600 ngrid%i_parent_start, ngrid%j_parent_start, &
601 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
602 )
603 CALL copy_fcnm ( &
604 grid%msft, & ! CD field
605 cids, cide, 1, 1, cjds, cjde, & ! CD dims
606 cims, cime, 1, 1, cjms, cjme, & ! CD dims
607 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
608 ngrid%msft, & ! ND field
609 nids, nide, 1, 1, njds, njde, & ! ND dims
610 nims, nime, 1, 1, njms, njme, & ! ND dims
611 nips, nipe, 1, 1, njps, njpe, & ! ND dims
612 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
613 .FALSE., .FALSE., & ! xstag, ystag
614 ngrid%i_parent_start, ngrid%j_parent_start, &
615 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
616 )
617 CALL copy_fcnm ( &
618 grid%msfu, & ! CD field
619 cids, cide, 1, 1, cjds, cjde, & ! CD dims
620 cims, cime, 1, 1, cjms, cjme, & ! CD dims
621 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
622 ngrid%msfu, & ! ND field
623 nids, nide, 1, 1, njds, njde, & ! ND dims
624 nims, nime, 1, 1, njms, njme, & ! ND dims
625 nips, nipe, 1, 1, njps, njpe, & ! ND dims
626 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
627 .TRUE., .FALSE., & ! xstag, ystag
628 ngrid%i_parent_start, ngrid%j_parent_start, &
629 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
630 )
631 CALL copy_fcnm ( &
632 grid%msfv, & ! CD field
633 cids, cide, 1, 1, cjds, cjde, & ! CD dims
634 cims, cime, 1, 1, cjms, cjme, & ! CD dims
635 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
636 ngrid%msfv, & ! ND field
637 nids, nide, 1, 1, njds, njde, & ! ND dims
638 nims, nime, 1, 1, njms, njme, & ! ND dims
639 nips, nipe, 1, 1, njps, njpe, & ! ND dims
640 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
641 .FALSE., .TRUE., & ! xstag, ystag
642 ngrid%i_parent_start, ngrid%j_parent_start, &
643 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
644 )
645 CALL copy_fcnm ( &
646 grid%f, & ! CD field
647 cids, cide, 1, 1, cjds, cjde, & ! CD dims
648 cims, cime, 1, 1, cjms, cjme, & ! CD dims
649 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
650 ngrid%f, & ! ND field
651 nids, nide, 1, 1, njds, njde, & ! ND dims
652 nims, nime, 1, 1, njms, njme, & ! ND dims
653 nips, nipe, 1, 1, njps, njpe, & ! ND dims
654 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
655 .FALSE., .FALSE., & ! xstag, ystag
656 ngrid%i_parent_start, ngrid%j_parent_start, &
657 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
658 )
659 CALL copy_fcnm ( &
660 grid%e, & ! 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%e, & ! 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%sina, & ! CD field
675 cids, cide, 1, 1, cjds, cjde, & ! CD dims
676 cims, cime, 1, 1, cjms, cjme, & ! CD dims
677 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
678 ngrid%sina, & ! ND field
679 nids, nide, 1, 1, njds, njde, & ! ND dims
680 nims, nime, 1, 1, njms, njme, & ! ND dims
681 nips, nipe, 1, 1, njps, njpe, & ! 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%cosa, & ! CD field
689 cids, cide, 1, 1, cjds, cjde, & ! CD dims
690 cims, cime, 1, 1, cjms, cjme, & ! CD dims
691 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
692 ngrid%cosa, & ! ND field
693 nids, nide, 1, 1, njds, njde, & ! ND dims
694 nims, nime, 1, 1, njms, njme, & ! ND dims
695 nips, nipe, 1, 1, njps, njpe, & ! 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_fcn ( &
702 grid%ht, & ! CD field
703 cids, cide, 1, 1, cjds, cjde, & ! CD dims
704 cims, cime, 1, 1, cjms, cjme, & ! CD dims
705 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
706 ngrid%ht, & ! ND field
707 nids, nide, 1, 1, njds, njde, & ! ND dims
708 nims, nime, 1, 1, njms, njme, & ! ND dims
709 nips, nipe, 1, 1, njps, njpe, & ! 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%tsk, & ! 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%tsk, & ! 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_fcn ( &
730 grid%rainc, & ! 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%rainc, & ! 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_fcn ( &
744 grid%rainnc, & ! 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%rainnc, & ! 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%xlat, & ! 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%xlat, & ! 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%xlong, & ! 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%xlong, & ! 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%em_xlat_u, & ! 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%em_xlat_u, & ! 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_xstag, & ! stencil half width
795 .TRUE., .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%em_xlong_u, & ! 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%em_xlong_u, & ! 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_xstag, & ! stencil half width
809 .TRUE., .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%em_xlat_v, & ! 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%em_xlat_v, & ! 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_ystag, & ! stencil half width
823 .FALSE., .TRUE., & ! 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%em_xlong_v, & ! 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%em_xlong_v, & ! 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_ystag, & ! stencil half width
837 .FALSE., .TRUE., & ! 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%tmn, & ! 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%tmn, & ! 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%xland, & ! 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%xland, & ! 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%snowc, & ! 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%snowc, & ! 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_nostag, & ! stencil half width
879 .FALSE., .FALSE., & ! xstag, ystag
880 ngrid%i_parent_start, ngrid%j_parent_start, &
881 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
882 )
883 !ENDOFREGISTRYGENERATEDINCLUDE