Changeset 622 for palm/trunk/SOURCE/init_pegrid.f90
- Timestamp:
- Dec 10, 2010 8:08:13 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_pegrid.f90
r482 r622 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! optional barriers included in order to speed up collective operations 7 7 ! ATTENTION: nnz_x undefined problem still has to be solved!!!!!!!! 8 8 ! TEST OUTPUT (TO BE REMOVED) logging mpi2 ierr values … … 154 154 CALL message( 'init_pegrid', 'PA0223', 1, 2, 0, 6, 0 ) 155 155 ENDIF 156 157 ! 158 !-- For communication speedup, set barriers in front of collective 159 !-- communications by default on SGI-type systems 160 IF ( host(3:5) == 'sgi' ) collective_wait = .TRUE. 156 161 157 162 ! … … 929 934 id_inflow_l = 0 930 935 ENDIF 936 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 931 937 CALL MPI_ALLREDUCE( id_inflow_l, id_inflow, 1, MPI_INTEGER, MPI_SUM, & 932 938 comm1dx, ierr ) … … 935 941 !-- Broadcast the id of the recycling plane 936 942 !-- WARNING: needs to be adjusted in case of inflows other than from left side! 937 IF ( ( recycling_width / dx ) >= nxl .AND. ( recycling_width / dx ) <= nxr )&938 THEN943 IF ( ( recycling_width / dx ) >= nxl .AND. & 944 ( recycling_width / dx ) <= nxr ) THEN 939 945 id_recycling_l = myidx 940 946 ELSE 941 947 id_recycling_l = 0 942 948 ENDIF 949 IF ( collective_wait ) CALL MPI_BARRIER( comm2d, ierr ) 943 950 CALL MPI_ALLREDUCE( id_recycling_l, id_recycling, 1, MPI_INTEGER, MPI_SUM, & 944 951 comm1dx, ierr )
Note: See TracChangeset
for help on using the changeset viewer.