Commit 43c86848 authored by Ignacio Pisso's avatar Ignacio Pisso
Browse files

add verbosity option to readspecies.f90

parent e92a713f
......@@ -102,7 +102,10 @@ subroutine readspecies(id_spec,pos_spec)
specnum(pos_spec)=id_spec
write(aspecnumb,'(i3.3)') specnum(pos_spec)
open(unitspecies,file=path(1)(1:length(1))//'SPECIES/SPECIES_'//aspecnumb,status='old',form='formatted',err=998)
!write(*,*) 'reading SPECIES',specnum(pos_spec)
if (verbosity.gt.0) then
write(*,*) 'reading SPECIES',specnum(pos_spec)
endif
ASSSPEC=.FALSE.
......
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