Changeset 727

Timestamp:

Apr 20, 2011 8:05:25 PM (14 years ago)

Author:

suehring

Message:

Bugfix in output of p_av.

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 also for p_av.
 !
 ! Former revisions:
@@ -162 +163 @@
 
           CASE ( 'p' )
-             IF ( 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