- Timestamp:
- Jul 9, 2019 6:17:37 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/chemistry_model_mod.f90
r4079 r4080 27 27 ! ----------------- 28 28 ! $Id$ 29 ! Restore accidantly removed limitation to positive values 30 ! 31 ! 4079 2019-07-09 18:04:41Z suehring 29 32 ! Application of monotonic flux limiter for the vertical scalar advection 30 33 ! up to the topography top (only for the cache-optimized version at the … … 2789 2792 BTEST( wall_flags_0(k,j,i), 0 ) & 2790 2793 ) 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 2791 2798 ENDDO 2792 2799 !
Note: See TracChangeset
for help on using the changeset viewer.