em_shift_halo_y.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_shift_halo_y.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 IF ( grid%shift_y == invalid_message_value ) THEN
8 CALL wrf_debug ( 50 , 'set up halo for y shift' )
9 CALL setup_halo_rsl( grid )
10 CALL reset_msgs_y_shift
11 CALL add_msg_y_shift_real ( grid%lu_index , 1 )
12 CALL add_msg_y_shift_real ( grid%lu_mask , 1 )
13 CALL add_msg_y_shift_real ( grid%em_u_gc , config_flags%num_metgrid_levels )
14 CALL add_msg_y_shift_real ( grid%em_v_gc , config_flags%num_metgrid_levels )
15 CALL add_msg_y_shift_real ( grid%em_t_gc , config_flags%num_metgrid_levels )
16 CALL add_msg_y_shift_real ( grid%em_rh_gc , config_flags%num_metgrid_levels )
17 CALL add_msg_y_shift_real ( grid%em_ght_gc , config_flags%num_metgrid_levels )
18 CALL add_msg_y_shift_real ( grid%em_p_gc , config_flags%num_metgrid_levels )
19 CALL add_msg_y_shift_real ( grid%em_xlat_gc , 1 )
20 CALL add_msg_y_shift_real ( grid%em_xlong_gc , 1 )
21 CALL add_msg_y_shift_real ( grid%em_ht_gc , 1 )
22 CALL add_msg_y_shift_real ( grid%em_tsk_gc , 1 )
23 CALL add_msg_y_shift_real ( grid%em_tmn_gc , 1 )
24 CALL add_msg_y_shift_real ( grid%em_pslv_gc , 1 )
25 CALL add_msg_y_shift_real ( grid%em_greenfrac , (12 - 1 + 1) )
26 CALL add_msg_y_shift_real ( grid%em_albedo12m , (12 - 1 + 1) )
27 CALL add_msg_y_shift_real ( grid%em_pd_gc , config_flags%num_metgrid_levels )
28 CALL add_msg_y_shift_real ( grid%em_qv_gc , config_flags%num_metgrid_levels )
29 CALL add_msg_y_shift_real ( grid%em_intq_gc , 1 )
30 CALL add_msg_y_shift_real ( grid%em_pdhs , 1 )
31 CALL add_msg_y_shift_real ( grid%em_u_1 , (glen(3)) )
32 CALL add_msg_y_shift_real ( grid%em_u_2 , (glen(3)) )
33 CALL add_msg_y_shift_real ( grid%em_a_u_1 , (glen(3)) )
34 CALL add_msg_y_shift_real ( grid%em_a_u_2 , (glen(3)) )
35 CALL add_msg_y_shift_real ( grid%em_g_u_1 , (glen(3)) )
36 CALL add_msg_y_shift_real ( grid%em_g_u_2 , (glen(3)) )
37 CALL add_msg_y_shift_real ( grid%em_ru , (glen(3)) )
38 CALL add_msg_y_shift_real ( grid%em_a_ru , (glen(3)) )
39 CALL add_msg_y_shift_real ( grid%em_g_ru , (glen(3)) )
40 CALL add_msg_y_shift_real ( grid%em_ru_m , (glen(3)) )
41 CALL add_msg_y_shift_real ( grid%em_a_ru_m , (glen(3)) )
42 CALL add_msg_y_shift_real ( grid%em_g_ru_m , (glen(3)) )
43 CALL add_msg_y_shift_real ( grid%em_ru_tend , (glen(3)) )
44 CALL add_msg_y_shift_real ( grid%em_a_ru_tend , (glen(3)) )
45 CALL add_msg_y_shift_real ( grid%em_g_ru_tend , (glen(3)) )
46 CALL add_msg_y_shift_real ( grid%em_u_save , (glen(3)) )
47 CALL add_msg_y_shift_real ( grid%em_a_u_save , (glen(3)) )
48 CALL add_msg_y_shift_real ( grid%em_g_u_save , (glen(3)) )
49 CALL add_msg_y_shift_real ( grid%em_v_1 , (glen(3)) )
50 CALL add_msg_y_shift_real ( grid%em_v_2 , (glen(3)) )
51 CALL add_msg_y_shift_real ( grid%em_a_v_1 , (glen(3)) )
52 CALL add_msg_y_shift_real ( grid%em_a_v_2 , (glen(3)) )
53 CALL add_msg_y_shift_real ( grid%em_g_v_1 , (glen(3)) )
54 CALL add_msg_y_shift_real ( grid%em_g_v_2 , (glen(3)) )
55 CALL add_msg_y_shift_real ( grid%em_rv , (glen(3)) )
56 CALL add_msg_y_shift_real ( grid%em_a_rv , (glen(3)) )
57 CALL add_msg_y_shift_real ( grid%em_g_rv , (glen(3)) )
58 CALL add_msg_y_shift_real ( grid%em_rv_m , (glen(3)) )
59 CALL add_msg_y_shift_real ( grid%em_a_rv_m , (glen(3)) )
60 CALL add_msg_y_shift_real ( grid%em_g_rv_m , (glen(3)) )
61 CALL add_msg_y_shift_real ( grid%em_rv_tend , (glen(3)) )
62 CALL add_msg_y_shift_real ( grid%em_a_rv_tend , (glen(3)) )
63 CALL add_msg_y_shift_real ( grid%em_g_rv_tend , (glen(3)) )
64 CALL add_msg_y_shift_real ( grid%em_v_save , (glen(3)) )
65 CALL add_msg_y_shift_real ( grid%em_a_v_save , (glen(3)) )
66 CALL add_msg_y_shift_real ( grid%em_g_v_save , (glen(3)) )
67 CALL add_msg_y_shift_real ( grid%em_w_1 , (glen(3)) )
68 CALL add_msg_y_shift_real ( grid%em_w_2 , (glen(3)) )
69 CALL add_msg_y_shift_real ( grid%em_a_w_1 , (glen(3)) )
70 CALL add_msg_y_shift_real ( grid%em_a_w_2 , (glen(3)) )
71 CALL add_msg_y_shift_real ( grid%em_g_w_1 , (glen(3)) )
72 CALL add_msg_y_shift_real ( grid%em_g_w_2 , (glen(3)) )
73 CALL add_msg_y_shift_real ( grid%em_ww , (glen(3)) )
74 CALL add_msg_y_shift_real ( grid%em_a_ww , (glen(3)) )
75 CALL add_msg_y_shift_real ( grid%em_g_ww , (glen(3)) )
76 CALL add_msg_y_shift_real ( grid%em_rw , (glen(3)) )
77 CALL add_msg_y_shift_real ( grid%em_a_rw , (glen(3)) )
78 CALL add_msg_y_shift_real ( grid%em_g_rw , (glen(3)) )
79 CALL add_msg_y_shift_real ( grid%em_ph_1 , (glen(3)) )
80 CALL add_msg_y_shift_real ( grid%em_ph_2 , (glen(3)) )
81 CALL add_msg_y_shift_real ( grid%em_a_ph_1 , (glen(3)) )
82 CALL add_msg_y_shift_real ( grid%em_a_ph_2 , (glen(3)) )
83 CALL add_msg_y_shift_real ( grid%em_g_ph_1 , (glen(3)) )
84 CALL add_msg_y_shift_real ( grid%em_g_ph_2 , (glen(3)) )
85 CALL add_msg_y_shift_real ( grid%em_phb , (glen(3)) )
86 CALL add_msg_y_shift_real ( grid%em_a_phb , (glen(3)) )
87 CALL add_msg_y_shift_real ( grid%em_g_phb , (glen(3)) )
88 CALL add_msg_y_shift_real ( grid%em_phb_fine , (glen(3)) )
89 CALL add_msg_y_shift_real ( grid%em_ph0 , (glen(3)) )
90 CALL add_msg_y_shift_real ( grid%em_php , (glen(3)) )
91 CALL add_msg_y_shift_real ( grid%em_a_php , (glen(3)) )
92 CALL add_msg_y_shift_real ( grid%em_g_php , (glen(3)) )
93 CALL add_msg_y_shift_real ( grid%em_t_1 , (glen(3)) )
94 CALL add_msg_y_shift_real ( grid%em_t_2 , (glen(3)) )
95 CALL add_msg_y_shift_real ( grid%em_a_t_1 , (glen(3)) )
96 CALL add_msg_y_shift_real ( grid%em_a_t_2 , (glen(3)) )
97 CALL add_msg_y_shift_real ( grid%em_g_t_1 , (glen(3)) )
98 CALL add_msg_y_shift_real ( grid%em_g_t_2 , (glen(3)) )
99 CALL add_msg_y_shift_real ( grid%em_t_init , (glen(3)) )
100 CALL add_msg_y_shift_real ( grid%em_tp_1 , (glen(3)) )
101 CALL add_msg_y_shift_real ( grid%em_tp_2 , (glen(3)) )
102 CALL add_msg_y_shift_real ( grid%em_t_save , (glen(3)) )
103 CALL add_msg_y_shift_real ( grid%em_a_t_save , (glen(3)) )
104 CALL add_msg_y_shift_real ( grid%em_g_t_save , (glen(3)) )
105 CALL add_msg_y_shift_real ( grid%em_mu_1 , 1 )
106 CALL add_msg_y_shift_real ( grid%em_mu_2 , 1 )
107 CALL add_msg_y_shift_real ( grid%em_a_mu_1 , 1 )
108 CALL add_msg_y_shift_real ( grid%em_a_mu_2 , 1 )
109 CALL add_msg_y_shift_real ( grid%em_g_mu_1 , 1 )
110 CALL add_msg_y_shift_real ( grid%em_g_mu_2 , 1 )
111 CALL add_msg_y_shift_real ( grid%em_mub , 1 )
112 CALL add_msg_y_shift_real ( grid%em_a_mub , 1 )
113 CALL add_msg_y_shift_real ( grid%em_g_mub , 1 )
114 CALL add_msg_y_shift_real ( grid%em_mub_fine , 1 )
115 CALL add_msg_y_shift_real ( grid%em_mu0 , 1 )
116 CALL add_msg_y_shift_real ( grid%em_mudf , 1 )
117 CALL add_msg_y_shift_real ( grid%em_a_mudf , 1 )
118 CALL add_msg_y_shift_real ( grid%em_g_mudf , 1 )
119 CALL add_msg_y_shift_real ( grid%em_muu , 1 )
120 CALL add_msg_y_shift_real ( grid%em_a_muu , 1 )
121 CALL add_msg_y_shift_real ( grid%em_g_muu , 1 )
122 CALL add_msg_y_shift_real ( grid%em_muv , 1 )
123 CALL add_msg_y_shift_real ( grid%em_a_muv , 1 )
124 CALL add_msg_y_shift_real ( grid%em_g_muv , 1 )
125 CALL add_msg_y_shift_real ( grid%em_mut , 1 )
126 CALL add_msg_y_shift_real ( grid%em_a_mut , 1 )
127 CALL add_msg_y_shift_real ( grid%em_g_mut , 1 )
128 CALL add_msg_y_shift_real ( grid%em_muts , 1 )
129 CALL add_msg_y_shift_real ( grid%em_a_muts , 1 )
130 CALL add_msg_y_shift_real ( grid%em_g_muts , 1 )
131 CALL add_msg_y_shift_real ( grid%nest_pos , 1 )
132 CALL add_msg_y_shift_real ( grid%nest_mask , 1 )
133 CALL add_msg_y_shift_real ( grid%ht_coarse , 1 )
134 CALL add_msg_y_shift_real ( grid%em_tke_1 , (glen(3)) )
135 CALL add_msg_y_shift_real ( grid%em_tke_2 , (glen(3)) )
136 CALL add_msg_y_shift_real ( grid%em_p , (glen(3)) )
137 CALL add_msg_y_shift_real ( grid%em_a_p , (glen(3)) )
138 CALL add_msg_y_shift_real ( grid%em_g_p , (glen(3)) )
139 CALL add_msg_y_shift_real ( grid%em_al , (glen(3)) )
140 CALL add_msg_y_shift_real ( grid%em_a_al , (glen(3)) )
141 CALL add_msg_y_shift_real ( grid%em_g_al , (glen(3)) )
142 CALL add_msg_y_shift_real ( grid%em_alt , (glen(3)) )
143 CALL add_msg_y_shift_real ( grid%em_a_alt , (glen(3)) )
144 CALL add_msg_y_shift_real ( grid%em_g_alt , (glen(3)) )
145 CALL add_msg_y_shift_real ( grid%em_alb , (glen(3)) )
146 CALL add_msg_y_shift_real ( grid%em_zx , (glen(3)) )
147 CALL add_msg_y_shift_real ( grid%em_zy , (glen(3)) )
148 CALL add_msg_y_shift_real ( grid%em_rdz , (glen(3)) )
149 CALL add_msg_y_shift_real ( grid%em_rdzw , (glen(3)) )
150 CALL add_msg_y_shift_real ( grid%em_pb , (glen(3)) )
151 CALL add_msg_y_shift_real ( grid%em_sr , 1 )
152 CALL add_msg_y_shift_real ( grid%em_z , (glen(3)) )
153 CALL add_msg_y_shift_real ( grid%em_a_z , (glen(3)) )
154 CALL add_msg_y_shift_real ( grid%em_g_z , (glen(3)) )
155 CALL add_msg_y_shift_real ( grid%q2 , 1 )
156 CALL add_msg_y_shift_real ( grid%t2 , 1 )
157 CALL add_msg_y_shift_real ( grid%th2 , 1 )
158 CALL add_msg_y_shift_real ( grid%psfc , 1 )
159 CALL add_msg_y_shift_real ( grid%u10 , 1 )
160 CALL add_msg_y_shift_real ( grid%v10 , 1 )
161 CALL add_msg_y_shift_real ( grid%uratx , 1 )
162 CALL add_msg_y_shift_real ( grid%vratx , 1 )
163 CALL add_msg_y_shift_real ( grid%tratx , 1 )
164 CALL add_msg_y_shift_integer ( grid%imask_nostag , 1 )
165 CALL add_msg_y_shift_integer ( grid%imask_xstag , 1 )
166 CALL add_msg_y_shift_integer ( grid%imask_ystag , 1 )
167 CALL add_msg_y_shift_integer ( grid%imask_xystag , 1 )
168 if ( P_qv .GT. 1 ) CALL add_msg_y_shift_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qv), glen(3) )
169 if ( P_qc .GT. 1 ) CALL add_msg_y_shift_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qc), glen(3) )
170 if ( P_qr .GT. 1 ) CALL add_msg_y_shift_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qr), glen(3) )
171 if ( P_qi .GT. 1 ) CALL add_msg_y_shift_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qi), glen(3) )
172 if ( P_qs .GT. 1 ) CALL add_msg_y_shift_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qs), glen(3) )
173 if ( P_qg .GT. 1 ) CALL add_msg_y_shift_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qg), glen(3) )
174 if ( P_a_qv .GT. 1 ) CALL add_msg_y_shift_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qv), glen(3) )
175 if ( P_a_qc .GT. 1 ) CALL add_msg_y_shift_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qc), glen(3) )
176 if ( P_a_qr .GT. 1 ) CALL add_msg_y_shift_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qr), glen(3) )
177 if ( P_a_qi .GT. 1 ) CALL add_msg_y_shift_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qi), glen(3) )
178 if ( P_a_qs .GT. 1 ) CALL add_msg_y_shift_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qs), glen(3) )
179 if ( P_a_qg .GT. 1 ) CALL add_msg_y_shift_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qg), glen(3) )
180 if ( P_g_qv .GT. 1 ) CALL add_msg_y_shift_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qv), glen(3) )
181 if ( P_g_qc .GT. 1 ) CALL add_msg_y_shift_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qc), glen(3) )
182 if ( P_g_qr .GT. 1 ) CALL add_msg_y_shift_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qr), glen(3) )
183 if ( P_g_qi .GT. 1 ) CALL add_msg_y_shift_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qi), glen(3) )
184 if ( P_g_qs .GT. 1 ) CALL add_msg_y_shift_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qs), glen(3) )
185 if ( P_g_qg .GT. 1 ) CALL add_msg_y_shift_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qg), glen(3) )
186 if ( P_qni .GT. 1 ) CALL add_msg_y_shift_real ( scalar ( grid%sm31,grid%sm32,grid%sm33,P_qni), glen(3) )
187 if ( P_qt .GT. 1 ) CALL add_msg_y_shift_real ( scalar ( grid%sm31,grid%sm32,grid%sm33,P_qt), glen(3) )
188 CALL add_msg_y_shift_real ( grid%landmask , 1 )
189 CALL add_msg_y_shift_real ( grid%shdmax , 1 )
190 CALL add_msg_y_shift_real ( grid%shdmin , 1 )
191 CALL add_msg_y_shift_real ( grid%snoalb , 1 )
192 CALL add_msg_y_shift_real ( grid%tslb , config_flags%num_soil_layers )
193 CALL add_msg_y_shift_real ( grid%smois , config_flags%num_soil_layers )
194 CALL add_msg_y_shift_real ( grid%sh2o , config_flags%num_soil_layers )
195 CALL add_msg_y_shift_real ( grid%xice , 1 )
196 CALL add_msg_y_shift_real ( grid%sfcrunoff , 1 )
197 CALL add_msg_y_shift_real ( grid%udrunoff , 1 )
198 CALL add_msg_y_shift_integer ( grid%ivgtyp , 1 )
199 CALL add_msg_y_shift_integer ( grid%isltyp , 1 )
200 CALL add_msg_y_shift_real ( grid%vegfra , 1 )
201 CALL add_msg_y_shift_real ( grid%sfcevp , 1 )
202 CALL add_msg_y_shift_real ( grid%acsnow , 1 )
203 CALL add_msg_y_shift_real ( grid%acsnom , 1 )
204 CALL add_msg_y_shift_real ( grid%snow , 1 )
205 CALL add_msg_y_shift_real ( grid%snowh , 1 )
206 CALL add_msg_y_shift_real ( grid%rhosn , 1 )
207 CALL add_msg_y_shift_real ( grid%canwat , 1 )
208 CALL add_msg_y_shift_real ( grid%sst , 1 )
209 CALL add_msg_y_shift_real ( grid%htop , 1 )
210 CALL add_msg_y_shift_real ( grid%hbot , 1 )
211 CALL add_msg_y_shift_real ( grid%cuppt , 1 )
212 CALL add_msg_y_shift_real ( grid%rswtoa , 1 )
213 CALL add_msg_y_shift_real ( grid%rlwtoa , 1 )
214 CALL add_msg_y_shift_real ( grid%czmean , 1 )
215 CALL add_msg_y_shift_real ( grid%cfracl , 1 )
216 CALL add_msg_y_shift_real ( grid%cfracm , 1 )
217 CALL add_msg_y_shift_real ( grid%cfrach , 1 )
218 CALL add_msg_y_shift_real ( grid%acfrst , 1 )
219 CALL add_msg_y_shift_integer ( grid%ncfrst , 1 )
220 CALL add_msg_y_shift_real ( grid%acfrcv , 1 )
221 CALL add_msg_y_shift_integer ( grid%ncfrcv , 1 )
222 CALL add_msg_y_shift_real ( grid%h_diabatic , (glen(3)) )
223 CALL add_msg_y_shift_real ( grid%msft , 1 )
224 CALL add_msg_y_shift_real ( grid%msfu , 1 )
225 CALL add_msg_y_shift_real ( grid%msfv , 1 )
226 CALL add_msg_y_shift_real ( grid%f , 1 )
227 CALL add_msg_y_shift_real ( grid%e , 1 )
228 CALL add_msg_y_shift_real ( grid%sina , 1 )
229 CALL add_msg_y_shift_real ( grid%cosa , 1 )
230 CALL add_msg_y_shift_real ( grid%ht , 1 )
231 CALL add_msg_y_shift_real ( grid%ht_fine , 1 )
232 CALL add_msg_y_shift_real ( grid%ht_int , 1 )
233 CALL add_msg_y_shift_real ( grid%ht_input , 1 )
234 CALL add_msg_y_shift_real ( grid%tsk , 1 )
235 CALL add_msg_y_shift_real ( grid%tsk_save , 1 )
236 CALL add_msg_y_shift_real ( grid%rthcuten , (glen(3)) )
237 CALL add_msg_y_shift_real ( grid%rqvcuten , (glen(3)) )
238 CALL add_msg_y_shift_real ( grid%rqrcuten , (glen(3)) )
239 CALL add_msg_y_shift_real ( grid%rqccuten , (glen(3)) )
240 CALL add_msg_y_shift_real ( grid%rqscuten , (glen(3)) )
241 CALL add_msg_y_shift_real ( grid%rqicuten , (glen(3)) )
242 CALL add_msg_y_shift_real ( grid%w0avg , (glen(3)) )
243 CALL add_msg_y_shift_real ( grid%rainc , 1 )
244 CALL add_msg_y_shift_real ( grid%rainnc , 1 )
245 CALL add_msg_y_shift_real ( grid%raincv , 1 )
246 CALL add_msg_y_shift_real ( grid%rainncv , 1 )
247 CALL add_msg_y_shift_real ( grid%rainbl , 1 )
248 CALL add_msg_y_shift_real ( grid%snownc , 1 )
249 CALL add_msg_y_shift_real ( grid%graupelnc , 1 )
250 CALL add_msg_y_shift_real ( grid%snowncv , 1 )
251 CALL add_msg_y_shift_real ( grid%graupelncv , 1 )
252 CALL add_msg_y_shift_real ( grid%nca , 1 )
253 CALL add_msg_y_shift_integer ( grid%lowlyr , 1 )
254 CALL add_msg_y_shift_real ( grid%mass_flux , 1 )
255 CALL add_msg_y_shift_real ( grid%apr_gr , 1 )
256 CALL add_msg_y_shift_real ( grid%apr_w , 1 )
257 CALL add_msg_y_shift_real ( grid%apr_mc , 1 )
258 CALL add_msg_y_shift_real ( grid%apr_st , 1 )
259 CALL add_msg_y_shift_real ( grid%apr_as , 1 )
260 CALL add_msg_y_shift_real ( grid%apr_capma , 1 )
261 CALL add_msg_y_shift_real ( grid%apr_capme , 1 )
262 CALL add_msg_y_shift_real ( grid%apr_capmi , 1 )
263 CALL add_msg_y_shift_real ( grid%rthften , (glen(3)) )
264 CALL add_msg_y_shift_real ( grid%rqvften , (glen(3)) )
265 CALL add_msg_y_shift_real ( grid%rthraten , (glen(3)) )
266 CALL add_msg_y_shift_real ( grid%rthratenlw , (glen(3)) )
267 CALL add_msg_y_shift_real ( grid%rthratensw , (glen(3)) )
268 CALL add_msg_y_shift_real ( grid%cldfra , (glen(3)) )
269 CALL add_msg_y_shift_real ( grid%swdown , 1 )
270 CALL add_msg_y_shift_real ( grid%swdownc , 1 )
271 CALL add_msg_y_shift_real ( grid%gsw , 1 )
272 CALL add_msg_y_shift_real ( grid%glw , 1 )
273 CALL add_msg_y_shift_real ( grid%swcf , 1 )
274 CALL add_msg_y_shift_real ( grid%lwcf , 1 )
275 CALL add_msg_y_shift_real ( grid%olr , 1 )
276 CALL add_msg_y_shift_real ( grid%xlat , 1 )
277 CALL add_msg_y_shift_real ( grid%xlong , 1 )
278 CALL add_msg_y_shift_real ( grid%em_xlat_u , 1 )
279 CALL add_msg_y_shift_real ( grid%em_xlong_u , 1 )
280 CALL add_msg_y_shift_real ( grid%em_xlat_v , 1 )
281 CALL add_msg_y_shift_real ( grid%em_xlong_v , 1 )
282 CALL add_msg_y_shift_real ( grid%albedo , 1 )
283 CALL add_msg_y_shift_real ( grid%albbck , 1 )
284 CALL add_msg_y_shift_real ( grid%emiss , 1 )
285 CALL add_msg_y_shift_real ( grid%cldefi , 1 )
286 CALL add_msg_y_shift_real ( grid%rublten , (glen(3)) )
287 CALL add_msg_y_shift_real ( grid%rvblten , (glen(3)) )
288 CALL add_msg_y_shift_real ( grid%rthblten , (glen(3)) )
289 CALL add_msg_y_shift_real ( grid%rqvblten , (glen(3)) )
290 CALL add_msg_y_shift_real ( grid%rqcblten , (glen(3)) )
291 CALL add_msg_y_shift_real ( grid%rqiblten , (glen(3)) )
292 CALL add_msg_y_shift_real ( grid%tmn , 1 )
293 CALL add_msg_y_shift_real ( grid%xland , 1 )
294 CALL add_msg_y_shift_real ( grid%znt , 1 )
295 CALL add_msg_y_shift_real ( grid%ust , 1 )
296 CALL add_msg_y_shift_real ( grid%rmol , 1 )
297 CALL add_msg_y_shift_real ( grid%mol , 1 )
298 CALL add_msg_y_shift_real ( grid%pblh , 1 )
299 CALL add_msg_y_shift_real ( grid%capg , 1 )
300 CALL add_msg_y_shift_real ( grid%thc , 1 )
301 CALL add_msg_y_shift_real ( grid%hfx , 1 )
302 CALL add_msg_y_shift_real ( grid%qfx , 1 )
303 CALL add_msg_y_shift_real ( grid%lh , 1 )
304 CALL add_msg_y_shift_real ( grid%flhc , 1 )
305 CALL add_msg_y_shift_real ( grid%flqc , 1 )
306 CALL add_msg_y_shift_real ( grid%qsg , 1 )
307 CALL add_msg_y_shift_real ( grid%qvg , 1 )
308 CALL add_msg_y_shift_real ( grid%qcg , 1 )
309 CALL add_msg_y_shift_real ( grid%soilt1 , 1 )
310 CALL add_msg_y_shift_real ( grid%tsnav , 1 )
311 CALL add_msg_y_shift_real ( grid%snowc , 1 )
312 CALL add_msg_y_shift_real ( grid%mavail , 1 )
313 CALL add_msg_y_shift_real ( grid%xkmv , (glen(3)) )
314 CALL add_msg_y_shift_real ( grid%xkmh , (glen(3)) )
315 CALL add_msg_y_shift_real ( grid%xkmhd , (glen(3)) )
316 CALL add_msg_y_shift_real ( grid%a_xkmhd , (glen(3)) )
317 CALL add_msg_y_shift_real ( grid%g_xkmhd , (glen(3)) )
318 CALL add_msg_y_shift_real ( grid%xkhv , (glen(3)) )
319 CALL add_msg_y_shift_real ( grid%xkhh , (glen(3)) )
320 CALL stencil_y_shift ( grid%domdesc , grid%shift_y )
321 ENDIF
322 CALL wrf_debug ( 50 , 'exchange halo for y shift' )
323 CALL rsl_exch_stencil ( grid%domdesc , grid%shift_y )
324 grid%lu_index (ims:ime,jps:min(jde-1,jpe)) = grid%lu_index (ims:ime,jps+py:min(jde-1,jpe)+py)
325 grid%lu_mask (ims:ime,jps:min(jde-1,jpe)) = grid%lu_mask (ims:ime,jps+py:min(jde-1,jpe)+py)
326 grid%em_u_gc (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_u_gc (ims:ime,:,jps+py:min(jde-1,jpe)+py)
327 grid%em_v_gc (ims:ime,:,jps:min(jde,jpe)) = grid%em_v_gc (ims:ime,:,jps+py:min(jde,jpe)+py)
328 grid%em_t_gc (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_t_gc (ims:ime,:,jps+py:min(jde-1,jpe)+py)
329 grid%em_rh_gc (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_rh_gc (ims:ime,:,jps+py:min(jde-1,jpe)+py)
330 grid%em_ght_gc (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_ght_gc (ims:ime,:,jps+py:min(jde-1,jpe)+py)
331 grid%em_p_gc (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_p_gc (ims:ime,:,jps+py:min(jde-1,jpe)+py)
332 grid%em_xlat_gc (ims:ime,jps:min(jde-1,jpe)) = grid%em_xlat_gc (ims:ime,jps+py:min(jde-1,jpe)+py)
333 grid%em_xlong_gc (ims:ime,jps:min(jde-1,jpe)) = grid%em_xlong_gc (ims:ime,jps+py:min(jde-1,jpe)+py)
334 grid%em_ht_gc (ims:ime,jps:min(jde-1,jpe)) = grid%em_ht_gc (ims:ime,jps+py:min(jde-1,jpe)+py)
335 grid%em_tsk_gc (ims:ime,jps:min(jde-1,jpe)) = grid%em_tsk_gc (ims:ime,jps+py:min(jde-1,jpe)+py)
336 grid%em_tmn_gc (ims:ime,jps:min(jde-1,jpe)) = grid%em_tmn_gc (ims:ime,jps+py:min(jde-1,jpe)+py)
337 grid%em_pslv_gc (ims:ime,jps:min(jde-1,jpe)) = grid%em_pslv_gc (ims:ime,jps+py:min(jde-1,jpe)+py)
338 grid%em_greenfrac (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_greenfrac (ims:ime,:,jps+py:min(jde-1,jpe)+py)
339 grid%em_albedo12m (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_albedo12m (ims:ime,:,jps+py:min(jde-1,jpe)+py)
340 grid%em_pd_gc (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_pd_gc (ims:ime,:,jps+py:min(jde-1,jpe)+py)
341 grid%em_qv_gc (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_qv_gc (ims:ime,:,jps+py:min(jde-1,jpe)+py)
342 grid%em_intq_gc (ims:ime,jps:min(jde-1,jpe)) = grid%em_intq_gc (ims:ime,jps+py:min(jde-1,jpe)+py)
343 grid%em_pdhs (ims:ime,jps:min(jde-1,jpe)) = grid%em_pdhs (ims:ime,jps+py:min(jde-1,jpe)+py)
344 grid%em_u_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_u_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
345 grid%em_u_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_u_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
346 grid%em_a_u_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_u_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
347 grid%em_a_u_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_u_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
348 grid%em_g_u_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_u_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
349 grid%em_g_u_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_u_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
350 grid%em_ru (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_ru (ims:ime,:,jps+py:min(jde-1,jpe)+py)
351 grid%em_a_ru (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_ru (ims:ime,:,jps+py:min(jde-1,jpe)+py)
352 grid%em_g_ru (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_ru (ims:ime,:,jps+py:min(jde-1,jpe)+py)
353 grid%em_ru_m (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_ru_m (ims:ime,:,jps+py:min(jde-1,jpe)+py)
354 grid%em_a_ru_m (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_ru_m (ims:ime,:,jps+py:min(jde-1,jpe)+py)
355 grid%em_g_ru_m (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_ru_m (ims:ime,:,jps+py:min(jde-1,jpe)+py)
356 grid%em_ru_tend (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_ru_tend (ims:ime,:,jps+py:min(jde-1,jpe)+py)
357 grid%em_a_ru_tend (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_ru_tend (ims:ime,:,jps+py:min(jde-1,jpe)+py)
358 grid%em_g_ru_tend (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_ru_tend (ims:ime,:,jps+py:min(jde-1,jpe)+py)
359 grid%em_u_save (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_u_save (ims:ime,:,jps+py:min(jde-1,jpe)+py)
360 grid%em_a_u_save (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_u_save (ims:ime,:,jps+py:min(jde-1,jpe)+py)
361 grid%em_g_u_save (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_u_save (ims:ime,:,jps+py:min(jde-1,jpe)+py)
362 grid%em_v_1 (ims:ime,:,jps:min(jde,jpe)) = grid%em_v_1 (ims:ime,:,jps+py:min(jde,jpe)+py)
363 grid%em_v_2 (ims:ime,:,jps:min(jde,jpe)) = grid%em_v_2 (ims:ime,:,jps+py:min(jde,jpe)+py)
364 grid%em_a_v_1 (ims:ime,:,jps:min(jde,jpe)) = grid%em_a_v_1 (ims:ime,:,jps+py:min(jde,jpe)+py)
365 grid%em_a_v_2 (ims:ime,:,jps:min(jde,jpe)) = grid%em_a_v_2 (ims:ime,:,jps+py:min(jde,jpe)+py)
366 grid%em_g_v_1 (ims:ime,:,jps:min(jde,jpe)) = grid%em_g_v_1 (ims:ime,:,jps+py:min(jde,jpe)+py)
367 grid%em_g_v_2 (ims:ime,:,jps:min(jde,jpe)) = grid%em_g_v_2 (ims:ime,:,jps+py:min(jde,jpe)+py)
368 grid%em_rv (ims:ime,:,jps:min(jde,jpe)) = grid%em_rv (ims:ime,:,jps+py:min(jde,jpe)+py)
369 grid%em_a_rv (ims:ime,:,jps:min(jde,jpe)) = grid%em_a_rv (ims:ime,:,jps+py:min(jde,jpe)+py)
370 grid%em_g_rv (ims:ime,:,jps:min(jde,jpe)) = grid%em_g_rv (ims:ime,:,jps+py:min(jde,jpe)+py)
371 grid%em_rv_m (ims:ime,:,jps:min(jde,jpe)) = grid%em_rv_m (ims:ime,:,jps+py:min(jde,jpe)+py)
372 grid%em_a_rv_m (ims:ime,:,jps:min(jde,jpe)) = grid%em_a_rv_m (ims:ime,:,jps+py:min(jde,jpe)+py)
373 grid%em_g_rv_m (ims:ime,:,jps:min(jde,jpe)) = grid%em_g_rv_m (ims:ime,:,jps+py:min(jde,jpe)+py)
374 grid%em_rv_tend (ims:ime,:,jps:min(jde,jpe)) = grid%em_rv_tend (ims:ime,:,jps+py:min(jde,jpe)+py)
375 grid%em_a_rv_tend (ims:ime,:,jps:min(jde,jpe)) = grid%em_a_rv_tend (ims:ime,:,jps+py:min(jde,jpe)+py)
376 grid%em_g_rv_tend (ims:ime,:,jps:min(jde,jpe)) = grid%em_g_rv_tend (ims:ime,:,jps+py:min(jde,jpe)+py)
377 grid%em_v_save (ims:ime,:,jps:min(jde,jpe)) = grid%em_v_save (ims:ime,:,jps+py:min(jde,jpe)+py)
378 grid%em_a_v_save (ims:ime,:,jps:min(jde,jpe)) = grid%em_a_v_save (ims:ime,:,jps+py:min(jde,jpe)+py)
379 grid%em_g_v_save (ims:ime,:,jps:min(jde,jpe)) = grid%em_g_v_save (ims:ime,:,jps+py:min(jde,jpe)+py)
380 grid%em_w_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_w_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
381 grid%em_w_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_w_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
382 grid%em_a_w_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_w_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
383 grid%em_a_w_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_w_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
384 grid%em_g_w_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_w_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
385 grid%em_g_w_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_w_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
386 grid%em_ww (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_ww (ims:ime,:,jps+py:min(jde-1,jpe)+py)
387 grid%em_a_ww (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_ww (ims:ime,:,jps+py:min(jde-1,jpe)+py)
388 grid%em_g_ww (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_ww (ims:ime,:,jps+py:min(jde-1,jpe)+py)
389 grid%em_rw (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_rw (ims:ime,:,jps+py:min(jde-1,jpe)+py)
390 grid%em_a_rw (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_rw (ims:ime,:,jps+py:min(jde-1,jpe)+py)
391 grid%em_g_rw (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_rw (ims:ime,:,jps+py:min(jde-1,jpe)+py)
392 grid%em_ph_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_ph_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
393 grid%em_ph_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_ph_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
394 grid%em_a_ph_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_ph_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
395 grid%em_a_ph_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_ph_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
396 grid%em_g_ph_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_ph_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
397 grid%em_g_ph_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_ph_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
398 grid%em_phb (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_phb (ims:ime,:,jps+py:min(jde-1,jpe)+py)
399 grid%em_a_phb (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_phb (ims:ime,:,jps+py:min(jde-1,jpe)+py)
400 grid%em_g_phb (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_phb (ims:ime,:,jps+py:min(jde-1,jpe)+py)
401 grid%em_phb_fine (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_phb_fine (ims:ime,:,jps+py:min(jde-1,jpe)+py)
402 grid%em_ph0 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_ph0 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
403 grid%em_php (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_php (ims:ime,:,jps+py:min(jde-1,jpe)+py)
404 grid%em_a_php (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_php (ims:ime,:,jps+py:min(jde-1,jpe)+py)
405 grid%em_g_php (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_php (ims:ime,:,jps+py:min(jde-1,jpe)+py)
406 grid%em_t_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_t_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
407 grid%em_t_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_t_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
408 grid%em_a_t_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_t_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
409 grid%em_a_t_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_t_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
410 grid%em_g_t_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_t_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
411 grid%em_g_t_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_t_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
412 grid%em_t_init (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_t_init (ims:ime,:,jps+py:min(jde-1,jpe)+py)
413 grid%em_tp_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_tp_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
414 grid%em_tp_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_tp_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
415 grid%em_t_save (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_t_save (ims:ime,:,jps+py:min(jde-1,jpe)+py)
416 grid%em_a_t_save (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_t_save (ims:ime,:,jps+py:min(jde-1,jpe)+py)
417 grid%em_g_t_save (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_t_save (ims:ime,:,jps+py:min(jde-1,jpe)+py)
418 grid%em_mu_1 (ims:ime,jps:min(jde-1,jpe)) = grid%em_mu_1 (ims:ime,jps+py:min(jde-1,jpe)+py)
419 grid%em_mu_2 (ims:ime,jps:min(jde-1,jpe)) = grid%em_mu_2 (ims:ime,jps+py:min(jde-1,jpe)+py)
420 grid%em_a_mu_1 (ims:ime,jps:min(jde-1,jpe)) = grid%em_a_mu_1 (ims:ime,jps+py:min(jde-1,jpe)+py)
421 grid%em_a_mu_2 (ims:ime,jps:min(jde-1,jpe)) = grid%em_a_mu_2 (ims:ime,jps+py:min(jde-1,jpe)+py)
422 grid%em_g_mu_1 (ims:ime,jps:min(jde-1,jpe)) = grid%em_g_mu_1 (ims:ime,jps+py:min(jde-1,jpe)+py)
423 grid%em_g_mu_2 (ims:ime,jps:min(jde-1,jpe)) = grid%em_g_mu_2 (ims:ime,jps+py:min(jde-1,jpe)+py)
424 grid%em_mub (ims:ime,jps:min(jde-1,jpe)) = grid%em_mub (ims:ime,jps+py:min(jde-1,jpe)+py)
425 grid%em_a_mub (ims:ime,jps:min(jde-1,jpe)) = grid%em_a_mub (ims:ime,jps+py:min(jde-1,jpe)+py)
426 grid%em_g_mub (ims:ime,jps:min(jde-1,jpe)) = grid%em_g_mub (ims:ime,jps+py:min(jde-1,jpe)+py)
427 grid%em_mub_fine (ims:ime,jps:min(jde-1,jpe)) = grid%em_mub_fine (ims:ime,jps+py:min(jde-1,jpe)+py)
428 grid%em_mu0 (ims:ime,jps:min(jde-1,jpe)) = grid%em_mu0 (ims:ime,jps+py:min(jde-1,jpe)+py)
429 grid%em_mudf (ims:ime,jps:min(jde-1,jpe)) = grid%em_mudf (ims:ime,jps+py:min(jde-1,jpe)+py)
430 grid%em_a_mudf (ims:ime,jps:min(jde-1,jpe)) = grid%em_a_mudf (ims:ime,jps+py:min(jde-1,jpe)+py)
431 grid%em_g_mudf (ims:ime,jps:min(jde-1,jpe)) = grid%em_g_mudf (ims:ime,jps+py:min(jde-1,jpe)+py)
432 grid%em_muu (ims:ime,jps:min(jde-1,jpe)) = grid%em_muu (ims:ime,jps+py:min(jde-1,jpe)+py)
433 grid%em_a_muu (ims:ime,jps:min(jde-1,jpe)) = grid%em_a_muu (ims:ime,jps+py:min(jde-1,jpe)+py)
434 grid%em_g_muu (ims:ime,jps:min(jde-1,jpe)) = grid%em_g_muu (ims:ime,jps+py:min(jde-1,jpe)+py)
435 grid%em_muv (ims:ime,jps:min(jde-1,jpe)) = grid%em_muv (ims:ime,jps+py:min(jde-1,jpe)+py)
436 grid%em_a_muv (ims:ime,jps:min(jde-1,jpe)) = grid%em_a_muv (ims:ime,jps+py:min(jde-1,jpe)+py)
437 grid%em_g_muv (ims:ime,jps:min(jde-1,jpe)) = grid%em_g_muv (ims:ime,jps+py:min(jde-1,jpe)+py)
438 grid%em_mut (ims:ime,jps:min(jde-1,jpe)) = grid%em_mut (ims:ime,jps+py:min(jde-1,jpe)+py)
439 grid%em_a_mut (ims:ime,jps:min(jde-1,jpe)) = grid%em_a_mut (ims:ime,jps+py:min(jde-1,jpe)+py)
440 grid%em_g_mut (ims:ime,jps:min(jde-1,jpe)) = grid%em_g_mut (ims:ime,jps+py:min(jde-1,jpe)+py)
441 grid%em_muts (ims:ime,jps:min(jde-1,jpe)) = grid%em_muts (ims:ime,jps+py:min(jde-1,jpe)+py)
442 grid%em_a_muts (ims:ime,jps:min(jde-1,jpe)) = grid%em_a_muts (ims:ime,jps+py:min(jde-1,jpe)+py)
443 grid%em_g_muts (ims:ime,jps:min(jde-1,jpe)) = grid%em_g_muts (ims:ime,jps+py:min(jde-1,jpe)+py)
444 grid%nest_pos (ims:ime,jps:min(jde-1,jpe)) = grid%nest_pos (ims:ime,jps+py:min(jde-1,jpe)+py)
445 grid%nest_mask (ims:ime,jps:min(jde-1,jpe)) = grid%nest_mask (ims:ime,jps+py:min(jde-1,jpe)+py)
446 grid%ht_coarse (ims:ime,jps:min(jde-1,jpe)) = grid%ht_coarse (ims:ime,jps+py:min(jde-1,jpe)+py)
447 grid%em_tke_1 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_tke_1 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
448 grid%em_tke_2 (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_tke_2 (ims:ime,:,jps+py:min(jde-1,jpe)+py)
449 grid%em_p (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_p (ims:ime,:,jps+py:min(jde-1,jpe)+py)
450 grid%em_a_p (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_p (ims:ime,:,jps+py:min(jde-1,jpe)+py)
451 grid%em_g_p (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_p (ims:ime,:,jps+py:min(jde-1,jpe)+py)
452 grid%em_al (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_al (ims:ime,:,jps+py:min(jde-1,jpe)+py)
453 grid%em_a_al (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_al (ims:ime,:,jps+py:min(jde-1,jpe)+py)
454 grid%em_g_al (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_al (ims:ime,:,jps+py:min(jde-1,jpe)+py)
455 grid%em_alt (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_alt (ims:ime,:,jps+py:min(jde-1,jpe)+py)
456 grid%em_a_alt (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_alt (ims:ime,:,jps+py:min(jde-1,jpe)+py)
457 grid%em_g_alt (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_alt (ims:ime,:,jps+py:min(jde-1,jpe)+py)
458 grid%em_alb (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_alb (ims:ime,:,jps+py:min(jde-1,jpe)+py)
459 grid%em_zx (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_zx (ims:ime,:,jps+py:min(jde-1,jpe)+py)
460 grid%em_zy (ims:ime,:,jps:min(jde,jpe)) = grid%em_zy (ims:ime,:,jps+py:min(jde,jpe)+py)
461 grid%em_rdz (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_rdz (ims:ime,:,jps+py:min(jde-1,jpe)+py)
462 grid%em_rdzw (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_rdzw (ims:ime,:,jps+py:min(jde-1,jpe)+py)
463 grid%em_pb (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_pb (ims:ime,:,jps+py:min(jde-1,jpe)+py)
464 grid%em_sr (ims:ime,jps:min(jde-1,jpe)) = grid%em_sr (ims:ime,jps+py:min(jde-1,jpe)+py)
465 grid%em_z (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_z (ims:ime,:,jps+py:min(jde-1,jpe)+py)
466 grid%em_a_z (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_a_z (ims:ime,:,jps+py:min(jde-1,jpe)+py)
467 grid%em_g_z (ims:ime,:,jps:min(jde-1,jpe)) = grid%em_g_z (ims:ime,:,jps+py:min(jde-1,jpe)+py)
468 grid%q2 (ims:ime,jps:min(jde-1,jpe)) = grid%q2 (ims:ime,jps+py:min(jde-1,jpe)+py)
469 grid%t2 (ims:ime,jps:min(jde-1,jpe)) = grid%t2 (ims:ime,jps+py:min(jde-1,jpe)+py)
470 grid%th2 (ims:ime,jps:min(jde-1,jpe)) = grid%th2 (ims:ime,jps+py:min(jde-1,jpe)+py)
471 grid%psfc (ims:ime,jps:min(jde-1,jpe)) = grid%psfc (ims:ime,jps+py:min(jde-1,jpe)+py)
472 grid%u10 (ims:ime,jps:min(jde-1,jpe)) = grid%u10 (ims:ime,jps+py:min(jde-1,jpe)+py)
473 grid%v10 (ims:ime,jps:min(jde-1,jpe)) = grid%v10 (ims:ime,jps+py:min(jde-1,jpe)+py)
474 grid%uratx (ims:ime,jps:min(jde-1,jpe)) = grid%uratx (ims:ime,jps+py:min(jde-1,jpe)+py)
475 grid%vratx (ims:ime,jps:min(jde-1,jpe)) = grid%vratx (ims:ime,jps+py:min(jde-1,jpe)+py)
476 grid%tratx (ims:ime,jps:min(jde-1,jpe)) = grid%tratx (ims:ime,jps+py:min(jde-1,jpe)+py)
477 grid%imask_nostag (ims:ime,jps:min(jde-1,jpe)) = grid%imask_nostag (ims:ime,jps+py:min(jde-1,jpe)+py)
478 grid%imask_xstag (ims:ime,jps:min(jde-1,jpe)) = grid%imask_xstag (ims:ime,jps+py:min(jde-1,jpe)+py)
479 grid%imask_ystag (ims:ime,jps:min(jde,jpe)) = grid%imask_ystag (ims:ime,jps+py:min(jde,jpe)+py)
480 grid%imask_xystag (ims:ime,jps:min(jde,jpe)) = grid%imask_xystag (ims:ime,jps+py:min(jde,jpe)+py)
481 if ( P_qv .GT. 1 ) moist ( ims:ime,:,jps:min(jde-1,jpe),P_qv) = moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_qv)
482 if ( P_qc .GT. 1 ) moist ( ims:ime,:,jps:min(jde-1,jpe),P_qc) = moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_qc)
483 if ( P_qr .GT. 1 ) moist ( ims:ime,:,jps:min(jde-1,jpe),P_qr) = moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_qr)
484 if ( P_qi .GT. 1 ) moist ( ims:ime,:,jps:min(jde-1,jpe),P_qi) = moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_qi)
485 if ( P_qs .GT. 1 ) moist ( ims:ime,:,jps:min(jde-1,jpe),P_qs) = moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_qs)
486 if ( P_qg .GT. 1 ) moist ( ims:ime,:,jps:min(jde-1,jpe),P_qg) = moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_qg)
487 if ( P_a_qv .GT. 1 ) a_moist ( ims:ime,:,jps:min(jde-1,jpe),P_a_qv) = a_moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_a_qv)
488 if ( P_a_qc .GT. 1 ) a_moist ( ims:ime,:,jps:min(jde-1,jpe),P_a_qc) = a_moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_a_qc)
489 if ( P_a_qr .GT. 1 ) a_moist ( ims:ime,:,jps:min(jde-1,jpe),P_a_qr) = a_moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_a_qr)
490 if ( P_a_qi .GT. 1 ) a_moist ( ims:ime,:,jps:min(jde-1,jpe),P_a_qi) = a_moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_a_qi)
491 if ( P_a_qs .GT. 1 ) a_moist ( ims:ime,:,jps:min(jde-1,jpe),P_a_qs) = a_moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_a_qs)
492 if ( P_a_qg .GT. 1 ) a_moist ( ims:ime,:,jps:min(jde-1,jpe),P_a_qg) = a_moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_a_qg)
493 if ( P_g_qv .GT. 1 ) g_moist ( ims:ime,:,jps:min(jde-1,jpe),P_g_qv) = g_moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_g_qv)
494 if ( P_g_qc .GT. 1 ) g_moist ( ims:ime,:,jps:min(jde-1,jpe),P_g_qc) = g_moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_g_qc)
495 if ( P_g_qr .GT. 1 ) g_moist ( ims:ime,:,jps:min(jde-1,jpe),P_g_qr) = g_moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_g_qr)
496 if ( P_g_qi .GT. 1 ) g_moist ( ims:ime,:,jps:min(jde-1,jpe),P_g_qi) = g_moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_g_qi)
497 if ( P_g_qs .GT. 1 ) g_moist ( ims:ime,:,jps:min(jde-1,jpe),P_g_qs) = g_moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_g_qs)
498 if ( P_g_qg .GT. 1 ) g_moist ( ims:ime,:,jps:min(jde-1,jpe),P_g_qg) = g_moist (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_g_qg)
499 if ( P_qni .GT. 1 ) scalar ( ims:ime,:,jps:min(jde-1,jpe),P_qni) = scalar (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_qni)
500 if ( P_qt .GT. 1 ) scalar ( ims:ime,:,jps:min(jde-1,jpe),P_qt) = scalar (ims:ime,:,jps+py:min(jde-1,jpe)+py,P_qt)
501 grid%landmask (ims:ime,jps:min(jde-1,jpe)) = grid%landmask (ims:ime,jps+py:min(jde-1,jpe)+py)
502 grid%shdmax (ims:ime,jps:min(jde-1,jpe)) = grid%shdmax (ims:ime,jps+py:min(jde-1,jpe)+py)
503 grid%shdmin (ims:ime,jps:min(jde-1,jpe)) = grid%shdmin (ims:ime,jps+py:min(jde-1,jpe)+py)
504 grid%snoalb (ims:ime,jps:min(jde-1,jpe)) = grid%snoalb (ims:ime,jps+py:min(jde-1,jpe)+py)
505 grid%tslb (ims:ime,:,jps:min(jde-1,jpe)) = grid%tslb (ims:ime,:,jps+py:min(jde-1,jpe)+py)
506 grid%smois (ims:ime,:,jps:min(jde-1,jpe)) = grid%smois (ims:ime,:,jps+py:min(jde-1,jpe)+py)
507 grid%sh2o (ims:ime,:,jps:min(jde-1,jpe)) = grid%sh2o (ims:ime,:,jps+py:min(jde-1,jpe)+py)
508 grid%xice (ims:ime,jps:min(jde-1,jpe)) = grid%xice (ims:ime,jps+py:min(jde-1,jpe)+py)
509 grid%sfcrunoff (ims:ime,jps:min(jde-1,jpe)) = grid%sfcrunoff (ims:ime,jps+py:min(jde-1,jpe)+py)
510 grid%udrunoff (ims:ime,jps:min(jde-1,jpe)) = grid%udrunoff (ims:ime,jps+py:min(jde-1,jpe)+py)
511 grid%ivgtyp (ims:ime,jps:min(jde-1,jpe)) = grid%ivgtyp (ims:ime,jps+py:min(jde-1,jpe)+py)
512 grid%isltyp (ims:ime,jps:min(jde-1,jpe)) = grid%isltyp (ims:ime,jps+py:min(jde-1,jpe)+py)
513 grid%vegfra (ims:ime,jps:min(jde-1,jpe)) = grid%vegfra (ims:ime,jps+py:min(jde-1,jpe)+py)
514 grid%sfcevp (ims:ime,jps:min(jde-1,jpe)) = grid%sfcevp (ims:ime,jps+py:min(jde-1,jpe)+py)
515 grid%acsnow (ims:ime,jps:min(jde-1,jpe)) = grid%acsnow (ims:ime,jps+py:min(jde-1,jpe)+py)
516 grid%acsnom (ims:ime,jps:min(jde-1,jpe)) = grid%acsnom (ims:ime,jps+py:min(jde-1,jpe)+py)
517 grid%snow (ims:ime,jps:min(jde-1,jpe)) = grid%snow (ims:ime,jps+py:min(jde-1,jpe)+py)
518 grid%snowh (ims:ime,jps:min(jde-1,jpe)) = grid%snowh (ims:ime,jps+py:min(jde-1,jpe)+py)
519 grid%rhosn (ims:ime,jps:min(jde-1,jpe)) = grid%rhosn (ims:ime,jps+py:min(jde-1,jpe)+py)
520 grid%canwat (ims:ime,jps:min(jde-1,jpe)) = grid%canwat (ims:ime,jps+py:min(jde-1,jpe)+py)
521 grid%sst (ims:ime,jps:min(jde-1,jpe)) = grid%sst (ims:ime,jps+py:min(jde-1,jpe)+py)
522 grid%htop (ims:ime,jps:min(jde-1,jpe)) = grid%htop (ims:ime,jps+py:min(jde-1,jpe)+py)
523 grid%hbot (ims:ime,jps:min(jde-1,jpe)) = grid%hbot (ims:ime,jps+py:min(jde-1,jpe)+py)
524 grid%cuppt (ims:ime,jps:min(jde-1,jpe)) = grid%cuppt (ims:ime,jps+py:min(jde-1,jpe)+py)
525 grid%rswtoa (ims:ime,jps:min(jde-1,jpe)) = grid%rswtoa (ims:ime,jps+py:min(jde-1,jpe)+py)
526 grid%rlwtoa (ims:ime,jps:min(jde-1,jpe)) = grid%rlwtoa (ims:ime,jps+py:min(jde-1,jpe)+py)
527 grid%czmean (ims:ime,jps:min(jde-1,jpe)) = grid%czmean (ims:ime,jps+py:min(jde-1,jpe)+py)
528 grid%cfracl (ims:ime,jps:min(jde-1,jpe)) = grid%cfracl (ims:ime,jps+py:min(jde-1,jpe)+py)
529 grid%cfracm (ims:ime,jps:min(jde-1,jpe)) = grid%cfracm (ims:ime,jps+py:min(jde-1,jpe)+py)
530 grid%cfrach (ims:ime,jps:min(jde-1,jpe)) = grid%cfrach (ims:ime,jps+py:min(jde-1,jpe)+py)
531 grid%acfrst (ims:ime,jps:min(jde-1,jpe)) = grid%acfrst (ims:ime,jps+py:min(jde-1,jpe)+py)
532 grid%ncfrst (ims:ime,jps:min(jde-1,jpe)) = grid%ncfrst (ims:ime,jps+py:min(jde-1,jpe)+py)
533 grid%acfrcv (ims:ime,jps:min(jde-1,jpe)) = grid%acfrcv (ims:ime,jps+py:min(jde-1,jpe)+py)
534 grid%ncfrcv (ims:ime,jps:min(jde-1,jpe)) = grid%ncfrcv (ims:ime,jps+py:min(jde-1,jpe)+py)
535 grid%h_diabatic (ims:ime,:,jps:min(jde-1,jpe)) = grid%h_diabatic (ims:ime,:,jps+py:min(jde-1,jpe)+py)
536 grid%msft (ims:ime,jps:min(jde-1,jpe)) = grid%msft (ims:ime,jps+py:min(jde-1,jpe)+py)
537 grid%msfu (ims:ime,jps:min(jde-1,jpe)) = grid%msfu (ims:ime,jps+py:min(jde-1,jpe)+py)
538 grid%msfv (ims:ime,jps:min(jde,jpe)) = grid%msfv (ims:ime,jps+py:min(jde,jpe)+py)
539 grid%f (ims:ime,jps:min(jde-1,jpe)) = grid%f (ims:ime,jps+py:min(jde-1,jpe)+py)
540 grid%e (ims:ime,jps:min(jde-1,jpe)) = grid%e (ims:ime,jps+py:min(jde-1,jpe)+py)
541 grid%sina (ims:ime,jps:min(jde-1,jpe)) = grid%sina (ims:ime,jps+py:min(jde-1,jpe)+py)
542 grid%cosa (ims:ime,jps:min(jde-1,jpe)) = grid%cosa (ims:ime,jps+py:min(jde-1,jpe)+py)
543 grid%ht (ims:ime,jps:min(jde-1,jpe)) = grid%ht (ims:ime,jps+py:min(jde-1,jpe)+py)
544 grid%ht_fine (ims:ime,jps:min(jde-1,jpe)) = grid%ht_fine (ims:ime,jps+py:min(jde-1,jpe)+py)
545 grid%ht_int (ims:ime,jps:min(jde-1,jpe)) = grid%ht_int (ims:ime,jps+py:min(jde-1,jpe)+py)
546 grid%ht_input (ims:ime,jps:min(jde-1,jpe)) = grid%ht_input (ims:ime,jps+py:min(jde-1,jpe)+py)
547 grid%tsk (ims:ime,jps:min(jde-1,jpe)) = grid%tsk (ims:ime,jps+py:min(jde-1,jpe)+py)
548 grid%tsk_save (ims:ime,jps:min(jde-1,jpe)) = grid%tsk_save (ims:ime,jps+py:min(jde-1,jpe)+py)
549 grid%rthcuten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rthcuten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
550 grid%rqvcuten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rqvcuten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
551 grid%rqrcuten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rqrcuten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
552 grid%rqccuten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rqccuten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
553 grid%rqscuten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rqscuten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
554 grid%rqicuten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rqicuten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
555 grid%w0avg (ims:ime,:,jps:min(jde-1,jpe)) = grid%w0avg (ims:ime,:,jps+py:min(jde-1,jpe)+py)
556 grid%rainc (ims:ime,jps:min(jde-1,jpe)) = grid%rainc (ims:ime,jps+py:min(jde-1,jpe)+py)
557 grid%rainnc (ims:ime,jps:min(jde-1,jpe)) = grid%rainnc (ims:ime,jps+py:min(jde-1,jpe)+py)
558 grid%raincv (ims:ime,jps:min(jde-1,jpe)) = grid%raincv (ims:ime,jps+py:min(jde-1,jpe)+py)
559 grid%rainncv (ims:ime,jps:min(jde-1,jpe)) = grid%rainncv (ims:ime,jps+py:min(jde-1,jpe)+py)
560 grid%rainbl (ims:ime,jps:min(jde-1,jpe)) = grid%rainbl (ims:ime,jps+py:min(jde-1,jpe)+py)
561 grid%snownc (ims:ime,jps:min(jde-1,jpe)) = grid%snownc (ims:ime,jps+py:min(jde-1,jpe)+py)
562 grid%graupelnc (ims:ime,jps:min(jde-1,jpe)) = grid%graupelnc (ims:ime,jps+py:min(jde-1,jpe)+py)
563 grid%snowncv (ims:ime,jps:min(jde-1,jpe)) = grid%snowncv (ims:ime,jps+py:min(jde-1,jpe)+py)
564 grid%graupelncv (ims:ime,jps:min(jde-1,jpe)) = grid%graupelncv (ims:ime,jps+py:min(jde-1,jpe)+py)
565 grid%nca (ims:ime,jps:min(jde-1,jpe)) = grid%nca (ims:ime,jps+py:min(jde-1,jpe)+py)
566 grid%lowlyr (ims:ime,jps:min(jde-1,jpe)) = grid%lowlyr (ims:ime,jps+py:min(jde-1,jpe)+py)
567 grid%mass_flux (ims:ime,jps:min(jde-1,jpe)) = grid%mass_flux (ims:ime,jps+py:min(jde-1,jpe)+py)
568 grid%apr_gr (ims:ime,jps:min(jde-1,jpe)) = grid%apr_gr (ims:ime,jps+py:min(jde-1,jpe)+py)
569 grid%apr_w (ims:ime,jps:min(jde-1,jpe)) = grid%apr_w (ims:ime,jps+py:min(jde-1,jpe)+py)
570 grid%apr_mc (ims:ime,jps:min(jde-1,jpe)) = grid%apr_mc (ims:ime,jps+py:min(jde-1,jpe)+py)
571 grid%apr_st (ims:ime,jps:min(jde-1,jpe)) = grid%apr_st (ims:ime,jps+py:min(jde-1,jpe)+py)
572 grid%apr_as (ims:ime,jps:min(jde-1,jpe)) = grid%apr_as (ims:ime,jps+py:min(jde-1,jpe)+py)
573 grid%apr_capma (ims:ime,jps:min(jde-1,jpe)) = grid%apr_capma (ims:ime,jps+py:min(jde-1,jpe)+py)
574 grid%apr_capme (ims:ime,jps:min(jde-1,jpe)) = grid%apr_capme (ims:ime,jps+py:min(jde-1,jpe)+py)
575 grid%apr_capmi (ims:ime,jps:min(jde-1,jpe)) = grid%apr_capmi (ims:ime,jps+py:min(jde-1,jpe)+py)
576 grid%rthften (ims:ime,:,jps:min(jde-1,jpe)) = grid%rthften (ims:ime,:,jps+py:min(jde-1,jpe)+py)
577 grid%rqvften (ims:ime,:,jps:min(jde-1,jpe)) = grid%rqvften (ims:ime,:,jps+py:min(jde-1,jpe)+py)
578 grid%rthraten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rthraten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
579 grid%rthratenlw (ims:ime,:,jps:min(jde-1,jpe)) = grid%rthratenlw (ims:ime,:,jps+py:min(jde-1,jpe)+py)
580 grid%rthratensw (ims:ime,:,jps:min(jde-1,jpe)) = grid%rthratensw (ims:ime,:,jps+py:min(jde-1,jpe)+py)
581 grid%cldfra (ims:ime,:,jps:min(jde-1,jpe)) = grid%cldfra (ims:ime,:,jps+py:min(jde-1,jpe)+py)
582 grid%swdown (ims:ime,jps:min(jde-1,jpe)) = grid%swdown (ims:ime,jps+py:min(jde-1,jpe)+py)
583 grid%swdownc (ims:ime,jps:min(jde-1,jpe)) = grid%swdownc (ims:ime,jps+py:min(jde-1,jpe)+py)
584 grid%gsw (ims:ime,jps:min(jde-1,jpe)) = grid%gsw (ims:ime,jps+py:min(jde-1,jpe)+py)
585 grid%glw (ims:ime,jps:min(jde-1,jpe)) = grid%glw (ims:ime,jps+py:min(jde-1,jpe)+py)
586 grid%swcf (ims:ime,jps:min(jde-1,jpe)) = grid%swcf (ims:ime,jps+py:min(jde-1,jpe)+py)
587 grid%lwcf (ims:ime,jps:min(jde-1,jpe)) = grid%lwcf (ims:ime,jps+py:min(jde-1,jpe)+py)
588 grid%olr (ims:ime,jps:min(jde-1,jpe)) = grid%olr (ims:ime,jps+py:min(jde-1,jpe)+py)
589 grid%xlat (ims:ime,jps:min(jde-1,jpe)) = grid%xlat (ims:ime,jps+py:min(jde-1,jpe)+py)
590 grid%xlong (ims:ime,jps:min(jde-1,jpe)) = grid%xlong (ims:ime,jps+py:min(jde-1,jpe)+py)
591 grid%em_xlat_u (ims:ime,jps:min(jde-1,jpe)) = grid%em_xlat_u (ims:ime,jps+py:min(jde-1,jpe)+py)
592 grid%em_xlong_u (ims:ime,jps:min(jde-1,jpe)) = grid%em_xlong_u (ims:ime,jps+py:min(jde-1,jpe)+py)
593 grid%em_xlat_v (ims:ime,jps:min(jde,jpe)) = grid%em_xlat_v (ims:ime,jps+py:min(jde,jpe)+py)
594 grid%em_xlong_v (ims:ime,jps:min(jde,jpe)) = grid%em_xlong_v (ims:ime,jps+py:min(jde,jpe)+py)
595 grid%albedo (ims:ime,jps:min(jde-1,jpe)) = grid%albedo (ims:ime,jps+py:min(jde-1,jpe)+py)
596 grid%albbck (ims:ime,jps:min(jde-1,jpe)) = grid%albbck (ims:ime,jps+py:min(jde-1,jpe)+py)
597 grid%emiss (ims:ime,jps:min(jde-1,jpe)) = grid%emiss (ims:ime,jps+py:min(jde-1,jpe)+py)
598 grid%cldefi (ims:ime,jps:min(jde-1,jpe)) = grid%cldefi (ims:ime,jps+py:min(jde-1,jpe)+py)
599 grid%rublten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rublten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
600 grid%rvblten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rvblten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
601 grid%rthblten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rthblten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
602 grid%rqvblten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rqvblten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
603 grid%rqcblten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rqcblten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
604 grid%rqiblten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rqiblten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
605 grid%tmn (ims:ime,jps:min(jde-1,jpe)) = grid%tmn (ims:ime,jps+py:min(jde-1,jpe)+py)
606 grid%xland (ims:ime,jps:min(jde-1,jpe)) = grid%xland (ims:ime,jps+py:min(jde-1,jpe)+py)
607 grid%znt (ims:ime,jps:min(jde-1,jpe)) = grid%znt (ims:ime,jps+py:min(jde-1,jpe)+py)
608 grid%ust (ims:ime,jps:min(jde-1,jpe)) = grid%ust (ims:ime,jps+py:min(jde-1,jpe)+py)
609 grid%rmol (ims:ime,jps:min(jde-1,jpe)) = grid%rmol (ims:ime,jps+py:min(jde-1,jpe)+py)
610 grid%mol (ims:ime,jps:min(jde-1,jpe)) = grid%mol (ims:ime,jps+py:min(jde-1,jpe)+py)
611 grid%pblh (ims:ime,jps:min(jde-1,jpe)) = grid%pblh (ims:ime,jps+py:min(jde-1,jpe)+py)
612 grid%capg (ims:ime,jps:min(jde-1,jpe)) = grid%capg (ims:ime,jps+py:min(jde-1,jpe)+py)
613 grid%thc (ims:ime,jps:min(jde-1,jpe)) = grid%thc (ims:ime,jps+py:min(jde-1,jpe)+py)
614 grid%hfx (ims:ime,jps:min(jde-1,jpe)) = grid%hfx (ims:ime,jps+py:min(jde-1,jpe)+py)
615 grid%qfx (ims:ime,jps:min(jde-1,jpe)) = grid%qfx (ims:ime,jps+py:min(jde-1,jpe)+py)
616 grid%lh (ims:ime,jps:min(jde-1,jpe)) = grid%lh (ims:ime,jps+py:min(jde-1,jpe)+py)
617 grid%flhc (ims:ime,jps:min(jde-1,jpe)) = grid%flhc (ims:ime,jps+py:min(jde-1,jpe)+py)
618 grid%flqc (ims:ime,jps:min(jde-1,jpe)) = grid%flqc (ims:ime,jps+py:min(jde-1,jpe)+py)
619 grid%qsg (ims:ime,jps:min(jde-1,jpe)) = grid%qsg (ims:ime,jps+py:min(jde-1,jpe)+py)
620 grid%qvg (ims:ime,jps:min(jde-1,jpe)) = grid%qvg (ims:ime,jps+py:min(jde-1,jpe)+py)
621 grid%qcg (ims:ime,jps:min(jde-1,jpe)) = grid%qcg (ims:ime,jps+py:min(jde-1,jpe)+py)
622 grid%soilt1 (ims:ime,jps:min(jde-1,jpe)) = grid%soilt1 (ims:ime,jps+py:min(jde-1,jpe)+py)
623 grid%tsnav (ims:ime,jps:min(jde-1,jpe)) = grid%tsnav (ims:ime,jps+py:min(jde-1,jpe)+py)
624 grid%snowc (ims:ime,jps:min(jde-1,jpe)) = grid%snowc (ims:ime,jps+py:min(jde-1,jpe)+py)
625 grid%mavail (ims:ime,jps:min(jde-1,jpe)) = grid%mavail (ims:ime,jps+py:min(jde-1,jpe)+py)
626 grid%xkmv (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkmv (ims:ime,:,jps+py:min(jde-1,jpe)+py)
627 grid%xkmh (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkmh (ims:ime,:,jps+py:min(jde-1,jpe)+py)
628 grid%xkmhd (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkmhd (ims:ime,:,jps+py:min(jde-1,jpe)+py)
629 grid%a_xkmhd (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_xkmhd (ims:ime,:,jps+py:min(jde-1,jpe)+py)
630 grid%g_xkmhd (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_xkmhd (ims:ime,:,jps+py:min(jde-1,jpe)+py)
631 grid%xkhv (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkhv (ims:ime,:,jps+py:min(jde-1,jpe)+py)
632 grid%xkhh (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkhh (ims:ime,:,jps+py:min(jde-1,jpe)+py)
633 !ENDOFREGISTRYGENERATEDINCLUDE