Ignore:
Timestamp:
Dec 3, 2018 1:51:13 PM (3 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:
1 edited

Legend:

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

    r3524 r3593  
    2626! -----------------
    2727! $Id$
     28! Replace degree symbol by degree_C
     29!
     30! 3524 2018-11-14 13:36:44Z raasch
    2831! working precision added to make code Fortran 2008 conform
    2932!
     
    182185    REAL(wp) ::  schedule_d                  !< activation for internal loads (low or high + low)
    183186    REAL(wp) ::  skip_time_do_indoor = 0.0_wp  !< [s] Indoor model is not called before this time
    184     REAL(wp) ::  theta_air                   !<! [°C] air temperature of the RC-node
    185     REAL(wp) ::  theta_air_0                 !<! [oC] air temperature of the RC-node in equilibrium
    186     REAL(wp) ::  theta_air_10                !<! [oC] air temperature of the RC-node from a heating capacity of 10 W/m²
    187     REAL(wp) ::  theta_air_ac                !< [oC] actual room temperature after heating/cooling
    188     REAL(wp) ::  theta_air_set               !< [oC] Setpoint_temperature for the room
    189     REAL(wp) ::  theta_int_c_set             !< [oC] Max. Setpoint temperature (summer)
    190     REAL(wp) ::  theta_int_h_set             !< [oC] Max. Setpoint temperature (winter)
    191     REAL(wp) ::  theta_m                     !<! [oC} inner temperature of the RC-node
    192     REAL(wp) ::  theta_m_t                   !<! [oC] (Fictive) component temperature timestep
    193     REAL(wp) ::  theta_m_t_prev              !< [oC] (Fictive) component temperature previous timestep (do not change)
    194     REAL(wp) ::  theta_op                    !< [oC] operative temperature
    195     REAL(wp) ::  theta_s                     !<! [oC] surface temperature of the RC-node
     187    REAL(wp) ::  theta_air                   !<! [degree_C] air temperature of the RC-node
     188    REAL(wp) ::  theta_air_0                 !<! [degree_C] air temperature of the RC-node in equilibrium
     189    REAL(wp) ::  theta_air_10                !<! [degree_C] air temperature of the RC-node from a heating capacity of 10 W/m²
     190    REAL(wp) ::  theta_air_ac                !< [degree_C] actual room temperature after heating/cooling
     191    REAL(wp) ::  theta_air_set               !< [degree_C] Setpoint_temperature for the room
     192    REAL(wp) ::  theta_int_c_set             !< [degree_C] Max. Setpoint temperature (summer)
     193    REAL(wp) ::  theta_int_h_set             !< [degree_C] Max. Setpoint temperature (winter)
     194    REAL(wp) ::  theta_m                     !<! [degree_C} inner temperature of the RC-node
     195    REAL(wp) ::  theta_m_t                   !<! [degree_C] (Fictive) component temperature timestep
     196    REAL(wp) ::  theta_m_t_prev              !< [degree_C] (Fictive) component temperature previous timestep (do not change)
     197    REAL(wp) ::  theta_op                    !< [degree_C] operative temperature
     198    REAL(wp) ::  theta_s                     !<! [degree_C] surface temperature of the RC-node
    196199    REAL(wp) ::  time_indoor = 0.0_wp        !< [s] time since last call of indoor model
    197200    REAL(wp) ::  time_utc_hour               !< Time in hours per day (UTC)
     
    279282                                                 + near_facade_temperature )   &
    280283                                   ) / h_tr_2                                  &
    281                )                                                                !< [oC] Eq. (C.5)
     284               )                                                                !< [degree_C] Eq. (C.5)
    282285   
    283286    !< Calculation of component temperature at factual timestep
     
    286289                  )                                                              &
    287290                  /   ( ( c_m / 3600 ) + 0.5 * ( h_tr_3 + h_tr_em ) )            &
    288                 )                                                               !< [oC] Eq. (C.4)
     291                )                                                               !< [degree_C] Eq. (C.4)
    289292
    290293    !< Calculation of mean inner temperature for the RC-node in actual timestep
    291     theta_m = ( theta_m_t + theta_m_t_prev ) * 0.5                              !< [oC] Eq. (C.9)
     294    theta_m = ( theta_m_t + theta_m_t_prev ) * 0.5                              !< [degree_C] Eq. (C.9)
    292295   
    293296    !< Calculation of mean surface temperature of the RC-node in actual timestep
     
    296299                )                                                                           &
    297300                / ( h_tr_ms + h_tr_w + h_tr_1 )                                             &
    298               )                                                                 !< [oC] Eq. (C.10)
     301              )                                                                 !< [degree_C] Eq. (C.10)
    299302   
    300303    !< Calculation of the air temperature of the RC-node
    301304    theta_air = ( h_tr_is * theta_s + h_ve * near_facade_temperature         &
    302                                     + phi_ia + phi_hc_nd_dummy ) / ( h_tr_is + h_ve ) !< [oC] Eq. (C.11)
     305                                    + phi_ia + phi_hc_nd_dummy ) / ( h_tr_is + h_ve ) !< [degree_C] Eq. (C.11)
    303306
    304307 END SUBROUTINE im_calc_temperatures
     
    11001103!--          Calculate the operating temperature with weighted mean temperature of air and mean solar temperature
    11011104!--          Will be used for thermal comfort calculations
    1102              theta_op     = 0.3 * theta_air_ac + 0.7 * theta_s          !< [°C] operative Temperature Eq. (C.12)
     1105             theta_op     = 0.3 * theta_air_ac + 0.7 * theta_s          !< [degree_C] operative Temperature Eq. (C.12)
    11031106!
    11041107!--          Heat flux into the wall. Value needed in urban_surface_mod to
Note: See TracChangeset for help on using the changeset viewer.