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

Timestamp:

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

Author:

gronemeier

Message:

Implemented synthetic turbulence generator

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (4 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Implemented synthetic turbulence generator
+!
+! 2252 2017-06-07 09:35:37Z knoop
 ! rho_air now depending on surface_pressure even in Boussinesq mode
 ! 
@@ -390 +393 @@
                sums_l_l, sums_up_fraction_l, sums_wsts_bc_l, ts_value,         &
                weight_pres, weight_substep
- 
+
+    USE synthetic_turbulence_generator_mod,                                    &
+        ONLY:  stg_init, use_synthetic_turbulence_generator
+
     USE surface_layer_fluxes_mod,                                              &
         ONLY:  init_surface_layer_fluxes
@@ -1057 +1063 @@
 
 !
+!--       Overwrite initial profiles in case of synthetic turbulence generator
+          IF( use_synthetic_turbulence_generator ) THEN
+             CALL stg_init
+          ENDIF
+
+!
 !--       Use constructed initial profiles (velocity constant with height,
 !--       temperature profile with constant gradient)
@@ -1538 +1550 @@
        IF ( passive_scalar )  ts_m  = 0.0_wp
        IF ( ocean          )  tsa_m = 0.0_wp
+!
+!--    Initialize synthetic turbulence generator in case of restart.
+       IF ( TRIM( initializing_actions ) == 'read_restart_data'  .AND.         &
+            use_synthetic_turbulence_generator )  CALL stg_init
 
        CALL location_message( 'finished', .TRUE. )