Changeset 1557 for palm/trunk/SOURCE/init_pegrid.f90

Timestamp:

Mar 5, 2015 4:43:04 PM (9 years ago)

Author:

suehring

Message:

Enable monotone advection for scalars in combination with fifth-order scheme using monotonic limiter.

File:

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

palm/trunk/SOURCE/init_pegrid.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Adjustment for monotonic limiter
 ! 
 ! Former revisions:
@@ -591 +591 @@
 ! 
 !-- Determine the number of ghost point layers
-    IF ( scalar_advec == 'ws-scheme' .OR. momentum_advec == 'ws-scheme' )  THEN
+    IF ( scalar_advec == 'ws-scheme'      .OR.                                &
+         scalar_advec == 'ws-scheme-mono' .OR.                                &
+         momentum_advec == 'ws-scheme' )  THEN
        nbgp = 3
     ELSE