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

Timestamp:

Jan 21, 2021 3:51:51 PM (3 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_pegrid.f90 (modified) (4 diffs)

palm/trunk/SOURCE/init_pegrid.f90

@@ -21 +21 @@
 ! -----------------
 ! $Id$
+! replaced use_syn_turb_gen by syn_turb_gen
+!
+! 4648 2020-08-25 07:52:08Z raasch
 ! file re-formatted to follow the PALM coding standard
 !
@@ -95 +98 @@
         ONLY:  coupling_mode, coupling_topology, gathered_size, momentum_advec,                    &
                outflow_source_plane, recycling_width, scalar_advec, subdomain_size,                &
-               turbulent_inflow, turbulent_outflow, y_shift
+               syn_turb_gen, turbulent_inflow, turbulent_outflow, y_shift
 
     USE grid_variables,                                                                            &
@@ -123 +126 @@
 
     USE synthetic_turbulence_generator_mod,                                                        &
-        ONLY:  id_stg_left, id_stg_north, id_stg_right, id_stg_south, use_syn_turb_gen
+        ONLY:  id_stg_left, id_stg_north, id_stg_right, id_stg_south
 #endif
 
@@ -1158 +1161 @@
 !-- Please note, if no forcing or nesting is applied, the generator is applied only at the left
 !-- lateral boundary.
-    IF ( use_syn_turb_gen )  THEN
+    IF ( syn_turb_gen )  THEN
        IF ( bc_dirichlet_l )  THEN
           id_stg_left_l = myidx