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

Timestamp:

Dec 7, 2017 11:49:21 AM (6 years ago)

Author:

suehring

Message:

Bugfix in output conversion of resolved-scale momentum fluxes in case of PW advection scheme

File:

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

palm/trunk/SOURCE/flow_statistics.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in output conversion of resolved-scale momentum fluxes in case of 
+! PW advections scheme.
+! 
+! 2320 2017-07-21 12:47:43Z suehring
 ! Modularize large-scale forcing and nudging
 ! 
@@ -1280 +1284 @@
                 sums_l(k,37,tn) = sums_l(k,37,tn) + w(k,j,i) * 0.5_wp *        &
                                              ( ust**2 + vst**2 + w(k,j,i)**2 ) &
+                                           * rho_air_zw(k)                     &
                                            * momentumflux_output_conversion(k) &
                                            * rmask(j,i,sr) * flag
@@ -1360 +1365 @@
                    sums_l(k,13,tn) = sums_l(k,13,tn) + 0.5_wp *                &
                                                      ( w(k,j,i-1) + w(k,j,i) ) &
+                                           * rho_air_zw(k)                     &
                                            * momentumflux_output_conversion(k) &
                                                      * ust * rmask(j,i,sr)     &
@@ -1367 +1373 @@
                    sums_l(k,15,tn) = sums_l(k,15,tn) + 0.5_wp *                &
                                                      ( w(k,j-1,i) + w(k,j,i) ) &
+                                           * rho_air_zw(k)                     &
                                            * momentumflux_output_conversion(k) &
                                                      * vst * rmask(j,i,sr)     &