Changeset 3c1da52 in flexpart.git for src/timemanager.f90

Timestamp:

Jul 15, 2015, 9:45:31 AM (9 years ago)

Author:

Ignacio Pisso <Ignacio.Pisso@…>

Branches:

svn-petra

Children:

c07b09e

Parents:

31674b5

git-author:

Ignacio Pisso <Ignacio.Pisso@…> (07/15/15 09:23:56)

git-committer:

Ignacio Pisso <Ignacio.Pisso@…> (07/15/15 09:45:31)

Message:

from svn branch petra
r37 | pesei | 2015-04-22 17:42:35 +0200 (Wed, 22 Apr 2015) | 1 line
Changed paths:

M /branches/petra/src/FLEXPART.f90
M /branches/petra/src/com_mod.f90
M /branches/petra/src/getfields.f90
M /branches/petra/src/gridcheck.f90
M /branches/petra/src/interpol_rain.f90
M /branches/petra/src/interpol_rain_nests.f90
M /branches/petra/src/par_mod.f90
M /branches/petra/src/readcommand.f90
M /branches/petra/src/readspecies.f90
M /branches/petra/src/readwind.f90
M /branches/petra/src/readwind_nests.f90
M /branches/petra/src/timemanager.f90
A /branches/petra/src/verboutput.f90
M /branches/petra/src/verttransform.f90
M /branches/petra/src/verttransform_nests.f90
M /branches/petra/src/wetdepo.f90
M /branches/petra/src/wetdepokernel.f90
M /branches/petra/src/wetdepokernel_nest.f90

Wet dep quick fix and other small changes. Wet depo quick fix not final yet.

File:

• src/timemanager.f90 (modified) (1 diff)

src/timemanager.f90

@@ -137 +137 @@
   !write(*,45) itime,numpart,gridtotalunc,wetgridtotalunc,drygridtotalunc
   write(*,46) float(itime)/3600,itime,numpart
-  if (verbosity.gt.0) then
-    write (*,*) 'timemanager> starting simulation'
-    if (verbosity.gt.1) then
-      CALL SYSTEM_CLOCK(count_clock)
-      WRITE(*,*) 'timemanager> SYSTEM CLOCK',(count_clock - count_clock0)/real(count_rate)
-    endif     
+  call verboutput(verbosity,1,'timemanager> starting simulation')
+  if (verbosity.gt.1) then
+    CALL SYSTEM_CLOCK(count_clock)
+    WRITE(*,*) 'timemanager> SYSTEM CLOCK', (count_clock-count_clock0) / real(count_rate)
   endif