You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
1.2 KiB
Plaintext
36 lines
1.2 KiB
Plaintext
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)
|
|
|
|
|