Changeset 2100


Ignore:
Timestamp:
Jan 5, 2017 4:40:16 PM (5 years ago)
Author:
suehring
Message:

Prevent extremely large SGS-velocities by limiting TKE in stochastic terms.

File:
1 edited

Legend:

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

    r2001 r2100  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Prevent extremely large SGS-velocities in regions where TKE is zero, e.g.
     23! at the begin of simulations and/or in non-turbulent regions.
    2324!
    2425! Former revisions:
     
    15781579    REAL(wp) ::  v_sgs   !< subgrid-scale velocity component
    15791580
     1581!-- At first, limit TKE to a small non-zero number, in order to prevent
     1582!-- the occurrence of extremely large SGS-velocities in case TKE is zero,
     1583!-- (could occur at the simulation begin).
     1584    e_n = MAX( e_n, 1E-20_wp )
    15801585!
    15811586!-- Please note, terms 1 and 2 (drift and memory term, respectively) are
Note: See TracChangeset for help on using the changeset viewer.