Commit 77783e3d authored by Sabine's avatar Sabine

Merge branch 'release-10.3beta' into dev

parents a816416e cc6abaac
......@@ -100,15 +100,18 @@ subroutine readspecies(id_spec,pos_spec)
pweightmolar=-999.9
do j=1,24 ! initialize everything to no variation
parea_hour(j)=1.
ppoint_hour(j)=1.
area_hour(pos_spec,j)=1.
point_hour(pos_spec,j)=1.
end do
do j=1,7
parea_dow(j)=1.
ppoint_dow(j)=1.
area_dow(pos_spec,j)=1.
point_dow(pos_spec,j)=1.
end do
if (readerror.ne.0) then ! text format input
! Open the SPECIES file and read species names and properties
!************************************************************
specnum(pos_spec)=id_spec
......@@ -347,8 +350,6 @@ subroutine readspecies(id_spec,pos_spec)
20 continue
endif
22 close(unitspecies)
! namelist output if requested
......
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