Changeset 3229 for palm/trunk

Timestamp:

Sep 4, 2018 3:05:36 PM (6 years ago)

Author:

sward

Message:

Bugfix: maximum time per log point now includes PE0

File:

• palm/trunk/SOURCE/cpulog_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/cpulog_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in maximum time spent per log point: PE 0 was beeing ignored.
+! 
+! 3049 2018-05-29 13:52:36Z Giersch
 ! Error messages revised
 ! 
@@ -326 +329 @@
        REAL(wp), DIMENSION(:),   ALLOCATABLE ::  pe_min        !< 
        REAL(wp), DIMENSION(:),   ALLOCATABLE ::  pe_rms        !< 
+       REAL(wp), DIMENSION(:),   ALLOCATABLE ::  pe_tmp        !< 
        REAL(wp), DIMENSION(:),   ALLOCATABLE ::  sum           !< 
        REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  pe_log_points !< 
@@ -348 +352 @@
 !--       Allocate and initialize temporary arrays needed for statistics
           ALLOCATE( pe_max( SIZE( log_point ) ), pe_min( SIZE( log_point ) ),  &
-                    pe_rms( SIZE( log_point ) ),                               &
+                    pe_rms( SIZE( log_point ) ), pe_tmp( SIZE( log_point ) ),  &
                     pe_log_points( SIZE( log_point ), 0:numprocs-1 ) )
           pe_min = log_point%sum
           pe_max = log_point%sum    ! need to be set in case of 1 PE
           pe_rms = 0.0_wp
+          pe_tmp = 0.0_wp
 
 #if defined( __parallel )
@@ -358 +363 @@
 !--       Receive data from all PEs
           DO  i = 1, numprocs-1
-             CALL MPI_RECV( pe_max(1), SIZE( log_point ), MPI_REAL,            &
+             CALL MPI_RECV( pe_tmp(1), SIZE( log_point ), MPI_REAL,            &
                             i, i, comm2d, status, ierr )
              sender = status(MPI_SOURCE)
-             pe_log_points(:,sender) = pe_max
+             pe_log_points(:,sender) = pe_tmp
           ENDDO
           pe_log_points(:,0) = log_point%sum   ! Results from PE0
@@ -482 +487 @@
 !--       Receive data from all PEs
           DO  i = 1, numprocs-1
-             CALL MPI_RECV( pe_max(1), SIZE( log_point ), MPI_REAL, &
+             CALL MPI_RECV( pe_tmp(1), SIZE( log_point ), MPI_REAL, &
                             MPI_ANY_SOURCE, MPI_ANY_TAG, comm2d, status, ierr )
              sender = status(MPI_SOURCE)
-             pe_log_points(:,sender) = pe_max
+             pe_log_points(:,sender) = pe_tmp
           ENDDO
           pe_log_points(:,0) = log_point_s%sum   ! Results from PE0