Changeset 622 for palm/trunk/SOURCE/poisfft.f90
- Timestamp:
- Dec 10, 2010 8:08:13 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/poisfft.f90
r484 r622 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! optional barriers included in order to speed up collective operations 7 7 ! 8 8 ! Former revisions: … … 718 718 !-- Transpose array 719 719 CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start' ) 720 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 720 721 CALL MPI_ALLTOALL( work(nxl,1,0), sendrecvcount_xy, MPI_REAL, & 721 722 f_out(1,1,nys_x,1), sendrecvcount_xy, MPI_REAL, & … … 756 757 !-- Transpose array 757 758 CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start' ) 759 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 758 760 CALL MPI_ALLTOALL( f_in(1,1,nys_x,1), sendrecvcount_xy, MPI_REAL, & 759 761 work(nxl,1,0), sendrecvcount_xy, MPI_REAL, & … … 1073 1075 !-- Transpose array 1074 1076 CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start' ) 1077 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 1075 1078 CALL MPI_ALLTOALL( work(nys,1,0), sendrecvcount_xy, MPI_REAL, & 1076 1079 f_out(1,1,nxl_y,1), sendrecvcount_xy, MPI_REAL, & … … 1107 1110 !-- Transpose array 1108 1111 CALL cpu_log( log_point_s(32), 'mpi_alltoall', 'start' ) 1112 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 1109 1113 CALL MPI_ALLTOALL( f_in(1,1,nxl_y,1), sendrecvcount_xy, MPI_REAL, & 1110 1114 work(nys,1,0), sendrecvcount_xy, MPI_REAL, &
Note: See TracChangeset
for help on using the changeset viewer.