Changeset 2478 for palm/trunk/SOURCE/init_grid.f90

Timestamp:

Sep 18, 2017 1:37:24 PM (7 years ago)

Author:

suehring

Message:

Bugfixes concerning top fluxes and TKE production

File:

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

palm/trunk/SOURCE/init_grid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix, correct flag for use_top
+! 
+! 2365 2017-08-21 14:59:59Z kanani
 ! Vertical nesting implemented (SadiqHuq)
 ! 
@@ -1554 +1557 @@
           wall_flags_0(:,j,i) = IBSET( wall_flags_0(:,j,i), 9 )
           IF ( use_top_fluxes )                                                &
-             wall_flags_0(nzt:nzt+1,j,i) = IBCLR( wall_flags_0(nzt:nzt+1,j,i), 9 )
+             wall_flags_0(nzt+1,j,i) = IBCLR( wall_flags_0(nzt+1,j,i), 9 )
 
           DO k = nzb+1, nzt