Skip to content
Snippets Groups Projects
Commit 43c86848 authored by Ignacio Pisso's avatar Ignacio Pisso
Browse files

add verbosity option to readspecies.f90

parent e92a713f
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
Showing
with 4 additions and 1 deletion
src/readspecies.f90
+ 4
− 1
View file @ 43c86848
...@@ -102,7 +102,10 @@ subroutine readspecies(id_spec,pos_spec) ...@@ -102,7 +102,10 @@ subroutine readspecies(id_spec,pos_spec)
specnum(pos_spec)=id_spec specnum(pos_spec)=id_spec
write(aspecnumb,'(i3.3)') specnum(pos_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) 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. ASSSPEC=.FALSE.
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment