Changeset 3512 for palm


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/init_masks.f90

    r3467 r3512  
    2525! -----------------
    2626! $Id$
     27! Bugfix: do not output ghost points if mask_x/y_loop is not specified
     28!
     29! 3467 2018-10-30 19:05:21Z suehring
    2730! Implementation of a new aerosol module salsa.
    2831!
     
    760763             IF ( mask_loop(mid,dim,2) < 0.0_wp )  THEN
    761764                tmp2 = mask_loop(mid,dim,2)
    762                 mask_loop(mid,dim,2) = (nxyz+1)*dxyz / mask_scale(dim)   ! (default)
     765                mask_loop(mid,dim,2) = nxyz*dxyz / mask_scale(dim)   ! (default)
    763766             ENDIF
    764767             IF ( MAXVAL( mask_loop(mid,dim,1:2) )  &
Note: See TracChangeset for help on using the changeset viewer.