Changeset 4115 for palm/trunk/SOURCE/chemistry_model_mod.f90

Timestamp:

Jul 24, 2019 12:50:49 PM (5 years ago)

Author:

suehring

Message:

Bugfix in setting flags inidicating wall-bounded grid-points (used for control TKE production near walls); Bugfix in chemistry decycling initialization

File:

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

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Fix faulty IF statement in decycling initialization
+! 
+! 4110 2019-07-22 17:05:21Z suehring
 ! - Decycling boundary conditions are only set at the ghost points not on the
 !   prognostic grid points 
@@ -2000 +2003 @@
           ENDIF
        ENDIF
-       IF ( .NOT. decycle_chem_lr )  THEN
+       IF ( decycle_chem_lr )  THEN
           IF ( nxl == 0  )  THEN
              DO  i = 1, nbgp