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

Timestamp:

Jan 21, 2021 3:51:51 PM (4 years ago)

Author:

gronemeier

Message:

bugfix: removed syn_turb_gen from restart files, replaced use_syn_turb_gen by syn_turb_gen

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! replaced use_syn_turb_gen by syn_turb_gen
+!
+! 4845 2021-01-18 11:15:37Z raasch
 ! removed allocation and initialization of arrays required for radiation boundary conditions
 !
@@ -233 +236 @@
 
     USE synthetic_turbulence_generator_mod,                                                        &
-        ONLY:  stg_init, use_syn_turb_gen
+        ONLY:  stg_init
 
     USE surface_layer_fluxes_mod,                                                                  &
@@ -1830 +1833 @@
 !
 !-- Initialization of synthetic turbulence generator
-    IF ( use_syn_turb_gen )  CALL stg_init
+    IF ( syn_turb_gen )  CALL stg_init
 !
 !-- Initializing actions for all other modules