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

Timestamp:

Apr 12, 2019 5:52:01 PM (4 years ago)

Author:

suehring

Message:

Bugfix in initialization of turbulence generator in case of restart runs and offline nesting

File:

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

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in initialization in case of restart runs. 
+! 
+! 3885 2019-04-11 11:29:34Z kanani
 ! Changes related to global restructuring of location messages and introduction 
 ! of additional debug messages
@@ -773 +776 @@
 !--    to initialize the filter functions.
        CALL calc_length_and_time_scale
+!
+!--    Parametrize Reynolds-stress tensor, diagonal elements as well
+!--    as r21 (v'u'), r31 (w'u'), r32 (w'v'). Parametrization follows
+!--    Rotach et al. (1996) and is based on boundary-layer depth, 
+!--    friction velocity and velocity scale. 
+       CALL parametrize_reynolds_stress
+!      
+!--    Calculate coefficient matrix from Reynolds stress tensor  
+!--    (Lund rotation)
+       CALL calc_coeff_matrix
             
     ENDIF