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 copy_fcn ( &
22 grid%a_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%a_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%g_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%g_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%a_v_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%a_v_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_ystag, & ! stencil half width
59 .FALSE., .TRUE., & ! 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%g_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%g_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_w_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, ckpe ), cjps, cjpe, & ! CD dims
82 ngrid%a_w_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, nkpe ), njps, njpe, & ! ND dims
86 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
87 .FALSE., .FALSE., & ! xstag, ystag
88 ngrid%i_parent_start, ngrid%j_parent_start, &
89 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
90 )
91 CALL copy_fcn ( &
92 grid%g_w_2, & ! CD field
93 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
94 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
95 cips, cipe, ckps, MIN( ckde, ckpe ), cjps, cjpe, & ! CD dims
96 ngrid%g_w_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, nkpe ), njps, njpe, & ! ND dims
100 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
101 .FALSE., .FALSE., & ! 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%a_ph_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%a_ph_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%g_ph_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%g_ph_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%a_t_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-1), ckpe ), cjps, cjpe, & ! CD dims
138 ngrid%a_t_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-1), 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%g_t_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-1), ckpe ), cjps, cjpe, & ! CD dims
152 ngrid%g_t_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-1), 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_mu_2, & ! CD field
163 cids, cide, 1, 1, cjds, cjde, & ! CD dims
164 cims, cime, 1, 1, cjms, cjme, & ! CD dims
165 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
166 ngrid%a_mu_2, & ! ND field
167 nids, nide, 1, 1, njds, njde, & ! ND dims
168 nims, nime, 1, 1, njms, njme, & ! ND dims
169 nips, nipe, 1, 1, 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_mu_2, & ! CD field
177 cids, cide, 1, 1, cjds, cjde, & ! CD dims
178 cims, cime, 1, 1, cjms, cjme, & ! CD dims
179 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
180 ngrid%g_mu_2, & ! ND field
181 nids, nide, 1, 1, njds, njde, & ! ND dims
182 nims, nime, 1, 1, njms, njme, & ! ND dims
183 nips, nipe, 1, 1, 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 mark_domain ( &
190 grid%nest_pos, & ! CD field
191 cids, cide, 1, 1, cjds, cjde, & ! CD dims
192 cims, cime, 1, 1, cjms, cjme, & ! CD dims
193 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
194 ngrid%nest_pos, & ! ND field
195 nids, nide, 1, 1, njds, njde, & ! ND dims
196 nims, nime, 1, 1, njms, njme, & ! ND dims
197 nips, nipe, 1, 1, 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 mark_domain ( &
204 grid%nest_mask, & ! CD field
205 cids, cide, 1, 1, cjds, cjde, & ! CD dims
206 cims, cime, 1, 1, cjms, cjme, & ! CD dims
207 cips, cipe, 1, 1, cjps, cjpe, & ! CD dims
208 ngrid%nest_mask, & ! ND field
209 nids, nide, 1, 1, njds, njde, & ! ND dims
210 nims, nime, 1, 1, njms, njme, & ! ND dims
211 nips, nipe, 1, 1, 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 DO itrace = PARAM_FIRST_SCALAR, num_moist
218 CALL copy_fcn ( &
219 moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
220 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
221 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
222 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
223 ngrid%moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
224 nids, nide, nkds, nkde, njds, njde, & ! ND dims
225 nims, nime, nkms, nkme, njms, njme, & ! ND dims
226 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
227 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
228 .FALSE., .FALSE., & ! xstag, ystag
229 ngrid%i_parent_start, ngrid%j_parent_start, &
230 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
231 )
232 ENDDO
233 DO itrace = PARAM_FIRST_SCALAR, num_a_moist
234 CALL copy_fcn ( &
235 a_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
236 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
237 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
238 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
239 ngrid%a_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
240 nids, nide, nkds, nkde, njds, njde, & ! ND dims
241 nims, nime, nkms, nkme, njms, njme, & ! ND dims
242 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
243 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
244 .FALSE., .FALSE., & ! xstag, ystag
245 ngrid%i_parent_start, ngrid%j_parent_start, &
246 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
247 )
248 ENDDO
249 DO itrace = PARAM_FIRST_SCALAR, num_g_moist
250 CALL copy_fcn ( &
251 g_moist(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
252 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
253 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
254 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
255 ngrid%g_moist(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
256 nids, nide, nkds, nkde, njds, njde, & ! ND dims
257 nims, nime, nkms, nkme, njms, njme, & ! ND dims
258 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
259 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
260 .FALSE., .FALSE., & ! xstag, ystag
261 ngrid%i_parent_start, ngrid%j_parent_start, &
262 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
263 )
264 ENDDO
265 DO itrace = PARAM_FIRST_SCALAR, num_scalar
266 CALL copy_fcn ( &
267 scalar(grid%sm31,grid%sm32,grid%sm33,itrace), & ! CD field
268 cids, cide, ckds, ckde, cjds, cjde, & ! CD dims
269 cims, cime, ckms, ckme, cjms, cjme, & ! CD dims
270 cips, cipe, ckps, MIN( (ckde-1), ckpe ), cjps, cjpe, & ! CD dims
271 ngrid%scalar(ngrid%sm31,ngrid%sm32,ngrid%sm33,itrace), & ! ND field
272 nids, nide, nkds, nkde, njds, njde, & ! ND dims
273 nims, nime, nkms, nkme, njms, njme, & ! ND dims
274 nips, nipe, nkps, MIN( (nkde-1), nkpe ), njps, njpe, & ! ND dims
275 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
276 .FALSE., .FALSE., & ! xstag, ystag
277 ngrid%i_parent_start, ngrid%j_parent_start, &
278 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
279 )
280 ENDDO
281 CALL copy_fcnm ( &
282 grid%landmask, & ! 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%landmask, & ! 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%tslb, & ! CD field
297 cids, cide, 1, config_flags%num_soil_layers, cjds, cjde, & ! CD dims
298 cims, cime, 1, config_flags%num_soil_layers, cjms, cjme, & ! CD dims
299 cips, cipe, 1, config_flags%num_soil_layers, cjps, cjpe, & ! CD dims
300 ngrid%tslb, & ! ND field
301 nids, nide, 1, config_flags%num_soil_layers, njds, njde, & ! ND dims
302 nims, nime, 1, config_flags%num_soil_layers, njms, njme, & ! ND dims
303 nips, nipe, 1, config_flags%num_soil_layers, 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%smois, & ! CD field
311 cids, cide, 1, config_flags%num_soil_layers, cjds, cjde, & ! CD dims
312 cims, cime, 1, config_flags%num_soil_layers, cjms, cjme, & ! CD dims
313 cips, cipe, 1, config_flags%num_soil_layers, cjps, cjpe, & ! CD dims
314 ngrid%smois, & ! ND field
315 nids, nide, 1, config_flags%num_soil_layers, njds, njde, & ! ND dims
316 nims, nime, 1, config_flags%num_soil_layers, njms, njme, & ! ND dims
317 nips, nipe, 1, config_flags%num_soil_layers, 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%sh2o, & ! CD field
325 cids, cide, 1, config_flags%num_soil_layers, cjds, cjde, & ! CD dims
326 cims, cime, 1, config_flags%num_soil_layers, cjms, cjme, & ! CD dims
327 cips, cipe, 1, config_flags%num_soil_layers, cjps, cjpe, & ! CD dims
328 ngrid%sh2o, & ! ND field
329 nids, nide, 1, config_flags%num_soil_layers, njds, njde, & ! ND dims
330 nims, nime, 1, config_flags%num_soil_layers, njms, njme, & ! ND dims
331 nips, nipe, 1, config_flags%num_soil_layers, njps, njpe, & ! ND dims
332 config_flags%shw, ngrid%imask_nostag, & ! stencil half width
333 .FALSE., .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%xice, & ! 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%xice, & ! 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_nostag, & ! stencil half width
347 .FALSE., .FALSE., & ! xstag, ystag
348 ngrid%i_parent_start, ngrid%j_parent_start, &
349 ngrid%parent_grid_ratio, ngrid%parent_grid_ratio &
350 )
351 CALL copy_fcni ( &
352 grid%ivgtyp, & ! 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%ivgtyp, & ! 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_fcni ( &
366 grid%isltyp, & ! 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%isltyp, & ! 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%vegfra, & ! 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%vegfra, & ! 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%acsnow, & ! 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%acsnow, & ! 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_fcnm ( &
408 grid%acsnom, & ! 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%acsnom, & ! 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%snow, & ! 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%snow, & ! 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_fcnm ( &
436 grid%snowh, & ! 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%snowh, & ! 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_fcnm ( &
450 grid%rhosn, & ! 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%rhosn, & ! 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%canwat, & ! 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%canwat, & ! 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%msft, & ! 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%msft, & ! 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%msfu, & ! 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%msfu, & ! 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_xstag, & ! stencil half width
501 .TRUE., .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%msfv, & ! 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%msfv, & ! 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_ystag, & ! stencil half width
515 .FALSE., .TRUE., & ! 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%f, & ! 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%f, & ! 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%e, & ! 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%e, & ! 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%sina, & ! 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%sina, & ! 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%cosa, & ! 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%cosa, & ! 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_fcn ( &
576 grid%ht, & ! 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%ht, & ! 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%tsk, & ! 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%tsk, & ! 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_fcn ( &
604 grid%rainc, & ! 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%rainc, & ! 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_fcn ( &
618 grid%rainnc, & ! 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%rainnc, & ! 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_nostag, & ! stencil half width
627 .FALSE., .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%xlat, & ! 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%xlat, & ! 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_nostag, & ! stencil half width
641 .FALSE., .FALSE., & ! 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%xlong, & ! 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%xlong, & ! 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%tmn, & ! 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%tmn, & ! 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%xland, & ! 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%xland, & ! 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%snowc, & ! 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%snowc, & ! 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 !ENDOFREGISTRYGENERATEDINCLUDE