Changeset 2796 for palm


Ignore:
Timestamp:
Feb 8, 2018 12:25:39 PM (4 years ago)
Author:
suehring
Message:

Bugfix in 3D building initialization

File:
1 edited

Legend:

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

    r2747 r2796  
    2525! -----------------
    2626! $Id$
     27! Bugfix in 3D building initialization
     28!
     29! 2747 2018-01-15 12:44:17Z suehring
    2730! Bugfix, topography height is rounded to the nearest discrete grid level
    2831!
     
    10581061                   k2 = nzb+1
    10591062                   DO k = k_surf + 1, nzt + 1
    1060                       IF ( k2 <= buildings_f%nz )  THEN
     1063                      IF ( k2 <= buildings_f%nz-1 )  THEN
    10611064                         IF ( buildings_f%var_3d(k2,j,i) == 1 )  THEN
    10621065                            topo_3d(k,j,i) = IBCLR( topo_3d(k,j,i), 0 )
Note: See TracChangeset for help on using the changeset viewer.