Changeset 4039 for palm/trunk/SOURCE/flow_statistics.f90
- Timestamp:
- Jun 18, 2019 10:32:41 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/flow_statistics.f90
r3828 r4039 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Correct conversion to kinematic scalar fluxes in case of pw-scheme and 28 ! statistic regions 29 ! 30 ! 3828 2019-03-27 19:36:23Z raasch 27 31 ! unused variables removed 28 32 ! … … 1497 1501 vpt(k+1,j,i) - hom(k+1,1,44,sr) ) 1498 1502 sums_l(k,46,tn) = sums_l(k,46,tn) + pts * w(k,j,i) * & 1503 rho_air_zw(k) * & 1499 1504 heatflux_output_conversion(k) * & 1500 1505 rmask(j,i,sr) * flag … … 1509 1514 hom(k+1,1,42,sr) ) 1510 1515 sums_l(k,52,tn) = sums_l(k,52,tn) + pts * w(k,j,i) * & 1516 rho_air_zw(k) * & 1511 1517 waterflux_output_conversion(k) * & 1512 1518 rmask(j,i,sr) * & … … 1538 1544 vpt(k+1,j,i) - hom(k+1,1,44,sr) ) 1539 1545 sums_l(k,46,tn) = sums_l(k,46,tn) + pts * w(k,j,i) * & 1546 rho_air_zw(k) * & 1540 1547 heatflux_output_conversion(k) * & 1541 1548 rmask(j,i,sr) * & … … 1685 1692 ( pt(k,j,i) - hom(k,1,4,sr) + & 1686 1693 pt(k+1,j,i) - hom(k+1,1,4,sr) ) & 1694 * rho_air_zw(k) & 1687 1695 * heatflux_output_conversion(k) & 1688 1696 * w(k,j,i) * rmask(j,i,sr) * flag … … 1691 1699 q(k+1,j,i) - hom(k+1,1,41,sr) ) 1692 1700 sums_l(k,49,tn) = sums_l(k,49,tn) + pts * w(k,j,i) * & 1701 rho_air_zw(k) * & 1693 1702 waterflux_output_conversion(k) * & 1694 1703 rmask(j,i,sr) * flag
Note: See TracChangeset
for help on using the changeset viewer.