Changeset 2790

Timestamp:

Feb 6, 2018 11:57:19 AM (7 years ago)

Author:

suehring

Message:

Bugfix in summation of surface sensible and latent heat flux.

File:

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

palm/trunk/SOURCE/sum_up_3d_data.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in summation of surface sensible and latent heat flux
+! 
+! 2766 2018-01-22 17:17:47Z kanani
 ! Removed preprocessor directive __chem
 ! 
@@ -753 +756 @@
                 i = surf_def_h(0)%i(m)
                 j = surf_def_h(0)%j(m)
+                k = surf_def_h(0)%k(m)
                 qsws_av(j,i) = qsws_av(j,i) + surf_def_h(0)%qsws(m) *          &
                                               waterflux_output_conversion(k)
@@ -831 +835 @@
                 i = surf_def_h(0)%i(m)
                 j = surf_def_h(0)%j(m)
+                k = surf_def_h(0)%k(m)
                 shf_av(j,i) = shf_av(j,i) + surf_def_h(0)%shf(m)  *            &
                                             heatflux_output_conversion(k)
@@ -844 +849 @@
                 shf_av(j,i) = shf_av(j,i) + surf_usm_h%shf(m) * cp
              ENDDO
-
 
           CASE ( 'ssws*' )