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