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

Timestamp:

Dec 3, 2018 1:51:13 PM (5 years ago)

Author:

kanani

Message:

Bugfix for missing array allocation (biometeorology_mod), remove degree symbol (biometeorology_mod, indoor_model_mod, multi_agent_system_mod, surface_mod, wind_turbine_model_mod)

File:

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

palm/trunk/SOURCE/indoor_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Replace degree symbol by degree_C
+!
+! 3524 2018-11-14 13:36:44Z raasch
 ! working precision added to make code Fortran 2008 conform
 ! 
@@ -182 +185 @@
     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
-    REAL(wp) ::  theta_air                   !<! [°C] air temperature of the RC-node
-    REAL(wp) ::  theta_air_0                 !<! [oC] air temperature of the RC-node in equilibrium
-    REAL(wp) ::  theta_air_10                !<! [oC] air temperature of the RC-node from a heating capacity of 10 W/m²
-    REAL(wp) ::  theta_air_ac                !< [oC] actual room temperature after heating/cooling
-    REAL(wp) ::  theta_air_set               !< [oC] Setpoint_temperature for the room
-    REAL(wp) ::  theta_int_c_set             !< [oC] Max. Setpoint temperature (summer)
-    REAL(wp) ::  theta_int_h_set             !< [oC] Max. Setpoint temperature (winter)
-    REAL(wp) ::  theta_m                     !<! [oC} inner temperature of the RC-node
-    REAL(wp) ::  theta_m_t                   !<! [oC] (Fictive) component temperature timestep
-    REAL(wp) ::  theta_m_t_prev              !< [oC] (Fictive) component temperature previous timestep (do not change)
-    REAL(wp) ::  theta_op                    !< [oC] operative temperature
-    REAL(wp) ::  theta_s                     !<! [oC] surface temperature of the RC-node
+    REAL(wp) ::  theta_air                   !<! [degree_C] air temperature of the RC-node
+    REAL(wp) ::  theta_air_0                 !<! [degree_C] air temperature of the RC-node in equilibrium
+    REAL(wp) ::  theta_air_10                !<! [degree_C] air temperature of the RC-node from a heating capacity of 10 W/m²
+    REAL(wp) ::  theta_air_ac                !< [degree_C] actual room temperature after heating/cooling
+    REAL(wp) ::  theta_air_set               !< [degree_C] Setpoint_temperature for the room
+    REAL(wp) ::  theta_int_c_set             !< [degree_C] Max. Setpoint temperature (summer)
+    REAL(wp) ::  theta_int_h_set             !< [degree_C] Max. Setpoint temperature (winter)
+    REAL(wp) ::  theta_m                     !<! [degree_C} inner temperature of the RC-node
+    REAL(wp) ::  theta_m_t                   !<! [degree_C] (Fictive) component temperature timestep
+    REAL(wp) ::  theta_m_t_prev              !< [degree_C] (Fictive) component temperature previous timestep (do not change)
+    REAL(wp) ::  theta_op                    !< [degree_C] operative temperature
+    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)
@@ -279 +282 @@
                                                  + near_facade_temperature )   &
                                    ) / h_tr_2                                  &
-               )                                                                !< [oC] Eq. (C.5)
+               )                                                                !< [degree_C] Eq. (C.5)
     
     !< Calculation of component temperature at factual timestep
@@ -286 +289 @@
                   )                                                              &
                   /   ( ( c_m / 3600 ) + 0.5 * ( h_tr_3 + h_tr_em ) )            &
-                )                                                               !< [oC] Eq. (C.4)
+                )                                                               !< [degree_C] Eq. (C.4)
 
     !< Calculation of mean inner temperature for the RC-node in actual timestep
-    theta_m = ( theta_m_t + theta_m_t_prev ) * 0.5                              !< [oC] Eq. (C.9)
+    theta_m = ( theta_m_t + theta_m_t_prev ) * 0.5                              !< [degree_C] Eq. (C.9)
     
     !< Calculation of mean surface temperature of the RC-node in actual timestep
@@ -296 +299 @@
                 )                                                                           &
                 / ( h_tr_ms + h_tr_w + h_tr_1 )                                             &
-              )                                                                 !< [oC] Eq. (C.10)
+              )                                                                 !< [degree_C] Eq. (C.10)
     
     !< Calculation of the air temperature of the RC-node
     theta_air = ( h_tr_is * theta_s + h_ve * near_facade_temperature         &
-                                    + phi_ia + phi_hc_nd_dummy ) / ( h_tr_is + h_ve ) !< [oC] Eq. (C.11)
+                                    + phi_ia + phi_hc_nd_dummy ) / ( h_tr_is + h_ve ) !< [degree_C] Eq. (C.11)
 
  END SUBROUTINE im_calc_temperatures
@@ -1100 +1103 @@
 !--          Calculate the operating temperature with weighted mean temperature of air and mean solar temperature
 !--          Will be used for thermal comfort calculations 
-             theta_op     = 0.3 * theta_air_ac + 0.7 * theta_s          !< [°C] operative Temperature Eq. (C.12)
+             theta_op     = 0.3 * theta_air_ac + 0.7 * theta_s          !< [degree_C] operative Temperature Eq. (C.12)
 !
 !--          Heat flux into the wall. Value needed in urban_surface_mod to