- Timestamp:
- Apr 23, 2019 11:30:16 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_grid.f90
r3857 r3925 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Minor bugfix in building mapping when all building IDs in the model domain 28 ! are missing 29 ! 30 ! 3857 2019-04-03 13:00:16Z knoop 27 31 ! In projection of non-building 3D objects onto numerical grid remove 28 32 ! dependency on building_type … … 1360 1364 REAL(wp), DIMENSION(:), ALLOCATABLE :: oro_max_l !< maximum terrain height occupied by an building with certain id, on local subdomain 1361 1365 1362 1366 building_id_f%var = building_id_f%fill 1367 building_type_f%var = building_type_f%fill 1363 1368 ! 1364 1369 !-- Reference lowest terrain height to zero. In case the minimum terrain height … … 1424 1429 num_buildings = 0 1425 1430 ! 1426 !-- Allocate at least one element for building ids, 1431 !-- Allocate at least one element for building ids and give it an inital 1432 !-- negative value that will be overwritten later. This, however, is 1433 !-- necessary in case there all IDs in the model domain are fill values. 1427 1434 ALLOCATE( build_ids_l(1) ) 1435 build_ids_l = -1 1428 1436 DO i = nxl, nxr 1429 1437 DO j = nys, nyn
Note: See TracChangeset
for help on using the changeset viewer.