Ignore:
Timestamp:
Dec 12, 2019 4:39:05 PM (5 years ago)
Author:
suehring
Message:

Plant canopy: implement fix for LAD on building edges also for the vectorl-optimized branch

File:
1 edited

Legend:

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

    r4332 r4335  
    2525! -----------------
    2626! $Id$
     27! Commentation of last commit
     28!
     29! 4332 2019-12-10 19:44:12Z suehring
    2730! Limit initial velocity seeds in restart runs, if not the seed calculation
    2831! may become unstable. Further, minor bugfix in initial velocity seed
     
    939942          DO  i = nxlg, nxrg
    940943             DO  k = nzb, nzt+1
    941 
     944!
     945!--             In case the correlation coefficients are very small, the
     946!--             velocity seeds may become very large finally creating
     947!--             numerical instabilities in the synthetic turbulence generator.
     948!--             Empirically, a value of 10E-8 seems to be sufficient.
    942949                IF  ( a11(k) > 10E-8_wp )  THEN
    943950                   fu_xz(k,i) = ( u(k,j,i) - u_init(k) ) / a11(k)
Note: See TracChangeset for help on using the changeset viewer.