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

Timestamp:

Jul 9, 2019 6:17:37 PM (5 years ago)

Author:

suehring

Message:

Restore accidantly removed limitation to positive values

File:

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

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Restore accidantly removed limitation to positive values
+! 
+! 4079 2019-07-09 18:04:41Z suehring
 ! Application of monotonic flux limiter for the vertical scalar advection 
 ! up to the topography top (only for the cache-optimized version at the 
@@ -2789 +2792 @@
                BTEST( wall_flags_0(k,j,i), 0 )                                                     &
                )
+
+          IF ( chem_species(ilsp)%conc_p(k,j,i) < 0.0_wp )  THEN                
+             chem_species(ilsp)%conc_p(k,j,i) = 0.1_wp * chem_species(ilsp)%conc(k,j,i)    !FKS6                
+          ENDIF
        ENDDO
 !