Changeset 37 for branches/petra/src/timemanager.f90

Timestamp:

Apr 22, 2015, 3:42:35 PM (9 years ago)

Author:

pesei

Message:

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

File:

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

branches/petra/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