Changeset 673 for palm/trunk/SOURCE/check_parameters.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/check_parameters.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! Declaration of ws_scheme_sca and ws_scheme_mom added (moved from 
+! advec_ws.f90).
 !
 ! Former revisions:
@@ -570 +571 @@
 !
 !-- Advection schemes:
+!       
+!-- Set the LOGICALS to enhance the performance.
+    IF ( momentum_advec == 'ws-scheme' )    ws_scheme_mom = .TRUE.
+    IF ( scalar_advec   == 'ws-scheme'   )  ws_scheme_sca = .TRUE.
+    
     IF ( momentum_advec /= 'pw-scheme' .AND. momentum_advec /= 'ws-scheme' .AND. &
          momentum_advec /= 'ups-scheme' ) THEN