diff --git a/src/readspecies.f90 b/src/readspecies.f90 index bfd998642d38da7c50628e09b09715844dfa6c0e..94bcb877d55b225f306bb01fe1e8a6508d290b73 100644 --- a/src/readspecies.f90 +++ b/src/readspecies.f90 @@ -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.