41 integer,
parameter :: unknown_metdata=0
42 integer,
parameter :: ecmwf_metdata=1
43 integer,
parameter :: gfs_metdata=2
49 integer,
parameter :: dp=selected_real_kind(P=15)
56 integer,
parameter :: numpath=4
65 real,
parameter :: pi=3.14159265, r_earth=6.371e6, r_air=287.05, ga=9.81
66 real,
parameter :: cpa=1004.6, kappa=0.286, pi180=pi/180., vonkarman=0.4
77 real,
parameter :: karman=0.40, href=15., convke=2.0
78 real,
parameter :: hmixmin=100., hmixmax=4500., turbmesoscale=0.16
79 real,
parameter :: d_trop=50., d_strat=0.1
91 real,
parameter :: xmwml=18.016/28.960
98 real,
parameter :: ozonescale=60., pvcrit=2.0
109 integer,
parameter :: idiffnorm=10800, idiffmax=2*idiffnorm, minstep=1
120 real,
parameter :: switchnorth=75., switchsouth=-75.
132 integer,
parameter :: nxmax=721,nymax=361,nuvzmax=140,nwzmax=140,nzmax=140
134 integer,
parameter :: nxshift=0
136 integer,
parameter :: nconvlevmax = nuvzmax-1
137 integer,
parameter :: na = nconvlevmax+1
159 integer,
parameter :: maxnests=0, nxmaxn=451, nymaxn=226
172 integer,
parameter :: jpack=4*nxmax*nymax, jpunp=4*jpack
182 integer,
parameter :: maxageclass=1,nclassunc=1
195 integer,
parameter :: maxreceptor=200
204 #if defined WITH_CTBTO_PATCHES
205 integer,
parameter :: maxpart=30000000
206 integer,
parameter :: maxspec=1
208 integer,
parameter :: maxpart=2000000
209 integer,
parameter :: maxspec=6
221 integer,
parameter :: maxwf=50000, maxtable=1000, numclass=13, ni=11
232 integer,
parameter :: maxxOH=72, maxyOH=46, maxzOH=7
239 integer,
parameter :: maxcolumn=3000
246 integer,
parameter :: maxrand=2000000
255 integer,
parameter :: ncluster=5
261 integer,
parameter :: unitpath=1, unitcommand=1, unitageclasses=1, unitgrid=1
262 integer,
parameter :: unitavailab=1, unitreleases=88, unitpartout=93
263 integer,
parameter :: unitpartin=93, unitflux=98, unitouttraj=96
264 integer,
parameter :: unitvert=1, unitoro=1, unitpoin=1, unitreceptor=1
265 integer,
parameter :: unitoutgrid=97, unitoutgridppt=99, unitoutinfo=1
266 integer,
parameter :: unitspecies=1, unitoutrecept=91, unitoutreceptppt=92
267 integer,
parameter :: unitlsm=1, unitsurfdata=1, unitland=1, unitwesely=1
268 integer,
parameter :: unitOH=1
269 integer,
parameter :: unitdates=94, unitheader=90, unitshortpart=95
270 integer,
parameter :: unitboundcond=89