Changeset b7ae015 in flexpart.git for src/timemanager.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/timemanager.f90 (modified) (3 diffs)

src/timemanager.f90

@@ -140 +140 @@
 
   do itime=0,ideltas,lsynctime
+    if (verbosity.gt.0) then
+           write (*,*) 'timemanager>  itime=', itime
+    endif
 
 
@@ -197 +200 @@
   !******************
 
-    if (verbosity.gt.0) then
-           write (*,*) 'timemanager>  Release particles'
-    endif 
+    !if (verbosity.gt.0) then
+    !       write (*,*) 'timemanager>  Release particles'
+    !endif 
 
     if (mdomainfill.ge.1) then
@@ -215 +218 @@
     else
       if (verbosity.gt.0) then
-        print*,'call releaseparticles'  
+        print*,'timemanager> call releaseparticles'  
       endif
       call releaseparticles(itime)