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

Timestamp:

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

Author:

gronemeier

Message:

Implemented synthetic turbulence generator

File:

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

palm/trunk/SOURCE/parin.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Implemented synthetic turbulence generator
+!
+! 2233 2017-05-30 18:08:54Z suehring
 ! 
 ! 2232 2017-05-30 17:47:52Z suehring
@@ -315 +318 @@
     USE statistics,                                                            &
         ONLY:  hom, hom_sum, pr_palm, region, statistic_regions
+
+    USE synthetic_turbulence_generator_mod,                                    &
+        ONLY:  stg_parin
 
     USE urban_surface_mod,                                                     &
@@ -605 +611 @@
 !--       if required
           CALL flight_parin
-
+!
+!--       Check if synthetic turbulence generator is used and read stg_par if
+!--       required
+          CALL stg_parin
 !
 !--       Read user-defined variables