Changeset 729 for palm/trunk/SOURCE/data_output_2d.f90

Timestamp:

May 26, 2011 10:33:34 AM (13 years ago)

Author:

heinze

Message:

Exchange ghost layers for p regardless of used pressure solver (except SOR)

File:

• palm/trunk/SOURCE/data_output_2d.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_2d.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
+! Exchange ghost layers for p regardless of used pressure solver (except SOR).
 !
 ! Former revisions:
@@ -246 +247 @@
 
              CASE ( 'p_xy', 'p_xz', 'p_yz' )
-                IF ( psolver == 'multigrid' .OR. psolver == 'sor' )           &
-                   CALL exchange_horiz( p, nbgp )
-                IF ( av == 0 )  THEN
+                IF ( av == 0 )  THEN
+                   IF ( psolver /= 'sor' )  CALL exchange_horiz( p, nbgp )
                    to_be_resorted => p
                 ELSE
+                   IF ( psolver /= 'sor' )  CALL exchange_horiz( p_av, nbgp )
                    to_be_resorted => p_av
                 ENDIF