Changeset 2298 for palm/trunk/SOURCE/init_dvrp.f90
- Timestamp:
- Jun 29, 2017 9:28:18 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_dvrp.f90
r2101 r2298 25 25 ! ----------------- 26 26 ! $Id$ 27 ! MPI2 related part removed 28 ! 29 ! 2101 2017-01-05 16:42:31Z suehring 27 30 ! 28 31 ! 2000 2016-08-20 18:09:15Z knoop … … 798 801 ! 799 802 !-- Adjustment for new MPI-1 coupling. This might be unnecessary. 800 #if defined( __mpi2 )801 CALL DVRP_SPLIT( MPI_COMM_WORLD, comm_palm )802 #else803 803 IF ( coupling_mode /= 'uncoupled' ) THEN 804 804 message_string = 'split of communicator not realized with' // & … … 810 810 CALL DVRP_SPLIT( MPI_COMM_WORLD, comm_palm ) 811 811 ENDIF 812 #endif813 812 814 813 CALL MPI_COMM_SIZE( comm_palm, numprocs, ierr )
Note: See TracChangeset
for help on using the changeset viewer.