nodyn_nest_feedbackup_interp.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/nodyn_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 mark_domain ( &
22 grid%nest_pos, & ! CD field
23 cids, cide, 1, 1, cjds, cjde, & ! CD dims
24 cims, cime, 1, 1, cjms, cjme, & ! CD dims
25 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
26 ngrid%nest_pos, & ! ND field
27 nids, nide, 1, 1, njds, njde, & ! ND dims
28 nims, nime, 1, 1, njms, njme, & ! ND dims
29 nips, nipe, 1, 1, njps, njpe, & ! ND dims
30 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
31 .FALSE., .FALSE., & ! xstag, ystag
32 ngrid%i_parent_start, ngrid%j_parent_start, &
33 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
34 )
35 CALL mark_domain ( &
36 grid%nest_mask, & ! CD field
37 cids, cide, 1, 1, cjds, cjde, & ! CD dims
38 cims, cime, 1, 1, cjms, cjme, & ! CD dims
39 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
40 ngrid%nest_mask, & ! ND field
41 nids, nide, 1, 1, njds, njde, & ! ND dims
42 nims, nime, 1, 1, njms, njme, & ! ND dims
43 nips, nipe, 1, 1, njps, njpe, & ! ND dims
44 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
45 .FALSE., .FALSE., & ! xstag, ystag
46 ngrid%i_parent_start, ngrid%j_parent_start, &
47 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
48 )
49 DO itrace = PARAM_FIRST_SCALAR, num_moist
50 CALL copy_fcn ( &
51 moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
52 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
53 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
54 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
55 ngrid%moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
56 nids, nide, njds, njde, nkds, nkde, & ! ND dims
57 nims, nime, njms, njme, nkms, nkme, & ! ND dims
58 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
59 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
60 .FALSE., .FALSE., & ! xstag, ystag
61 ngrid%i_parent_start, ngrid%j_parent_start, &
62 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
63 )
64 ENDDO
65 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
66 CALL copy_fcn ( &
67 a_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
68 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
69 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
70 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
71 ngrid%a_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
72 nids, nide, njds, njde, nkds, nkde, & ! ND dims
73 nims, nime, njms, njme, nkms, nkme, & ! ND dims
74 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
75 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
76 .FALSE., .FALSE., & ! xstag, ystag
77 ngrid%i_parent_start, ngrid%j_parent_start, &
78 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
79 )
80 ENDDO
81 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
82 CALL copy_fcn ( &
83 g_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
84 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
85 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
86 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
87 ngrid%g_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
88 nids, nide, njds, njde, nkds, nkde, & ! ND dims
89 nims, nime, njms, njme, nkms, nkme, & ! ND dims
90 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
91 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
92 .FALSE., .FALSE., & ! xstag, ystag
93 ngrid%i_parent_start, ngrid%j_parent_start, &
94 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
95 )
96 ENDDO
97 DO itrace = PARAM_FIRST_SCALAR, num_scalar
98 CALL copy_fcn ( &
99 scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
100 cids, cide, cjds, cjde, ckds, ckde, & ! CD dims
101 cims, cime, cjms, cjme, ckms, ckme, & ! CD dims
102 cips, cipe, cjps, MIN( (cjde-1), cjpe ), ckps, ckpe, & ! CD dims
103 ngrid%scalar(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
104 nids, nide, njds, njde, nkds, nkde, & ! ND dims
105 nims, nime, njms, njme, nkms, nkme, & ! ND dims
106 nips, nipe, njps, MIN( (njde-1), njpe ), nkps, nkpe, & ! ND dims
107 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
108 .FALSE., .FALSE., & ! xstag, ystag
109 ngrid%i_parent_start, ngrid%j_parent_start, &
110 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
111 )
112 ENDDO
113 CALL copy_fcnm ( &
114 grid%landmask, & ! CD field
115 cids, cide, 1, 1, cjds, cjde, & ! CD dims
116 cims, cime, 1, 1, cjms, cjme, & ! CD dims
117 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
118 ngrid%landmask, & ! ND field
119 nids, nide, 1, 1, njds, njde, & ! ND dims
120 nims, nime, 1, 1, njms, njme, & ! ND dims
121 nips, nipe, 1, 1, njps, njpe, & ! ND dims
122 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
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 copy_fcnm ( &
128 grid%tslb, & ! CD field
129 cids, cide, cjds, cjde, 1, config_flags%num_soil_layers, & ! CD dims
130 cims, cime, cjms, cjme, 1, config_flags%num_soil_layers, & ! CD dims
131 cips, cipe, cjps, MIN( (cjde-1), cjpe ), 1, config_flags%num_soil_layers, & ! CD dims
132 ngrid%tslb, & ! ND field
133 nids, nide, njds, njde, 1, config_flags%num_soil_layers, & ! ND dims
134 nims, nime, njms, njme, 1, config_flags%num_soil_layers, & ! ND dims
135 nips, nipe, njps, MIN( (njde-1), njpe ), 1, config_flags%num_soil_layers, & ! ND dims
136 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
137 .FALSE., .FALSE., & ! xstag, ystag
138 ngrid%i_parent_start, ngrid%j_parent_start, &
139 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
140 )
141 CALL copy_fcnm ( &
142 grid%smois, & ! CD field
143 cids, cide, cjds, cjde, 1, config_flags%num_soil_layers, & ! CD dims
144 cims, cime, cjms, cjme, 1, config_flags%num_soil_layers, & ! CD dims
145 cips, cipe, cjps, MIN( (cjde-1), cjpe ), 1, config_flags%num_soil_layers, & ! CD dims
146 ngrid%smois, & ! ND field
147 nids, nide, njds, njde, 1, config_flags%num_soil_layers, & ! ND dims
148 nims, nime, njms, njme, 1, config_flags%num_soil_layers, & ! ND dims
149 nips, nipe, njps, MIN( (njde-1), njpe ), 1, config_flags%num_soil_layers, & ! ND dims
150 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
151 .FALSE., .FALSE., & ! xstag, ystag
152 ngrid%i_parent_start, ngrid%j_parent_start, &
153 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
154 )
155 CALL copy_fcnm ( &
156 grid%sh2o, & ! CD field
157 cids, cide, cjds, cjde, 1, config_flags%num_soil_layers, & ! CD dims
158 cims, cime, cjms, cjme, 1, config_flags%num_soil_layers, & ! CD dims
159 cips, cipe, cjps, MIN( (cjde-1), cjpe ), 1, config_flags%num_soil_layers, & ! CD dims
160 ngrid%sh2o, & ! ND field
161 nids, nide, njds, njde, 1, config_flags%num_soil_layers, & ! ND dims
162 nims, nime, njms, njme, 1, config_flags%num_soil_layers, & ! ND dims
163 nips, nipe, njps, MIN( (njde-1), njpe ), 1, config_flags%num_soil_layers, & ! ND dims
164 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
165 .FALSE., .FALSE., & ! xstag, ystag
166 ngrid%i_parent_start, ngrid%j_parent_start, &
167 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
168 )
169 CALL copy_fcnm ( &
170 grid%xice, & ! CD field
171 cids, cide, 1, 1, cjds, cjde, & ! CD dims
172 cims, cime, 1, 1, cjms, cjme, & ! CD dims
173 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
174 ngrid%xice, & ! ND field
175 nids, nide, 1, 1, njds, njde, & ! ND dims
176 nims, nime, 1, 1, njms, njme, & ! ND dims
177 nips, nipe, 1, 1, njps, njpe, & ! ND dims
178 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
179 .FALSE., .FALSE., & ! xstag, ystag
180 ngrid%i_parent_start, ngrid%j_parent_start, &
181 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
182 )
183 CALL copy_fcni ( &
184 grid%ivgtyp, & ! CD field
185 cids, cide, 1, 1, cjds, cjde, & ! CD dims
186 cims, cime, 1, 1, cjms, cjme, & ! CD dims
187 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
188 ngrid%ivgtyp, & ! ND field
189 nids, nide, 1, 1, njds, njde, & ! ND dims
190 nims, nime, 1, 1, njms, njme, & ! ND dims
191 nips, nipe, 1, 1, njps, njpe, & ! ND dims
192 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
193 .FALSE., .FALSE., & ! xstag, ystag
194 ngrid%i_parent_start, ngrid%j_parent_start, &
195 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
196 )
197 CALL copy_fcni ( &
198 grid%isltyp, & ! CD field
199 cids, cide, 1, 1, cjds, cjde, & ! CD dims
200 cims, cime, 1, 1, cjms, cjme, & ! CD dims
201 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
202 ngrid%isltyp, & ! ND field
203 nids, nide, 1, 1, njds, njde, & ! ND dims
204 nims, nime, 1, 1, njms, njme, & ! ND dims
205 nips, nipe, 1, 1, njps, njpe, & ! ND dims
206 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
207 .FALSE., .FALSE., & ! xstag, ystag
208 ngrid%i_parent_start, ngrid%j_parent_start, &
209 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
210 )
211 CALL copy_fcnm ( &
212 grid%vegfra, & ! CD field
213 cids, cide, 1, 1, cjds, cjde, & ! CD dims
214 cims, cime, 1, 1, cjms, cjme, & ! CD dims
215 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
216 ngrid%vegfra, & ! ND field
217 nids, nide, 1, 1, njds, njde, & ! ND dims
218 nims, nime, 1, 1, njms, njme, & ! ND dims
219 nips, nipe, 1, 1, njps, njpe, & ! ND dims
220 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
221 .FALSE., .FALSE., & ! xstag, ystag
222 ngrid%i_parent_start, ngrid%j_parent_start, &
223 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
224 )
225 CALL copy_fcnm ( &
226 grid%acsnow, & ! CD field
227 cids, cide, 1, 1, cjds, cjde, & ! CD dims
228 cims, cime, 1, 1, cjms, cjme, & ! CD dims
229 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
230 ngrid%acsnow, & ! ND field
231 nids, nide, 1, 1, njds, njde, & ! ND dims
232 nims, nime, 1, 1, njms, njme, & ! ND dims
233 nips, nipe, 1, 1, njps, njpe, & ! ND dims
234 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
235 .FALSE., .FALSE., & ! xstag, ystag
236 ngrid%i_parent_start, ngrid%j_parent_start, &
237 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
238 )
239 CALL copy_fcnm ( &
240 grid%acsnom, & ! CD field
241 cids, cide, 1, 1, cjds, cjde, & ! CD dims
242 cims, cime, 1, 1, cjms, cjme, & ! CD dims
243 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
244 ngrid%acsnom, & ! ND field
245 nids, nide, 1, 1, njds, njde, & ! ND dims
246 nims, nime, 1, 1, njms, njme, & ! ND dims
247 nips, nipe, 1, 1, njps, njpe, & ! ND dims
248 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
249 .FALSE., .FALSE., & ! xstag, ystag
250 ngrid%i_parent_start, ngrid%j_parent_start, &
251 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
252 )
253 CALL copy_fcnm ( &
254 grid%snow, & ! CD field
255 cids, cide, 1, 1, cjds, cjde, & ! CD dims
256 cims, cime, 1, 1, cjms, cjme, & ! CD dims
257 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
258 ngrid%snow, & ! ND field
259 nids, nide, 1, 1, njds, njde, & ! ND dims
260 nims, nime, 1, 1, njms, njme, & ! ND dims
261 nips, nipe, 1, 1, njps, njpe, & ! ND dims
262 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
263 .FALSE., .FALSE., & ! xstag, ystag
264 ngrid%i_parent_start, ngrid%j_parent_start, &
265 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
266 )
267 CALL copy_fcnm ( &
268 grid%snowh, & ! CD field
269 cids, cide, 1, 1, cjds, cjde, & ! CD dims
270 cims, cime, 1, 1, cjms, cjme, & ! CD dims
271 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
272 ngrid%snowh, & ! ND field
273 nids, nide, 1, 1, njds, njde, & ! ND dims
274 nims, nime, 1, 1, njms, njme, & ! ND dims
275 nips, nipe, 1, 1, njps, njpe, & ! ND dims
276 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
277 .FALSE., .FALSE., & ! xstag, ystag
278 ngrid%i_parent_start, ngrid%j_parent_start, &
279 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
280 )
281 CALL copy_fcnm ( &
282 grid%rhosn, & ! CD field
283 cids, cide, 1, 1, cjds, cjde, & ! CD dims
284 cims, cime, 1, 1, cjms, cjme, & ! CD dims
285 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
286 ngrid%rhosn, & ! ND field
287 nids, nide, 1, 1, njds, njde, & ! ND dims
288 nims, nime, 1, 1, njms, njme, & ! ND dims
289 nips, nipe, 1, 1, njps, njpe, & ! ND dims
290 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
291 .FALSE., .FALSE., & ! xstag, ystag
292 ngrid%i_parent_start, ngrid%j_parent_start, &
293 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
294 )
295 CALL copy_fcnm ( &
296 grid%canwat, & ! CD field
297 cids, cide, 1, 1, cjds, cjde, & ! CD dims
298 cims, cime, 1, 1, cjms, cjme, & ! CD dims
299 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
300 ngrid%canwat, & ! ND field
301 nids, nide, 1, 1, njds, njde, & ! ND dims
302 nims, nime, 1, 1, njms, njme, & ! ND dims
303 nips, nipe, 1, 1, njps, njpe, & ! ND dims
304 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
305 .FALSE., .FALSE., & ! xstag, ystag
306 ngrid%i_parent_start, ngrid%j_parent_start, &
307 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
308 )
309 CALL copy_fcnm ( &
310 grid%msft, & ! CD field
311 cids, cide, 1, 1, cjds, cjde, & ! CD dims
312 cims, cime, 1, 1, cjms, cjme, & ! CD dims
313 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
314 ngrid%msft, & ! ND field
315 nids, nide, 1, 1, njds, njde, & ! ND dims
316 nims, nime, 1, 1, njms, njme, & ! ND dims
317 nips, nipe, 1, 1, njps, njpe, & ! ND dims
318 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
319 .FALSE., .FALSE., & ! xstag, ystag
320 ngrid%i_parent_start, ngrid%j_parent_start, &
321 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
322 )
323 CALL copy_fcnm ( &
324 grid%msfu, & ! CD field
325 cids, cide, 1, 1, cjds, cjde, & ! CD dims
326 cims, cime, 1, 1, cjms, cjme, & ! CD dims
327 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
328 ngrid%msfu, & ! ND field
329 nids, nide, 1, 1, njds, njde, & ! ND dims
330 nims, nime, 1, 1, njms, njme, & ! ND dims
331 nips, nipe, 1, 1, njps, njpe, & ! ND dims
332 config_flags%shw, ngrid%imask_xstag, & ! stencil half width
333 .TRUE., .FALSE., & ! xstag, ystag
334 ngrid%i_parent_start, ngrid%j_parent_start, &
335 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
336 )
337 CALL copy_fcnm ( &
338 grid%msfv, & ! CD field
339 cids, cide, 1, 1, cjds, cjde, & ! CD dims
340 cims, cime, 1, 1, cjms, cjme, & ! CD dims
341 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
342 ngrid%msfv, & ! ND field
343 nids, nide, 1, 1, njds, njde, & ! ND dims
344 nims, nime, 1, 1, njms, njme, & ! ND dims
345 nips, nipe, 1, 1, njps, njpe, & ! ND dims
346 config_flags%shw, ngrid%imask_ystag, & ! stencil half width
347 .FALSE., .TRUE., & ! xstag, ystag
348 ngrid%i_parent_start, ngrid%j_parent_start, &
349 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
350 )
351 CALL copy_fcnm ( &
352 grid%f, & ! CD field
353 cids, cide, 1, 1, cjds, cjde, & ! CD dims
354 cims, cime, 1, 1, cjms, cjme, & ! CD dims
355 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
356 ngrid%f, & ! ND field
357 nids, nide, 1, 1, njds, njde, & ! ND dims
358 nims, nime, 1, 1, njms, njme, & ! ND dims
359 nips, nipe, 1, 1, njps, njpe, & ! ND dims
360 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
361 .FALSE., .FALSE., & ! xstag, ystag
362 ngrid%i_parent_start, ngrid%j_parent_start, &
363 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
364 )
365 CALL copy_fcnm ( &
366 grid%e, & ! CD field
367 cids, cide, 1, 1, cjds, cjde, & ! CD dims
368 cims, cime, 1, 1, cjms, cjme, & ! CD dims
369 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
370 ngrid%e, & ! ND field
371 nids, nide, 1, 1, njds, njde, & ! ND dims
372 nims, nime, 1, 1, njms, njme, & ! ND dims
373 nips, nipe, 1, 1, njps, njpe, & ! ND dims
374 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
375 .FALSE., .FALSE., & ! xstag, ystag
376 ngrid%i_parent_start, ngrid%j_parent_start, &
377 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
378 )
379 CALL copy_fcnm ( &
380 grid%sina, & ! CD field
381 cids, cide, 1, 1, cjds, cjde, & ! CD dims
382 cims, cime, 1, 1, cjms, cjme, & ! CD dims
383 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
384 ngrid%sina, & ! ND field
385 nids, nide, 1, 1, njds, njde, & ! ND dims
386 nims, nime, 1, 1, njms, njme, & ! ND dims
387 nips, nipe, 1, 1, njps, njpe, & ! ND dims
388 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
389 .FALSE., .FALSE., & ! xstag, ystag
390 ngrid%i_parent_start, ngrid%j_parent_start, &
391 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
392 )
393 CALL copy_fcnm ( &
394 grid%cosa, & ! CD field
395 cids, cide, 1, 1, cjds, cjde, & ! CD dims
396 cims, cime, 1, 1, cjms, cjme, & ! CD dims
397 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
398 ngrid%cosa, & ! ND field
399 nids, nide, 1, 1, njds, njde, & ! ND dims
400 nims, nime, 1, 1, njms, njme, & ! ND dims
401 nips, nipe, 1, 1, njps, njpe, & ! ND dims
402 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
403 .FALSE., .FALSE., & ! xstag, ystag
404 ngrid%i_parent_start, ngrid%j_parent_start, &
405 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
406 )
407 CALL copy_fcn ( &
408 grid%ht, & ! 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%ht, & ! 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%tsk, & ! CD field
423 cids, cide, 1, 1, cjds, cjde, & ! CD dims
424 cims, cime, 1, 1, cjms, cjme, & ! CD dims
425 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
426 ngrid%tsk, & ! ND field
427 nids, nide, 1, 1, njds, njde, & ! ND dims
428 nims, nime, 1, 1, njms, njme, & ! ND dims
429 nips, nipe, 1, 1, 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_fcn ( &
436 grid%rainc, & ! CD field
437 cids, cide, 1, 1, cjds, cjde, & ! CD dims
438 cims, cime, 1, 1, cjms, cjme, & ! CD dims
439 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
440 ngrid%rainc, & ! ND field
441 nids, nide, 1, 1, njds, njde, & ! ND dims
442 nims, nime, 1, 1, njms, njme, & ! ND dims
443 nips, nipe, 1, 1, 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_fcn ( &
450 grid%rainnc, & ! CD field
451 cids, cide, 1, 1, cjds, cjde, & ! CD dims
452 cims, cime, 1, 1, cjms, cjme, & ! CD dims
453 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
454 ngrid%rainnc, & ! ND field
455 nids, nide, 1, 1, njds, njde, & ! ND dims
456 nims, nime, 1, 1, njms, njme, & ! ND dims
457 nips, nipe, 1, 1, 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%xlat, & ! 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%xlat, & ! 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_fcnm ( &
478 grid%xlong, & ! 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%xlong, & ! 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_fcnm ( &
492 grid%tmn, & ! 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%tmn, & ! 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%xland, & ! 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%xland, & ! 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%snowc, & ! 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%snowc, & ! 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 !ENDOFREGISTRYGENERATEDINCLUDE