Changeset 3312 for palm/trunk/SOURCE/local_stop.f90
- Timestamp:
- Oct 6, 2018 2:15:46 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/local_stop.f90
r3250 r3312 101 101 IF ( abort_mode == 1 ) THEN 102 102 CALL MPI_FINALIZE( ierr ) 103 STOP ''103 STOP 1 104 104 ELSEIF ( abort_mode == 2 ) THEN 105 105 CALL MPI_ABORT( comm2d, 9999, ierr ) … … 140 140 ENDIF 141 141 CALL MPI_FINALIZE( ierr ) 142 STOP ''142 STOP 1 143 143 144 144 CASE ( 1 ) … … 149 149 ENDIF 150 150 CALL MPI_FINALIZE( ierr ) 151 STOP ''151 STOP 1 152 152 153 153 CASE ( 2 ) … … 195 195 #else 196 196 197 STOP ''197 STOP 1 198 198 199 199 #endif
Note: See TracChangeset
for help on using the changeset viewer.