Changeset 680 for palm/trunk/SOURCE/pres.f90

Timestamp:

Feb 4, 2011 11:16:06 PM (14 years ago)

Author:

gryschka

Message:

message string

File:

• palm/trunk/SOURCE/pres.f90 (modified) (6 diffs)

palm/trunk/SOURCE/pres.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+!
+! gryschka
+! bugfix in case of collective_wait
 !
 ! Former revisions:
@@ -118 +121 @@
 !
 !-- Left/right
+
     IF ( conserve_volume_flow  .AND.  ( outflow_l  .OR. outflow_r ) )  THEN
 
@@ -138 +142 @@
 
 #if defined( __parallel )   
-       IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
+       IF ( collective_wait )  CALL MPI_BARRIER( comm1dy, ierr )
        CALL MPI_ALLREDUCE( volume_flow_l(1), volume_flow(1), 1, MPI_REAL, &
                            MPI_SUM, comm1dy, ierr )   
@@ -177 +181 @@
 
 #if defined( __parallel )   
-       IF ( collective_wait )  CALL MPI_BARRIER( comm2d, ierr )
+       IF ( collective_wait )  CALL MPI_BARRIER( comm1dx, ierr )
        CALL MPI_ALLREDUCE( volume_flow_l(2), volume_flow(2), 1, MPI_REAL, &
                            MPI_SUM, comm1dx, ierr )   
@@ -547 +551 @@
        
     ENDIF
-
+print*, "cc"
 !
 !-- Correction of the provisional velocities with the current perturbation 
@@ -648 +652 @@
     ENDIF
 
+
 !
 !-- Conserve the volume flow