Commit cc6abaac authored by Sabine's avatar Sabine

BUGFIX, readspecies, readerror was misplaced

parent 6a713e87
......@@ -112,7 +112,6 @@ subroutine readspecies(id_spec,pos_spec)
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
......@@ -351,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