Changeset 4242 for palm/trunk/SOURCE/indoor_model_mod.f90

Timestamp:

Sep 27, 2019 12:59:10 PM (5 years ago)

Author:

suehring

Message:

Bugfixes in indoor model and in chemical emissions

File:

• palm/trunk/SOURCE/indoor_model_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/indoor_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Bugfix in array index
+! 
+! 4238 2019-09-25 16:06:01Z suehring
 ! - Bugfix in determination of minimum facade height and in location message
 ! - Bugfix, avoid division by zero
@@ -949 +952 @@
          building_type ==  3  .OR.  building_type == 10  .OR.                  &
          building_type == 11  .OR.  building_type == 12 )  THEN
-       buildings(nb)%ventilation_int_loads = 1
+       buildings(:)%ventilation_int_loads = 1
 !
 !-- Office, building with large windows
@@ -955 +958 @@
              building_type ==  6  .OR.  building_type ==  7  .OR.              &
              building_type ==  8  .OR.  building_type ==  9)  THEN
-       buildings(nb)%ventilation_int_loads = 2
+       buildings(:)%ventilation_int_loads = 2
 !
 !-- Industry, hospitals
@@ -961 +964 @@
              building_type == 15  .OR.  building_type == 16  .OR.              &
              building_type == 17  .OR.  building_type == 18 )  THEN
-       buildings(nb)%ventilation_int_loads = 3
+       buildings(:)%ventilation_int_loads = 3
     ENDIF
 !