Changeset 3696 for palm/trunk/SOURCE/advec_ws.f90

Timestamp:

Jan 24, 2019 4:37:35 PM (6 years ago)

Author:

suehring

Message:

Bugfix in degrading the order of the advection scheme at non-cyclic lateral domain boundaries

File:

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

palm/trunk/SOURCE/advec_ws.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in degradation height
+! 
+! 3661 2019-01-08 18:22:50Z suehring
 ! - Minor bugfix in divergence correction (only has implications at 
 !   downward-facing wall surfaces)
@@ -1332 +1335 @@
 !
 !--       Above to the top of the highest topography. No degradation necessary.
-          DO  k = nzb_max+1, nzt
+          DO  k = nzb_max_l+1, nzt
 
              v_comp                  = v(k,j,i) - v_gtrans + v_stokes_zu(k)