Ignore:
Timestamp:
Sep 18, 2017 1:37:24 PM (4 years ago)
Author:
suehring
Message:

Bugfixes concerning top fluxes and TKE production

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/init_grid.f90

    r2365 r2478  
    2525! -----------------
    2626! $Id$
     27! Bugfix, correct flag for use_top
     28!
     29! 2365 2017-08-21 14:59:59Z kanani
    2730! Vertical nesting implemented (SadiqHuq)
    2831!
     
    15541557          wall_flags_0(:,j,i) = IBSET( wall_flags_0(:,j,i), 9 )
    15551558          IF ( use_top_fluxes )                                                &
    1556              wall_flags_0(nzt:nzt+1,j,i) = IBCLR( wall_flags_0(nzt:nzt+1,j,i), 9 )
     1559             wall_flags_0(nzt+1,j,i) = IBCLR( wall_flags_0(nzt+1,j,i), 9 )
    15571560
    15581561          DO k = nzb+1, nzt
Note: See TracChangeset for help on using the changeset viewer.