Ignore:
Timestamp:
Feb 4, 2011 11:16:06 PM (11 years ago)
Author:
gryschka
Message:

message string

File:
1 edited

Legend:

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

    r676 r680  
    44! Current revisions:
    55! -----------------
     6!
     7! gryschka
     8! bugfix in case of collective_wait
    69!
    710! Former revisions:
     
    118121!
    119122!-- Left/right
     123
    120124    IF ( conserve_volume_flow  .AND.  ( outflow_l  .OR. outflow_r ) )  THEN
    121125
     
    138142
    139143#if defined( __parallel )   
    140        IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
     144       IF ( collective_wait )  CALL MPI_BARRIER( comm1dy, ierr )
    141145       CALL MPI_ALLREDUCE( volume_flow_l(1), volume_flow(1), 1, MPI_REAL, &
    142146                           MPI_SUM, comm1dy, ierr )   
     
    177181
    178182#if defined( __parallel )   
    179        IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
     183       IF ( collective_wait )  CALL MPI_BARRIER( comm1dx, ierr )
    180184       CALL MPI_ALLREDUCE( volume_flow_l(2), volume_flow(2), 1, MPI_REAL, &
    181185                           MPI_SUM, comm1dx, ierr )   
     
    547551       
    548552    ENDIF
    549 
     553print*, "cc"
    550554!
    551555!-- Correction of the provisional velocities with the current perturbation
     
    648652    ENDIF
    649653
     654
    650655!
    651656!-- Conserve the volume flow
Note: See TracChangeset for help on using the changeset viewer.