Ignore:
Timestamp:
Dec 7, 2017 11:49:21 AM (4 years ago)
Author:
suehring
Message:

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

File:
1 edited

Legend:

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

    r2320 r2674  
    2525! -----------------
    2626! $Id$
     27! Bugfix in output conversion of resolved-scale momentum fluxes in case of
     28! PW advections scheme.
     29!
     30! 2320 2017-07-21 12:47:43Z suehring
    2731! Modularize large-scale forcing and nudging
    2832!
     
    12801284                sums_l(k,37,tn) = sums_l(k,37,tn) + w(k,j,i) * 0.5_wp *        &
    12811285                                             ( ust**2 + vst**2 + w(k,j,i)**2 ) &
     1286                                           * rho_air_zw(k)                     &
    12821287                                           * momentumflux_output_conversion(k) &
    12831288                                           * rmask(j,i,sr) * flag
     
    13601365                   sums_l(k,13,tn) = sums_l(k,13,tn) + 0.5_wp *                &
    13611366                                                     ( w(k,j,i-1) + w(k,j,i) ) &
     1367                                           * rho_air_zw(k)                     &
    13621368                                           * momentumflux_output_conversion(k) &
    13631369                                                     * ust * rmask(j,i,sr)     &
     
    13671373                   sums_l(k,15,tn) = sums_l(k,15,tn) + 0.5_wp *                &
    13681374                                                     ( w(k,j-1,i) + w(k,j,i) ) &
     1375                                           * rho_air_zw(k)                     &
    13691376                                           * momentumflux_output_conversion(k) &
    13701377                                                     * vst * rmask(j,i,sr)     &
Note: See TracChangeset for help on using the changeset viewer.