Changeset 3994 for palm/trunk/SOURCE/data_output_mask.f90

Timestamp:

May 22, 2019 6:08:09 PM (5 years ago)

Author:

suehring

Message:

new module for diagnostic output quantities added + output of turbulence intensity

File:

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

palm/trunk/SOURCE/data_output_mask.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! output of turbulence intensity added
+! 
+! 3665 2019-01-10 08:28:24Z raasch
 ! unused variables removed
 ! 
@@ -179 +182 @@
     USE cpulog,                                                                &
         ONLY:  cpu_log, log_point
+
+    USE diagnostic_output_quantities_mod,                                      &
+        ONLY:  ti, ti_av
 
     USE indices,                                                               &
@@ -663 +669 @@
              ENDIF
 
+          CASE ( 'ti' )
+             IF ( av == 0 )  THEN
+                to_be_resorted => ti
+             ELSE
+                to_be_resorted => ti_av
+             ENDIF
+
           CASE ( 'w' )
              grid = 'w'