Changeset 622 for palm/trunk/SOURCE/advec_particles.f90
- Timestamp:
- Dec 10, 2010 8:08:13 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/advec_particles.f90
r559 r622 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! optional barriers included in order to speed up collective operations 6 7 ! TEST: PRINT statements on unit 9 (commented out) 7 8 ! … … 792 793 ! 793 794 !-- Compute total sum from local sums 795 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 794 796 CALL MPI_ALLREDUCE( sums_l(nzb,1,0), sums(nzb,1), nzt+2-nzb, & 795 797 MPI_REAL, MPI_SUM, comm2d, ierr ) 798 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 796 799 CALL MPI_ALLREDUCE( sums_l(nzb,2,0), sums(nzb,2), nzt+2-nzb, & 797 800 MPI_REAL, MPI_SUM, comm2d, ierr ) … … 830 833 ! 831 834 !-- Compute total sum from local sums 835 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 832 836 CALL MPI_ALLREDUCE( sums_l(nzb,8,0), sums(nzb,8), nzt+2-nzb, & 833 837 MPI_REAL, MPI_SUM, comm2d, ierr ) 838 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 834 839 CALL MPI_ALLREDUCE( sums_l(nzb,30,0), sums(nzb,30), nzt+2-nzb, & 835 840 MPI_REAL, MPI_SUM, comm2d, ierr ) 841 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 836 842 CALL MPI_ALLREDUCE( sums_l(nzb,31,0), sums(nzb,31), nzt+2-nzb, & 837 843 MPI_REAL, MPI_SUM, comm2d, ierr ) 844 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 838 845 CALL MPI_ALLREDUCE( sums_l(nzb,32,0), sums(nzb,32), nzt+2-nzb, & 839 846 MPI_REAL, MPI_SUM, comm2d, ierr ) … … 1948 1955 !-- and set the switch corespondingly 1949 1956 #if defined( __parallel ) 1957 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 1950 1958 CALL MPI_ALLREDUCE( dt_3d_reached_l, dt_3d_reached, 1, MPI_LOGICAL, & 1951 1959 MPI_LAND, comm2d, ierr )
Note: See TracChangeset
for help on using the changeset viewer.