Changeset 4039 for palm/trunk/SOURCE/data_output_3d.f90

Timestamp:

Jun 18, 2019 10:32:41 AM (5 years ago)

Author:

suehring

Message:

diagnostic output: Modularize diagnostic output, rename subroutines; formatting adjustments; allocate arrays only when required; add output of uu, vv, ww to enable variance calculation via temporal EC method; radiation: bugfix in masked data output; flow_statistics: Correct conversion to kinematic vertical scalar fluxes in case of pw-scheme and statistic regions

File:

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

palm/trunk/SOURCE/data_output_3d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! modularize diagnostic output
+! 
+! 3994 2019-05-22 18:08:09Z suehring
 ! output of turbulence intensity added
 ! 
@@ -275 +278 @@
     USE cpulog,                                                                &
         ONLY:  log_point, cpu_log
-
-    USE diagnostic_output_quantities_mod,                                      &
-        ONLY:  ti, ti_av
 
 #if defined( __parallel )
@@ -703 +703 @@
                 ENDIF
                 to_be_resorted => vpt_av
-             ENDIF
-
-          CASE ( 'ti' )
-             IF ( av == 0 )  THEN
-                to_be_resorted => ti
-             ELSE
-                IF ( .NOT. ALLOCATED( ti_av ) ) THEN
-                   ALLOCATE( ti_av(nzb:nzt+1,nys:nyn,nxl:nxr) )
-                   ti_av = REAL( fill_value, KIND = wp )
-                ENDIF
-                to_be_resorted => ti_av
              ENDIF