Changeset 225 for palm/trunk/SOURCE/local_tremain.f90

Timestamp:

Jan 26, 2009 2:44:20 PM (15 years ago)

Author:

raasch

Message:

bugfixes concerning cpu time measurements and calculation of spectra in case of multigrid method switched on

File:

• palm/trunk/SOURCE/local_tremain.f90 (modified) (2 diffs)

palm/trunk/SOURCE/local_tremain.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Type of count and count_rate changed to INTEGER(8) in order to avoid out of
+! range problems (which result in measured negative time intervals)
 !
 ! Former revisions:
@@ -39 +40 @@
     REAL       ::  actual_wallclock_time
 #elif defined( __lc )
-    INTEGER    ::  count, count_rate
+    INTEGER(8) ::  count, count_rate
     REAL       ::  actual_wallclock_time
 #endif