Ignore:
Timestamp:
Apr 12, 2018 10:13:48 AM (3 years ago)
Author:
suehring
Message:

Synchronize location message between parent and child. Message will not be flushed before all models finished their task.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/message.f90

    r2932 r2961  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! 
    2323!
    2424! Former revisions:
    2525! -----------------
    2626! $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
    2731! Corrected "Former revisions" section
    2832!
     
    252256        ONLY:  OUTPUT_UNIT
    253257
    254     USE pegrid,                                                                &
    255         ONLY:  myid
     258    USE pegrid
    256259
    257260    USE pmc_interface,                                                         &
    258         ONLY:  cpl_id
     261        ONLY:  cpl_id, nested_run
    259262
    260263    IMPLICIT NONE
     
    263266    LOGICAL          ::  advance  !< switch for advancing/noadvancing I/O
    264267
     268#if defined( __parallel )
     269    IF ( nested_run )  CALL MPI_BARRIER( MPI_COMM_WORLD, ierr )
     270#endif
    265271!
    266272!-- Output for nested runs only on the root domain
Note: See TracChangeset for help on using the changeset viewer.