From 43c86848adb64a2282787e3e7edec499b823078a Mon Sep 17 00:00:00 2001
From: Ignacio Pisso <Ignacio.Pisso@nilu.no>
Date: Sun, 1 Mar 2015 16:51:28 +0100
Subject: [PATCH]  add verbosity option to  readspecies.f90

---
 src/readspecies.f90 | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/readspecies.f90 b/src/readspecies.f90
index bfd99864..94bcb877 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.
 
-- 
GitLab