Changeset 108 for palm/trunk/SOURCE/timestep.f90
- Timestamp:
- Aug 24, 2007 3:10:38 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/timestep.f90
r4 r108 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! modifications to terminate coupled runs 6 7 ! 7 8 ! … … 192 193 IF ( dt_3d < ( 0.00001 * dt_max ) ) THEN 193 194 stop_dt = .TRUE. 195 194 196 IF ( myid == 0 ) THEN 195 197 PRINT*,'+++ time_step: Time step has reached minimum limit.' … … 207 209 ' j=', w_max_ijk(2), ' i=', w_max_ijk(3) 208 210 ENDIF 211 ! 212 !-- In case of coupled runs inform the remote model of the termination 213 !-- and its reason, provided the remote model has not already been 214 !-- informed of another termination reason (terminate_coupled > 0) before. 215 IF ( coupling_mode /= 'uncoupled' .AND. terminate_coupled == 0 ) THEN 216 terminate_coupled = 2 217 CALL MPI_SENDRECV( & 218 terminate_coupled, 1, MPI_INTEGER, myid, 0, & 219 terminate_coupled_remote, 1, MPI_INTEGER, myid, 0, & 220 comm_inter, status, ierr ) 221 ENDIF 222 209 223 ENDIF 210 224
Note: See TracChangeset
for help on using the changeset viewer.