Changeset b7ae015 in flexpart.git for src/readreleases.f90

Timestamp:

Mar 2, 2015, 10:56:20 AM (9 years ago)

Author:

Ignacio Pisso <Ignacio.Pisso@…>

Branches:

master, 10.4.1_pesei, FPv9.3.1, FPv9.3.1b_testing, FPv9.3.2, GFS_025, bugfixes+enhancements, dev, fp9.3.1-20161214-nc4, grib2nc4_repair, release-10, release-10.4.1, scaling-bug, univie

Children:

1a08571

Parents:

52aabab

Message:

clean up runtime messages and adjust verbosity level

File:

• src/readreleases.f90 (modified) (3 diffs)

src/readreleases.f90

@@ -259 +259 @@
   if (stat.ne.0) write(*,*)'ERROR: could not allocate xmasssave'
 
-  write (*,*) 'readreleases> Releasepoints : ', numpoint
+  if (verbosity.gt.0) then
+    write (*,*) 'readreleases> Releasepoints : ', numpoint
+  endif
 
   do i=1,numpoint
@@ -367 +369 @@
       WETDEP=.true.
       write (*,*) 'Below-cloud scavenging: ON'
+      if (verbosity.gt.0) then
       write (*,*) 'Below-cloud scavenging coefficients: ',weta(i),i
+      endif
     else
+      if (verbosity.gt.0) then
       write (*,*) 'Below-cloud scavenging: OFF'
+      endif
     endif
     
@@ -376 +382 @@
       WETDEP=.true.
       write (*,*) 'In-cloud scavenging: ON'
+      if (verbosity.gt.0) then 
       write (*,*) 'In-cloud scavenging coefficients: ',weta_in(i),wetb_in(i), wetc_in(i), wetd_in(i),i
-    else
-      write (*,*) 'In-cloud scavenging: OFF' 
+      endif  
+  else
+      if (verbosity.gt.0) then
+      write (*,*) 'In-cloud scavenging: OFF'
+      endif 
     endif