Changeset 4848 for palm/trunk/SOURCE/time_integration.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/time_integration.f90 (modified) (6 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! replaced use_syn_turb_gen by syn_turb_gen
+!
+! 4828 2021-01-05 11:21:41Z Giersch
 ! Remove leftover write statement from debugging
 !
@@ -46 +49 @@
 ! 4668 2020-09-09 13:00:16Z pavelkrc
 ! Improve debug messages during timestepping
-! 
+!
 ! 4581 2020-06-29 08:49:58Z suehring
 ! Omit explicit pressure forcing via geostrophic wind components in case of
 ! mesoscale nesting.
-! 
+!
 ! 4578 2020-06-25 15:43:32Z gronemeier
 ! bugfix: removed unused variables
@@ -308 +311 @@
                skip_time_do2d_yz, skip_time_do3d, skip_time_domask, skip_time_dopr,                &
                skip_time_data_output_av, sloping_surface, stop_dt, surface_output,                 &
+               syn_turb_gen,                                                                       &
                terminate_coupled, terminate_run, timestep_scheme, time_coupling, time_do2d_xy,     &
                time_do2d_xz, time_do2d_yz, time_do3d, time_domask, time_dopr, time_dopr_av,        &
@@ -421 +425 @@
     USE synthetic_turbulence_generator_mod,                                                        &
         ONLY:  dt_stg_call, dt_stg_adjust, parametrize_inflow_turbulence, stg_adjust, stg_main,    &
-               time_stg_adjust, time_stg_call, use_syn_turb_gen
+               time_stg_adjust, time_stg_call
 
     USE turbulence_closure_mod,                                                                    &
@@ -926 +930 @@
 !
 !--       Impose a turbulent inflow using synthetic generated turbulence.
-          IF ( use_syn_turb_gen  .AND.                                                             &
+          IF ( syn_turb_gen  .AND.                                                                 &
                intermediate_timestep_count == intermediate_timestep_count_max )  THEN
              CALL cpu_log( log_point(57), 'synthetic_turbulence_gen', 'start' )
@@ -1244 +1248 @@
 !--    information, update the time counter and if required, adjust the
 !--    STG to new atmospheric conditions.
-       IF ( use_syn_turb_gen  )  THEN
+       IF ( syn_turb_gen  )  THEN
           IF ( parametrize_inflow_turbulence )  THEN
              time_stg_adjust = time_stg_adjust + dt_3d