Changeset 622 for palm/trunk/SOURCE/init_3d_model.f90
- Timestamp:
- Dec 10, 2010 8:08:13 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_3d_model.f90
r561 r622 7 7 ! Current revisions: 8 8 ! ----------------- 9 ! 9 ! optional barriers included in order to speed up collective operations 10 10 ! 11 11 ! Former revisions: … … 860 860 861 861 #if defined( __parallel ) 862 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 862 863 CALL MPI_ALLREDUCE( volume_flow_initial_l(1), volume_flow_initial(1),& 863 864 2, MPI_REAL, MPI_SUM, comm2d, ierr ) 865 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 864 866 CALL MPI_ALLREDUCE( volume_flow_area_l(1), volume_flow_area(1), & 865 867 2, MPI_REAL, MPI_SUM, comm2d, ierr ) … … 1172 1174 1173 1175 #if defined( __parallel ) 1176 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 1174 1177 CALL MPI_ALLREDUCE( volume_flow_initial_l(1), volume_flow_initial(1),& 1175 1178 2, MPI_REAL, MPI_SUM, comm2d, ierr ) 1179 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 1176 1180 CALL MPI_ALLREDUCE( volume_flow_area_l(1), volume_flow_area(1), & 1177 1181 2, MPI_REAL, MPI_SUM, comm2d, ierr ) … … 1560 1564 sr = statistic_regions + 1 1561 1565 #if defined( __parallel ) 1566 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 1562 1567 CALL MPI_ALLREDUCE( ngp_2dh_l(0), ngp_2dh(0), sr, MPI_INTEGER, MPI_SUM, & 1563 1568 comm2d, ierr ) 1569 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 1564 1570 CALL MPI_ALLREDUCE( ngp_2dh_outer_l(0,0), ngp_2dh_outer(0,0), (nz+2)*sr, & 1565 1571 MPI_INTEGER, MPI_SUM, comm2d, ierr ) 1572 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 1566 1573 CALL MPI_ALLREDUCE( ngp_2dh_s_inner_l(0,0), ngp_2dh_s_inner(0,0), & 1567 1574 (nz+2)*sr, MPI_INTEGER, MPI_SUM, comm2d, ierr ) 1575 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 1568 1576 CALL MPI_ALLREDUCE( ngp_3d_inner_l(0), ngp_3d_inner_tmp(0), sr, MPI_REAL, & 1569 1577 MPI_SUM, comm2d, ierr )
Note: See TracChangeset
for help on using the changeset viewer.