Changeset 3512 for palm

Timestamp:

Nov 9, 2018 6:09:51 PM (6 years ago)

Author:

gronemeier

Message:

Bugfix: do not output ghost points if mask_x/y_loop is not specified (init_masks)

File:

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

palm/trunk/SOURCE/init_masks.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: do not output ghost points if mask_x/y_loop is not specified
+! 
+! 3467 2018-10-30 19:05:21Z suehring
 ! Implementation of a new aerosol module salsa.
 ! 
@@ -760 +763 @@
              IF ( mask_loop(mid,dim,2) < 0.0_wp )  THEN
                 tmp2 = mask_loop(mid,dim,2)
-                mask_loop(mid,dim,2) = (nxyz+1)*dxyz / mask_scale(dim)   ! (default)
+                mask_loop(mid,dim,2) = nxyz*dxyz / mask_scale(dim)   ! (default)
              ENDIF
              IF ( MAXVAL( mask_loop(mid,dim,1:2) )  &