Changeset 4048 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Jun 21, 2019 9:00:21 PM (5 years ago)

Author:

knoop

Message:

Moved turbulence_closure_mod calls into module_interface

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Moved production_e_init call into turbulence_closure_mod
+! 
+! 4047 2019-06-21 18:58:09Z knoop
 ! Added remainings of swap_timelevel upon its dissolution
 ! 
@@ -675 +678 @@
 
     USE turbulence_closure_mod,                                                                    &
-        ONLY:  tcm_diffusivities, production_e_init
+        ONLY:  tcm_diffusivities
 
     USE urban_surface_mod,                                                                         &
@@ -975 +978 @@
           ENDIF
 
-          IF ( .NOT. constant_diffusion )  CALL production_e_init
           IF ( ( ws_scheme_mom .OR. ws_scheme_sca )  .AND.  intermediate_timestep_count == 1 )     &
           THEN