Changeset 805 for palm/trunk


Ignore:
Timestamp:
Jan 17, 2012 3:53:28 PM (13 years ago)
Author:
franke
Message:

Bugfix: moved collective_wait from parallel branch

File:
1 edited

Legend:

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

    r802 r805  
    55! Current revisions:
    66! -----------------
    7 ! particle arrays (particles, parrticles_temp) implemented as pointers,
    8 ! +particles_1, particles_2, sort_count
     7! Bugfix collective_wait must be out of parallel branch for runs in serial mode
    98!
    109! Former revisions:
     
    1615! sums_ws2_ws_l, sums_wspts_ws_l, sums_wsqs_ws_l, sums_wssas_ws_l increased.
    1716! for thread-safe summation in advec_ws.
     17!
     18! 792 2011-12-01 01:23:23Z raasch
     19! particle arrays (particles, parrticles_temp) implemented as pointers,
     20! +particles_1, particles_2, sort_count
    1821!
    1922! 790 2011-11-29 03:11:20Z raasch
     
    12651268                                             hor_index_bounds_previous_run
    12661269
     1270    LOGICAL ::  collective_wait = .FALSE.
     1271
    12671272#if defined( __parallel )
    12681273#if defined( __mpi2 )
     
    12811286    INTEGER, DIMENSION(:), ALLOCATABLE ::  ngp_yz, type_xz, type_yz
    12821287
    1283     LOGICAL ::  collective_wait = .FALSE., left_border_pe  = .FALSE., &
    1284                 north_border_pe = .FALSE., reorder = .TRUE.,           &
    1285                 right_border_pe = .FALSE., south_border_pe = .FALSE.
     1288    LOGICAL ::  left_border_pe  = .FALSE., north_border_pe = .FALSE., &
     1289                reorder = .TRUE., right_border_pe = .FALSE.,          &
     1290                south_border_pe = .FALSE.
    12861291
    12871292    LOGICAL, DIMENSION(2) ::  cyclic = (/ .TRUE. , .TRUE. /), &
Note: See TracChangeset for help on using the changeset viewer.