Ignore:
Timestamp:
Sep 16, 2008 3:29:03 PM (13 years ago)
Author:
raasch
Message:

further adjustments for SGI and other small changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/cpu_statistics.f90

    r181 r197  
    44! Actual revisions:
    55! -----------------
    6 ! Format adjustments in order to allow CPU# > 999
     6! Format adjustments in order to allow CPU# > 999,
     7! data are collected from PE0 in an ordered sequence which seems to avoid
     8! hanging of processes on SGI-ICE
    79!
    810! Former revisions:
     
    6971       DO  i = 1, numprocs-1
    7072          CALL MPI_RECV( pe_max(1), SIZE( log_point ), MPI_REAL, &
    71                          MPI_ANY_SOURCE, MPI_ANY_TAG, comm2d, status, ierr )
     73                         i, i, comm2d, status, ierr )
    7274          sender = status(MPI_SOURCE)
    7375          pe_log_points(:,sender) = pe_max
     
    8789!--       Calculate rms
    8890          DO  i = 0, numprocs-1
    89 !             IF ( log_point(iii)%place == 'run_control' )  THEN
    90 !                PRINT*, 'pe_rms=',pe_rms(iii),' plp=',pe_log_points(iii,i), &
    91 !                        ' lps=',log_point(iii)%sum
    92 !             ENDIF
    9391             pe_rms(iii) = pe_rms(iii) + ( &
    9492                                 pe_log_points(iii,i) - log_point(iii)%sum &
     
    103101       ALLOCATE( pe_max( SIZE( log_point ) ) )
    104102       pe_max = log_point%sum
    105        CALL MPI_SEND( pe_max(1), SIZE( log_point ), MPI_REAL, 0, 0, comm2d, &
     103       CALL MPI_SEND( pe_max(1), SIZE( log_point ), MPI_REAL, 0, myid, comm2d, &
    106104                      ierr )
    107105#endif
Note: See TracChangeset for help on using the changeset viewer.