Ignore:
Timestamp:
Sep 27, 2019 12:59:10 PM (21 months ago)
Author:
suehring
Message:

Bugfixes in indoor model and in chemical emissions

File:
1 edited

Legend:

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

    r4238 r4242  
    2626! -----------------
    2727! $Id$
     28! Bugfix in array index
     29!
     30! 4238 2019-09-25 16:06:01Z suehring
    2831! - Bugfix in determination of minimum facade height and in location message
    2932! - Bugfix, avoid division by zero
     
    949952         building_type ==  3  .OR.  building_type == 10  .OR.                  &
    950953         building_type == 11  .OR.  building_type == 12 )  THEN
    951        buildings(nb)%ventilation_int_loads = 1
     954       buildings(:)%ventilation_int_loads = 1
    952955!
    953956!-- Office, building with large windows
     
    955958             building_type ==  6  .OR.  building_type ==  7  .OR.              &
    956959             building_type ==  8  .OR.  building_type ==  9)  THEN
    957        buildings(nb)%ventilation_int_loads = 2
     960       buildings(:)%ventilation_int_loads = 2
    958961!
    959962!-- Industry, hospitals
     
    961964             building_type == 15  .OR.  building_type == 16  .OR.              &
    962965             building_type == 17  .OR.  building_type == 18 )  THEN
    963        buildings(nb)%ventilation_int_loads = 3
     966       buildings(:)%ventilation_int_loads = 3
    964967    ENDIF
    965968!
Note: See TracChangeset for help on using the changeset viewer.