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

Timestamp:

Jan 18, 2011 4:19:48 PM (13 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_2d.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_2d.f90

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