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

Timestamp:

Sep 27, 2020 6:39:00 PM (4 years ago)

Author:

maronga

Message:

removed unused variable in indoor model and updated urban_environment test cases

File:

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

palm/trunk/SOURCE/indoor_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Removed unused variable indoor_wall_window_temperature
+!
+! 4701 2020-09-27 11:02:15Z maronga
 ! Heat transfer for wall and windows back to USM separated into q_wall and q_win (instead q_wall_win).
 ! Heat flow direction revised (heat flow positive from outside to inside).
@@ -463 +466 @@
 !< Based on a Crank-Nicholson scheme with a timestep of a hour.
 !--------------------------------------------------------------------------------------------------!
- SUBROUTINE im_calc_temperatures ( i, j, k, indoor_wall_window_temperature, indoor_wall_temperature,  &
+ SUBROUTINE im_calc_temperatures ( i, j, k, indoor_wall_temperature,  &
                                    near_facade_temperature, phi_hc_nd_dummy, theta_m_t_prev )
 
@@ -470 +473 @@
     INTEGER(iwp) ::  k
 
-    REAL(wp) ::  indoor_wall_window_temperature  !< weighted temperature of innermost wall/window layer
     REAL(wp) ::  indoor_wall_temperature   !< temperature of innermost wall layer evtl in im_calc_temperatures einfÃŒgen
     REAL(wp) ::  near_facade_temperature
@@ -1367 +1369 @@
              phi_hc_nd = 0.0_wp
 
-             CALL  im_calc_temperatures ( i, j, k, indoor_wall_window_temperature, indoor_wall_temperature, &
+             CALL  im_calc_temperatures ( i, j, k, indoor_wall_temperature, &
                                           near_facade_temperature, phi_hc_nd, buildings(nb)%theta_m_t_prev_h(fa) )
 !
@@ -1396 +1398 @@
                 phi_hc_nd    = phi_hc_nd_10
 
-                CALL  im_calc_temperatures ( i, j, k, indoor_wall_window_temperature, indoor_wall_temperature, &
+                CALL  im_calc_temperatures ( i, j, k, indoor_wall_temperature, &
                                              near_facade_temperature, phi_hc_nd, buildings(nb)%theta_m_t_prev_h(fa) )
                 theta_air_10 = theta_air                                                !< temperature with 10 W/m2 of heating
@@ -1425 +1427 @@
 !
 !--             Calculate the temperature with phi_hc_nd_ac (new)
-                CALL  im_calc_temperatures ( i, j, k, indoor_wall_window_temperature, indoor_wall_temperature, &
+                CALL  im_calc_temperatures ( i, j, k, indoor_wall_temperature, &
                                              near_facade_temperature, phi_hc_nd, buildings(nb)%theta_m_t_prev_h(fa) )
                 theta_air_ac = theta_air
@@ -1598 +1600 @@
 !--          section C.4.1 Picture C.2 zone 3)
              phi_hc_nd = 0.0_wp
-             CALL im_calc_temperatures ( i, j, k, indoor_wall_window_temperature, indoor_wall_temperature, &
+             CALL im_calc_temperatures ( i, j, k, indoor_wall_temperature, &
                                          near_facade_temperature, phi_hc_nd, buildings(nb)%theta_m_t_prev_v(fa) )
 !
@@ -1627 +1629 @@
                 phi_hc_nd    = phi_hc_nd_10
 
-                CALL  im_calc_temperatures ( i, j, k, indoor_wall_window_temperature, indoor_wall_temperature, &
+                CALL  im_calc_temperatures ( i, j, k, indoor_wall_temperature, &
                                              near_facade_temperature, phi_hc_nd, buildings(nb)%theta_m_t_prev_v(fa) )
 
@@ -1658 +1660 @@
 !
 !--             Calculate the temperature with phi_hc_nd_ac (new)
-                CALL  im_calc_temperatures ( i, j, k, indoor_wall_window_temperature, indoor_wall_temperature, &
+                CALL  im_calc_temperatures ( i, j, k, indoor_wall_temperature, &
                                              near_facade_temperature, phi_hc_nd, buildings(nb)%theta_m_t_prev_v(fa) )
                 theta_air_ac = theta_air