Changeset 3925 for palm


Ignore:
Timestamp:
Apr 23, 2019 11:30:16 AM (6 years ago)
Author:
suehring
Message:

Minor bugfix in building mapping when all building IDs in the model domain are missing

File:
1 edited

Legend:

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

    r3857 r3925  
    2525! -----------------
    2626! $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
    2731! In projection of non-building 3D objects onto numerical grid remove
    2832! dependency on building_type
     
    13601364    REAL(wp), DIMENSION(:), ALLOCATABLE ::  oro_max_l           !< maximum terrain height occupied by an building with certain id, on local subdomain
    13611365
    1362 
     1366building_id_f%var = building_id_f%fill
     1367building_type_f%var = building_type_f%fill
    13631368!
    13641369!-- Reference lowest terrain height to zero. In case the minimum terrain height
     
    14241429          num_buildings   = 0
    14251430!
    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.
    14271434          ALLOCATE( build_ids_l(1) )
     1435          build_ids_l = -1
    14281436          DO  i = nxl, nxr
    14291437             DO  j = nys, nyn
Note: See TracChangeset for help on using the changeset viewer.