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

Timestamp:

May 23, 2019 4:09:37 PM (6 years ago)

Author:

suehring

Message:

in a nested run spend 3 ghost points also for 2nd-order pw-scheme

File:

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

palm/trunk/SOURCE/init_pegrid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Spend 3 ghost points also in case of pw-scheme when nesting is applied
+! 
+! 3897 2019-04-15 11:51:14Z suehring
 ! Minor revision of multigrid check; give warning instead of an abort.
 ! 
@@ -292 +295 @@
       
     USE pegrid
+    
+    USE pmc_interface,                                                         &
+        ONLY:  nested_run
       
     USE spectra_mod,                                                           &
@@ -749 +755 @@
 !-- Determine the number of ghost point layers
     IF ( scalar_advec   == 'ws-scheme'  .OR.                                   &
-         momentum_advec == 'ws-scheme' )  THEN
+         momentum_advec == 'ws-scheme'  .OR.  nested_run )  THEN
        nbgp = 3
     ELSE