Changeset 197 for palm/trunk/SOURCE/cpu_statistics.f90

Timestamp:

Sep 16, 2008 3:29:03 PM (16 years ago)

Author:

raasch

Message:

further adjustments for SGI and other small changes

File:

• palm/trunk/SOURCE/cpu_statistics.f90 (modified) (4 diffs)

palm/trunk/SOURCE/cpu_statistics.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! Format adjustments in order to allow CPU# > 999
+! Format adjustments in order to allow CPU# > 999,
+! data are collected from PE0 in an ordered sequence which seems to avoid
+! hanging of processes on SGI-ICE
 !
 ! Former revisions:
@@ -69 +71 @@
        DO  i = 1, numprocs-1
           CALL MPI_RECV( pe_max(1), SIZE( log_point ), MPI_REAL, &
-                         MPI_ANY_SOURCE, MPI_ANY_TAG, comm2d, status, ierr )
+                         i, i, comm2d, status, ierr )
           sender = status(MPI_SOURCE)
           pe_log_points(:,sender) = pe_max
@@ -87 +89 @@
 !--       Calculate rms
           DO  i = 0, numprocs-1
-!             IF ( log_point(iii)%place == 'run_control' )  THEN
-!                PRINT*, 'pe_rms=',pe_rms(iii),' plp=',pe_log_points(iii,i), &
-!                        ' lps=',log_point(iii)%sum
-!             ENDIF
              pe_rms(iii) = pe_rms(iii) + ( &
                                  pe_log_points(iii,i) - log_point(iii)%sum &
@@ -103 +101 @@
        ALLOCATE( pe_max( SIZE( log_point ) ) )
        pe_max = log_point%sum
-       CALL MPI_SEND( pe_max(1), SIZE( log_point ), MPI_REAL, 0, 0, comm2d, &
+       CALL MPI_SEND( pe_max(1), SIZE( log_point ), MPI_REAL, 0, myid, comm2d, &
                       ierr )
 #endif