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

palm/trunk/SOURCE/average_3d_data.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Modularize diagnostic output
+! 
+! 3994 2019-05-22 18:08:09Z suehring
 ! output of turbulence intensity added
 ! 
@@ -191 +194 @@
         ONLY:  cpu_log, log_point
 
-    USE diagnostic_output_quantities_mod,                                      &
-        ONLY:  ti_av
-
     USE indices,                                                               &
         ONLY:  nbgp, nxl, nxlg, nxr, nxrg, nyn, nyng, nys, nysg, nzb, nzt
@@ -521 +521 @@
              ENDIF
 
-
-          CASE ( 'ti' )
-             IF ( ALLOCATED( ti_av ) ) THEN
-                DO  i = nxl, nxr
-                   DO  j = nys, nyn
-                      DO  k = nzb, nzt+1
-                         ti_av(k,j,i) = ti_av(k,j,i) / REAL( average_count_3d, KIND=wp )
-                      ENDDO
-                   ENDDO
-                ENDDO
-             ENDIF
-
           CASE ( 'w' )
              IF ( ALLOCATED( w_av ) ) THEN