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

Timestamp:

Apr 8, 2014 3:21:23 PM (10 years ago)

Author:

heinze

Message:

REAL constants provided with KIND-attribute

File:

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

palm/trunk/SOURCE/cpulog.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! REAL constants provided with KIND-attribute
 !
 ! Former revisions:
@@ -100 +100 @@
     END TYPE logpoint
 
-    TYPE(logpoint), DIMENSION(100) ::  log_point = logpoint( 0.0, 0.0, 0.0,   &
-                                       0.0, 0.0, 0.0, 0.0, 0, ' ' ),          &
-                                       log_point_s = logpoint( 0.0, 0.0, 0.0, &
-                                       0.0, 0.0, 0.0, 0.0, 0, ' ' )
+    TYPE(logpoint), DIMENSION(100) ::  log_point = logpoint( 0.0_wp, 0.0_wp,   &
+                                       0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, &
+                                       0, ' ' ),                               &
+                                       log_point_s = logpoint( 0.0_wp, 0.0_wp, &
+                                       0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, &
+                                       0, ' ' )
 
     SAVE
@@ -120 +122 @@
        LOGICAL, SAVE     ::  first = .TRUE.     !: 
        
-       REAL(wp)          ::  mtime = 0.0        !: 
-       REAL(wp)          ::   mtimevec = 0.0    !: 
+       REAL(wp)          ::  mtime = 0.0_wp     !: 
+       REAL(wp)          ::  mtimevec = 0.0_wp  !: 
        TYPE(logpoint)    ::  log_event          !: 
 
@@ -212 +214 @@
           log_event%vector   = log_event%vector + log_event%mtimevec
           log_event%counts   = log_event%counts + 1
-          log_event%isum     = 0.0
-          log_event%ivect    = 0.0
+          log_event%isum     = 0.0_wp
+          log_event%ivect    = 0.0_wp
        ELSE
           message_string = 'unknown modus of time measurement: ' // TRIM( modus )
@@ -239 +241 @@
        INTEGER(iwp)    ::  sender          !: 
        REAL(wp)       ::  average_cputime  !: 
-       REAL(wp), SAVE ::  norm = 1.0       !: 
+       REAL(wp), SAVE ::  norm = 1.0_wp    !: 
        REAL(wp), DIMENSION(:),   ALLOCATABLE ::  pe_max        !: 
        REAL(wp), DIMENSION(:),   ALLOCATABLE ::  pe_min        !: 
@@ -267 +269 @@
           pe_min = log_point%sum
           pe_max = log_point%sum    ! need to be set in case of 1 PE
-          pe_rms = 0.0
+          pe_rms = 0.0_wp
 
 #if defined( __parallel )
@@ -319 +321 @@
              sum = log_point%sum
           ELSEWHERE
-             sum = -1.0
+             sum = -1.0_wp
           ENDWHERE
 
@@ -328 +330 @@
                                REAL( nr_timesteps_this_run, KIND=wp ) * 1E6_wp  ! in micro-sec
           ELSE
-             average_cputime = -1.0
+             average_cputime = -1.0_wp
           ENDIF
 
@@ -354 +356 @@
              ii = MAXLOC( sum )
              i = ii(1)
-             IF ( sum(i) /= -1.0 )  THEN
+             IF ( sum(i) /= -1.0_wp )  THEN
                 WRITE ( 18, 102 ) &
-              log_point(i)%place, log_point(i)%sum,                &
-                   log_point(i)%sum / log_point(1)%sum * 100.0,         &
+              log_point(i)%place, log_point(i)%sum,                            &
+                   log_point(i)%sum / log_point(1)%sum * 100.0_wp,             &
                    log_point(i)%counts, pe_min(i), pe_max(i), pe_rms(i)
-                sum(i) = -1.0
+                sum(i) = -1.0_wp
              ELSE
                 EXIT
@@ -391 +393 @@
           pe_min = log_point_s%sum
           pe_max = log_point_s%sum    ! need to be set in case of 1 PE
-          pe_rms = 0.0
+          pe_rms = 0.0_wp
 
 #if defined( __parallel )
@@ -416 +418 @@
 !--          Calculate rms
              DO  i = 0, numprocs-1
-                pe_rms(iii) = pe_rms(iii) + ( &
+                pe_rms(iii) = pe_rms(iii) + (                                  &
                                     pe_log_points(iii,i) - log_point_s(iii)%sum &
                                             )**2
@@ -441 +443 @@
              sum = log_point_s%sum
           ELSEWHERE
-             sum = -1.0
+             sum = -1.0_wp
           ENDWHERE
 
@@ -450 +452 @@
              ii = MAXLOC( sum )
              i = ii(1)
-             IF ( sum(i) /= -1.0 )  THEN
-                WRITE ( 18, 102 ) &
-                   log_point_s(i)%place, log_point_s(i)%sum, &
-                   log_point_s(i)%sum / log_point(1)%sum * 100.0, &
+             IF ( sum(i) /= -1.0_wp )  THEN
+                WRITE ( 18, 102 )                                              &
+                   log_point_s(i)%place, log_point_s(i)%sum,                   &
+                   log_point_s(i)%sum / log_point(1)%sum * 100.0_wp,           &
                    log_point_s(i)%counts, pe_min(i), pe_max(i), pe_rms(i)
-                sum(i) = -1.0
+                sum(i) = -1.0_wp
              ELSE
                 EXIT