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

Timestamp:

Dec 28, 2018 5:58:49 PM (5 years ago)

Author:

kanani

Message:

Bugfix: replace simulated_time by time_since_reference_point where required

File:

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

palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: use time_since_reference_point instead of simulated_time (relevant
+! when using wall/soil spinup)
+! 
+! 3579 2018-11-29 15:32:39Z suehring
 ! - Bugfix in calculation of turbulence scaling parameters for turbulence 
 !   generator in case of topography
@@ -1054 +1058 @@
     USE control_parameters,                                                    &
         ONLY:  child_domain, dt_3d, intermediate_timestep_count,               &
-               nesting_offline, rans_mode, simulated_time, volume_flow_initial
+               nesting_offline, rans_mode, time_since_reference_point,         &
+               volume_flow_initial
 
     USE grid_variables,                                                        &
@@ -1087 +1092 @@
 !
 !-- Initial value of fu, fv, fw
-    IF ( simulated_time == 0.0_wp .AND. .NOT. velocity_seed_initialized )  THEN
+    IF ( time_since_reference_point == 0.0_wp .AND. .NOT. velocity_seed_initialized )  THEN
        CALL stg_generate_seed_yz( nuy, nuz, buy, buz, fu_yz, id_stg_left )
        CALL stg_generate_seed_yz( nvy, nvz, bvy, bvz, fv_yz, id_stg_left )