em_shift_halo_x.inc
References to this file elsewhere.
1 !STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_shift_halo_x.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_x == invalid_message_value ) THEN
8 CALL wrf_debug ( 50 , 'set up halo for x shift' )
9 CALL setup_halo_rsl( grid )
10 CALL reset_msgs_x_shift
11 CALL add_msg_x_shift_real ( grid%lu_index , 1 )
12 CALL add_msg_x_shift_real ( grid%lu_mask , 1 )
13 CALL add_msg_x_shift_real ( grid%em_u_gc , config_flags%num_metgrid_levels )
14 CALL add_msg_x_shift_real ( grid%em_v_gc , config_flags%num_metgrid_levels )
15 CALL add_msg_x_shift_real ( grid%em_t_gc , config_flags%num_metgrid_levels )
16 CALL add_msg_x_shift_real ( grid%em_rh_gc , config_flags%num_metgrid_levels )
17 CALL add_msg_x_shift_real ( grid%em_ght_gc , config_flags%num_metgrid_levels )
18 CALL add_msg_x_shift_real ( grid%em_p_gc , config_flags%num_metgrid_levels )
19 CALL add_msg_x_shift_real ( grid%em_xlat_gc , 1 )
20 CALL add_msg_x_shift_real ( grid%em_xlong_gc , 1 )
21 CALL add_msg_x_shift_real ( grid%em_ht_gc , 1 )
22 CALL add_msg_x_shift_real ( grid%em_tsk_gc , 1 )
23 CALL add_msg_x_shift_real ( grid%em_tmn_gc , 1 )
24 CALL add_msg_x_shift_real ( grid%em_pslv_gc , 1 )
25 CALL add_msg_x_shift_real ( grid%em_greenfrac , (12 - 1 + 1) )
26 CALL add_msg_x_shift_real ( grid%em_albedo12m , (12 - 1 + 1) )
27 CALL add_msg_x_shift_real ( grid%em_pd_gc , config_flags%num_metgrid_levels )
28 CALL add_msg_x_shift_real ( grid%em_qv_gc , config_flags%num_metgrid_levels )
29 CALL add_msg_x_shift_real ( grid%em_intq_gc , 1 )
30 CALL add_msg_x_shift_real ( grid%em_pdhs , 1 )
31 CALL add_msg_x_shift_real ( grid%em_u_1 , (glen(3)) )
32 CALL add_msg_x_shift_real ( grid%em_u_2 , (glen(3)) )
33 CALL add_msg_x_shift_real ( grid%em_a_u_1 , (glen(3)) )
34 CALL add_msg_x_shift_real ( grid%em_a_u_2 , (glen(3)) )
35 CALL add_msg_x_shift_real ( grid%em_g_u_1 , (glen(3)) )
36 CALL add_msg_x_shift_real ( grid%em_g_u_2 , (glen(3)) )
37 CALL add_msg_x_shift_real ( grid%em_v_1 , (glen(3)) )
38 CALL add_msg_x_shift_real ( grid%em_v_2 , (glen(3)) )
39 CALL add_msg_x_shift_real ( grid%em_a_v_1 , (glen(3)) )
40 CALL add_msg_x_shift_real ( grid%em_a_v_2 , (glen(3)) )
41 CALL add_msg_x_shift_real ( grid%em_g_v_1 , (glen(3)) )
42 CALL add_msg_x_shift_real ( grid%em_g_v_2 , (glen(3)) )
43 CALL add_msg_x_shift_real ( grid%em_w_1 , (glen(3)) )
44 CALL add_msg_x_shift_real ( grid%em_w_2 , (glen(3)) )
45 CALL add_msg_x_shift_real ( grid%em_a_w_1 , (glen(3)) )
46 CALL add_msg_x_shift_real ( grid%em_a_w_2 , (glen(3)) )
47 CALL add_msg_x_shift_real ( grid%em_g_w_1 , (glen(3)) )
48 CALL add_msg_x_shift_real ( grid%em_g_w_2 , (glen(3)) )
49 CALL add_msg_x_shift_real ( grid%em_ph_1 , (glen(3)) )
50 CALL add_msg_x_shift_real ( grid%em_ph_2 , (glen(3)) )
51 CALL add_msg_x_shift_real ( grid%em_a_ph_1 , (glen(3)) )
52 CALL add_msg_x_shift_real ( grid%em_a_ph_2 , (glen(3)) )
53 CALL add_msg_x_shift_real ( grid%em_g_ph_1 , (glen(3)) )
54 CALL add_msg_x_shift_real ( grid%em_g_ph_2 , (glen(3)) )
55 CALL add_msg_x_shift_real ( grid%em_phb , (glen(3)) )
56 CALL add_msg_x_shift_real ( grid%em_t_1 , (glen(3)) )
57 CALL add_msg_x_shift_real ( grid%em_t_2 , (glen(3)) )
58 CALL add_msg_x_shift_real ( grid%em_a_t_1 , (glen(3)) )
59 CALL add_msg_x_shift_real ( grid%em_a_t_2 , (glen(3)) )
60 CALL add_msg_x_shift_real ( grid%em_g_t_1 , (glen(3)) )
61 CALL add_msg_x_shift_real ( grid%em_g_t_2 , (glen(3)) )
62 CALL add_msg_x_shift_real ( grid%em_mu_1 , 1 )
63 CALL add_msg_x_shift_real ( grid%em_mu_2 , 1 )
64 CALL add_msg_x_shift_real ( grid%em_a_mu_1 , 1 )
65 CALL add_msg_x_shift_real ( grid%em_a_mu_2 , 1 )
66 CALL add_msg_x_shift_real ( grid%em_g_mu_1 , 1 )
67 CALL add_msg_x_shift_real ( grid%em_g_mu_2 , 1 )
68 CALL add_msg_x_shift_real ( grid%em_mub , 1 )
69 CALL add_msg_x_shift_real ( grid%em_mu0 , 1 )
70 CALL add_msg_x_shift_real ( grid%nest_pos , 1 )
71 CALL add_msg_x_shift_real ( grid%nest_mask , 1 )
72 CALL add_msg_x_shift_real ( grid%ht_coarse , 1 )
73 CALL add_msg_x_shift_real ( grid%em_p , (glen(3)) )
74 CALL add_msg_x_shift_real ( grid%em_sr , 1 )
75 CALL add_msg_x_shift_real ( grid%em_z , (glen(3)) )
76 CALL add_msg_x_shift_real ( grid%em_a_z , (glen(3)) )
77 CALL add_msg_x_shift_real ( grid%em_g_z , (glen(3)) )
78 CALL add_msg_x_shift_real ( grid%q2 , 1 )
79 CALL add_msg_x_shift_real ( grid%t2 , 1 )
80 CALL add_msg_x_shift_real ( grid%th2 , 1 )
81 CALL add_msg_x_shift_real ( grid%psfc , 1 )
82 CALL add_msg_x_shift_real ( grid%u10 , 1 )
83 CALL add_msg_x_shift_real ( grid%v10 , 1 )
84 CALL add_msg_x_shift_real ( grid%uratx , 1 )
85 CALL add_msg_x_shift_real ( grid%vratx , 1 )
86 CALL add_msg_x_shift_real ( grid%tratx , 1 )
87 CALL add_msg_x_shift_integer ( grid%imask_nostag , 1 )
88 CALL add_msg_x_shift_integer ( grid%imask_xstag , 1 )
89 CALL add_msg_x_shift_integer ( grid%imask_ystag , 1 )
90 CALL add_msg_x_shift_integer ( grid%imask_xystag , 1 )
91 if ( P_qv .GT. 1 ) CALL add_msg_x_shift_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qv), glen(3) )
92 if ( P_qc .GT. 1 ) CALL add_msg_x_shift_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qc), glen(3) )
93 if ( P_qr .GT. 1 ) CALL add_msg_x_shift_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qr), glen(3) )
94 if ( P_qi .GT. 1 ) CALL add_msg_x_shift_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qi), glen(3) )
95 if ( P_qs .GT. 1 ) CALL add_msg_x_shift_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qs), glen(3) )
96 if ( P_qg .GT. 1 ) CALL add_msg_x_shift_real ( moist ( grid%sm31,grid%sm32,grid%sm33,P_qg), glen(3) )
97 if ( P_a_qv .GT. 1 ) CALL add_msg_x_shift_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qv), glen(3) )
98 if ( P_a_qc .GT. 1 ) CALL add_msg_x_shift_real ( a_moist ( grid%sm31,grid%sm32,grid%sm33,P_a_qc), glen(3) )
99 if ( P_g_qv .GT. 1 ) CALL add_msg_x_shift_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qv), glen(3) )
100 if ( P_g_qc .GT. 1 ) CALL add_msg_x_shift_real ( g_moist ( grid%sm31,grid%sm32,grid%sm33,P_g_qc), glen(3) )
101 if ( P_qni .GT. 1 ) CALL add_msg_x_shift_real ( scalar ( grid%sm31,grid%sm32,grid%sm33,P_qni), glen(3) )
102 if ( P_qt .GT. 1 ) CALL add_msg_x_shift_real ( scalar ( grid%sm31,grid%sm32,grid%sm33,P_qt), glen(3) )
103 CALL add_msg_x_shift_real ( grid%landmask , 1 )
104 CALL add_msg_x_shift_real ( grid%shdmax , 1 )
105 CALL add_msg_x_shift_real ( grid%shdmin , 1 )
106 CALL add_msg_x_shift_real ( grid%snoalb , 1 )
107 CALL add_msg_x_shift_real ( grid%tslb , config_flags%num_soil_layers )
108 CALL add_msg_x_shift_real ( grid%smois , config_flags%num_soil_layers )
109 CALL add_msg_x_shift_real ( grid%sh2o , config_flags%num_soil_layers )
110 CALL add_msg_x_shift_real ( grid%xice , 1 )
111 CALL add_msg_x_shift_real ( grid%sfcrunoff , 1 )
112 CALL add_msg_x_shift_real ( grid%udrunoff , 1 )
113 CALL add_msg_x_shift_integer ( grid%ivgtyp , 1 )
114 CALL add_msg_x_shift_integer ( grid%isltyp , 1 )
115 CALL add_msg_x_shift_real ( grid%vegfra , 1 )
116 CALL add_msg_x_shift_real ( grid%sfcevp , 1 )
117 CALL add_msg_x_shift_real ( grid%acsnow , 1 )
118 CALL add_msg_x_shift_real ( grid%acsnom , 1 )
119 CALL add_msg_x_shift_real ( grid%snow , 1 )
120 CALL add_msg_x_shift_real ( grid%snowh , 1 )
121 CALL add_msg_x_shift_real ( grid%rhosn , 1 )
122 CALL add_msg_x_shift_real ( grid%canwat , 1 )
123 CALL add_msg_x_shift_real ( grid%sst , 1 )
124 CALL add_msg_x_shift_real ( grid%htop , 1 )
125 CALL add_msg_x_shift_real ( grid%hbot , 1 )
126 CALL add_msg_x_shift_real ( grid%cuppt , 1 )
127 CALL add_msg_x_shift_real ( grid%rswtoa , 1 )
128 CALL add_msg_x_shift_real ( grid%rlwtoa , 1 )
129 CALL add_msg_x_shift_real ( grid%czmean , 1 )
130 CALL add_msg_x_shift_real ( grid%cfracl , 1 )
131 CALL add_msg_x_shift_real ( grid%cfracm , 1 )
132 CALL add_msg_x_shift_real ( grid%cfrach , 1 )
133 CALL add_msg_x_shift_real ( grid%acfrst , 1 )
134 CALL add_msg_x_shift_integer ( grid%ncfrst , 1 )
135 CALL add_msg_x_shift_real ( grid%acfrcv , 1 )
136 CALL add_msg_x_shift_integer ( grid%ncfrcv , 1 )
137 CALL add_msg_x_shift_real ( grid%h_diabatic , (glen(3)) )
138 CALL add_msg_x_shift_real ( grid%msft , 1 )
139 CALL add_msg_x_shift_real ( grid%msfu , 1 )
140 CALL add_msg_x_shift_real ( grid%msfv , 1 )
141 CALL add_msg_x_shift_real ( grid%f , 1 )
142 CALL add_msg_x_shift_real ( grid%e , 1 )
143 CALL add_msg_x_shift_real ( grid%sina , 1 )
144 CALL add_msg_x_shift_real ( grid%cosa , 1 )
145 CALL add_msg_x_shift_real ( grid%ht , 1 )
146 CALL add_msg_x_shift_real ( grid%ht_fine , 1 )
147 CALL add_msg_x_shift_real ( grid%ht_int , 1 )
148 CALL add_msg_x_shift_real ( grid%ht_input , 1 )
149 CALL add_msg_x_shift_real ( grid%tsk , 1 )
150 CALL add_msg_x_shift_real ( grid%tsk_save , 1 )
151 CALL add_msg_x_shift_real ( grid%rainc , 1 )
152 CALL add_msg_x_shift_real ( grid%rainnc , 1 )
153 CALL add_msg_x_shift_real ( grid%xlat , 1 )
154 CALL add_msg_x_shift_real ( grid%xlong , 1 )
155 CALL add_msg_x_shift_real ( grid%em_xlat_u , 1 )
156 CALL add_msg_x_shift_real ( grid%em_xlong_u , 1 )
157 CALL add_msg_x_shift_real ( grid%em_xlat_v , 1 )
158 CALL add_msg_x_shift_real ( grid%em_xlong_v , 1 )
159 CALL add_msg_x_shift_real ( grid%albbck , 1 )
160 CALL add_msg_x_shift_real ( grid%tmn , 1 )
161 CALL add_msg_x_shift_real ( grid%xland , 1 )
162 CALL add_msg_x_shift_real ( grid%znt , 1 )
163 CALL add_msg_x_shift_real ( grid%snowc , 1 )
164 CALL add_msg_x_shift_real ( grid%xkmv , (glen(3)) )
165 CALL add_msg_x_shift_real ( grid%xkmh , (glen(3)) )
166 CALL add_msg_x_shift_real ( grid%xkmhd , (glen(3)) )
167 CALL add_msg_x_shift_real ( grid%a_xkmhd , (glen(3)) )
168 CALL add_msg_x_shift_real ( grid%g_xkmhd , (glen(3)) )
169 CALL add_msg_x_shift_real ( grid%xkhv , (glen(3)) )
170 CALL add_msg_x_shift_real ( grid%xkhh , (glen(3)) )
171 CALL stencil_x_shift ( grid%domdesc , grid%shift_x )
172 ENDIF
173 CALL wrf_debug ( 50 , 'exchange halo for x shift' )
174 CALL rsl_exch_stencil ( grid%domdesc , grid%shift_x )
175 grid%lu_index (ips:min(ide-1,ipe),jms:jme) = grid%lu_index (ips+px:min(ide-1,ipe)+px,jms:jme)
176 grid%lu_mask (ips:min(ide-1,ipe),jms:jme) = grid%lu_mask (ips+px:min(ide-1,ipe)+px,jms:jme)
177 grid%em_u_gc (ips:min(ide,ipe),:,jms:jme) = grid%em_u_gc (ips+px:min(ide,ipe)+px,:,jms:jme)
178 grid%em_v_gc (ips:min(ide-1,ipe),:,jms:jme) = grid%em_v_gc (ips+px:min(ide-1,ipe)+px,:,jms:jme)
179 grid%em_t_gc (ips:min(ide-1,ipe),:,jms:jme) = grid%em_t_gc (ips+px:min(ide-1,ipe)+px,:,jms:jme)
180 grid%em_rh_gc (ips:min(ide-1,ipe),:,jms:jme) = grid%em_rh_gc (ips+px:min(ide-1,ipe)+px,:,jms:jme)
181 grid%em_ght_gc (ips:min(ide-1,ipe),:,jms:jme) = grid%em_ght_gc (ips+px:min(ide-1,ipe)+px,:,jms:jme)
182 grid%em_p_gc (ips:min(ide-1,ipe),:,jms:jme) = grid%em_p_gc (ips+px:min(ide-1,ipe)+px,:,jms:jme)
183 grid%em_xlat_gc (ips:min(ide-1,ipe),jms:jme) = grid%em_xlat_gc (ips+px:min(ide-1,ipe)+px,jms:jme)
184 grid%em_xlong_gc (ips:min(ide-1,ipe),jms:jme) = grid%em_xlong_gc (ips+px:min(ide-1,ipe)+px,jms:jme)
185 grid%em_ht_gc (ips:min(ide-1,ipe),jms:jme) = grid%em_ht_gc (ips+px:min(ide-1,ipe)+px,jms:jme)
186 grid%em_tsk_gc (ips:min(ide-1,ipe),jms:jme) = grid%em_tsk_gc (ips+px:min(ide-1,ipe)+px,jms:jme)
187 grid%em_tmn_gc (ips:min(ide-1,ipe),jms:jme) = grid%em_tmn_gc (ips+px:min(ide-1,ipe)+px,jms:jme)
188 grid%em_pslv_gc (ips:min(ide-1,ipe),jms:jme) = grid%em_pslv_gc (ips+px:min(ide-1,ipe)+px,jms:jme)
189 grid%em_greenfrac (ips:min(ide-1,ipe),:,jms:jme) = grid%em_greenfrac (ips+px:min(ide-1,ipe)+px,:,jms:jme)
190 grid%em_albedo12m (ips:min(ide-1,ipe),:,jms:jme) = grid%em_albedo12m (ips+px:min(ide-1,ipe)+px,:,jms:jme)
191 grid%em_pd_gc (ips:min(ide-1,ipe),:,jms:jme) = grid%em_pd_gc (ips+px:min(ide-1,ipe)+px,:,jms:jme)
192 grid%em_qv_gc (ips:min(ide-1,ipe),:,jms:jme) = grid%em_qv_gc (ips+px:min(ide-1,ipe)+px,:,jms:jme)
193 grid%em_intq_gc (ips:min(ide-1,ipe),jms:jme) = grid%em_intq_gc (ips+px:min(ide-1,ipe)+px,jms:jme)
194 grid%em_pdhs (ips:min(ide-1,ipe),jms:jme) = grid%em_pdhs (ips+px:min(ide-1,ipe)+px,jms:jme)
195 grid%em_u_1 (ips:min(ide,ipe),:,jms:jme) = grid%em_u_1 (ips+px:min(ide,ipe)+px,:,jms:jme)
196 grid%em_u_2 (ips:min(ide,ipe),:,jms:jme) = grid%em_u_2 (ips+px:min(ide,ipe)+px,:,jms:jme)
197 grid%em_a_u_1 (ips:min(ide,ipe),:,jms:jme) = grid%em_a_u_1 (ips+px:min(ide,ipe)+px,:,jms:jme)
198 grid%em_a_u_2 (ips:min(ide,ipe),:,jms:jme) = grid%em_a_u_2 (ips+px:min(ide,ipe)+px,:,jms:jme)
199 grid%em_g_u_1 (ips:min(ide,ipe),:,jms:jme) = grid%em_g_u_1 (ips+px:min(ide,ipe)+px,:,jms:jme)
200 grid%em_g_u_2 (ips:min(ide,ipe),:,jms:jme) = grid%em_g_u_2 (ips+px:min(ide,ipe)+px,:,jms:jme)
201 grid%em_v_1 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_v_1 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
202 grid%em_v_2 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_v_2 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
203 grid%em_a_v_1 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_a_v_1 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
204 grid%em_a_v_2 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_a_v_2 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
205 grid%em_g_v_1 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_g_v_1 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
206 grid%em_g_v_2 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_g_v_2 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
207 grid%em_w_1 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_w_1 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
208 grid%em_w_2 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_w_2 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
209 grid%em_a_w_1 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_a_w_1 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
210 grid%em_a_w_2 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_a_w_2 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
211 grid%em_g_w_1 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_g_w_1 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
212 grid%em_g_w_2 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_g_w_2 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
213 grid%em_ph_1 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_ph_1 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
214 grid%em_ph_2 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_ph_2 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
215 grid%em_a_ph_1 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_a_ph_1 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
216 grid%em_a_ph_2 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_a_ph_2 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
217 grid%em_g_ph_1 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_g_ph_1 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
218 grid%em_g_ph_2 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_g_ph_2 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
219 grid%em_phb (ips:min(ide-1,ipe),:,jms:jme) = grid%em_phb (ips+px:min(ide-1,ipe)+px,:,jms:jme)
220 grid%em_t_1 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_t_1 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
221 grid%em_t_2 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_t_2 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
222 grid%em_a_t_1 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_a_t_1 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
223 grid%em_a_t_2 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_a_t_2 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
224 grid%em_g_t_1 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_g_t_1 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
225 grid%em_g_t_2 (ips:min(ide-1,ipe),:,jms:jme) = grid%em_g_t_2 (ips+px:min(ide-1,ipe)+px,:,jms:jme)
226 grid%em_mu_1 (ips:min(ide-1,ipe),jms:jme) = grid%em_mu_1 (ips+px:min(ide-1,ipe)+px,jms:jme)
227 grid%em_mu_2 (ips:min(ide-1,ipe),jms:jme) = grid%em_mu_2 (ips+px:min(ide-1,ipe)+px,jms:jme)
228 grid%em_a_mu_1 (ips:min(ide-1,ipe),jms:jme) = grid%em_a_mu_1 (ips+px:min(ide-1,ipe)+px,jms:jme)
229 grid%em_a_mu_2 (ips:min(ide-1,ipe),jms:jme) = grid%em_a_mu_2 (ips+px:min(ide-1,ipe)+px,jms:jme)
230 grid%em_g_mu_1 (ips:min(ide-1,ipe),jms:jme) = grid%em_g_mu_1 (ips+px:min(ide-1,ipe)+px,jms:jme)
231 grid%em_g_mu_2 (ips:min(ide-1,ipe),jms:jme) = grid%em_g_mu_2 (ips+px:min(ide-1,ipe)+px,jms:jme)
232 grid%em_mub (ips:min(ide-1,ipe),jms:jme) = grid%em_mub (ips+px:min(ide-1,ipe)+px,jms:jme)
233 grid%em_mu0 (ips:min(ide-1,ipe),jms:jme) = grid%em_mu0 (ips+px:min(ide-1,ipe)+px,jms:jme)
234 grid%nest_pos (ips:min(ide-1,ipe),jms:jme) = grid%nest_pos (ips+px:min(ide-1,ipe)+px,jms:jme)
235 grid%nest_mask (ips:min(ide-1,ipe),jms:jme) = grid%nest_mask (ips+px:min(ide-1,ipe)+px,jms:jme)
236 grid%ht_coarse (ips:min(ide-1,ipe),jms:jme) = grid%ht_coarse (ips+px:min(ide-1,ipe)+px,jms:jme)
237 grid%em_p (ips:min(ide-1,ipe),:,jms:jme) = grid%em_p (ips+px:min(ide-1,ipe)+px,:,jms:jme)
238 grid%em_sr (ips:min(ide-1,ipe),jms:jme) = grid%em_sr (ips+px:min(ide-1,ipe)+px,jms:jme)
239 grid%em_z (ips:min(ide-1,ipe),:,jms:jme) = grid%em_z (ips+px:min(ide-1,ipe)+px,:,jms:jme)
240 grid%em_a_z (ips:min(ide-1,ipe),:,jms:jme) = grid%em_a_z (ips+px:min(ide-1,ipe)+px,:,jms:jme)
241 grid%em_g_z (ips:min(ide-1,ipe),:,jms:jme) = grid%em_g_z (ips+px:min(ide-1,ipe)+px,:,jms:jme)
242 grid%q2 (ips:min(ide-1,ipe),jms:jme) = grid%q2 (ips+px:min(ide-1,ipe)+px,jms:jme)
243 grid%t2 (ips:min(ide-1,ipe),jms:jme) = grid%t2 (ips+px:min(ide-1,ipe)+px,jms:jme)
244 grid%th2 (ips:min(ide-1,ipe),jms:jme) = grid%th2 (ips+px:min(ide-1,ipe)+px,jms:jme)
245 grid%psfc (ips:min(ide-1,ipe),jms:jme) = grid%psfc (ips+px:min(ide-1,ipe)+px,jms:jme)
246 grid%u10 (ips:min(ide-1,ipe),jms:jme) = grid%u10 (ips+px:min(ide-1,ipe)+px,jms:jme)
247 grid%v10 (ips:min(ide-1,ipe),jms:jme) = grid%v10 (ips+px:min(ide-1,ipe)+px,jms:jme)
248 grid%uratx (ips:min(ide-1,ipe),jms:jme) = grid%uratx (ips+px:min(ide-1,ipe)+px,jms:jme)
249 grid%vratx (ips:min(ide-1,ipe),jms:jme) = grid%vratx (ips+px:min(ide-1,ipe)+px,jms:jme)
250 grid%tratx (ips:min(ide-1,ipe),jms:jme) = grid%tratx (ips+px:min(ide-1,ipe)+px,jms:jme)
251 grid%imask_nostag (ips:min(ide-1,ipe),jms:jme) = grid%imask_nostag (ips+px:min(ide-1,ipe)+px,jms:jme)
252 grid%imask_xstag (ips:min(ide,ipe),jms:jme) = grid%imask_xstag (ips+px:min(ide,ipe)+px,jms:jme)
253 grid%imask_ystag (ips:min(ide-1,ipe),jms:jme) = grid%imask_ystag (ips+px:min(ide-1,ipe)+px,jms:jme)
254 grid%imask_xystag (ips:min(ide,ipe),jms:jme) = grid%imask_xystag (ips+px:min(ide,ipe)+px,jms:jme)
255 if ( P_qv .GT. 1 ) moist ( ips:min(ide-1,ipe),:,jms:jme,P_qv) = moist (ips+px:min(ide-1,ipe)+px,:,jms:jme,P_qv)
256 if ( P_qc .GT. 1 ) moist ( ips:min(ide-1,ipe),:,jms:jme,P_qc) = moist (ips+px:min(ide-1,ipe)+px,:,jms:jme,P_qc)
257 if ( P_qr .GT. 1 ) moist ( ips:min(ide-1,ipe),:,jms:jme,P_qr) = moist (ips+px:min(ide-1,ipe)+px,:,jms:jme,P_qr)
258 if ( P_qi .GT. 1 ) moist ( ips:min(ide-1,ipe),:,jms:jme,P_qi) = moist (ips+px:min(ide-1,ipe)+px,:,jms:jme,P_qi)
259 if ( P_qs .GT. 1 ) moist ( ips:min(ide-1,ipe),:,jms:jme,P_qs) = moist (ips+px:min(ide-1,ipe)+px,:,jms:jme,P_qs)
260 if ( P_qg .GT. 1 ) moist ( ips:min(ide-1,ipe),:,jms:jme,P_qg) = moist (ips+px:min(ide-1,ipe)+px,:,jms:jme,P_qg)
261 if ( P_a_qv .GT. 1 ) a_moist ( ips:min(ide-1,ipe),:,jms:jme,P_a_qv) = a_moist (ips+px:min(ide-1,ipe)+px,:,jms:jme,P_a_qv)
262 if ( P_a_qc .GT. 1 ) a_moist ( ips:min(ide-1,ipe),:,jms:jme,P_a_qc) = a_moist (ips+px:min(ide-1,ipe)+px,:,jms:jme,P_a_qc)
263 if ( P_g_qv .GT. 1 ) g_moist ( ips:min(ide-1,ipe),:,jms:jme,P_g_qv) = g_moist (ips+px:min(ide-1,ipe)+px,:,jms:jme,P_g_qv)
264 if ( P_g_qc .GT. 1 ) g_moist ( ips:min(ide-1,ipe),:,jms:jme,P_g_qc) = g_moist (ips+px:min(ide-1,ipe)+px,:,jms:jme,P_g_qc)
265 if ( P_qni .GT. 1 ) scalar ( ips:min(ide-1,ipe),:,jms:jme,P_qni) = scalar (ips+px:min(ide-1,ipe)+px,:,jms:jme,P_qni)
266 if ( P_qt .GT. 1 ) scalar ( ips:min(ide-1,ipe),:,jms:jme,P_qt) = scalar (ips+px:min(ide-1,ipe)+px,:,jms:jme,P_qt)
267 grid%landmask (ips:min(ide-1,ipe),jms:jme) = grid%landmask (ips+px:min(ide-1,ipe)+px,jms:jme)
268 grid%shdmax (ips:min(ide-1,ipe),jms:jme) = grid%shdmax (ips+px:min(ide-1,ipe)+px,jms:jme)
269 grid%shdmin (ips:min(ide-1,ipe),jms:jme) = grid%shdmin (ips+px:min(ide-1,ipe)+px,jms:jme)
270 grid%snoalb (ips:min(ide-1,ipe),jms:jme) = grid%snoalb (ips+px:min(ide-1,ipe)+px,jms:jme)
271 grid%tslb (ips:min(ide-1,ipe),:,jms:jme) = grid%tslb (ips+px:min(ide-1,ipe)+px,:,jms:jme)
272 grid%smois (ips:min(ide-1,ipe),:,jms:jme) = grid%smois (ips+px:min(ide-1,ipe)+px,:,jms:jme)
273 grid%sh2o (ips:min(ide-1,ipe),:,jms:jme) = grid%sh2o (ips+px:min(ide-1,ipe)+px,:,jms:jme)
274 grid%xice (ips:min(ide-1,ipe),jms:jme) = grid%xice (ips+px:min(ide-1,ipe)+px,jms:jme)
275 grid%sfcrunoff (ips:min(ide-1,ipe),jms:jme) = grid%sfcrunoff (ips+px:min(ide-1,ipe)+px,jms:jme)
276 grid%udrunoff (ips:min(ide-1,ipe),jms:jme) = grid%udrunoff (ips+px:min(ide-1,ipe)+px,jms:jme)
277 grid%ivgtyp (ips:min(ide-1,ipe),jms:jme) = grid%ivgtyp (ips+px:min(ide-1,ipe)+px,jms:jme)
278 grid%isltyp (ips:min(ide-1,ipe),jms:jme) = grid%isltyp (ips+px:min(ide-1,ipe)+px,jms:jme)
279 grid%vegfra (ips:min(ide-1,ipe),jms:jme) = grid%vegfra (ips+px:min(ide-1,ipe)+px,jms:jme)
280 grid%sfcevp (ips:min(ide-1,ipe),jms:jme) = grid%sfcevp (ips+px:min(ide-1,ipe)+px,jms:jme)
281 grid%acsnow (ips:min(ide-1,ipe),jms:jme) = grid%acsnow (ips+px:min(ide-1,ipe)+px,jms:jme)
282 grid%acsnom (ips:min(ide-1,ipe),jms:jme) = grid%acsnom (ips+px:min(ide-1,ipe)+px,jms:jme)
283 grid%snow (ips:min(ide-1,ipe),jms:jme) = grid%snow (ips+px:min(ide-1,ipe)+px,jms:jme)
284 grid%snowh (ips:min(ide-1,ipe),jms:jme) = grid%snowh (ips+px:min(ide-1,ipe)+px,jms:jme)
285 grid%rhosn (ips:min(ide-1,ipe),jms:jme) = grid%rhosn (ips+px:min(ide-1,ipe)+px,jms:jme)
286 grid%canwat (ips:min(ide-1,ipe),jms:jme) = grid%canwat (ips+px:min(ide-1,ipe)+px,jms:jme)
287 grid%sst (ips:min(ide-1,ipe),jms:jme) = grid%sst (ips+px:min(ide-1,ipe)+px,jms:jme)
288 grid%htop (ips:min(ide-1,ipe),jms:jme) = grid%htop (ips+px:min(ide-1,ipe)+px,jms:jme)
289 grid%hbot (ips:min(ide-1,ipe),jms:jme) = grid%hbot (ips+px:min(ide-1,ipe)+px,jms:jme)
290 grid%cuppt (ips:min(ide-1,ipe),jms:jme) = grid%cuppt (ips+px:min(ide-1,ipe)+px,jms:jme)
291 grid%rswtoa (ips:min(ide-1,ipe),jms:jme) = grid%rswtoa (ips+px:min(ide-1,ipe)+px,jms:jme)
292 grid%rlwtoa (ips:min(ide-1,ipe),jms:jme) = grid%rlwtoa (ips+px:min(ide-1,ipe)+px,jms:jme)
293 grid%czmean (ips:min(ide-1,ipe),jms:jme) = grid%czmean (ips+px:min(ide-1,ipe)+px,jms:jme)
294 grid%cfracl (ips:min(ide-1,ipe),jms:jme) = grid%cfracl (ips+px:min(ide-1,ipe)+px,jms:jme)
295 grid%cfracm (ips:min(ide-1,ipe),jms:jme) = grid%cfracm (ips+px:min(ide-1,ipe)+px,jms:jme)
296 grid%cfrach (ips:min(ide-1,ipe),jms:jme) = grid%cfrach (ips+px:min(ide-1,ipe)+px,jms:jme)
297 grid%acfrst (ips:min(ide-1,ipe),jms:jme) = grid%acfrst (ips+px:min(ide-1,ipe)+px,jms:jme)
298 grid%ncfrst (ips:min(ide-1,ipe),jms:jme) = grid%ncfrst (ips+px:min(ide-1,ipe)+px,jms:jme)
299 grid%acfrcv (ips:min(ide-1,ipe),jms:jme) = grid%acfrcv (ips+px:min(ide-1,ipe)+px,jms:jme)
300 grid%ncfrcv (ips:min(ide-1,ipe),jms:jme) = grid%ncfrcv (ips+px:min(ide-1,ipe)+px,jms:jme)
301 grid%h_diabatic (ips:min(ide-1,ipe),:,jms:jme) = grid%h_diabatic (ips+px:min(ide-1,ipe)+px,:,jms:jme)
302 grid%msft (ips:min(ide-1,ipe),jms:jme) = grid%msft (ips+px:min(ide-1,ipe)+px,jms:jme)
303 grid%msfu (ips:min(ide,ipe),jms:jme) = grid%msfu (ips+px:min(ide,ipe)+px,jms:jme)
304 grid%msfv (ips:min(ide-1,ipe),jms:jme) = grid%msfv (ips+px:min(ide-1,ipe)+px,jms:jme)
305 grid%f (ips:min(ide-1,ipe),jms:jme) = grid%f (ips+px:min(ide-1,ipe)+px,jms:jme)
306 grid%e (ips:min(ide-1,ipe),jms:jme) = grid%e (ips+px:min(ide-1,ipe)+px,jms:jme)
307 grid%sina (ips:min(ide-1,ipe),jms:jme) = grid%sina (ips+px:min(ide-1,ipe)+px,jms:jme)
308 grid%cosa (ips:min(ide-1,ipe),jms:jme) = grid%cosa (ips+px:min(ide-1,ipe)+px,jms:jme)
309 grid%ht (ips:min(ide-1,ipe),jms:jme) = grid%ht (ips+px:min(ide-1,ipe)+px,jms:jme)
310 grid%ht_fine (ips:min(ide-1,ipe),jms:jme) = grid%ht_fine (ips+px:min(ide-1,ipe)+px,jms:jme)
311 grid%ht_int (ips:min(ide-1,ipe),jms:jme) = grid%ht_int (ips+px:min(ide-1,ipe)+px,jms:jme)
312 grid%ht_input (ips:min(ide-1,ipe),jms:jme) = grid%ht_input (ips+px:min(ide-1,ipe)+px,jms:jme)
313 grid%tsk (ips:min(ide-1,ipe),jms:jme) = grid%tsk (ips+px:min(ide-1,ipe)+px,jms:jme)
314 grid%tsk_save (ips:min(ide-1,ipe),jms:jme) = grid%tsk_save (ips+px:min(ide-1,ipe)+px,jms:jme)
315 grid%rainc (ips:min(ide-1,ipe),jms:jme) = grid%rainc (ips+px:min(ide-1,ipe)+px,jms:jme)
316 grid%rainnc (ips:min(ide-1,ipe),jms:jme) = grid%rainnc (ips+px:min(ide-1,ipe)+px,jms:jme)
317 grid%xlat (ips:min(ide-1,ipe),jms:jme) = grid%xlat (ips+px:min(ide-1,ipe)+px,jms:jme)
318 grid%xlong (ips:min(ide-1,ipe),jms:jme) = grid%xlong (ips+px:min(ide-1,ipe)+px,jms:jme)
319 grid%em_xlat_u (ips:min(ide,ipe),jms:jme) = grid%em_xlat_u (ips+px:min(ide,ipe)+px,jms:jme)
320 grid%em_xlong_u (ips:min(ide,ipe),jms:jme) = grid%em_xlong_u (ips+px:min(ide,ipe)+px,jms:jme)
321 grid%em_xlat_v (ips:min(ide-1,ipe),jms:jme) = grid%em_xlat_v (ips+px:min(ide-1,ipe)+px,jms:jme)
322 grid%em_xlong_v (ips:min(ide-1,ipe),jms:jme) = grid%em_xlong_v (ips+px:min(ide-1,ipe)+px,jms:jme)
323 grid%albbck (ips:min(ide-1,ipe),jms:jme) = grid%albbck (ips+px:min(ide-1,ipe)+px,jms:jme)
324 grid%tmn (ips:min(ide-1,ipe),jms:jme) = grid%tmn (ips+px:min(ide-1,ipe)+px,jms:jme)
325 grid%xland (ips:min(ide-1,ipe),jms:jme) = grid%xland (ips+px:min(ide-1,ipe)+px,jms:jme)
326 grid%znt (ips:min(ide-1,ipe),jms:jme) = grid%znt (ips+px:min(ide-1,ipe)+px,jms:jme)
327 grid%snowc (ips:min(ide-1,ipe),jms:jme) = grid%snowc (ips+px:min(ide-1,ipe)+px,jms:jme)
328 grid%xkmv (ips:min(ide-1,ipe),:,jms:jme) = grid%xkmv (ips+px:min(ide-1,ipe)+px,:,jms:jme)
329 grid%xkmh (ips:min(ide-1,ipe),:,jms:jme) = grid%xkmh (ips+px:min(ide-1,ipe)+px,:,jms:jme)
330 grid%xkmhd (ips:min(ide-1,ipe),:,jms:jme) = grid%xkmhd (ips+px:min(ide-1,ipe)+px,:,jms:jme)
331 grid%a_xkmhd (ips:min(ide-1,ipe),:,jms:jme) = grid%a_xkmhd (ips+px:min(ide-1,ipe)+px,:,jms:jme)
332 grid%g_xkmhd (ips:min(ide-1,ipe),:,jms:jme) = grid%g_xkmhd (ips+px:min(ide-1,ipe)+px,:,jms:jme)
333 grid%xkhv (ips:min(ide-1,ipe),:,jms:jme) = grid%xkhv (ips+px:min(ide-1,ipe)+px,:,jms:jme)
334 grid%xkhh (ips:min(ide-1,ipe),:,jms:jme) = grid%xkhh (ips+px:min(ide-1,ipe)+px,:,jms:jme)
335 !ENDOFREGISTRYGENERATEDINCLUDE