Ignore:
Timestamp:
Aug 8, 2019 11:26:00 AM (5 years ago)
Author:
suehring
Message:

indoor_model_mod: Revision of indoor model; urban_surface_mod: parameters for waste heat from cooling and heating are introduced to building data base; initialization of building data base moved to an earlier point of time before indoor model will be initialized; radiation_model_mod: minor improvement in some comments; synthetic_turbulence_generator: unused variable removed

File:
1 edited

Legend:

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

    r4127 r4148  
    2828! -----------------
    2929! $Id$
     30! - Add anthropogenic heat output factors for heating and cooling to building
     31!   data base
     32! - Move definition of building_pars to usm_init_arrays since it is already
     33!   required in the indoor model
     34!
     35! 4127 2019-07-30 14:47:10Z suehring
    3036! Do not add anthopogenic energy during wall/soil spin-up
    3137! (merge from branch resler)
     
    781787!-- (>700), while intel and gfortran compiler have hard limit of continuation
    782788!-- lines of 511.
    783     REAL(wp), DIMENSION(0:133,1:7) ::  building_pars
     789    REAL(wp), DIMENSION(0:135,1:7) ::  building_pars
    784790!
    785791!-- Type for surface temperatures at vertical walls. Is not necessary for horizontal walls.
     
    14301436           IF ( ALLOCATED( surf_usm_v(l)%iwghf_eb_window ) )  surf_usm_v(l)%iwghf_eb_window = 0.0_wp
    14311437        ENDDO
    1432 
     1438!
     1439!--     Initialize building-surface properties, which are also required by other modules,
     1440!--     e.g. the indoor model.
     1441        CALL usm_define_pars
     1442       
    14331443        IF ( debug_output )  CALL debug_message( 'usm_init_arrays', 'end' )
    14341444       
     
    37783788
    37793789        CALL cpu_log( log_point_s(78), 'usm_init', 'start' )
    3780 !
    3781 !--     Initialize building-surface properties
    3782         CALL usm_define_pars
    37833790!
    37843791!--     surface forcing have to be disabled for LSF
     
    90689075           10.0_wp,        &  !< parameter 131 - basic internal heat gains without occupancy of the room
    90699076           3.0_wp,         &  !< parameter 132 - storey height
    9070            0.2_wp          &  !< parameter 133 - ceiling construction height
     9077           0.2_wp,         &  !< parameter 133 - ceiling construction height
     9078           0.1_wp,         &  !< parameter 134 - anthropogenic heat output for heating
     9079           1.333_wp        &  !< parameter 135 - anthropogenic heat output for cooling
    90719080                            /)
    90729081                           
     
    92059214           8.0_wp,         &  !< parameter 131 - basic internal heat gains without occupancy of the room
    92069215           3.0_wp,         &  !< parameter 132 - storey height
    9207            0.2_wp          &  !< parameter 133 - ceiling construction height
     9216           0.2_wp,         &  !< parameter 133 - ceiling construction height
     9217           0.1_wp,         &  !< parameter 134 - anthropogenic heat output for heating
     9218           1.333_wp        &  !< parameter 135 - anthropogenic heat output for cooling
    92089219                            /)
    92099220                           
     
    93429353           8.0_wp,         &  !< parameter 131 - basic internal heat gains without occupancy of the room
    93439354           3.0_wp,         &  !< parameter 132 - storey height
    9344            0.2_wp          &  !< parameter 133 - ceiling construction height
     9355           0.2_wp,         &  !< parameter 133 - ceiling construction height
     9356           0.1_wp,         &  !< parameter 134 - anthropogenic heat output for heating
     9357           1.333_wp        &  !< parameter 135 - anthropogenic heat output for cooling
    93459358                            /)   
    93469359                           
     
    94799492           10.0_wp,        &  !< parameter 131 - basic internal heat gains without occupancy of the room
    94809493           3.0_wp,         &  !< parameter 132 - storey height
    9481            0.2_wp          &  !< parameter 133 - ceiling construction height
     9494           0.2_wp,         &  !< parameter 133 - ceiling construction height
     9495           0.1_wp,         &  !< parameter 134 - anthropogenic heat output for heating
     9496           1.333_wp        &  !< parameter 135 - anthropogenic heat output for cooling
    94829497                            /)   
    94839498                           
     
    96169631           20.0_wp,        &  !< parameter 131 - basic internal heat gains without occupancy of the room
    96179632           3.0_wp,         &  !< parameter 132 - storey height
    9618            0.2_wp          &  !< parameter 133 - ceiling construction height
     9633           0.2_wp,         &  !< parameter 133 - ceiling construction height
     9634           0.0_wp,         &  !< parameter 134 - anthropogenic heat output for heating
     9635           2.54_wp         &  !< parameter 135 - anthropogenic heat output for cooling
    96199636                            /)
    96209637                           
     
    97539770           15.0_wp,        &  !< parameter 131 - basic internal heat gains without occupancy of the room
    97549771           3.0_wp,         &  !< parameter 132 - storey height
    9755            0.2_wp          &  !< parameter 133 - ceiling construction height
     9772           0.2_wp,         &  !< parameter 133 - ceiling construction height
     9773           -2.0_wp,        &  !< parameter 134 - anthropogenic heat output for heating
     9774           1.25_wp         &  !< parameter 135 - anthropogenic heat output for cooling
    97569775                            /)
    97579776                           
     
    98909909           0.0_wp,         &  !< parameter 131 - basic internal heat gains without occupancy of the room
    98919910           3.0_wp,         &  !< parameter 132 - storey height
    9892            0.2_wp          &  !< parameter 133 - ceiling construction height
     9911           0.2_wp,         &  !< parameter 133 - ceiling construction height
     9912           0.0_wp,         &  !< parameter 134 - anthropogenic heat output for heating
     9913           0.0_wp          &  !< parameter 135 - anthropogenic heat output for cooling
    98939914                        /)
    98949915                       
Note: See TracChangeset for help on using the changeset viewer.