Changeset 4080 for palm


Ignore:
Timestamp:
Jul 9, 2019 6:17:37 PM (5 years ago)
Author:
suehring
Message:

Restore accidantly removed limitation to positive values

File:
1 edited

Legend:

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

    r4079 r4080  
    2727! -----------------
    2828! $Id$
     29! Restore accidantly removed limitation to positive values
     30!
     31! 4079 2019-07-09 18:04:41Z suehring
    2932! Application of monotonic flux limiter for the vertical scalar advection
    3033! up to the topography top (only for the cache-optimized version at the
     
    27892792               BTEST( wall_flags_0(k,j,i), 0 )                                                     &
    27902793               )
     2794
     2795          IF ( chem_species(ilsp)%conc_p(k,j,i) < 0.0_wp )  THEN               
     2796             chem_species(ilsp)%conc_p(k,j,i) = 0.1_wp * chem_species(ilsp)%conc(k,j,i)    !FKS6               
     2797          ENDIF
    27912798       ENDDO
    27922799!
Note: See TracChangeset for help on using the changeset viewer.