c USER PARAMETERS COMMON BLOCK
c Used as part of the random walk model

	INTEGER	newcondTS
	INTEGER	outputTS
	INTEGER dt,dtnew
	INTEGER	tot_dead_age
	INTEGER	maxoutputs
        INTEGER lnum_ps
        INTEGER no_grids
	REAL	hdiff(1:10), vdiff(1:10)
        INTEGER ediff(1:10)
	REAL	mass_pp,c_init
        real    xscale,yscale,clevel,dlevel
        real    t90_s,t90_d,tdpth,tofday,dayofy
        character*12 start_stamp
        character*5 dimopt
        logical hsteadystate,psteadystate,restart,fbindump
        logical pbindump(50),settles,openbd
        logical p_count,dilution,concentration,dieoff,dieoffc
        logical plumeonly,floatableonly
        logical tracking,euler
        logical compact

        COMMON /UPARMS/newcondTS,outputTS,dt,dtnew,tot_dead_age,
     1    maxoutputs,hdiff,vdiff,ediff,mass_pp,c_init,lnum_ps,no_grids,
     2    start_stamp,hsteadystate,psteadystate,restart,fbindump,
     3    pbindump,settles,openbd,p_count,dilution,concentration,
     4    plumeonly,floatableonly,tracking,euler,compact,dimopt
        common /settle/no_settles
        common /dimen2/xscale,yscale
        common /conserv/t90_s,t90_d,tdpth,tofday,dayofy,dieoff,dieoffc
        common /cdlvl/clevel(5),dlevel(5)