Ignore:
Timestamp:
Oct 30, 2018 1:13:34 PM (3 years ago)
Author:
schwenkel
Message:

Bugfix for profiles output

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/flow_statistics.f90

    r3298 r3452  
    2525! -----------------
    2626! $Id$
     27! Bugfix for profiles output
     28!
     29! 3298 2018-10-02 12:21:11Z kanani
    2730! - Minor formatting (kanani)
    2831! - Added  .AND. max_pr_cs > 0 before MPI_ALLREDUCE call (forkel)
     
    18811884             sums(k,116)           = sums(k,116)           / ngp_2dh_s_inner(k,sr)
    18821885             sums(k,118:pr_palm-2) = sums(k,118:pr_palm-2) / ngp_2dh_s_inner(k,sr)
     1886             sums(k,123)           = sums(k,123) * ngp_2dh_s_inner(k,sr)  / ngp_2dh(sr)
    18831887          ENDIF
    18841888       ENDDO
Note: See TracChangeset for help on using the changeset viewer.