Changeset 3051 for palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

Timestamp:

May 30, 2018 5:43:55 PM (6 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:

• palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
-! Error messages revised
+! Bugfix in calculation of initial Reynolds-stress tensor.
 ! 
 ! 3045 2018-05-28 07:55:41Z Giersch
-! Error message revised
+! Error messages revised
 ! 
 ! 3044 2018-05-25 10:59:41Z gronemeier
@@ -718 +718 @@
        IF ( a22(k) > 0.0_wp )  THEN
           a22(k) = SQRT( a22(k) )
-          a32(k) = ( r32(k) - a21(k) * a31(k) ) / a22(k)
        ELSE
           a22(k) = 0.0_wp
-          a32(k) = 0.0_wp
        ENDIF