Changeset 4346 for palm/trunk/SOURCE/indoor_model_mod.f90
- Timestamp:
- Dec 18, 2019 11:55:56 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/indoor_model_mod.f90
r4329 r4346 26 26 ! ----------------- 27 27 ! $Id$ 28 ! Introduction of wall_flags_total_0, which currently sets bits based on static 29 ! topography information used in wall_flags_static_0 30 ! 31 ! 4329 2019-12-10 15:46:36Z motisi 28 32 ! Renamed wall_flags_0 to wall_flags_static_0 29 33 ! … … 481 485 482 486 USE indices, & 483 ONLY: nxl, nxr, nyn, nys, nzb, nzt, wall_flags_ static_0487 ONLY: nxl, nxr, nyn, nys, nzb, nzt, wall_flags_total_0 484 488 485 489 USE grid_variables, & … … 671 675 ! 672 676 !-- Check if grid point belongs to a building. 673 IF ( BTEST( wall_flags_ static_0(k,j,i), 6 ) ) THEN677 IF ( BTEST( wall_flags_total_0(k,j,i), 6 ) ) THEN 674 678 k_min_l(nb) = MIN( k_min_l(nb), k ) 675 679 k_max_l(nb) = MAX( k_max_l(nb), k )
Note: See TracChangeset
for help on using the changeset viewer.