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

Timestamp:

Mar 6, 2019 4:58:03 PM (5 years ago)

Author:

raasch

Message:

unused variables removed, interoperable C datatypes introduced in particle type to avoid compiler warnings

File:

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

palm/trunk/SOURCE/indoor_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3759 2019-02-21 15:53:45Z suehring
 ! - Calculation of total building volume
 ! - Several bugfixes
@@ -161 +164 @@
 
     INTEGER(iwp) ::  num_build   !< total number of buildings in domain
-
-    REAL(wp) ::  volume_fraction
-
-    REAL(wp), DIMENSION(:), ALLOCATABLE ::  t_in     !< dummy array for indoor temperature for the 
-                                                     !< total building volume at each discrete height level
-    REAL(wp), DIMENSION(:), ALLOCATABLE ::  t_in_l   !< dummy array for indoor temperature for the 
-                                                     !< local building volume fraction at each discrete height level
 
 !
@@ -205 +201 @@
     REAL(wp) ::  phi_sol                     !< [W] solar loads
     REAL(wp) ::  phi_st                      !<! [W] mass specific thermal load implied non thermal mass 
-    REAL(wp) ::  q_emission                  !< emissions, in first version = 0, option for second part of the project
+!    REAL(wp) ::  q_emission                  !< emissions, in first version = 0, option for second part of the project
     REAL(wp) ::  q_wall_win                  !< heat flux from indoor into wall/window
     REAL(wp) ::  q_waste_heat                !< waste heat, sum of waste heat over the roof to Palm
-    REAL(wp) ::  q_waste_heat_bldg           !< [W/building] waste heat of the complete building, in Palm sum of all indoor_model-calculations
+!    REAL(wp) ::  q_waste_heat_bldg           !< [W/building] waste heat of the complete building, in Palm sum of all indoor_model-calculations
     REAL(wp) ::  schedule_d                  !< activation for internal loads (low or high + low)
     REAL(wp) ::  skip_time_do_indoor = 0.0_wp  !< [s] Indoor model is not called before this time
@@ -222 +218 @@
     REAL(wp) ::  theta_s                     !<! [degree_C] surface temperature of the RC-node
     REAL(wp) ::  time_indoor = 0.0_wp        !< [s] time since last call of indoor model
-    REAL(wp) ::  time_utc_hour               !< Time in hours per day (UTC)
-    REAL(wp) ::  ventilation_int_loads       !< Zuteilung der GebÀude fÌr Verlauf/AktivitÀt der LÌftung und internen Lasten
+!    REAL(wp) ::  time_utc_hour               !< Time in hours per day (UTC)
     
     REAL(wp) ::  f_sr                        !< [-] factor surface reduction
@@ -405 +400 @@
 
     INTEGER(iwp) ::  bt   !< local building type
-    INTEGER(iwp) ::  fa   !< running index for facade elements of each building
     INTEGER(iwp) ::  i    !< running index along x-direction
     INTEGER(iwp) ::  j    !< running index along y-direction
@@ -434 +428 @@
     INTEGER(iwp), DIMENSION(0:numprocs-1) ::  num_buildings_l       !< number of buildings with different ID on local subdomain
     
-    REAL(wp), DIMENSION(:), ALLOCATABLE ::  local_weight   !< dummy representing fraction of local on total building volume, 
-                                                           !< height dependent
     REAL(wp), DIMENSION(:), ALLOCATABLE ::  volume         !< total building volume at each discrete height level
     REAL(wp), DIMENSION(:), ALLOCATABLE ::  volume_l       !< total building volume at each discrete height level,
@@ -984 +976 @@
     USE arrays_3d,                                                             &
         ONLY:  ddzw, dzw
-
-    USE basic_constants_and_equations_mod,                                     &
-        ONLY:  c_p
-
-    USE control_parameters,                                                    &
-        ONLY:  rho_surface
 
     USE date_and_time_mod,                                                     &