Changeset 1565 for palm

Timestamp:

Mar 9, 2015 8:59:31 PM (9 years ago)

Author:

suehring

Message:

Refine if-clause for setting nbgp.

File:

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

palm/trunk/SOURCE/init_pegrid.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Refine if-clause for setting nbgp. 
 ! 
 ! Former revisions:
@@ -116 +116 @@
                io_blocks, io_group, maximum_grid_level,                        &
                maximum_parallel_io_streams, message_string,                    &
-               mg_switch_to_pe0_level, momentum_advec, psolver, outflow_l,     &
-               outflow_n, outflow_r, outflow_s, recycling_width, scalar_advec, &
-               subdomain_size 
+               mg_switch_to_pe0_level, momentum_advec, neutral, psolver,       &
+               outflow_l, outflow_n, outflow_r, outflow_s, recycling_width,    &
+               scalar_advec, subdomain_size 
 
     USE grid_variables,                                                        &
@@ -594 +594 @@
 ! 
 !-- Determine the number of ghost point layers
-    IF ( scalar_advec == 'ws-scheme'      .OR.                                &
+    IF ( ( scalar_advec == 'ws-scheme' .AND. .NOT. neutral ) .OR.             &
          scalar_advec == 'ws-scheme-mono' .OR.                                &
          momentum_advec == 'ws-scheme' )  THEN