Changeset 4048 for palm/trunk/SOURCE/init_3d_model.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/init_3d_model.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -693 +693 @@
 
     USE transpose_indices
-
-    USE turbulence_closure_mod,                                                &
-        ONLY:  tcm_init_arrays, tcm_init
 
     IMPLICIT NONE
@@ -1052 +1049 @@
 
 !
-!-- Initialize arrays for turbulence closure
-    CALL tcm_init_arrays
-!
 !-- Initialize surface arrays
     CALL init_surface_arrays
@@ -1862 +1856 @@
        CALL message( 'init_3d_model', 'PA0193', 1, 2, 0, 6, 0 )
     ENDIF
-
-!
-!-- Initialize TKE, Kh and Km
-    CALL tcm_init