Changeset 3452 for palm/trunk/SOURCE/flow_statistics.f90

Timestamp:

Oct 30, 2018 1:13:34 PM (5 years ago)

Author:

schwenkel

Message:

Bugfix for profiles output

File:

• palm/trunk/SOURCE/flow_statistics.f90 (modified) (2 diffs)

palm/trunk/SOURCE/flow_statistics.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix for profiles output
+! 
+! 3298 2018-10-02 12:21:11Z kanani
 ! - Minor formatting (kanani)
 ! - Added  .AND. max_pr_cs > 0 before MPI_ALLREDUCE call (forkel)
@@ -1881 +1884 @@
              sums(k,116)           = sums(k,116)           / ngp_2dh_s_inner(k,sr)
              sums(k,118:pr_palm-2) = sums(k,118:pr_palm-2) / ngp_2dh_s_inner(k,sr)
+             sums(k,123)           = sums(k,123) * ngp_2dh_s_inner(k,sr)  / ngp_2dh(sr)
           ENDIF
        ENDDO