Changeset 725 for palm/trunk

Timestamp:

Apr 11, 2011 9:37:01 AM (13 years ago)

Author:

suehring

Message:

Bugfix in exchange of ghost layers for p.

File:

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

palm/trunk/SOURCE/data_output_3d.f90

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