Changeset 222 for palm/trunk/SOURCE/timestep.f90
- Timestamp:
- Jan 12, 2009 4:04:16 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/timestep.f90
r206 r222 5 5 ! ----------------- 6 6 ! Implementation of a MPI-1 Coupling: replaced myid with target_id 7 ! Bugfix for nonparallel execution 7 8 ! 8 9 ! Former revisions: … … 216 217 !-- and its reason, provided the remote model has not already been 217 218 !-- informed of another termination reason (terminate_coupled > 0) before. 219 #if defined( __parallel ) 218 220 IF ( coupling_mode /= 'uncoupled' .AND. terminate_coupled == 0 ) THEN 219 221 terminate_coupled = 2 … … 223 225 comm_inter, status, ierr ) 224 226 ENDIF 225 227 #endif 226 228 ENDIF 227 229
Note: See TracChangeset
for help on using the changeset viewer.