Changeset 2259 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Jun 8, 2017 9:09:11 AM (7 years ago)

Author:

gronemeier

Message:

Implemented synthetic turbulence generator

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (3 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Implemented synthetic turbulence generator
+!
+! 2233 2017-05-30 18:08:54Z suehring
 !
 ! 2232 2017-05-30 17:47:52Z suehring
@@ -373 +376 @@
     USE urban_surface_mod,                                                     &
         ONLY:  usm_material_heat_model, usm_material_model,                    &
-               usm_radiation, usm_surface_energy_balance              
+               usm_radiation, usm_surface_energy_balance
+
+    USE synthetic_turbulence_generator_mod,                                    &
+        ONLY:  stg_main, use_synthetic_turbulence_generator
 
     USE user_actions_mod,                                                      &
@@ -665 +671 @@
 !--       Impose a turbulent inflow using the recycling method
           IF ( turbulent_inflow )  CALL  inflow_turbulence
+
+!
+!--       Impose a turbulent inflow using synthetic generated turbulence
+         IF ( use_synthetic_turbulence_generator ) THEN 
+            CALL  stg_main
+         ENDIF
 
 !