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

palm/trunk/SOURCE/data_output_3d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Moved tcm_data_output_3d to module_interface
+! 
+! 4039 2019-06-18 10:32:41Z suehring
 ! modularize diagnostic output
 ! 
@@ -313 +316 @@
     USE radiation_model_mod,                                                   &
         ONLY:  nz_urban_b, nz_urban_t
-
-    USE turbulence_closure_mod,                                                &
-        ONLY:  tcm_data_output_3d
 
     USE urban_surface_mod,                                                     &
@@ -718 +718 @@
 
           CASE DEFAULT
-
-             IF ( .NOT. found )  THEN
-                CALL tcm_data_output_3d( av, trimvar, found, local_pf,   &
-                                         nzb_do, nzt_do )
-                resorted = .TRUE.
-             ENDIF
-
 !
 !--          Quantities of other modules