include file: em_shift_halo_y.inc 1,235
!STARTOFREGISTRYGENERATEDINCLUDE 'inc/em_shift_halo_y.inc'
!
! WARNING This file is generated automatically by use_registry
! using the data base in the file named Registry.
! Do not edit.  Your changes to this file will be lost.
!
IF ( grid%shift_y == invalid_message_value ) THEN
  CALL wrf_debug ( 50 , 'set up halo for y shift' )
  CALL setup_halo_rsl( grid )
  CALL reset_msgs_y_shift
  CALL add_msg_y_shift_real ( u_1 , (glen(2)) )
  CALL add_msg_y_shift_real ( u_2 , (glen(2)) )
  CALL add_msg_y_shift_real ( ru , (glen(2)) )
  CALL add_msg_y_shift_real ( v_1 , (glen(2)) )
  CALL add_msg_y_shift_real ( v_2 , (glen(2)) )
  CALL add_msg_y_shift_real ( rv , (glen(2)) )
  CALL add_msg_y_shift_real ( w_1 , (glen(2)) )
  CALL add_msg_y_shift_real ( w_2 , (glen(2)) )
  CALL add_msg_y_shift_real ( ww , (glen(2)) )
  CALL add_msg_y_shift_real ( rw , (glen(2)) )
  CALL add_msg_y_shift_real ( ph_1 , (glen(2)) )
  CALL add_msg_y_shift_real ( ph_2 , (glen(2)) )
  CALL add_msg_y_shift_real ( phb , (glen(2)) )
  CALL add_msg_y_shift_real ( ph0 , (glen(2)) )
  CALL add_msg_y_shift_real ( php , (glen(2)) )
  CALL add_msg_y_shift_real ( t_1 , (glen(2)) )
  CALL add_msg_y_shift_real ( t_2 , (glen(2)) )
  CALL add_msg_y_shift_real ( t_init , (glen(2)) )
  CALL add_msg_y_shift_real ( tp_1 , (glen(2)) )
  CALL add_msg_y_shift_real ( tp_2 , (glen(2)) )
  CALL add_msg_y_shift_real ( mu_1 , 1 )
  CALL add_msg_y_shift_real ( mu_2 , 1 )
  CALL add_msg_y_shift_real ( mub , 1 )
  CALL add_msg_y_shift_real ( mu0 , 1 )
  CALL add_msg_y_shift_real ( mudf , 1 )
  CALL add_msg_y_shift_real ( tke_1 , (glen(2)) )
  CALL add_msg_y_shift_real ( tke_2 , (glen(2)) )
  CALL add_msg_y_shift_real ( p , (glen(2)) )
  CALL add_msg_y_shift_real ( al , (glen(2)) )
  CALL add_msg_y_shift_real ( alt , (glen(2)) )
  CALL add_msg_y_shift_real ( alb , (glen(2)) )
  CALL add_msg_y_shift_real ( zx , (glen(2)) )
  CALL add_msg_y_shift_real ( zy , (glen(2)) )
  CALL add_msg_y_shift_real ( rdz , (glen(2)) )
  CALL add_msg_y_shift_real ( rdzw , (glen(2)) )
  CALL add_msg_y_shift_real ( pb , (glen(2)) )
  CALL add_msg_y_shift_real ( z , (glen(2)) )
  CALL add_msg_y_shift_real ( q2 , 1 )
  CALL add_msg_y_shift_real ( t2 , 1 )
  CALL add_msg_y_shift_real ( th2 , 1 )
  CALL add_msg_y_shift_real ( u10 , 1 )
  CALL add_msg_y_shift_real ( v10 , 1 )
  CALL add_msg_y_shift_integer ( imask , 1 )
  if ( P_qv .GT. 1 ) CALL add_msg_y_shift_real ( moist_1 ( grid%sm31,grid%sm32,grid%sm33,P_qv), glen(2) )
  if ( P_qc .GT. 1 ) CALL add_msg_y_shift_real ( moist_1 ( grid%sm31,grid%sm32,grid%sm33,P_qc), glen(2) )
  if ( P_qr .GT. 1 ) CALL add_msg_y_shift_real ( moist_1 ( grid%sm31,grid%sm32,grid%sm33,P_qr), glen(2) )
  if ( P_qi .GT. 1 ) CALL add_msg_y_shift_real ( moist_1 ( grid%sm31,grid%sm32,grid%sm33,P_qi), glen(2) )
  if ( P_qs .GT. 1 ) CALL add_msg_y_shift_real ( moist_1 ( grid%sm31,grid%sm32,grid%sm33,P_qs), glen(2) )
  if ( P_qg .GT. 1 ) CALL add_msg_y_shift_real ( moist_1 ( grid%sm31,grid%sm32,grid%sm33,P_qg), glen(2) )
  if ( P_qv .GT. 1 ) CALL add_msg_y_shift_real ( moist_2 ( grid%sm31,grid%sm32,grid%sm33,P_qv), glen(2) )
  if ( P_qc .GT. 1 ) CALL add_msg_y_shift_real ( moist_2 ( grid%sm31,grid%sm32,grid%sm33,P_qc), glen(2) )
  if ( P_qr .GT. 1 ) CALL add_msg_y_shift_real ( moist_2 ( grid%sm31,grid%sm32,grid%sm33,P_qr), glen(2) )
  if ( P_qi .GT. 1 ) CALL add_msg_y_shift_real ( moist_2 ( grid%sm31,grid%sm32,grid%sm33,P_qi), glen(2) )
  if ( P_qs .GT. 1 ) CALL add_msg_y_shift_real ( moist_2 ( grid%sm31,grid%sm32,grid%sm33,P_qs), glen(2) )
  if ( P_qg .GT. 1 ) CALL add_msg_y_shift_real ( moist_2 ( grid%sm31,grid%sm32,grid%sm33,P_qg), glen(2) )
  CALL add_msg_y_shift_real ( sm000010 , 1 )
  CALL add_msg_y_shift_real ( sm010040 , 1 )
  CALL add_msg_y_shift_real ( sm040100 , 1 )
  CALL add_msg_y_shift_real ( sm100200 , 1 )
  CALL add_msg_y_shift_real ( sm010200 , 1 )
  CALL add_msg_y_shift_real ( soilm000 , 1 )
  CALL add_msg_y_shift_real ( soilm005 , 1 )
  CALL add_msg_y_shift_real ( soilm020 , 1 )
  CALL add_msg_y_shift_real ( soilm040 , 1 )
  CALL add_msg_y_shift_real ( soilm160 , 1 )
  CALL add_msg_y_shift_real ( soilm300 , 1 )
  CALL add_msg_y_shift_real ( sw000010 , 1 )
  CALL add_msg_y_shift_real ( sw010040 , 1 )
  CALL add_msg_y_shift_real ( sw040100 , 1 )
  CALL add_msg_y_shift_real ( sw100200 , 1 )
  CALL add_msg_y_shift_real ( sw010200 , 1 )
  CALL add_msg_y_shift_real ( soilw000 , 1 )
  CALL add_msg_y_shift_real ( soilw005 , 1 )
  CALL add_msg_y_shift_real ( soilw020 , 1 )
  CALL add_msg_y_shift_real ( soilw040 , 1 )
  CALL add_msg_y_shift_real ( soilw160 , 1 )
  CALL add_msg_y_shift_real ( soilw300 , 1 )
  CALL add_msg_y_shift_real ( st000010 , 1 )
  CALL add_msg_y_shift_real ( st010040 , 1 )
  CALL add_msg_y_shift_real ( st040100 , 1 )
  CALL add_msg_y_shift_real ( st100200 , 1 )
  CALL add_msg_y_shift_real ( st010200 , 1 )
  CALL add_msg_y_shift_real ( soilt000 , 1 )
  CALL add_msg_y_shift_real ( soilt005 , 1 )
  CALL add_msg_y_shift_real ( soilt020 , 1 )
  CALL add_msg_y_shift_real ( soilt040 , 1 )
  CALL add_msg_y_shift_real ( soilt160 , 1 )
  CALL add_msg_y_shift_real ( soilt300 , 1 )
  CALL add_msg_y_shift_real ( landmask , 1 )
  CALL add_msg_y_shift_real ( topostdv , 1 )
  CALL add_msg_y_shift_real ( toposlpx , 1 )
  CALL add_msg_y_shift_real ( toposlpy , 1 )
  CALL add_msg_y_shift_real ( shdmax , 1 )
  CALL add_msg_y_shift_real ( shdmin , 1 )
  CALL add_msg_y_shift_real ( snoalb , 1 )
  CALL add_msg_y_shift_real ( slopecat , 1 )
  CALL add_msg_y_shift_real ( toposoil , 1 )
  CALL add_msg_y_shift_real ( landusef , config_flags%num_land_cat )
  CALL add_msg_y_shift_real ( soilctop , config_flags%num_soil_cat )
  CALL add_msg_y_shift_real ( soilcbot , config_flags%num_soil_cat )
  CALL add_msg_y_shift_real ( soilcat , 1 )
  CALL add_msg_y_shift_real ( vegcat , 1 )
  CALL add_msg_y_shift_real ( tslb , config_flags%num_soil_layers )
  CALL add_msg_y_shift_real ( smois , config_flags%num_soil_layers )
  CALL add_msg_y_shift_real ( sh2o , config_flags%num_soil_layers )
  CALL add_msg_y_shift_real ( xice , 1 )
  CALL add_msg_y_shift_real ( smstav , 1 )
  CALL add_msg_y_shift_real ( smstot , 1 )
  CALL add_msg_y_shift_real ( sfcrunoff , 1 )
  CALL add_msg_y_shift_real ( udrunoff , 1 )
  CALL add_msg_y_shift_integer ( ivgtyp , 1 )
  CALL add_msg_y_shift_integer ( isltyp , 1 )
  CALL add_msg_y_shift_real ( vegfra , 1 )
  CALL add_msg_y_shift_real ( sfcevp , 1 )
  CALL add_msg_y_shift_real ( grdflx , 1 )
  CALL add_msg_y_shift_real ( sfcexc , 1 )
  CALL add_msg_y_shift_real ( acsnow , 1 )
  CALL add_msg_y_shift_real ( acsnom , 1 )
  CALL add_msg_y_shift_real ( snow , 1 )
  CALL add_msg_y_shift_real ( snowh , 1 )
  CALL add_msg_y_shift_real ( canwat , 1 )
  CALL add_msg_y_shift_real ( sst , 1 )
  CALL add_msg_y_shift_real ( potevp , 1 )
  CALL add_msg_y_shift_real ( snopcx , 1 )
  CALL add_msg_y_shift_real ( soiltb , 1 )
  CALL add_msg_y_shift_real ( tke_myj , (glen(2)) )
  CALL add_msg_y_shift_real ( ct , 1 )
  CALL add_msg_y_shift_real ( thz0 , 1 )
  CALL add_msg_y_shift_real ( z0 , 1 )
  CALL add_msg_y_shift_real ( qz0 , 1 )
  CALL add_msg_y_shift_real ( uz0 , 1 )
  CALL add_msg_y_shift_real ( vz0 , 1 )
  CALL add_msg_y_shift_real ( qsfc , 1 )
  CALL add_msg_y_shift_real ( akhs , 1 )
  CALL add_msg_y_shift_real ( akms , 1 )
  CALL add_msg_y_shift_integer ( kpbl , 1 )
  CALL add_msg_y_shift_real ( htop , 1 )
  CALL add_msg_y_shift_real ( hbot , 1 )
  CALL add_msg_y_shift_real ( cuppt , 1 )
  CALL add_msg_y_shift_real ( totswdn , 1 )
  CALL add_msg_y_shift_real ( totlwdn , 1 )
  CALL add_msg_y_shift_real ( rswtoa , 1 )
  CALL add_msg_y_shift_real ( rlwtoa , 1 )
  CALL add_msg_y_shift_real ( czmean , 1 )
  CALL add_msg_y_shift_real ( cfracl , 1 )
  CALL add_msg_y_shift_real ( cfracm , 1 )
  CALL add_msg_y_shift_real ( cfrach , 1 )
  CALL add_msg_y_shift_real ( acfrst , 1 )
  CALL add_msg_y_shift_integer ( ncfrst , 1 )
  CALL add_msg_y_shift_real ( acfrcv , 1 )
  CALL add_msg_y_shift_integer ( ncfrcv , 1 )
  CALL add_msg_y_shift_real ( t0eta , (glen(2)) )
  CALL add_msg_y_shift_real ( q0eta , (glen(2)) )
  CALL add_msg_y_shift_real ( p0eta , (glen(2)) )
  CALL add_msg_y_shift_real ( f_ice_phy , (glen(2)) )
  CALL add_msg_y_shift_real ( f_rain_phy , (glen(2)) )
  CALL add_msg_y_shift_real ( f_rimef_phy , (glen(2)) )
  CALL add_msg_y_shift_real ( h_diabatic , (glen(2)) )
  CALL add_msg_y_shift_real ( msft , 1 )
  CALL add_msg_y_shift_real ( msfu , 1 )
  CALL add_msg_y_shift_real ( msfv , 1 )
  CALL add_msg_y_shift_real ( f , 1 )
  CALL add_msg_y_shift_real ( e , 1 )
  CALL add_msg_y_shift_real ( sina , 1 )
  CALL add_msg_y_shift_real ( cosa , 1 )
  CALL add_msg_y_shift_real ( ht , 1 )
  CALL add_msg_y_shift_real ( ht_fine , 1 )
  CALL add_msg_y_shift_real ( tsk , 1 )
  CALL add_msg_y_shift_real ( rthcuten , (glen(2)) )
  CALL add_msg_y_shift_real ( rqvcuten , (glen(2)) )
  CALL add_msg_y_shift_real ( rqrcuten , (glen(2)) )
  CALL add_msg_y_shift_real ( rqccuten , (glen(2)) )
  CALL add_msg_y_shift_real ( rqscuten , (glen(2)) )
  CALL add_msg_y_shift_real ( rqicuten , (glen(2)) )
  CALL add_msg_y_shift_real ( w0avg , (glen(2)) )
  CALL add_msg_y_shift_real ( rainc , 1 )
  CALL add_msg_y_shift_real ( rainnc , 1 )
  CALL add_msg_y_shift_real ( raincv , 1 )
  CALL add_msg_y_shift_real ( rainncv , 1 )
  CALL add_msg_y_shift_real ( rainbl , 1 )
  CALL add_msg_y_shift_real ( nca , 1 )
  CALL add_msg_y_shift_integer ( lowlyr , 1 )
  CALL add_msg_y_shift_real ( rthraten , (glen(2)) )
  CALL add_msg_y_shift_real ( rthratenlw , (glen(2)) )
  CALL add_msg_y_shift_real ( rthratensw , (glen(2)) )
  CALL add_msg_y_shift_real ( cldfra , (glen(2)) )
  CALL add_msg_y_shift_real ( gsw , 1 )
  CALL add_msg_y_shift_real ( glw , 1 )
  CALL add_msg_y_shift_real ( xlat , 1 )
  CALL add_msg_y_shift_real ( xlong , 1 )
  CALL add_msg_y_shift_real ( albedo , 1 )
  CALL add_msg_y_shift_real ( albbck , 1 )
  CALL add_msg_y_shift_real ( emiss , 1 )
  CALL add_msg_y_shift_real ( lu_index , 1 )
  CALL add_msg_y_shift_real ( cldefi , 1 )
  CALL add_msg_y_shift_real ( rublten , (glen(2)) )
  CALL add_msg_y_shift_real ( rvblten , (glen(2)) )
  CALL add_msg_y_shift_real ( rthblten , (glen(2)) )
  CALL add_msg_y_shift_real ( rqvblten , (glen(2)) )
  CALL add_msg_y_shift_real ( rqcblten , (glen(2)) )
  CALL add_msg_y_shift_real ( rqiblten , (glen(2)) )
  CALL add_msg_y_shift_real ( tmn , 1 )
  CALL add_msg_y_shift_real ( xland , 1 )
  CALL add_msg_y_shift_real ( znt , 1 )
  CALL add_msg_y_shift_real ( ust , 1 )
  CALL add_msg_y_shift_real ( mol , 1 )
  CALL add_msg_y_shift_real ( pblh , 1 )
  CALL add_msg_y_shift_real ( capg , 1 )
  CALL add_msg_y_shift_real ( thc , 1 )
  CALL add_msg_y_shift_real ( hfx , 1 )
  CALL add_msg_y_shift_real ( qfx , 1 )
  CALL add_msg_y_shift_real ( lh , 1 )
  CALL add_msg_y_shift_real ( snowc , 1 )
  CALL add_msg_y_shift_real ( mavail , 1 )
  CALL add_msg_y_shift_real ( tkesfcf , 1 )
  CALL add_msg_y_shift_real ( taucldi , (glen(2)) )
  CALL add_msg_y_shift_real ( taucldc , (glen(2)) )
  CALL add_msg_y_shift_real ( defor11 , (glen(2)) )
  CALL add_msg_y_shift_real ( defor22 , (glen(2)) )
  CALL add_msg_y_shift_real ( defor12 , (glen(2)) )
  CALL add_msg_y_shift_real ( defor33 , (glen(2)) )
  CALL add_msg_y_shift_real ( defor13 , (glen(2)) )
  CALL add_msg_y_shift_real ( defor23 , (glen(2)) )
  CALL add_msg_y_shift_real ( xkmv , (glen(2)) )
  CALL add_msg_y_shift_real ( xkmh , (glen(2)) )
  CALL add_msg_y_shift_real ( xkmhd , (glen(2)) )
  CALL add_msg_y_shift_real ( xkhv , (glen(2)) )
  CALL add_msg_y_shift_real ( xkhh , (glen(2)) )
  CALL add_msg_y_shift_real ( div , (glen(2)) )
  CALL add_msg_y_shift_real ( bn2 , (glen(2)) )
  CALL stencil_y_shift ( grid%domdesc , grid%shift_y )
ENDIF
  CALL wrf_debug ( 50 , 'exchange halo for y shift' )
CALL rsl_exch_stencil ( grid%domdesc , grid%shift_y )
u_1 (ips:ipe,:,jps:jpe) = u_1 (ips:ipe,:,jps+py:jpe+py)
u_2 (ips:ipe,:,jps:jpe) = u_2 (ips:ipe,:,jps+py:jpe+py)
ru (ips:ipe,:,jps:jpe) = ru (ips:ipe,:,jps+py:jpe+py)
v_1 (ips:ipe,:,jps:jpe) = v_1 (ips:ipe,:,jps+py:jpe+py)
v_2 (ips:ipe,:,jps:jpe) = v_2 (ips:ipe,:,jps+py:jpe+py)
rv (ips:ipe,:,jps:jpe) = rv (ips:ipe,:,jps+py:jpe+py)
w_1 (ips:ipe,:,jps:jpe) = w_1 (ips:ipe,:,jps+py:jpe+py)
w_2 (ips:ipe,:,jps:jpe) = w_2 (ips:ipe,:,jps+py:jpe+py)
ww (ips:ipe,:,jps:jpe) = ww (ips:ipe,:,jps+py:jpe+py)
rw (ips:ipe,:,jps:jpe) = rw (ips:ipe,:,jps+py:jpe+py)
ph_1 (ips:ipe,:,jps:jpe) = ph_1 (ips:ipe,:,jps+py:jpe+py)
ph_2 (ips:ipe,:,jps:jpe) = ph_2 (ips:ipe,:,jps+py:jpe+py)
phb (ips:ipe,:,jps:jpe) = phb (ips:ipe,:,jps+py:jpe+py)
ph0 (ips:ipe,:,jps:jpe) = ph0 (ips:ipe,:,jps+py:jpe+py)
php (ips:ipe,:,jps:jpe) = php (ips:ipe,:,jps+py:jpe+py)
t_1 (ips:ipe,:,jps:jpe) = t_1 (ips:ipe,:,jps+py:jpe+py)
t_2 (ips:ipe,:,jps:jpe) = t_2 (ips:ipe,:,jps+py:jpe+py)
t_init (ips:ipe,:,jps:jpe) = t_init (ips:ipe,:,jps+py:jpe+py)
tp_1 (ips:ipe,:,jps:jpe) = tp_1 (ips:ipe,:,jps+py:jpe+py)
tp_2 (ips:ipe,:,jps:jpe) = tp_2 (ips:ipe,:,jps+py:jpe+py)
mu_1 (ips:ipe,jps:jpe) = mu_1 (ips:ipe,jps+py:jpe+py)
mu_2 (ips:ipe,jps:jpe) = mu_2 (ips:ipe,jps+py:jpe+py)
mub (ips:ipe,jps:jpe) = mub (ips:ipe,jps+py:jpe+py)
mu0 (ips:ipe,jps:jpe) = mu0 (ips:ipe,jps+py:jpe+py)
mudf (ips:ipe,jps:jpe) = mudf (ips:ipe,jps+py:jpe+py)
tke_1 (ips:ipe,:,jps:jpe) = tke_1 (ips:ipe,:,jps+py:jpe+py)
tke_2 (ips:ipe,:,jps:jpe) = tke_2 (ips:ipe,:,jps+py:jpe+py)
p (ips:ipe,:,jps:jpe) = p (ips:ipe,:,jps+py:jpe+py)
al (ips:ipe,:,jps:jpe) = al (ips:ipe,:,jps+py:jpe+py)
alt (ips:ipe,:,jps:jpe) = alt (ips:ipe,:,jps+py:jpe+py)
alb (ips:ipe,:,jps:jpe) = alb (ips:ipe,:,jps+py:jpe+py)
zx (ips:ipe,:,jps:jpe) = zx (ips:ipe,:,jps+py:jpe+py)
zy (ips:ipe,:,jps:jpe) = zy (ips:ipe,:,jps+py:jpe+py)
rdz (ips:ipe,:,jps:jpe) = rdz (ips:ipe,:,jps+py:jpe+py)
rdzw (ips:ipe,:,jps:jpe) = rdzw (ips:ipe,:,jps+py:jpe+py)
pb (ips:ipe,:,jps:jpe) = pb (ips:ipe,:,jps+py:jpe+py)
z (ips:ipe,:,jps:jpe) = z (ips:ipe,:,jps+py:jpe+py)
q2 (ips:ipe,jps:jpe) = q2 (ips:ipe,jps+py:jpe+py)
t2 (ips:ipe,jps:jpe) = t2 (ips:ipe,jps+py:jpe+py)
th2 (ips:ipe,jps:jpe) = th2 (ips:ipe,jps+py:jpe+py)
u10 (ips:ipe,jps:jpe) = u10 (ips:ipe,jps+py:jpe+py)
v10 (ips:ipe,jps:jpe) = v10 (ips:ipe,jps+py:jpe+py)
imask (ips:ipe,jps:jpe) = imask (ips:ipe,jps+py:jpe+py)
  if ( P_qv .GT. 1 ) moist_1 ( ips:ipe,:,jps:jpe,P_qv) = moist_1 (ips:ipe,:,jps+py:jpe+py,P_qv)
  if ( P_qc .GT. 1 ) moist_1 ( ips:ipe,:,jps:jpe,P_qc) = moist_1 (ips:ipe,:,jps+py:jpe+py,P_qc)
  if ( P_qr .GT. 1 ) moist_1 ( ips:ipe,:,jps:jpe,P_qr) = moist_1 (ips:ipe,:,jps+py:jpe+py,P_qr)
  if ( P_qi .GT. 1 ) moist_1 ( ips:ipe,:,jps:jpe,P_qi) = moist_1 (ips:ipe,:,jps+py:jpe+py,P_qi)
  if ( P_qs .GT. 1 ) moist_1 ( ips:ipe,:,jps:jpe,P_qs) = moist_1 (ips:ipe,:,jps+py:jpe+py,P_qs)
  if ( P_qg .GT. 1 ) moist_1 ( ips:ipe,:,jps:jpe,P_qg) = moist_1 (ips:ipe,:,jps+py:jpe+py,P_qg)
  if ( P_qv .GT. 1 ) moist_2 ( ips:ipe,:,jps:jpe,P_qv) = moist_2 (ips:ipe,:,jps+py:jpe+py,P_qv)
  if ( P_qc .GT. 1 ) moist_2 ( ips:ipe,:,jps:jpe,P_qc) = moist_2 (ips:ipe,:,jps+py:jpe+py,P_qc)
  if ( P_qr .GT. 1 ) moist_2 ( ips:ipe,:,jps:jpe,P_qr) = moist_2 (ips:ipe,:,jps+py:jpe+py,P_qr)
  if ( P_qi .GT. 1 ) moist_2 ( ips:ipe,:,jps:jpe,P_qi) = moist_2 (ips:ipe,:,jps+py:jpe+py,P_qi)
  if ( P_qs .GT. 1 ) moist_2 ( ips:ipe,:,jps:jpe,P_qs) = moist_2 (ips:ipe,:,jps+py:jpe+py,P_qs)
  if ( P_qg .GT. 1 ) moist_2 ( ips:ipe,:,jps:jpe,P_qg) = moist_2 (ips:ipe,:,jps+py:jpe+py,P_qg)
sm000010 (ips:ipe,jps:jpe) = sm000010 (ips:ipe,jps+py:jpe+py)
sm010040 (ips:ipe,jps:jpe) = sm010040 (ips:ipe,jps+py:jpe+py)
sm040100 (ips:ipe,jps:jpe) = sm040100 (ips:ipe,jps+py:jpe+py)
sm100200 (ips:ipe,jps:jpe) = sm100200 (ips:ipe,jps+py:jpe+py)
sm010200 (ips:ipe,jps:jpe) = sm010200 (ips:ipe,jps+py:jpe+py)
soilm000 (ips:ipe,jps:jpe) = soilm000 (ips:ipe,jps+py:jpe+py)
soilm005 (ips:ipe,jps:jpe) = soilm005 (ips:ipe,jps+py:jpe+py)
soilm020 (ips:ipe,jps:jpe) = soilm020 (ips:ipe,jps+py:jpe+py)
soilm040 (ips:ipe,jps:jpe) = soilm040 (ips:ipe,jps+py:jpe+py)
soilm160 (ips:ipe,jps:jpe) = soilm160 (ips:ipe,jps+py:jpe+py)
soilm300 (ips:ipe,jps:jpe) = soilm300 (ips:ipe,jps+py:jpe+py)
sw000010 (ips:ipe,jps:jpe) = sw000010 (ips:ipe,jps+py:jpe+py)
sw010040 (ips:ipe,jps:jpe) = sw010040 (ips:ipe,jps+py:jpe+py)
sw040100 (ips:ipe,jps:jpe) = sw040100 (ips:ipe,jps+py:jpe+py)
sw100200 (ips:ipe,jps:jpe) = sw100200 (ips:ipe,jps+py:jpe+py)
sw010200 (ips:ipe,jps:jpe) = sw010200 (ips:ipe,jps+py:jpe+py)
soilw000 (ips:ipe,jps:jpe) = soilw000 (ips:ipe,jps+py:jpe+py)
soilw005 (ips:ipe,jps:jpe) = soilw005 (ips:ipe,jps+py:jpe+py)
soilw020 (ips:ipe,jps:jpe) = soilw020 (ips:ipe,jps+py:jpe+py)
soilw040 (ips:ipe,jps:jpe) = soilw040 (ips:ipe,jps+py:jpe+py)
soilw160 (ips:ipe,jps:jpe) = soilw160 (ips:ipe,jps+py:jpe+py)
soilw300 (ips:ipe,jps:jpe) = soilw300 (ips:ipe,jps+py:jpe+py)
st000010 (ips:ipe,jps:jpe) = st000010 (ips:ipe,jps+py:jpe+py)
st010040 (ips:ipe,jps:jpe) = st010040 (ips:ipe,jps+py:jpe+py)
st040100 (ips:ipe,jps:jpe) = st040100 (ips:ipe,jps+py:jpe+py)
st100200 (ips:ipe,jps:jpe) = st100200 (ips:ipe,jps+py:jpe+py)
st010200 (ips:ipe,jps:jpe) = st010200 (ips:ipe,jps+py:jpe+py)
soilt000 (ips:ipe,jps:jpe) = soilt000 (ips:ipe,jps+py:jpe+py)
soilt005 (ips:ipe,jps:jpe) = soilt005 (ips:ipe,jps+py:jpe+py)
soilt020 (ips:ipe,jps:jpe) = soilt020 (ips:ipe,jps+py:jpe+py)
soilt040 (ips:ipe,jps:jpe) = soilt040 (ips:ipe,jps+py:jpe+py)
soilt160 (ips:ipe,jps:jpe) = soilt160 (ips:ipe,jps+py:jpe+py)
soilt300 (ips:ipe,jps:jpe) = soilt300 (ips:ipe,jps+py:jpe+py)
landmask (ips:ipe,jps:jpe) = landmask (ips:ipe,jps+py:jpe+py)
topostdv (ips:ipe,jps:jpe) = topostdv (ips:ipe,jps+py:jpe+py)
toposlpx (ips:ipe,jps:jpe) = toposlpx (ips:ipe,jps+py:jpe+py)
toposlpy (ips:ipe,jps:jpe) = toposlpy (ips:ipe,jps+py:jpe+py)
shdmax (ips:ipe,jps:jpe) = shdmax (ips:ipe,jps+py:jpe+py)
shdmin (ips:ipe,jps:jpe) = shdmin (ips:ipe,jps+py:jpe+py)
snoalb (ips:ipe,jps:jpe) = snoalb (ips:ipe,jps+py:jpe+py)
slopecat (ips:ipe,jps:jpe) = slopecat (ips:ipe,jps+py:jpe+py)
toposoil (ips:ipe,jps:jpe) = toposoil (ips:ipe,jps+py:jpe+py)
landusef (ips:ipe,:,jps:jpe) = landusef (ips:ipe,:,jps+py:jpe+py)
soilctop (ips:ipe,:,jps:jpe) = soilctop (ips:ipe,:,jps+py:jpe+py)
soilcbot (ips:ipe,:,jps:jpe) = soilcbot (ips:ipe,:,jps+py:jpe+py)
soilcat (ips:ipe,jps:jpe) = soilcat (ips:ipe,jps+py:jpe+py)
vegcat (ips:ipe,jps:jpe) = vegcat (ips:ipe,jps+py:jpe+py)
tslb (ips:ipe,:,jps:jpe) = tslb (ips:ipe,:,jps+py:jpe+py)
smois (ips:ipe,:,jps:jpe) = smois (ips:ipe,:,jps+py:jpe+py)
sh2o (ips:ipe,:,jps:jpe) = sh2o (ips:ipe,:,jps+py:jpe+py)
xice (ips:ipe,jps:jpe) = xice (ips:ipe,jps+py:jpe+py)
smstav (ips:ipe,jps:jpe) = smstav (ips:ipe,jps+py:jpe+py)
smstot (ips:ipe,jps:jpe) = smstot (ips:ipe,jps+py:jpe+py)
sfcrunoff (ips:ipe,jps:jpe) = sfcrunoff (ips:ipe,jps+py:jpe+py)
udrunoff (ips:ipe,jps:jpe) = udrunoff (ips:ipe,jps+py:jpe+py)
ivgtyp (ips:ipe,jps:jpe) = ivgtyp (ips:ipe,jps+py:jpe+py)
isltyp (ips:ipe,jps:jpe) = isltyp (ips:ipe,jps+py:jpe+py)
vegfra (ips:ipe,jps:jpe) = vegfra (ips:ipe,jps+py:jpe+py)
sfcevp (ips:ipe,jps:jpe) = sfcevp (ips:ipe,jps+py:jpe+py)
grdflx (ips:ipe,jps:jpe) = grdflx (ips:ipe,jps+py:jpe+py)
sfcexc (ips:ipe,jps:jpe) = sfcexc (ips:ipe,jps+py:jpe+py)
acsnow (ips:ipe,jps:jpe) = acsnow (ips:ipe,jps+py:jpe+py)
acsnom (ips:ipe,jps:jpe) = acsnom (ips:ipe,jps+py:jpe+py)
snow (ips:ipe,jps:jpe) = snow (ips:ipe,jps+py:jpe+py)
snowh (ips:ipe,jps:jpe) = snowh (ips:ipe,jps+py:jpe+py)
canwat (ips:ipe,jps:jpe) = canwat (ips:ipe,jps+py:jpe+py)
sst (ips:ipe,jps:jpe) = sst (ips:ipe,jps+py:jpe+py)
potevp (ips:ipe,jps:jpe) = potevp (ips:ipe,jps+py:jpe+py)
snopcx (ips:ipe,jps:jpe) = snopcx (ips:ipe,jps+py:jpe+py)
soiltb (ips:ipe,jps:jpe) = soiltb (ips:ipe,jps+py:jpe+py)
tke_myj (ips:ipe,:,jps:jpe) = tke_myj (ips:ipe,:,jps+py:jpe+py)
ct (ips:ipe,jps:jpe) = ct (ips:ipe,jps+py:jpe+py)
thz0 (ips:ipe,jps:jpe) = thz0 (ips:ipe,jps+py:jpe+py)
z0 (ips:ipe,jps:jpe) = z0 (ips:ipe,jps+py:jpe+py)
qz0 (ips:ipe,jps:jpe) = qz0 (ips:ipe,jps+py:jpe+py)
uz0 (ips:ipe,jps:jpe) = uz0 (ips:ipe,jps+py:jpe+py)
vz0 (ips:ipe,jps:jpe) = vz0 (ips:ipe,jps+py:jpe+py)
qsfc (ips:ipe,jps:jpe) = qsfc (ips:ipe,jps+py:jpe+py)
akhs (ips:ipe,jps:jpe) = akhs (ips:ipe,jps+py:jpe+py)
akms (ips:ipe,jps:jpe) = akms (ips:ipe,jps+py:jpe+py)
kpbl (ips:ipe,jps:jpe) = kpbl (ips:ipe,jps+py:jpe+py)
htop (ips:ipe,jps:jpe) = htop (ips:ipe,jps+py:jpe+py)
hbot (ips:ipe,jps:jpe) = hbot (ips:ipe,jps+py:jpe+py)
cuppt (ips:ipe,jps:jpe) = cuppt (ips:ipe,jps+py:jpe+py)
totswdn (ips:ipe,jps:jpe) = totswdn (ips:ipe,jps+py:jpe+py)
totlwdn (ips:ipe,jps:jpe) = totlwdn (ips:ipe,jps+py:jpe+py)
rswtoa (ips:ipe,jps:jpe) = rswtoa (ips:ipe,jps+py:jpe+py)
rlwtoa (ips:ipe,jps:jpe) = rlwtoa (ips:ipe,jps+py:jpe+py)
czmean (ips:ipe,jps:jpe) = czmean (ips:ipe,jps+py:jpe+py)
cfracl (ips:ipe,jps:jpe) = cfracl (ips:ipe,jps+py:jpe+py)
cfracm (ips:ipe,jps:jpe) = cfracm (ips:ipe,jps+py:jpe+py)
cfrach (ips:ipe,jps:jpe) = cfrach (ips:ipe,jps+py:jpe+py)
acfrst (ips:ipe,jps:jpe) = acfrst (ips:ipe,jps+py:jpe+py)
ncfrst (ips:ipe,jps:jpe) = ncfrst (ips:ipe,jps+py:jpe+py)
acfrcv (ips:ipe,jps:jpe) = acfrcv (ips:ipe,jps+py:jpe+py)
ncfrcv (ips:ipe,jps:jpe) = ncfrcv (ips:ipe,jps+py:jpe+py)
t0eta (ips:ipe,:,jps:jpe) = t0eta (ips:ipe,:,jps+py:jpe+py)
q0eta (ips:ipe,:,jps:jpe) = q0eta (ips:ipe,:,jps+py:jpe+py)
p0eta (ips:ipe,:,jps:jpe) = p0eta (ips:ipe,:,jps+py:jpe+py)
f_ice_phy (ips:ipe,:,jps:jpe) = f_ice_phy (ips:ipe,:,jps+py:jpe+py)
f_rain_phy (ips:ipe,:,jps:jpe) = f_rain_phy (ips:ipe,:,jps+py:jpe+py)
f_rimef_phy (ips:ipe,:,jps:jpe) = f_rimef_phy (ips:ipe,:,jps+py:jpe+py)
h_diabatic (ips:ipe,:,jps:jpe) = h_diabatic (ips:ipe,:,jps+py:jpe+py)
msft (ips:ipe,jps:jpe) = msft (ips:ipe,jps+py:jpe+py)
msfu (ips:ipe,jps:jpe) = msfu (ips:ipe,jps+py:jpe+py)
msfv (ips:ipe,jps:jpe) = msfv (ips:ipe,jps+py:jpe+py)
f (ips:ipe,jps:jpe) = f (ips:ipe,jps+py:jpe+py)
e (ips:ipe,jps:jpe) = e (ips:ipe,jps+py:jpe+py)
sina (ips:ipe,jps:jpe) = sina (ips:ipe,jps+py:jpe+py)
cosa (ips:ipe,jps:jpe) = cosa (ips:ipe,jps+py:jpe+py)
ht (ips:ipe,jps:jpe) = ht (ips:ipe,jps+py:jpe+py)
ht_fine (ips:ipe,jps:jpe) = ht_fine (ips:ipe,jps+py:jpe+py)
tsk (ips:ipe,jps:jpe) = tsk (ips:ipe,jps+py:jpe+py)
rthcuten (ips:ipe,:,jps:jpe) = rthcuten (ips:ipe,:,jps+py:jpe+py)
rqvcuten (ips:ipe,:,jps:jpe) = rqvcuten (ips:ipe,:,jps+py:jpe+py)
rqrcuten (ips:ipe,:,jps:jpe) = rqrcuten (ips:ipe,:,jps+py:jpe+py)
rqccuten (ips:ipe,:,jps:jpe) = rqccuten (ips:ipe,:,jps+py:jpe+py)
rqscuten (ips:ipe,:,jps:jpe) = rqscuten (ips:ipe,:,jps+py:jpe+py)
rqicuten (ips:ipe,:,jps:jpe) = rqicuten (ips:ipe,:,jps+py:jpe+py)
w0avg (ips:ipe,:,jps:jpe) = w0avg (ips:ipe,:,jps+py:jpe+py)
rainc (ips:ipe,jps:jpe) = rainc (ips:ipe,jps+py:jpe+py)
rainnc (ips:ipe,jps:jpe) = rainnc (ips:ipe,jps+py:jpe+py)
raincv (ips:ipe,jps:jpe) = raincv (ips:ipe,jps+py:jpe+py)
rainncv (ips:ipe,jps:jpe) = rainncv (ips:ipe,jps+py:jpe+py)
rainbl (ips:ipe,jps:jpe) = rainbl (ips:ipe,jps+py:jpe+py)
nca (ips:ipe,jps:jpe) = nca (ips:ipe,jps+py:jpe+py)
lowlyr (ips:ipe,jps:jpe) = lowlyr (ips:ipe,jps+py:jpe+py)
rthraten (ips:ipe,:,jps:jpe) = rthraten (ips:ipe,:,jps+py:jpe+py)
rthratenlw (ips:ipe,:,jps:jpe) = rthratenlw (ips:ipe,:,jps+py:jpe+py)
rthratensw (ips:ipe,:,jps:jpe) = rthratensw (ips:ipe,:,jps+py:jpe+py)
cldfra (ips:ipe,:,jps:jpe) = cldfra (ips:ipe,:,jps+py:jpe+py)
gsw (ips:ipe,jps:jpe) = gsw (ips:ipe,jps+py:jpe+py)
glw (ips:ipe,jps:jpe) = glw (ips:ipe,jps+py:jpe+py)
xlat (ips:ipe,jps:jpe) = xlat (ips:ipe,jps+py:jpe+py)
xlong (ips:ipe,jps:jpe) = xlong (ips:ipe,jps+py:jpe+py)
albedo (ips:ipe,jps:jpe) = albedo (ips:ipe,jps+py:jpe+py)
albbck (ips:ipe,jps:jpe) = albbck (ips:ipe,jps+py:jpe+py)
emiss (ips:ipe,jps:jpe) = emiss (ips:ipe,jps+py:jpe+py)
lu_index (ips:ipe,jps:jpe) = lu_index (ips:ipe,jps+py:jpe+py)
cldefi (ips:ipe,jps:jpe) = cldefi (ips:ipe,jps+py:jpe+py)
rublten (ips:ipe,:,jps:jpe) = rublten (ips:ipe,:,jps+py:jpe+py)
rvblten (ips:ipe,:,jps:jpe) = rvblten (ips:ipe,:,jps+py:jpe+py)
rthblten (ips:ipe,:,jps:jpe) = rthblten (ips:ipe,:,jps+py:jpe+py)
rqvblten (ips:ipe,:,jps:jpe) = rqvblten (ips:ipe,:,jps+py:jpe+py)
rqcblten (ips:ipe,:,jps:jpe) = rqcblten (ips:ipe,:,jps+py:jpe+py)
rqiblten (ips:ipe,:,jps:jpe) = rqiblten (ips:ipe,:,jps+py:jpe+py)
tmn (ips:ipe,jps:jpe) = tmn (ips:ipe,jps+py:jpe+py)
xland (ips:ipe,jps:jpe) = xland (ips:ipe,jps+py:jpe+py)
znt (ips:ipe,jps:jpe) = znt (ips:ipe,jps+py:jpe+py)
ust (ips:ipe,jps:jpe) = ust (ips:ipe,jps+py:jpe+py)
mol (ips:ipe,jps:jpe) = mol (ips:ipe,jps+py:jpe+py)
pblh (ips:ipe,jps:jpe) = pblh (ips:ipe,jps+py:jpe+py)
capg (ips:ipe,jps:jpe) = capg (ips:ipe,jps+py:jpe+py)
thc (ips:ipe,jps:jpe) = thc (ips:ipe,jps+py:jpe+py)
hfx (ips:ipe,jps:jpe) = hfx (ips:ipe,jps+py:jpe+py)
qfx (ips:ipe,jps:jpe) = qfx (ips:ipe,jps+py:jpe+py)
lh (ips:ipe,jps:jpe) = lh (ips:ipe,jps+py:jpe+py)
snowc (ips:ipe,jps:jpe) = snowc (ips:ipe,jps+py:jpe+py)
mavail (ips:ipe,jps:jpe) = mavail (ips:ipe,jps+py:jpe+py)
tkesfcf (ips:ipe,jps:jpe) = tkesfcf (ips:ipe,jps+py:jpe+py)
taucldi (ips:ipe,:,jps:jpe) = taucldi (ips:ipe,:,jps+py:jpe+py)
taucldc (ips:ipe,:,jps:jpe) = taucldc (ips:ipe,:,jps+py:jpe+py)
defor11 (ips:ipe,:,jps:jpe) = defor11 (ips:ipe,:,jps+py:jpe+py)
defor22 (ips:ipe,:,jps:jpe) = defor22 (ips:ipe,:,jps+py:jpe+py)
defor12 (ips:ipe,:,jps:jpe) = defor12 (ips:ipe,:,jps+py:jpe+py)
defor33 (ips:ipe,:,jps:jpe) = defor33 (ips:ipe,:,jps+py:jpe+py)
defor13 (ips:ipe,:,jps:jpe) = defor13 (ips:ipe,:,jps+py:jpe+py)
defor23 (ips:ipe,:,jps:jpe) = defor23 (ips:ipe,:,jps+py:jpe+py)
xkmv (ips:ipe,:,jps:jpe) = xkmv (ips:ipe,:,jps+py:jpe+py)
xkmh (ips:ipe,:,jps:jpe) = xkmh (ips:ipe,:,jps+py:jpe+py)
xkmhd (ips:ipe,:,jps:jpe) = xkmhd (ips:ipe,:,jps+py:jpe+py)
xkhv (ips:ipe,:,jps:jpe) = xkhv (ips:ipe,:,jps+py:jpe+py)
xkhh (ips:ipe,:,jps:jpe) = xkhh (ips:ipe,:,jps+py:jpe+py)
div (ips:ipe,:,jps:jpe) = div (ips:ipe,:,jps+py:jpe+py)
bn2 (ips:ipe,:,jps:jpe) = bn2 (ips:ipe,:,jps+py:jpe+py)
!ENDOFREGISTRYGENERATEDINCLUDE