- Timestamp:
- Apr 12, 2018 10:13:48 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/message.f90
r2932 r2961 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! 23 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Synchronize location message between parent and child. Message will be not 28 ! flushed before all models finished their respective task. 29 ! 30 ! 2932 2018-03-26 09:39:22Z maronga 27 31 ! Corrected "Former revisions" section 28 32 ! … … 252 256 ONLY: OUTPUT_UNIT 253 257 254 USE pegrid, & 255 ONLY: myid 258 USE pegrid 256 259 257 260 USE pmc_interface, & 258 ONLY: cpl_id 261 ONLY: cpl_id, nested_run 259 262 260 263 IMPLICIT NONE … … 263 266 LOGICAL :: advance !< switch for advancing/noadvancing I/O 264 267 268 #if defined( __parallel ) 269 IF ( nested_run ) CALL MPI_BARRIER( MPI_COMM_WORLD, ierr ) 270 #endif 265 271 ! 266 272 !-- Output for nested runs only on the root domain
Note: See TracChangeset
for help on using the changeset viewer.