Ignore:
Timestamp:
May 30, 2018 5:43:55 PM (3 years ago)
Author:
suehring
Message:

Speed-up NetCDF input; Revise NetCDF-input routines and remove input via io-blocks; Temporarily revoke renaming of input variables in dynamic driver; More detailed error messages created; Bugfix in mapping 3D buildings; Bugfix in land-surface model at pavement surfaces; Bugfix in initialization with inifor

File:
1 edited

Legend:

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

    r3049 r3051  
    2525! -----------------
    2626! $Id$
    27 ! Error messages revised
     27! Bugfix in calculation of initial Reynolds-stress tensor.
    2828!
    2929! 3045 2018-05-28 07:55:41Z Giersch
    30 ! Error message revised
     30! Error messages revised
    3131!
    3232! 3044 2018-05-25 10:59:41Z gronemeier
     
    718718       IF ( a22(k) > 0.0_wp )  THEN
    719719          a22(k) = SQRT( a22(k) )
    720           a32(k) = ( r32(k) - a21(k) * a31(k) ) / a22(k)
    721720       ELSE
    722721          a22(k) = 0.0_wp
    723           a32(k) = 0.0_wp
    724722       ENDIF
    725723
Note: See TracChangeset for help on using the changeset viewer.