Changeset 4148 for palm/trunk/SOURCE/urban_surface_mod.f90
- Timestamp:
- Aug 8, 2019 11:26:00 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/urban_surface_mod.f90
r4127 r4148 28 28 ! ----------------- 29 29 ! $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 30 36 ! Do not add anthopogenic energy during wall/soil spin-up 31 37 ! (merge from branch resler) … … 781 787 !-- (>700), while intel and gfortran compiler have hard limit of continuation 782 788 !-- lines of 511. 783 REAL(wp), DIMENSION(0:13 3,1:7) :: building_pars789 REAL(wp), DIMENSION(0:135,1:7) :: building_pars 784 790 ! 785 791 !-- Type for surface temperatures at vertical walls. Is not necessary for horizontal walls. … … 1430 1436 IF ( ALLOCATED( surf_usm_v(l)%iwghf_eb_window ) ) surf_usm_v(l)%iwghf_eb_window = 0.0_wp 1431 1437 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 1433 1443 IF ( debug_output ) CALL debug_message( 'usm_init_arrays', 'end' ) 1434 1444 … … 3778 3788 3779 3789 CALL cpu_log( log_point_s(78), 'usm_init', 'start' ) 3780 !3781 !-- Initialize building-surface properties3782 CALL usm_define_pars3783 3790 ! 3784 3791 !-- surface forcing have to be disabled for LSF … … 9068 9075 10.0_wp, & !< parameter 131 - basic internal heat gains without occupancy of the room 9069 9076 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 9071 9080 /) 9072 9081 … … 9205 9214 8.0_wp, & !< parameter 131 - basic internal heat gains without occupancy of the room 9206 9215 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 9208 9219 /) 9209 9220 … … 9342 9353 8.0_wp, & !< parameter 131 - basic internal heat gains without occupancy of the room 9343 9354 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 9345 9358 /) 9346 9359 … … 9479 9492 10.0_wp, & !< parameter 131 - basic internal heat gains without occupancy of the room 9480 9493 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 9482 9497 /) 9483 9498 … … 9616 9631 20.0_wp, & !< parameter 131 - basic internal heat gains without occupancy of the room 9617 9632 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 9619 9636 /) 9620 9637 … … 9753 9770 15.0_wp, & !< parameter 131 - basic internal heat gains without occupancy of the room 9754 9771 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 9756 9775 /) 9757 9776 … … 9890 9909 0.0_wp, & !< parameter 131 - basic internal heat gains without occupancy of the room 9891 9910 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 9893 9914 /) 9894 9915
Note: See TracChangeset
for help on using the changeset viewer.