Changeset 3241 for palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

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

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3186 2018-07-30 17:07:14Z suehring
 ! Mask topography while imposing inflow perturbations at the boundaries; do not
 ! impose perturbations at top boundary as well as ghost points
@@ -324 +327 @@
 
     USE control_parameters,                                                    &
-        ONLY:  bc_lr, bc_ns, child_domain, nesting_offline,                    &
-               number_stretch_level_start, rans_mode, turbulent_inflow
+        ONLY:  bc_lr, bc_ns, child_domain, nesting_offline, rans_mode,         &
+               turbulent_inflow
 
     USE pmc_interface,                                                         &
@@ -430 +433 @@
 
     USE control_parameters,                                                    &
-        ONLY:  child_domain, coupling_char, dz, e_init, nesting_offline,       &
-               rans_mode
+        ONLY:  child_domain, coupling_char, e_init, nesting_offline, rans_mode
 
     USE grid_variables,                                                        &