Changeset 1322 for palm/trunk/SOURCE/cpulog.f90

Timestamp:

Mar 20, 2014 4:38:49 PM (10 years ago)

Author:

raasch

Message:

REAL functions and a lot of REAL constants provided with KIND-attribute,
some small bugfixes

File:

• palm/trunk/SOURCE/cpulog.f90 (modified) (3 diffs)

palm/trunk/SOURCE/cpulog.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! REAL functions provided with KIND-attribute
 !
 ! Former revisions:
@@ -165 +165 @@
 #if defined( __lc ) || defined( __decalpha ) || defined( __nec )
        CALL SYSTEM_CLOCK( count, count_rate )
-       mtime = REAL( count ) / REAL( count_rate )
+       mtime = REAL( count, KIND=wp ) / REAL( count_rate, KIND=wp )
 #elif defined( __ibm )
-       mtime = IRTC( ) * 1E-9
+       mtime = IRTC( ) * 1E-9_wp
 #else
        message_string = 'no time measurement defined on this host'
@@ -322 +322 @@
 !--       Get total time in order to calculate CPU-time per gridpoint and timestep
           IF ( nr_timesteps_this_run /= 0 )  THEN
-             average_cputime = log_point(1)%sum / REAL( (nx+1) * (ny+1) * nz ) / &
-                               REAL( nr_timesteps_this_run ) * 1E6  ! in micro-sec
+             average_cputime = log_point(1)%sum / REAL( (nx+1) * (ny+1) * nz, KIND=wp ) / &
+                               REAL( nr_timesteps_this_run, KIND=wp ) * 1E6_wp  ! in micro-sec
           ELSE
              average_cputime = -1.0