Changeset 673 for palm/trunk/SOURCE/data_output_3d.f90

Timestamp:

Jan 18, 2011 4:19:48 PM (14 years ago)

Author:

suehring

Message:

Right computation of the pressure using Runge-Kutta weighting coefficients. Consideration of the pressure gradient during the time integration removed. Removed bugfix concerning velocity variances.

File:

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

palm/trunk/SOURCE/data_output_3d.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! When using Multigrid or SOR solver an additional CALL exchange_horiz is 
+! is needed for pressure output.
 ! Former revisions:
 ! -----------------
@@ -152 +153 @@
 
           CASE ( 'p' )
+             IF ( psolver == 'multigrid' .OR. psolver == 'sor' )              &
+                CALL exchange_horiz( p, nbgp )
              IF ( av == 0 )  THEN
                 to_be_resorted => p