nodyn_shift_halo_y.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/nodyn_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%nest_pos , 1 )
14 CALL add_msg_y_shift_real ( grid%nest_mask , 1 )
15 CALL add_msg_y_shift_real ( grid%ht_coarse , 1 )
16 CALL add_msg_y_shift_real ( grid%q2 , 1 )
17 CALL add_msg_y_shift_real ( grid%t2 , 1 )
18 CALL add_msg_y_shift_real ( grid%th2 , 1 )
19 CALL add_msg_y_shift_real ( grid%psfc , 1 )
20 CALL add_msg_y_shift_real ( grid%u10 , 1 )
21 CALL add_msg_y_shift_real ( grid%v10 , 1 )
22 CALL add_msg_y_shift_real ( grid%uratx , 1 )
23 CALL add_msg_y_shift_real ( grid%vratx , 1 )
24 CALL add_msg_y_shift_real ( grid%tratx , 1 )
25 CALL add_msg_y_shift_integer ( grid%imask_nostag , 1 )
26 CALL add_msg_y_shift_integer ( grid%imask_xstag , 1 )
27 CALL add_msg_y_shift_integer ( grid%imask_ystag , 1 )
28 CALL add_msg_y_shift_integer ( grid%imask_xystag , 1 )
29 if ( P_qv .GT. 1 ) CALL add_msg_y_shift_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qv), glen(3) )
30 if ( P_qc .GT. 1 ) CALL add_msg_y_shift_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qc), glen(3) )
31 if ( P_qr .GT. 1 ) CALL add_msg_y_shift_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qr), glen(3) )
32 if ( P_qi .GT. 1 ) CALL add_msg_y_shift_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qi), glen(3) )
33 if ( P_qs .GT. 1 ) CALL add_msg_y_shift_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qs), glen(3) )
34 if ( P_qg .GT. 1 ) CALL add_msg_y_shift_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qg), glen(3) )
35 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) )
36 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) )
37 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) )
38 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) )
39 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) )
40 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) )
41 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) )
42 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) )
43 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) )
44 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) )
45 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) )
46 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) )
47 if ( P_qni .GT. 1 ) CALL add_msg_y_shift_real ( scalar ( grid%sm31,grid%sm32,grid%sm33,P_qni), glen(3) )
48 if ( P_qt .GT. 1 ) CALL add_msg_y_shift_real ( scalar ( grid%sm31,grid%sm32,grid%sm33,P_qt), glen(3) )
49 CALL add_msg_y_shift_real ( grid%landmask , 1 )
50 CALL add_msg_y_shift_real ( grid%shdmax , 1 )
51 CALL add_msg_y_shift_real ( grid%shdmin , 1 )
52 CALL add_msg_y_shift_real ( grid%snoalb , 1 )
53 CALL add_msg_y_shift_real ( grid%tslb , config_flags%num_soil_layers )
54 CALL add_msg_y_shift_real ( grid%smois , config_flags%num_soil_layers )
55 CALL add_msg_y_shift_real ( grid%sh2o , config_flags%num_soil_layers )
56 CALL add_msg_y_shift_real ( grid%xice , 1 )
57 CALL add_msg_y_shift_real ( grid%sfcrunoff , 1 )
58 CALL add_msg_y_shift_real ( grid%udrunoff , 1 )
59 CALL add_msg_y_shift_integer ( grid%ivgtyp , 1 )
60 CALL add_msg_y_shift_integer ( grid%isltyp , 1 )
61 CALL add_msg_y_shift_real ( grid%vegfra , 1 )
62 CALL add_msg_y_shift_real ( grid%sfcevp , 1 )
63 CALL add_msg_y_shift_real ( grid%acsnow , 1 )
64 CALL add_msg_y_shift_real ( grid%acsnom , 1 )
65 CALL add_msg_y_shift_real ( grid%snow , 1 )
66 CALL add_msg_y_shift_real ( grid%snowh , 1 )
67 CALL add_msg_y_shift_real ( grid%rhosn , 1 )
68 CALL add_msg_y_shift_real ( grid%canwat , 1 )
69 CALL add_msg_y_shift_real ( grid%sst , 1 )
70 CALL add_msg_y_shift_real ( grid%htop , 1 )
71 CALL add_msg_y_shift_real ( grid%hbot , 1 )
72 CALL add_msg_y_shift_real ( grid%cuppt , 1 )
73 CALL add_msg_y_shift_real ( grid%rswtoa , 1 )
74 CALL add_msg_y_shift_real ( grid%rlwtoa , 1 )
75 CALL add_msg_y_shift_real ( grid%czmean , 1 )
76 CALL add_msg_y_shift_real ( grid%cfracl , 1 )
77 CALL add_msg_y_shift_real ( grid%cfracm , 1 )
78 CALL add_msg_y_shift_real ( grid%cfrach , 1 )
79 CALL add_msg_y_shift_real ( grid%acfrst , 1 )
80 CALL add_msg_y_shift_integer ( grid%ncfrst , 1 )
81 CALL add_msg_y_shift_real ( grid%acfrcv , 1 )
82 CALL add_msg_y_shift_integer ( grid%ncfrcv , 1 )
83 CALL add_msg_y_shift_real ( grid%h_diabatic , (glen(3)) )
84 CALL add_msg_y_shift_real ( grid%msft , 1 )
85 CALL add_msg_y_shift_real ( grid%msfu , 1 )
86 CALL add_msg_y_shift_real ( grid%msfv , 1 )
87 CALL add_msg_y_shift_real ( grid%f , 1 )
88 CALL add_msg_y_shift_real ( grid%e , 1 )
89 CALL add_msg_y_shift_real ( grid%sina , 1 )
90 CALL add_msg_y_shift_real ( grid%cosa , 1 )
91 CALL add_msg_y_shift_real ( grid%ht , 1 )
92 CALL add_msg_y_shift_real ( grid%ht_fine , 1 )
93 CALL add_msg_y_shift_real ( grid%ht_int , 1 )
94 CALL add_msg_y_shift_real ( grid%ht_input , 1 )
95 CALL add_msg_y_shift_real ( grid%tsk , 1 )
96 CALL add_msg_y_shift_real ( grid%tsk_save , 1 )
97 CALL add_msg_y_shift_real ( grid%rthcuten , (glen(3)) )
98 CALL add_msg_y_shift_real ( grid%rqvcuten , (glen(3)) )
99 CALL add_msg_y_shift_real ( grid%rqrcuten , (glen(3)) )
100 CALL add_msg_y_shift_real ( grid%rqccuten , (glen(3)) )
101 CALL add_msg_y_shift_real ( grid%rqscuten , (glen(3)) )
102 CALL add_msg_y_shift_real ( grid%rqicuten , (glen(3)) )
103 CALL add_msg_y_shift_real ( grid%w0avg , (glen(3)) )
104 CALL add_msg_y_shift_real ( grid%rainc , 1 )
105 CALL add_msg_y_shift_real ( grid%rainnc , 1 )
106 CALL add_msg_y_shift_real ( grid%raincv , 1 )
107 CALL add_msg_y_shift_real ( grid%rainncv , 1 )
108 CALL add_msg_y_shift_real ( grid%rainbl , 1 )
109 CALL add_msg_y_shift_real ( grid%snownc , 1 )
110 CALL add_msg_y_shift_real ( grid%graupelnc , 1 )
111 CALL add_msg_y_shift_real ( grid%snowncv , 1 )
112 CALL add_msg_y_shift_real ( grid%graupelncv , 1 )
113 CALL add_msg_y_shift_real ( grid%nca , 1 )
114 CALL add_msg_y_shift_integer ( grid%lowlyr , 1 )
115 CALL add_msg_y_shift_real ( grid%mass_flux , 1 )
116 CALL add_msg_y_shift_real ( grid%apr_gr , 1 )
117 CALL add_msg_y_shift_real ( grid%apr_w , 1 )
118 CALL add_msg_y_shift_real ( grid%apr_mc , 1 )
119 CALL add_msg_y_shift_real ( grid%apr_st , 1 )
120 CALL add_msg_y_shift_real ( grid%apr_as , 1 )
121 CALL add_msg_y_shift_real ( grid%apr_capma , 1 )
122 CALL add_msg_y_shift_real ( grid%apr_capme , 1 )
123 CALL add_msg_y_shift_real ( grid%apr_capmi , 1 )
124 CALL add_msg_y_shift_real ( grid%rthften , (glen(3)) )
125 CALL add_msg_y_shift_real ( grid%rqvften , (glen(3)) )
126 CALL add_msg_y_shift_real ( grid%rthraten , (glen(3)) )
127 CALL add_msg_y_shift_real ( grid%rthratenlw , (glen(3)) )
128 CALL add_msg_y_shift_real ( grid%rthratensw , (glen(3)) )
129 CALL add_msg_y_shift_real ( grid%cldfra , (glen(3)) )
130 CALL add_msg_y_shift_real ( grid%swdown , 1 )
131 CALL add_msg_y_shift_real ( grid%swdownc , 1 )
132 CALL add_msg_y_shift_real ( grid%gsw , 1 )
133 CALL add_msg_y_shift_real ( grid%glw , 1 )
134 CALL add_msg_y_shift_real ( grid%swcf , 1 )
135 CALL add_msg_y_shift_real ( grid%lwcf , 1 )
136 CALL add_msg_y_shift_real ( grid%olr , 1 )
137 CALL add_msg_y_shift_real ( grid%xlat , 1 )
138 CALL add_msg_y_shift_real ( grid%xlong , 1 )
139 CALL add_msg_y_shift_real ( grid%albedo , 1 )
140 CALL add_msg_y_shift_real ( grid%albbck , 1 )
141 CALL add_msg_y_shift_real ( grid%emiss , 1 )
142 CALL add_msg_y_shift_real ( grid%cldefi , 1 )
143 CALL add_msg_y_shift_real ( grid%rublten , (glen(3)) )
144 CALL add_msg_y_shift_real ( grid%rvblten , (glen(3)) )
145 CALL add_msg_y_shift_real ( grid%rthblten , (glen(3)) )
146 CALL add_msg_y_shift_real ( grid%rqvblten , (glen(3)) )
147 CALL add_msg_y_shift_real ( grid%rqcblten , (glen(3)) )
148 CALL add_msg_y_shift_real ( grid%rqiblten , (glen(3)) )
149 CALL add_msg_y_shift_real ( grid%tmn , 1 )
150 CALL add_msg_y_shift_real ( grid%xland , 1 )
151 CALL add_msg_y_shift_real ( grid%znt , 1 )
152 CALL add_msg_y_shift_real ( grid%ust , 1 )
153 CALL add_msg_y_shift_real ( grid%rmol , 1 )
154 CALL add_msg_y_shift_real ( grid%mol , 1 )
155 CALL add_msg_y_shift_real ( grid%pblh , 1 )
156 CALL add_msg_y_shift_real ( grid%capg , 1 )
157 CALL add_msg_y_shift_real ( grid%thc , 1 )
158 CALL add_msg_y_shift_real ( grid%hfx , 1 )
159 CALL add_msg_y_shift_real ( grid%qfx , 1 )
160 CALL add_msg_y_shift_real ( grid%lh , 1 )
161 CALL add_msg_y_shift_real ( grid%flhc , 1 )
162 CALL add_msg_y_shift_real ( grid%flqc , 1 )
163 CALL add_msg_y_shift_real ( grid%qsg , 1 )
164 CALL add_msg_y_shift_real ( grid%qvg , 1 )
165 CALL add_msg_y_shift_real ( grid%qcg , 1 )
166 CALL add_msg_y_shift_real ( grid%soilt1 , 1 )
167 CALL add_msg_y_shift_real ( grid%tsnav , 1 )
168 CALL add_msg_y_shift_real ( grid%snowc , 1 )
169 CALL add_msg_y_shift_real ( grid%mavail , 1 )
170 CALL add_msg_y_shift_real ( grid%xkmv , (glen(3)) )
171 CALL add_msg_y_shift_real ( grid%xkmh , (glen(3)) )
172 CALL add_msg_y_shift_real ( grid%xkmhd , (glen(3)) )
173 CALL add_msg_y_shift_real ( grid%a_xkmhd , (glen(3)) )
174 CALL add_msg_y_shift_real ( grid%g_xkmhd , (glen(3)) )
175 CALL add_msg_y_shift_real ( grid%xkhv , (glen(3)) )
176 CALL add_msg_y_shift_real ( grid%xkhh , (glen(3)) )
177 CALL stencil_y_shift ( grid%domdesc , grid%shift_y )
178 ENDIF
179 CALL wrf_debug ( 50 , 'exchange halo for y shift' )
180 CALL rsl_exch_stencil ( grid%domdesc , grid%shift_y )
181 grid%lu_index (ims:ime,jps:min(jde-1,jpe)) = grid%lu_index (ims:ime,jps+py:min(jde-1,jpe)+py)
182 grid%lu_mask (ims:ime,jps:min(jde-1,jpe)) = grid%lu_mask (ims:ime,jps+py:min(jde-1,jpe)+py)
183 grid%nest_pos (ims:ime,jps:min(jde-1,jpe)) = grid%nest_pos (ims:ime,jps+py:min(jde-1,jpe)+py)
184 grid%nest_mask (ims:ime,jps:min(jde-1,jpe)) = grid%nest_mask (ims:ime,jps+py:min(jde-1,jpe)+py)
185 grid%ht_coarse (ims:ime,jps:min(jde-1,jpe)) = grid%ht_coarse (ims:ime,jps+py:min(jde-1,jpe)+py)
186 grid%q2 (ims:ime,jps:min(jde-1,jpe)) = grid%q2 (ims:ime,jps+py:min(jde-1,jpe)+py)
187 grid%t2 (ims:ime,jps:min(jde-1,jpe)) = grid%t2 (ims:ime,jps+py:min(jde-1,jpe)+py)
188 grid%th2 (ims:ime,jps:min(jde-1,jpe)) = grid%th2 (ims:ime,jps+py:min(jde-1,jpe)+py)
189 grid%psfc (ims:ime,jps:min(jde-1,jpe)) = grid%psfc (ims:ime,jps+py:min(jde-1,jpe)+py)
190 grid%u10 (ims:ime,jps:min(jde-1,jpe)) = grid%u10 (ims:ime,jps+py:min(jde-1,jpe)+py)
191 grid%v10 (ims:ime,jps:min(jde-1,jpe)) = grid%v10 (ims:ime,jps+py:min(jde-1,jpe)+py)
192 grid%uratx (ims:ime,jps:min(jde-1,jpe)) = grid%uratx (ims:ime,jps+py:min(jde-1,jpe)+py)
193 grid%vratx (ims:ime,jps:min(jde-1,jpe)) = grid%vratx (ims:ime,jps+py:min(jde-1,jpe)+py)
194 grid%tratx (ims:ime,jps:min(jde-1,jpe)) = grid%tratx (ims:ime,jps+py:min(jde-1,jpe)+py)
195 grid%imask_nostag (ims:ime,jps:min(jde-1,jpe)) = grid%imask_nostag (ims:ime,jps+py:min(jde-1,jpe)+py)
196 grid%imask_xstag (ims:ime,jps:min(jde-1,jpe)) = grid%imask_xstag (ims:ime,jps+py:min(jde-1,jpe)+py)
197 grid%imask_ystag (ims:ime,jps:min(jde,jpe)) = grid%imask_ystag (ims:ime,jps+py:min(jde,jpe)+py)
198 grid%imask_xystag (ims:ime,jps:min(jde,jpe)) = grid%imask_xystag (ims:ime,jps+py:min(jde,jpe)+py)
199 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)
200 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)
201 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)
202 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)
203 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)
204 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)
205 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)
206 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)
207 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)
208 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)
209 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)
210 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)
211 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)
212 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)
213 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)
214 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)
215 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)
216 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)
217 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)
218 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)
219 grid%landmask (ims:ime,jps:min(jde-1,jpe)) = grid%landmask (ims:ime,jps+py:min(jde-1,jpe)+py)
220 grid%shdmax (ims:ime,jps:min(jde-1,jpe)) = grid%shdmax (ims:ime,jps+py:min(jde-1,jpe)+py)
221 grid%shdmin (ims:ime,jps:min(jde-1,jpe)) = grid%shdmin (ims:ime,jps+py:min(jde-1,jpe)+py)
222 grid%snoalb (ims:ime,jps:min(jde-1,jpe)) = grid%snoalb (ims:ime,jps+py:min(jde-1,jpe)+py)
223 grid%tslb (ims:ime,:,jps:min(jde-1,jpe)) = grid%tslb (ims:ime,:,jps+py:min(jde-1,jpe)+py)
224 grid%smois (ims:ime,:,jps:min(jde-1,jpe)) = grid%smois (ims:ime,:,jps+py:min(jde-1,jpe)+py)
225 grid%sh2o (ims:ime,:,jps:min(jde-1,jpe)) = grid%sh2o (ims:ime,:,jps+py:min(jde-1,jpe)+py)
226 grid%xice (ims:ime,jps:min(jde-1,jpe)) = grid%xice (ims:ime,jps+py:min(jde-1,jpe)+py)
227 grid%sfcrunoff (ims:ime,jps:min(jde-1,jpe)) = grid%sfcrunoff (ims:ime,jps+py:min(jde-1,jpe)+py)
228 grid%udrunoff (ims:ime,jps:min(jde-1,jpe)) = grid%udrunoff (ims:ime,jps+py:min(jde-1,jpe)+py)
229 grid%ivgtyp (ims:ime,jps:min(jde-1,jpe)) = grid%ivgtyp (ims:ime,jps+py:min(jde-1,jpe)+py)
230 grid%isltyp (ims:ime,jps:min(jde-1,jpe)) = grid%isltyp (ims:ime,jps+py:min(jde-1,jpe)+py)
231 grid%vegfra (ims:ime,jps:min(jde-1,jpe)) = grid%vegfra (ims:ime,jps+py:min(jde-1,jpe)+py)
232 grid%sfcevp (ims:ime,jps:min(jde-1,jpe)) = grid%sfcevp (ims:ime,jps+py:min(jde-1,jpe)+py)
233 grid%acsnow (ims:ime,jps:min(jde-1,jpe)) = grid%acsnow (ims:ime,jps+py:min(jde-1,jpe)+py)
234 grid%acsnom (ims:ime,jps:min(jde-1,jpe)) = grid%acsnom (ims:ime,jps+py:min(jde-1,jpe)+py)
235 grid%snow (ims:ime,jps:min(jde-1,jpe)) = grid%snow (ims:ime,jps+py:min(jde-1,jpe)+py)
236 grid%snowh (ims:ime,jps:min(jde-1,jpe)) = grid%snowh (ims:ime,jps+py:min(jde-1,jpe)+py)
237 grid%rhosn (ims:ime,jps:min(jde-1,jpe)) = grid%rhosn (ims:ime,jps+py:min(jde-1,jpe)+py)
238 grid%canwat (ims:ime,jps:min(jde-1,jpe)) = grid%canwat (ims:ime,jps+py:min(jde-1,jpe)+py)
239 grid%sst (ims:ime,jps:min(jde-1,jpe)) = grid%sst (ims:ime,jps+py:min(jde-1,jpe)+py)
240 grid%htop (ims:ime,jps:min(jde-1,jpe)) = grid%htop (ims:ime,jps+py:min(jde-1,jpe)+py)
241 grid%hbot (ims:ime,jps:min(jde-1,jpe)) = grid%hbot (ims:ime,jps+py:min(jde-1,jpe)+py)
242 grid%cuppt (ims:ime,jps:min(jde-1,jpe)) = grid%cuppt (ims:ime,jps+py:min(jde-1,jpe)+py)
243 grid%rswtoa (ims:ime,jps:min(jde-1,jpe)) = grid%rswtoa (ims:ime,jps+py:min(jde-1,jpe)+py)
244 grid%rlwtoa (ims:ime,jps:min(jde-1,jpe)) = grid%rlwtoa (ims:ime,jps+py:min(jde-1,jpe)+py)
245 grid%czmean (ims:ime,jps:min(jde-1,jpe)) = grid%czmean (ims:ime,jps+py:min(jde-1,jpe)+py)
246 grid%cfracl (ims:ime,jps:min(jde-1,jpe)) = grid%cfracl (ims:ime,jps+py:min(jde-1,jpe)+py)
247 grid%cfracm (ims:ime,jps:min(jde-1,jpe)) = grid%cfracm (ims:ime,jps+py:min(jde-1,jpe)+py)
248 grid%cfrach (ims:ime,jps:min(jde-1,jpe)) = grid%cfrach (ims:ime,jps+py:min(jde-1,jpe)+py)
249 grid%acfrst (ims:ime,jps:min(jde-1,jpe)) = grid%acfrst (ims:ime,jps+py:min(jde-1,jpe)+py)
250 grid%ncfrst (ims:ime,jps:min(jde-1,jpe)) = grid%ncfrst (ims:ime,jps+py:min(jde-1,jpe)+py)
251 grid%acfrcv (ims:ime,jps:min(jde-1,jpe)) = grid%acfrcv (ims:ime,jps+py:min(jde-1,jpe)+py)
252 grid%ncfrcv (ims:ime,jps:min(jde-1,jpe)) = grid%ncfrcv (ims:ime,jps+py:min(jde-1,jpe)+py)
253 grid%h_diabatic (ims:ime,:,jps:min(jde-1,jpe)) = grid%h_diabatic (ims:ime,:,jps+py:min(jde-1,jpe)+py)
254 grid%msft (ims:ime,jps:min(jde-1,jpe)) = grid%msft (ims:ime,jps+py:min(jde-1,jpe)+py)
255 grid%msfu (ims:ime,jps:min(jde-1,jpe)) = grid%msfu (ims:ime,jps+py:min(jde-1,jpe)+py)
256 grid%msfv (ims:ime,jps:min(jde,jpe)) = grid%msfv (ims:ime,jps+py:min(jde,jpe)+py)
257 grid%f (ims:ime,jps:min(jde-1,jpe)) = grid%f (ims:ime,jps+py:min(jde-1,jpe)+py)
258 grid%e (ims:ime,jps:min(jde-1,jpe)) = grid%e (ims:ime,jps+py:min(jde-1,jpe)+py)
259 grid%sina (ims:ime,jps:min(jde-1,jpe)) = grid%sina (ims:ime,jps+py:min(jde-1,jpe)+py)
260 grid%cosa (ims:ime,jps:min(jde-1,jpe)) = grid%cosa (ims:ime,jps+py:min(jde-1,jpe)+py)
261 grid%ht (ims:ime,jps:min(jde-1,jpe)) = grid%ht (ims:ime,jps+py:min(jde-1,jpe)+py)
262 grid%ht_fine (ims:ime,jps:min(jde-1,jpe)) = grid%ht_fine (ims:ime,jps+py:min(jde-1,jpe)+py)
263 grid%ht_int (ims:ime,jps:min(jde-1,jpe)) = grid%ht_int (ims:ime,jps+py:min(jde-1,jpe)+py)
264 grid%ht_input (ims:ime,jps:min(jde-1,jpe)) = grid%ht_input (ims:ime,jps+py:min(jde-1,jpe)+py)
265 grid%tsk (ims:ime,jps:min(jde-1,jpe)) = grid%tsk (ims:ime,jps+py:min(jde-1,jpe)+py)
266 grid%tsk_save (ims:ime,jps:min(jde-1,jpe)) = grid%tsk_save (ims:ime,jps+py:min(jde-1,jpe)+py)
267 grid%rthcuten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rthcuten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
268 grid%rqvcuten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rqvcuten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
269 grid%rqrcuten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rqrcuten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
270 grid%rqccuten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rqccuten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
271 grid%rqscuten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rqscuten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
272 grid%rqicuten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rqicuten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
273 grid%w0avg (ims:ime,:,jps:min(jde-1,jpe)) = grid%w0avg (ims:ime,:,jps+py:min(jde-1,jpe)+py)
274 grid%rainc (ims:ime,jps:min(jde-1,jpe)) = grid%rainc (ims:ime,jps+py:min(jde-1,jpe)+py)
275 grid%rainnc (ims:ime,jps:min(jde-1,jpe)) = grid%rainnc (ims:ime,jps+py:min(jde-1,jpe)+py)
276 grid%raincv (ims:ime,jps:min(jde-1,jpe)) = grid%raincv (ims:ime,jps+py:min(jde-1,jpe)+py)
277 grid%rainncv (ims:ime,jps:min(jde-1,jpe)) = grid%rainncv (ims:ime,jps+py:min(jde-1,jpe)+py)
278 grid%rainbl (ims:ime,jps:min(jde-1,jpe)) = grid%rainbl (ims:ime,jps+py:min(jde-1,jpe)+py)
279 grid%snownc (ims:ime,jps:min(jde-1,jpe)) = grid%snownc (ims:ime,jps+py:min(jde-1,jpe)+py)
280 grid%graupelnc (ims:ime,jps:min(jde-1,jpe)) = grid%graupelnc (ims:ime,jps+py:min(jde-1,jpe)+py)
281 grid%snowncv (ims:ime,jps:min(jde-1,jpe)) = grid%snowncv (ims:ime,jps+py:min(jde-1,jpe)+py)
282 grid%graupelncv (ims:ime,jps:min(jde-1,jpe)) = grid%graupelncv (ims:ime,jps+py:min(jde-1,jpe)+py)
283 grid%nca (ims:ime,jps:min(jde-1,jpe)) = grid%nca (ims:ime,jps+py:min(jde-1,jpe)+py)
284 grid%lowlyr (ims:ime,jps:min(jde-1,jpe)) = grid%lowlyr (ims:ime,jps+py:min(jde-1,jpe)+py)
285 grid%mass_flux (ims:ime,jps:min(jde-1,jpe)) = grid%mass_flux (ims:ime,jps+py:min(jde-1,jpe)+py)
286 grid%apr_gr (ims:ime,jps:min(jde-1,jpe)) = grid%apr_gr (ims:ime,jps+py:min(jde-1,jpe)+py)
287 grid%apr_w (ims:ime,jps:min(jde-1,jpe)) = grid%apr_w (ims:ime,jps+py:min(jde-1,jpe)+py)
288 grid%apr_mc (ims:ime,jps:min(jde-1,jpe)) = grid%apr_mc (ims:ime,jps+py:min(jde-1,jpe)+py)
289 grid%apr_st (ims:ime,jps:min(jde-1,jpe)) = grid%apr_st (ims:ime,jps+py:min(jde-1,jpe)+py)
290 grid%apr_as (ims:ime,jps:min(jde-1,jpe)) = grid%apr_as (ims:ime,jps+py:min(jde-1,jpe)+py)
291 grid%apr_capma (ims:ime,jps:min(jde-1,jpe)) = grid%apr_capma (ims:ime,jps+py:min(jde-1,jpe)+py)
292 grid%apr_capme (ims:ime,jps:min(jde-1,jpe)) = grid%apr_capme (ims:ime,jps+py:min(jde-1,jpe)+py)
293 grid%apr_capmi (ims:ime,jps:min(jde-1,jpe)) = grid%apr_capmi (ims:ime,jps+py:min(jde-1,jpe)+py)
294 grid%rthften (ims:ime,:,jps:min(jde-1,jpe)) = grid%rthften (ims:ime,:,jps+py:min(jde-1,jpe)+py)
295 grid%rqvften (ims:ime,:,jps:min(jde-1,jpe)) = grid%rqvften (ims:ime,:,jps+py:min(jde-1,jpe)+py)
296 grid%rthraten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rthraten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
297 grid%rthratenlw (ims:ime,:,jps:min(jde-1,jpe)) = grid%rthratenlw (ims:ime,:,jps+py:min(jde-1,jpe)+py)
298 grid%rthratensw (ims:ime,:,jps:min(jde-1,jpe)) = grid%rthratensw (ims:ime,:,jps+py:min(jde-1,jpe)+py)
299 grid%cldfra (ims:ime,:,jps:min(jde-1,jpe)) = grid%cldfra (ims:ime,:,jps+py:min(jde-1,jpe)+py)
300 grid%swdown (ims:ime,jps:min(jde-1,jpe)) = grid%swdown (ims:ime,jps+py:min(jde-1,jpe)+py)
301 grid%swdownc (ims:ime,jps:min(jde-1,jpe)) = grid%swdownc (ims:ime,jps+py:min(jde-1,jpe)+py)
302 grid%gsw (ims:ime,jps:min(jde-1,jpe)) = grid%gsw (ims:ime,jps+py:min(jde-1,jpe)+py)
303 grid%glw (ims:ime,jps:min(jde-1,jpe)) = grid%glw (ims:ime,jps+py:min(jde-1,jpe)+py)
304 grid%swcf (ims:ime,jps:min(jde-1,jpe)) = grid%swcf (ims:ime,jps+py:min(jde-1,jpe)+py)
305 grid%lwcf (ims:ime,jps:min(jde-1,jpe)) = grid%lwcf (ims:ime,jps+py:min(jde-1,jpe)+py)
306 grid%olr (ims:ime,jps:min(jde-1,jpe)) = grid%olr (ims:ime,jps+py:min(jde-1,jpe)+py)
307 grid%xlat (ims:ime,jps:min(jde-1,jpe)) = grid%xlat (ims:ime,jps+py:min(jde-1,jpe)+py)
308 grid%xlong (ims:ime,jps:min(jde-1,jpe)) = grid%xlong (ims:ime,jps+py:min(jde-1,jpe)+py)
309 grid%albedo (ims:ime,jps:min(jde-1,jpe)) = grid%albedo (ims:ime,jps+py:min(jde-1,jpe)+py)
310 grid%albbck (ims:ime,jps:min(jde-1,jpe)) = grid%albbck (ims:ime,jps+py:min(jde-1,jpe)+py)
311 grid%emiss (ims:ime,jps:min(jde-1,jpe)) = grid%emiss (ims:ime,jps+py:min(jde-1,jpe)+py)
312 grid%cldefi (ims:ime,jps:min(jde-1,jpe)) = grid%cldefi (ims:ime,jps+py:min(jde-1,jpe)+py)
313 grid%rublten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rublten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
314 grid%rvblten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rvblten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
315 grid%rthblten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rthblten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
316 grid%rqvblten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rqvblten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
317 grid%rqcblten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rqcblten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
318 grid%rqiblten (ims:ime,:,jps:min(jde-1,jpe)) = grid%rqiblten (ims:ime,:,jps+py:min(jde-1,jpe)+py)
319 grid%tmn (ims:ime,jps:min(jde-1,jpe)) = grid%tmn (ims:ime,jps+py:min(jde-1,jpe)+py)
320 grid%xland (ims:ime,jps:min(jde-1,jpe)) = grid%xland (ims:ime,jps+py:min(jde-1,jpe)+py)
321 grid%znt (ims:ime,jps:min(jde-1,jpe)) = grid%znt (ims:ime,jps+py:min(jde-1,jpe)+py)
322 grid%ust (ims:ime,jps:min(jde-1,jpe)) = grid%ust (ims:ime,jps+py:min(jde-1,jpe)+py)
323 grid%rmol (ims:ime,jps:min(jde-1,jpe)) = grid%rmol (ims:ime,jps+py:min(jde-1,jpe)+py)
324 grid%mol (ims:ime,jps:min(jde-1,jpe)) = grid%mol (ims:ime,jps+py:min(jde-1,jpe)+py)
325 grid%pblh (ims:ime,jps:min(jde-1,jpe)) = grid%pblh (ims:ime,jps+py:min(jde-1,jpe)+py)
326 grid%capg (ims:ime,jps:min(jde-1,jpe)) = grid%capg (ims:ime,jps+py:min(jde-1,jpe)+py)
327 grid%thc (ims:ime,jps:min(jde-1,jpe)) = grid%thc (ims:ime,jps+py:min(jde-1,jpe)+py)
328 grid%hfx (ims:ime,jps:min(jde-1,jpe)) = grid%hfx (ims:ime,jps+py:min(jde-1,jpe)+py)
329 grid%qfx (ims:ime,jps:min(jde-1,jpe)) = grid%qfx (ims:ime,jps+py:min(jde-1,jpe)+py)
330 grid%lh (ims:ime,jps:min(jde-1,jpe)) = grid%lh (ims:ime,jps+py:min(jde-1,jpe)+py)
331 grid%flhc (ims:ime,jps:min(jde-1,jpe)) = grid%flhc (ims:ime,jps+py:min(jde-1,jpe)+py)
332 grid%flqc (ims:ime,jps:min(jde-1,jpe)) = grid%flqc (ims:ime,jps+py:min(jde-1,jpe)+py)
333 grid%qsg (ims:ime,jps:min(jde-1,jpe)) = grid%qsg (ims:ime,jps+py:min(jde-1,jpe)+py)
334 grid%qvg (ims:ime,jps:min(jde-1,jpe)) = grid%qvg (ims:ime,jps+py:min(jde-1,jpe)+py)
335 grid%qcg (ims:ime,jps:min(jde-1,jpe)) = grid%qcg (ims:ime,jps+py:min(jde-1,jpe)+py)
336 grid%soilt1 (ims:ime,jps:min(jde-1,jpe)) = grid%soilt1 (ims:ime,jps+py:min(jde-1,jpe)+py)
337 grid%tsnav (ims:ime,jps:min(jde-1,jpe)) = grid%tsnav (ims:ime,jps+py:min(jde-1,jpe)+py)
338 grid%snowc (ims:ime,jps:min(jde-1,jpe)) = grid%snowc (ims:ime,jps+py:min(jde-1,jpe)+py)
339 grid%mavail (ims:ime,jps:min(jde-1,jpe)) = grid%mavail (ims:ime,jps+py:min(jde-1,jpe)+py)
340 grid%xkmv (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkmv (ims:ime,:,jps+py:min(jde-1,jpe)+py)
341 grid%xkmh (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkmh (ims:ime,:,jps+py:min(jde-1,jpe)+py)
342 grid%xkmhd (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkmhd (ims:ime,:,jps+py:min(jde-1,jpe)+py)
343 grid%a_xkmhd (ims:ime,:,jps:min(jde-1,jpe)) = grid%a_xkmhd (ims:ime,:,jps+py:min(jde-1,jpe)+py)
344 grid%g_xkmhd (ims:ime,:,jps:min(jde-1,jpe)) = grid%g_xkmhd (ims:ime,:,jps+py:min(jde-1,jpe)+py)
345 grid%xkhv (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkhv (ims:ime,:,jps+py:min(jde-1,jpe)+py)
346 grid%xkhh (ims:ime,:,jps:min(jde-1,jpe)) = grid%xkhh (ims:ime,:,jps+py:min(jde-1,jpe)+py)
347 !ENDOFREGISTRYGENERATEDINCLUDE