include file: declare.inc 1
integer &
mixopt,nfile,radiate,adcorr,advord,&
tkeon,istep,gridtype,wetturb,strhopt,&
wetphys,itergrid,nu,addlength,gridadapt

real(mrl) &
wbarmag,blgalf,time,timemon,zinit1,&
zinit2,zinit3,zinit4,dutchfac,zinit5,&
qvflux,psur,fcoriolis,khval,dzmin,&
radabsorb,vgeo,wbarhite,dt,tkeinit,&
tinit1,tinit2,tinit3,tinit4,tinit5,&
blgaq,hite,ztop,prandtl,qinit1,&
qinit2,qinit3,qinit4,qinit5,zflat,&
dlayer1,sflux,dlayer2,vinit1,vinit2,&
vinit3,vinit4,vinit5,dissipcoef,radtop,&
zbottom,hite_filter,ccnbank,dthist,blgsq,&
dissfac,dtmon,fracfac,dttrace,diffucoef,&
blgbeta,lapse,strhtune,timetrace,qvbank,&
elcp,timehist,ugeo,uinit1,wbarfreq,&
uinit2,uinit3,uinit4,uinit5

namelist/kname/ &
wbarmag,mixopt,blgalf,nfile,time,&
timemon,radiate,zinit1,zinit2,zinit3,&
zinit4,dutchfac,zinit5,qvflux,psur,&
fcoriolis,khval,adcorr,dzmin,radabsorb,&
vgeo,wbarhite,dt,tkeinit,tinit1,&
tinit2,tinit3,tinit4,tinit5,advord,&
tkeon,istep,blgaq,gridtype,hite,&
wetturb,ztop,prandtl,qinit1,qinit2,&
qinit3,qinit4,qinit5,zflat,dlayer1,&
sflux,dlayer2,strhopt,wetphys,itergrid,&
vinit1,vinit2,vinit3,vinit4,vinit5,&
nu,dissipcoef,radtop,addlength,zbottom,&
hite_filter,ccnbank,dthist,blgsq,dissfac,&
dtmon,fracfac,dttrace,diffucoef,blgbeta,&
lapse,strhtune,timetrace,qvbank,elcp,&
timehist,ugeo,gridadapt,uinit1,wbarfreq,&
uinit2,uinit3,uinit4,uinit5

real(mrl), allocatable, target, dimension(:) :: &
thetal,qtot,rdmf,thetav,debugu1,&
debugu2,debugu3,rdmu,rh,debugf1,&
debugf2,debugf3,zf,divf,zu,&
ke,kh,km,divu,droprad,&
zfnext,tm,lengthmix,cloudfrac,mf,&
dsdz,mu,radrate,dzf,buoyfluxdry,&
dzu,bruntdry,buoyfluxwet,rdzf,bruntwet,&
buoyflux,dmudt,exner,rdzu,rho,&
lengthdiss,dmf,pres,dzfdt,massvelf,&
dmu,brunt,kzero,dmfdt,zfdef,&
massvelu,radflux,dmfold

real(mrl), allocatable, target,dimension(:,:) :: &
qrA,qvA,rcA,ccnA,thA,&
uA,vA,ugA,ncA,vgA,&
smokeA,nrA,tkeA,qcA

real(mrl), allocatable, dimension(:) ::&
dqrdt,dqvdt,drcdt,dccndt,dthdt,&
dudt,dvdt,dugdt,dncdt,dvgdt,&
dsmokedt,dnrdt,dtkedt,dqcdt

real(mrl), allocatable, dimension(:) ::&
fqr,fqv,frc,fccn,fth,&
fu,fv,fug,fnc,fvg,&
fsmoke,fnr,ftke,fqc

real(mrl), allocatable, dimension(:) ::&
qr_sed,qv_sed,rc_sed,ccn_sed,nc_sed,&
smoke_sed,nr_sed,qc_sed

real(mrl), pointer, dimension(:) ::&
qr,qv,rc,ccn,th,&
u,v,ug,nc,vg,&
smoke,nr,tke,qc

real(mrl), pointer, dimension(:) ::&
qrN,qvN,rcN,ccnN,thN,&
uN,vN,ugN,ncN,vgN,&
smokeN,nrN,tkeN,qcN

real(mrl), pointer, dimension(:) ::&
kqr,kqv,krc,kccn,kth,&
ku,kv,kug,knc,kvg,&
ksmoke,knr,ktke,kqc

real(mrl)::&
qrsur,qvsur,rcsur,ccnsur,thsur,&
usur,vsur,ugsur,ncsur,vgsur,&
smokesur,nrsur,qcsur

namelist/kname/ &
qrsur,qvsur,rcsur,ccnsur,thsur,&
usur,vsur,ugsur,ncsur,vgsur,&
smokesur,nrsur,qcsur