Changeset 3285 for palm/trunk/SOURCE/sum_up_3d_data.f90

Timestamp:

Sep 27, 2018 5:16:52 PM (6 years ago)

Author:

scharf

Message:

bugfix for shf_av and qsws_av output

File:

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

palm/trunk/SOURCE/sum_up_3d_data.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for shf_av and qsws_av
+! 
+! 3274 2018-09-24 15:42:55Z knoop
 ! Modularization of all bulk cloud physics code components
 ! 
@@ -823 +826 @@
                          qsws_av(j,i) = qsws_av(j,i) +                         &
                                          surf_def_h(0)%qsws(m) *               &
-                                         waterflux_output_conversion(k)
+                                         waterflux_output_conversion(nzb)
                       ELSEIF ( match_lsm  .AND.  .NOT. match_usm )  THEN
                          m = surf_lsm_h%end_index(j,i)
@@ -923 +926 @@
                          shf_av(j,i) = shf_av(j,i) +                           &
                                          surf_def_h(0)%shf(m)  *               &
-                                         heatflux_output_conversion(k)
+                                         heatflux_output_conversion(nzb)
                       ELSEIF ( match_lsm  .AND.  .NOT. match_usm )  THEN
                          m = surf_lsm_h%end_index(j,i)