Changeset 2790


Ignore:
Timestamp:
Feb 6, 2018 11:57:19 AM (4 years ago)
Author:
suehring
Message:

Bugfix in summation of surface sensible and latent heat flux.

File:
1 edited

Legend:

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

    r2766 r2790  
    2525! -----------------
    2626! $Id$
     27! Bugfix in summation of surface sensible and latent heat flux
     28!
     29! 2766 2018-01-22 17:17:47Z kanani
    2730! Removed preprocessor directive __chem
    2831!
     
    753756                i = surf_def_h(0)%i(m)
    754757                j = surf_def_h(0)%j(m)
     758                k = surf_def_h(0)%k(m)
    755759                qsws_av(j,i) = qsws_av(j,i) + surf_def_h(0)%qsws(m) *          &
    756760                                              waterflux_output_conversion(k)
     
    831835                i = surf_def_h(0)%i(m)
    832836                j = surf_def_h(0)%j(m)
     837                k = surf_def_h(0)%k(m)
    833838                shf_av(j,i) = shf_av(j,i) + surf_def_h(0)%shf(m)  *            &
    834839                                            heatflux_output_conversion(k)
     
    844849                shf_av(j,i) = shf_av(j,i) + surf_usm_h%shf(m) * cp
    845850             ENDDO
    846 
    847851
    848852          CASE ( 'ssws*' )
Note: See TracChangeset for help on using the changeset viewer.