Changeset 4693 for palm

Timestamp:

Sep 22, 2020 7:47:04 PM (4 years ago)

Author:

maronga

Message:

follow-up bugfix for last commits

File:

• palm/trunk/SOURCE/urban_surface_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/urban_surface_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Bugfix for last commit
+!
+! 4692 2020-09-22 17:17:52Z maronga
 ! Bugfix for previous revision
 !
@@ -5203 +5206 @@
 !--    heat diffusion (innermost wall temperature as boundary conditions)
        IF ( .NOT. indoor_model ) THEN
-          surf%iwghf_eb(m) = - surf%lambda_h(nzt_wall-1,m) * wall_mod(kw-1)           &
+          surf%iwghf_eb(m) = - surf%lambda_h(nzt_wall-1,m) * wall_mod(nzt_wall-1)           &
                              * ( t_wall%val(nzt_wall,m) - t_wall%val(nzt_wall-1,m) )  &
                              * surf%ddz_wall(nzt_wall,m)