Changeset 2796 for palm/trunk/SOURCE/init_grid.f90
- Timestamp:
- Feb 8, 2018 12:25:39 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_grid.f90
r2747 r2796 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Bugfix in 3D building initialization 28 ! 29 ! 2747 2018-01-15 12:44:17Z suehring 27 30 ! Bugfix, topography height is rounded to the nearest discrete grid level 28 31 ! … … 1058 1061 k2 = nzb+1 1059 1062 DO k = k_surf + 1, nzt + 1 1060 IF ( k2 <= buildings_f%nz ) THEN1063 IF ( k2 <= buildings_f%nz-1 ) THEN 1061 1064 IF ( buildings_f%var_3d(k2,j,i) == 1 ) THEN 1062 1065 topo_3d(k,j,i) = IBCLR( topo_3d(k,j,i), 0 )
Note: See TracChangeset
for help on using the changeset viewer.