Changeset 4733 for palm/trunk/SOURCE/urban_surface_mod.f90
- Timestamp:
- Oct 9, 2020 12:24:16 PM (4 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/urban_surface_mod.f90 (modified) (39 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/urban_surface_mod.f90
r4721 r4733 22 22 ! Current revisions: 23 23 ! ----------------- 24 ! 24 ! Bugfix in calculation of absored radiation by windows (reflected radiation was not taken into 25 ! account) 25 26 ! 26 27 ! Former revisions: … … 5262 5263 + surf%rad_sw_in(m) & 5263 5264 * ( 1.0_wp - exp( -win_absorp & 5264 * surf%zw_window(nzb_wall,m) ) ) 5265 * surf%zw_window(nzb_wall,m) ) ) - surf%rad_sw_out(m) & 5265 5266 ) * surf%ddz_window_stag(nzb_wall,m) 5266 5267 … … 5284 5285 * ( exp( -win_absorp * surf%zw_window(kw-1,m) ) & 5285 5286 - exp(-win_absorp * surf%zw_window(kw,m) ) & 5286 ) 5287 ) - surf%rad_sw_out(m) & 5287 5288 ) * surf%ddz_window_stag(kw,m) 5288 5289 … … 5299 5300 - exp( -win_absorp & 5300 5301 * surf%zw_window(nzt_wall,m) ) & 5301 ) 5302 ) - surf%rad_sw_out(m) & 5302 5303 ) * surf%ddz_window_stag(nzt_wall,m) 5303 5304 … … 7541 7542 0.001_wp, & !< parameter 36 - z0 roughness ground floor level 7542 7543 0.0001_wp, & !< parameter 37 - z0h/z0q roughness heat/humidity 7543 27.0_wp, & !< parameter 38 - wall albedo above ground floor level7544 5.0_wp, & !< parameter 39 - green albedo above ground floor level7545 27.0_wp, & !< parameter 40 - window albedo above ground floor level7544 27.0_wp, & !< parameter 38 - wall albedo_type above ground floor level 7545 5.0_wp, & !< parameter 39 - green albedo_type above ground floor level 7546 27.0_wp, & !< parameter 40 - window albedo_type above ground floor level 7546 7547 0.005_wp, & !< parameter 41 - 1st wall layer thickness above ground floor level 7547 7548 0.01_wp, & !< parameter 42 - 2nd wall layer thickness above ground floor level … … 7569 7570 0.39_wp, & !< parameter 64 - 3rd wall layer thickness ground floor level 7570 7571 0.63_wp, & !< parameter 65 - 4th wall layer thickness ground floor level 7571 27.0_wp, & !< parameter 66 - wall albedo ground floor level7572 27.0_wp, & !< parameter 66 - wall albedo_type ground floor level 7572 7573 0.003_wp, & !< parameter 67 - 1st window layer thickness ground floor level 7573 7574 0.006_wp, & !< parameter 68 - 2nd window layer thickness ground floor level … … 7580 7581 0.57_wp, & !< parameter 75 - thermal conductivity 3rd window layer ground floor level 7581 7582 0.57_wp, & !< parameter 76 - thermal conductivity 4th window layer ground floor level 7582 27.0_wp, & !< parameter 77 - window albedo ground floor level7583 5.0_wp, & !< parameter 78 - green albedo ground floor level7583 27.0_wp, & !< parameter 77 - window albedo_type ground floor level 7584 5.0_wp, & !< parameter 78 - green albedo_type ground floor level 7584 7585 0.003_wp, & !< parameter 79 - 1st window layer thickness above ground floor level 7585 7586 0.006_wp, & !< parameter 80 - 2nd thickness window layer above ground floor level … … 7604 7605 2.1_wp, & !< parameter 99 - thermal conductivity 4th wall layer roof 7605 7606 0.93_wp, & !< parameter 100 - wall emissivity roof 7606 27.0_wp, & !< parameter 101 - wall albedo roof7607 27.0_wp, & !< parameter 101 - wall albedo_type roof 7607 7608 0.0_wp, & !< parameter 102 - window fraction roof 7608 7609 0.003_wp, & !< parameter 103 - window 1st layer thickness roof … … 7618 7619 0.91_wp, & !< parameter 113 - window emissivity roof 7619 7620 0.75_wp, & !< parameter 114 - window transmissivity roof 7620 27.0_wp, & !< parameter 115 - window albedo roof7621 27.0_wp, & !< parameter 115 - window albedo_type roof 7621 7622 0.86_wp, & !< parameter 116 - green emissivity roof 7622 5.0_wp, & !< parameter 117 - green albedo roof7623 5.0_wp, & !< parameter 117 - green albedo_type roof 7623 7624 0.0_wp, & !< parameter 118 - green type roof 7624 7625 0.8_wp, & !< parameter 119 - shading factor … … 7680 7681 0.001_wp, & !< parameter 36 - z0 roughness ground floor level 7681 7682 0.0001_wp, & !< parameter 37 - z0h/z0q roughness heat/humidity 7682 27.0_wp, & !< parameter 38 - wall albedo above ground floor level7683 5.0_wp, & !< parameter 39 - green albedo above ground floor level7684 27.0_wp, & !< parameter 40 - window albedo above ground floor level7683 27.0_wp, & !< parameter 38 - wall albedo_type above ground floor level 7684 5.0_wp, & !< parameter 39 - green albedo_type above ground floor level 7685 27.0_wp, & !< parameter 40 - window albedo_type above ground floor level 7685 7686 0.005_wp, & !< parameter 41 - 1st wall layer thickness above ground floor level 7686 7687 0.01_wp, & !< parameter 42 - 2nd wall layer thickness above ground floor level … … 7708 7709 0.31_wp, & !< parameter 64 - 3rd wall layer thickness ground floor level 7709 7710 0.43_wp, & !< parameter 65 - 4th wall layer thickness ground floor level 7710 27.0_wp, & !< parameter 66 - wall albedo ground floor level7711 27.0_wp, & !< parameter 66 - wall albedo_type ground floor level 7711 7712 0.003_wp, & !< parameter 67 - 1st window layer thickness ground floor level 7712 7713 0.006_wp, & !< parameter 68 - 2nd window layer thickness ground floor level … … 7719 7720 0.11_wp, & !< parameter 75 - thermal conductivity 3rd window layer ground floor level 7720 7721 0.11_wp, & !< parameter 76 - thermal conductivity 4th window layer ground floor level 7721 27.0_wp, & !< parameter 77 - window albedo ground floor level7722 5.0_wp, & !< parameter 78 - green albedo ground floor level7722 27.0_wp, & !< parameter 77 - window albedo_type ground floor level 7723 5.0_wp, & !< parameter 78 - green albedo_type ground floor level 7723 7724 0.003_wp, & !< parameter 79 - 1st window layer thickness above ground floor level 7724 7725 0.006_wp, & !< parameter 80 - 2nd thickness window layer above ground floor level … … 7743 7744 0.04_wp, & !< parameter 99 - thermal conductivity 4th wall layer roof 7744 7745 0.93_wp, & !< parameter 100 - wall emissivity roof 7745 27.0_wp, & !< parameter 101 - wall albedo roof7746 27.0_wp, & !< parameter 101 - wall albedo_type roof 7746 7747 0.0_wp, & !< parameter 102 - window fraction roof 7747 7748 0.003_wp, & !< parameter 103 - window 1st layer thickness roof … … 7757 7758 0.87_wp, & !< parameter 113 - window emissivity roof 7758 7759 0.7_wp, & !< parameter 114 - window transmissivity roof 7759 27.0_wp, & !< parameter 115 - window albedo roof7760 27.0_wp, & !< parameter 115 - window albedo_type roof 7760 7761 0.86_wp, & !< parameter 116 - green emissivity roof 7761 5.0_wp, & !< parameter 117 - green albedo roof7762 5.0_wp, & !< parameter 117 - green albedo_type roof 7762 7763 0.0_wp, & !< parameter 118 - green type roof 7763 7764 0.8_wp, & !< parameter 119 - shading factor … … 7820 7821 0.001_wp, & !< parameter 36 - z0 roughness ground floor level 7821 7822 0.0001_wp, & !< parameter 37 - z0h/z0q roughness heat/humidity 7822 27.0_wp, & !< parameter 38 - wall albedo above ground floor level7823 5.0_wp, & !< parameter 39 - green albedo above ground floor level7824 27.0_wp, & !< parameter 40 - window albedo above ground floor level7823 27.0_wp, & !< parameter 38 - wall albedo_type above ground floor level 7824 5.0_wp, & !< parameter 39 - green albedo_type above ground floor level 7825 27.0_wp, & !< parameter 40 - window albedo_type above ground floor level 7825 7826 0.005_wp, & !< parameter 41 - 1st wall layer thickness above ground floor level 7826 7827 0.01_wp, & !< parameter 42 - 2nd wall layer thickness above ground floor level … … 7848 7849 0.41_wp, & !< parameter 64 - 3rd wall layer thickness ground floor level 7849 7850 0.7_wp, & !< parameter 65 - 4th wall layer thickness ground floor level 7850 27.0_wp, & !< parameter 66 - wall albedo ground floor level7851 27.0_wp, & !< parameter 66 - wall albedo_type ground floor level 7851 7852 0.003_wp, & !< parameter 67 - 1st window layer thickness ground floor level 7852 7853 0.006_wp, & !< parameter 68 - 2nd window layer thickness ground floor level … … 7859 7860 0.037_wp, & !< parameter 75 - thermal conductivity 3rd window layer ground floor level 7860 7861 0.037_wp, & !< parameter 76 - thermal conductivity 4th window layer ground floor level 7861 27.0_wp, & !< parameter 77 - window albedo ground floor level7862 5.0_wp, & !< parameter 78 - green albedo ground floor level7862 27.0_wp, & !< parameter 77 - window albedo_type ground floor level 7863 5.0_wp, & !< parameter 78 - green albedo_type ground floor level 7863 7864 0.003_wp, & !< parameter 79 - 1st window layer thickness above ground floor level 7864 7865 0.006_wp, & !< parameter 80 - 2nd thickness window layer above ground floor level … … 7883 7884 0.035_wp, & !< parameter 99 - thermal conductivity 4th wall layer roof 7884 7885 0.93_wp, & !< parameter 100 - wall emissivity roof 7885 27.0_wp, & !< parameter 101 - wall albedo roof7886 27.0_wp, & !< parameter 101 - wall albedo_type roof 7886 7887 0.0_wp, & !< parameter 102 - window fraction roof 7887 7888 0.003_wp, & !< parameter 103 - window 1st layer thickness roof … … 7897 7898 0.8_wp, & !< parameter 113 - window emissivity roof 7898 7899 0.6_wp, & !< parameter 114 - window transmissivity roof 7899 27.0_wp, & !< parameter 115 - window albedo roof7900 27.0_wp, & !< parameter 115 - window albedo_type roof 7900 7901 0.86_wp, & !< parameter 116 - green emissivity roof 7901 5.0_wp, & !< parameter 117 - green albedo roof7902 5.0_wp, & !< parameter 117 - green albedo_type roof 7902 7903 0.0_wp, & !< parameter 118 - green type roof 7903 7904 0.3_wp, & !< parameter 119 - shading factor … … 7960 7961 0.001_wp, & !< parameter 36 - z0 roughness ground floor level 7961 7962 0.0001_wp, & !< parameter 37 - z0h/z0q roughness heat/humidity 7962 27.0_wp, & !< parameter 38 - wall albedo above ground floor level7963 5.0_wp, & !< parameter 39 - green albedo above ground floor level7964 27.0_wp, & !< parameter 40 - window albedo above ground floor level7963 27.0_wp, & !< parameter 38 - wall albedo_type above ground floor level 7964 5.0_wp, & !< parameter 39 - green albedo_type above ground floor level 7965 27.0_wp, & !< parameter 40 - window albedo_type above ground floor level 7965 7966 0.005_wp, & !< parameter 41 - 1st wall layer thickness above ground floor level 7966 7967 0.01_wp, & !< parameter 42 - 2nd wall layer thickness above ground floor level … … 7988 7989 0.39_wp, & !< parameter 64 - 3rd wall layer thickness ground floor level 7989 7990 0.63_wp, & !< parameter 65 - 4th wall layer thickness ground floor level 7990 27.0_wp, & !< parameter 66 - wall albedo ground floor level7991 27.0_wp, & !< parameter 66 - wall albedo_type ground floor level 7991 7992 0.003_wp, & !< parameter 67 - 1st window layer thickness ground floor level 7992 7993 0.006_wp, & !< parameter 68 - 2nd window layer thickness ground floor level … … 7999 8000 0.57_wp, & !< parameter 75 - thermal conductivity 3rd window layer ground floor level 8000 8001 0.57_wp, & !< parameter 76 - thermal conductivity 4th window layer ground floor level 8001 27.0_wp, & !< parameter 77 - window albedo ground floor level8002 5.0_wp, & !< parameter 78 - green albedo ground floor level8002 27.0_wp, & !< parameter 77 - window albedo_type ground floor level 8003 5.0_wp, & !< parameter 78 - green albedo_type ground floor level 8003 8004 0.003_wp, & !< parameter 79 - 1st window layer thickness above ground floor level 8004 8005 0.006_wp, & !< parameter 80 - 2nd thickness window layer above ground floor level … … 8023 8024 2.1_wp, & !< parameter 99 - thermal conductivity 4th wall layer roof 8024 8025 0.93_wp, & !< parameter 100 - wall emissivity roof 8025 27.0_wp, & !< parameter 101 - wall albedo roof8026 27.0_wp, & !< parameter 101 - wall albedo_type roof 8026 8027 0.0_wp, & !< parameter 102 - window fraction roof 8027 8028 0.003_wp, & !< parameter 103 - window 1st layer thickness roof … … 8037 8038 0.91_wp, & !< parameter 113 - window emissivity roof 8038 8039 0.75_wp, & !< parameter 114 - window transmissivity roof 8039 27.0_wp, & !< parameter 115 - window albedo roof8040 27.0_wp, & !< parameter 115 - window albedo_type roof 8040 8041 0.86_wp, & !< parameter 116 - green emissivity roof 8041 5.0_wp, & !< parameter 117 - green albedo roof8042 5.0_wp, & !< parameter 117 - green albedo_type roof 8042 8043 0.0_wp, & !< parameter 118 - green type roof 8043 8044 0.25_wp, & !< parameter 119 - shading factor … … 8099 8100 0.001_wp, & !< parameter 36 - z0 roughness ground floor level 8100 8101 0.0001_wp, & !< parameter 37 - z0h/z0q roughness heat/humidity 8101 27.0_wp, & !< parameter 38 - wall albedo above ground floor level8102 5.0_wp, & !< parameter 39 - green albedo above ground floor level8103 27.0_wp, & !< parameter 40 - window albedo above ground floor level8102 27.0_wp, & !< parameter 38 - wall albedo_type above ground floor level 8103 5.0_wp, & !< parameter 39 - green albedo_type above ground floor level 8104 27.0_wp, & !< parameter 40 - window albedo_type above ground floor level 8104 8105 0.005_wp, & !< parameter 41 - 1st wall layer thickness above ground floor level 8105 8106 0.01_wp, & !< parameter 42 - 2nd wall layer thickness above ground floor level … … 8127 8128 0.31_wp, & !< parameter 64 - 3rd wall layer thickness ground floor level 8128 8129 0.43_wp, & !< parameter 65 - 4th wall layer thickness ground floor level 8129 27.0_wp, & !< parameter 66 - wall albedo ground floor level8130 27.0_wp, & !< parameter 66 - wall albedo_type ground floor level 8130 8131 0.003_wp, & !< parameter 67 - 1st window layer thickness ground floor level 8131 8132 0.006_wp, & !< parameter 68 - 2nd window layer thickness ground floor level … … 8138 8139 0.11_wp, & !< parameter 75 - thermal conductivity 3rd window layer ground floor level 8139 8140 0.11_wp, & !< parameter 76 - thermal conductivity 4th window layer ground floor level 8140 27.0_wp, & !< parameter 77 - window albedo ground floor level8141 5.0_wp, & !< parameter 78 - green albedo ground floor level8141 27.0_wp, & !< parameter 77 - window albedo_type ground floor level 8142 5.0_wp, & !< parameter 78 - green albedo_type ground floor level 8142 8143 0.003_wp, & !< parameter 79 - 1st window layer thickness above ground floor level 8143 8144 0.006_wp, & !< parameter 80 - 2nd thickness window layer above ground floor level … … 8162 8163 0.04_wp, & !< parameter 99 - thermal conductivity 4th wall layer roof 8163 8164 0.91_wp, & !< parameter 100 - wall emissivity roof 8164 27.0_wp, & !< parameter 101 - wall albedo roof8165 27.0_wp, & !< parameter 101 - wall albedo_type roof 8165 8166 0.0_wp, & !< parameter 102 - window fraction roof 8166 8167 0.003_wp, & !< parameter 103 - window 1st layer thickness roof … … 8176 8177 0.87_wp, & !< parameter 113 - window emissivity roof 8177 8178 0.7_wp, & !< parameter 114 - window transmissivity roof 8178 27.0_wp, & !< parameter 115 - window albedo roof8179 27.0_wp, & !< parameter 115 - window albedo_type roof 8179 8180 0.86_wp, & !< parameter 116 - green emissivity roof 8180 5.0_wp, & !< parameter 117 - green albedo roof8181 5.0_wp, & !< parameter 117 - green albedo_type roof 8181 8182 0.0_wp, & !< parameter 118 - green type roof 8182 8183 0.25_wp, & !< parameter 119 - shading factor … … 8238 8239 0.001_wp, & !< parameter 36 - z0 roughness ground floor level 8239 8240 0.0001_wp, & !< parameter 37 - z0h/z0q roughness heat/humidity 8240 27.0_wp, & !< parameter 38 - wall albedo above ground floor level8241 5.0_wp, & !< parameter 39 - green albedo above ground floor level8242 27.0_wp, & !< parameter 40 - window albedo above ground floor level8241 27.0_wp, & !< parameter 38 - wall albedo_type above ground floor level 8242 5.0_wp, & !< parameter 39 - green albedo_type above ground floor level 8243 27.0_wp, & !< parameter 40 - window albedo_type above ground floor level 8243 8244 0.005_wp, & !< parameter 41 - 1st wall layer thickness above ground floor level 8244 8245 0.01_wp, & !< parameter 42 - 2nd wall layer thickness above ground floor level … … 8266 8267 0.41_wp, & !< parameter 64 - 3rd wall layer thickness ground floor level 8267 8268 0.7_wp, & !< parameter 65 - 4th wall layer thickness ground floor level 8268 27.0_wp, & !< parameter 66 - wall albedo ground floor level8269 27.0_wp, & !< parameter 66 - wall albedo_type ground floor level 8269 8270 0.003_wp, & !< parameter 67 - 1st window layer thickness ground floor level 8270 8271 0.006_wp, & !< parameter 68 - 2nd window layer thickness ground floor level … … 8277 8278 0.037_wp, & !< parameter 75 - thermal conductivity 3rd window layer ground floor level 8278 8279 0.037_wp, & !< parameter 76 - thermal conductivity 4th window layer ground floor level 8279 27.0_wp, & !< parameter 77 - window albedo ground floor level8280 5.0_wp, & !< parameter 78 - green albedo ground floor level8280 27.0_wp, & !< parameter 77 - window albedo_type ground floor level 8281 5.0_wp, & !< parameter 78 - green albedo_type ground floor level 8281 8282 0.003_wp, & !< parameter 79 - 1st window layer thickness above ground floor level 8282 8283 0.006_wp, & !< parameter 80 - 2nd thickness window layer above ground floor level … … 8301 8302 0.035_wp, & !< parameter 99 - thermal conductivity 4th wall layer roof 8302 8303 0.91_wp, & !< parameter 100 - wall emissivity roof 8303 27.0_wp, & !< parameter 101 - wall albedo roof8304 27.0_wp, & !< parameter 101 - wall albedo_type roof 8304 8305 0.0_wp, & !< parameter 102 - window fraction roof 8305 8306 0.003_wp, & !< parameter 103 - window 1st layer thickness roof … … 8315 8316 0.8_wp, & !< parameter 113 - window emissivity roof 8316 8317 0.6_wp, & !< parameter 114 - window transmissivity roof 8317 27.0_wp, & !< parameter 115 - window albedo roof8318 27.0_wp, & !< parameter 115 - window albedo_type roof 8318 8319 0.86_wp, & !< parameter 116 - green emissivity roof 8319 5.0_wp, & !< parameter 117 - green albedo roof8320 5.0_wp, & !< parameter 117 - green albedo_type roof 8320 8321 0.0_wp, & !< parameter 118 - green type roof 8321 8322 0.25_wp, & !< parameter 119 - shading factor … … 8377 8378 0.001_wp, & !< parameter 36 - z0 roughness ground floor level 8378 8379 0.0001_wp, & !< parameter 37 - z0h/z0q roughness heat/humidity 8379 27.0_wp, & !< parameter 38 - wall albedo above ground floor level8380 5.0_wp, & !< parameter 39 - green albedo above ground floor level8381 27.0_wp, & !< parameter 40 - window albedo above ground floor level8380 27.0_wp, & !< parameter 38 - wall albedo_type above ground floor level 8381 5.0_wp, & !< parameter 39 - green albedo_type above ground floor level 8382 27.0_wp, & !< parameter 40 - window albedo_type above ground floor level 8382 8383 0.29_wp, & !< parameter 41 - 1st wall layer thickness above ground floor level 8383 8384 0.295_wp, & !< parameter 42 - 2nd wall layer thickness above ground floor level … … 8405 8406 0.695_wp, & !< parameter 64 - 3rd wall layer thickness ground floor level 8406 8407 0.985_wp, & !< parameter 65 - 4th wall layer thickness ground floor level 8407 27.0_wp, & !< parameter 66 - wall albedo ground floor level8408 27.0_wp, & !< parameter 66 - wall albedo_type ground floor level 8408 8409 0.003_wp, & !< parameter 67 - 1st window layer thickness ground floor level 8409 8410 0.006_wp, & !< parameter 68 - 2nd window layer thickness ground floor level … … 8416 8417 0.57_wp, & !< parameter 75 - thermal conductivity 3rd window layer ground floor level 8417 8418 0.57_wp, & !< parameter 76 - thermal conductivity 4th window layer ground floor level 8418 27.0_wp, & !< parameter 77 - window albedo ground floor level8419 5.0_wp, & !< parameter 78 - green albedo ground floor level8419 27.0_wp, & !< parameter 77 - window albedo_type ground floor level 8420 5.0_wp, & !< parameter 78 - green albedo_type ground floor level 8420 8421 0.003_wp, & !< parameter 79 - 1st window layer thickness above ground floor level 8421 8422 0.006_wp, & !< parameter 80 - 2nd thickness window layer above ground floor level … … 8440 8441 1.0_wp, & !< parameter 99 - thermal conductivity 4th wall layer roof 8441 8442 0.9_wp, & !< parameter 100 - wall emissivity roof 8442 27.0_wp, & !< parameter 101 - wall albedo roof8443 27.0_wp, & !< parameter 101 - wall albedo_type roof 8443 8444 0.0_wp, & !< parameter 102 - window fraction roof 8444 8445 0.003_wp, & !< parameter 103 - window 1st layer thickness roof … … 8454 8455 0.8_wp, & !< parameter 113 - window emissivity roof 8455 8456 0.6_wp, & !< parameter 114 - window transmissivity roof 8456 27.0_wp, & !< parameter 115 - window albedo roof8457 27.0_wp, & !< parameter 115 - window albedo_type roof 8457 8458 0.86_wp, & !< parameter 116 - green emissivity roof 8458 5.0_wp, & !< parameter 117 - green albedo roof8459 5.0_wp, & !< parameter 117 - green albedo_type roof 8459 8460 0.0_wp, & !< parameter 118 - green type roof 8460 8461 0.8_wp, & !< parameter 119 - shading factor
Note: See TracChangeset
for help on using the changeset viewer.
