Commit 46f93d51 authored by Ignacio Pisso's avatar Ignacio Pisso

default values for point, area for dow, hour

parent 8057778d
......@@ -98,6 +98,11 @@ subroutine readspecies(id_spec,pos_spec)
pohdconst=-9.9E-09
pohnconst=2.0
pweightmolar=-999.9
parea_dow=-999.9
parea_hour=-999.9
ppoint_dow=-999.9
ppoint_hour=-999.9
do j=1,24 ! initialize everything to no variation
parea_hour(j)=1.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment