Changeset 4780 for palm/trunk/SOURCE/radiation_model_mod.f90
- Timestamp:
- Nov 10, 2020 11:17:10 AM (3 years ago)
- File:
-
- 1 edited
-
palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/radiation_model_mod.f90
r4768 r4780 23 23 ! Current revisions: 24 24 ! ------------------ 25 ! 25 ! Albedo parameter list extended - building facades added 26 26 ! 27 27 ! Former revisions: … … 507 507 ! 508 508 !-- Predefined Land surface classes (albedo_type) after Briegleb (1992) 509 CHARACTER(37), DIMENSION(0: 33), PARAMETER :: albedo_type_name = (/ &509 CHARACTER(37), DIMENSION(0:42), PARAMETER :: albedo_type_name = (/ & 510 510 'user defined ', & ! 0 511 511 'ocean ', & ! 1 … … 541 541 'artifical turf (sports) ', & ! 31 542 542 'clay (sports) ', & ! 32 543 'building (dummy) ' & ! 33 543 'building (dummy) ', & ! 33 544 'building wall - reflecting facade ', & ! 34 545 'building wall - bright facade ', & ! 35 546 'building wall - other materials ', & ! 36 547 'building window - double glazing ', & ! 37 548 'building window - double glazing ', & ! 38 549 'building window - reflecting ', & ! 39 550 'building roof - reflecting ', & ! 40 551 'building roof - bright ', & ! 41 552 'building roof - other materials ' & ! 42 544 553 /) 545 554 ! … … 613 622 !-- Land surface albedos for solar zenith angle of 60degree after Briegleb (1992) 614 623 !-- (broadband, longwave, shortwave ): bb, lw, sw, 615 REAL(wp), DIMENSION(0:2,1:33), PARAMETER :: albedo_pars = RESHAPE( (/& 616 0.06_wp, 0.06_wp, 0.06_wp, & ! 1 617 0.19_wp, 0.28_wp, 0.09_wp, & ! 2 618 0.23_wp, 0.33_wp, 0.11_wp, & ! 3 619 0.23_wp, 0.33_wp, 0.11_wp, & ! 4 620 0.25_wp, 0.34_wp, 0.14_wp, & ! 5 621 0.14_wp, 0.22_wp, 0.06_wp, & ! 6 622 0.17_wp, 0.27_wp, 0.06_wp, & ! 7 623 0.19_wp, 0.31_wp, 0.06_wp, & ! 8 624 0.14_wp, 0.22_wp, 0.06_wp, & ! 9 625 0.18_wp, 0.28_wp, 0.06_wp, & ! 10 626 0.43_wp, 0.51_wp, 0.35_wp, & ! 11 627 0.32_wp, 0.40_wp, 0.24_wp, & ! 12 628 0.19_wp, 0.27_wp, 0.10_wp, & ! 13 629 0.77_wp, 0.65_wp, 0.90_wp, & ! 14 630 0.77_wp, 0.65_wp, 0.90_wp, & ! 15 631 0.82_wp, 0.70_wp, 0.95_wp, & ! 16 632 0.08_wp, 0.08_wp, 0.08_wp, & ! 17 633 0.17_wp, 0.17_wp, 0.17_wp, & ! 18 634 0.17_wp, 0.17_wp, 0.17_wp, & ! 19 635 0.30_wp, 0.30_wp, 0.30_wp, & ! 20 636 0.17_wp, 0.17_wp, 0.17_wp, & ! 21 637 0.17_wp, 0.17_wp, 0.17_wp, & ! 22 638 0.17_wp, 0.17_wp, 0.17_wp, & ! 23 639 0.17_wp, 0.17_wp, 0.17_wp, & ! 24 640 0.17_wp, 0.17_wp, 0.17_wp, & ! 25 641 0.17_wp, 0.17_wp, 0.17_wp, & ! 26 642 0.17_wp, 0.17_wp, 0.17_wp, & ! 27 643 0.17_wp, 0.17_wp, 0.17_wp, & ! 28 644 0.17_wp, 0.17_wp, 0.17_wp, & ! 29 645 0.17_wp, 0.17_wp, 0.17_wp, & ! 30 646 0.17_wp, 0.17_wp, 0.17_wp, & ! 31 647 0.17_wp, 0.17_wp, 0.17_wp, & ! 32 648 0.17_wp, 0.17_wp, 0.17_wp & ! 33 649 /), (/ 3, 33 /) ) 624 REAL(wp), DIMENSION(0:2,1:42), PARAMETER :: albedo_pars = RESHAPE( (/& 625 0.06_wp, 0.06_wp, 0.06_wp, & ! 1 - ocean 626 0.19_wp, 0.28_wp, 0.09_wp, & ! 2 - mixed farming, tall grassland 627 0.23_wp, 0.33_wp, 0.11_wp, & ! 3 - tall/medium grassland 628 0.23_wp, 0.33_wp, 0.11_wp, & ! 4 - evergreen shrubland 629 0.25_wp, 0.34_wp, 0.14_wp, & ! 5 - short grassland/meadow/shrubland 630 0.14_wp, 0.22_wp, 0.06_wp, & ! 6 - evergreen needleleaf forest 631 0.17_wp, 0.27_wp, 0.06_wp, & ! 7 - mixed deciduous forest 632 0.19_wp, 0.31_wp, 0.06_wp, & ! 8 - deciduous forest 633 0.14_wp, 0.22_wp, 0.06_wp, & ! 9 - tropical evergreen broadleaved forest 634 0.18_wp, 0.28_wp, 0.06_wp, & ! 10 - medium/tall grassland/woodland 635 0.43_wp, 0.51_wp, 0.35_wp, & ! 11 - desert, sandy 636 0.32_wp, 0.40_wp, 0.24_wp, & ! 12 - desert, rocky 637 0.19_wp, 0.27_wp, 0.10_wp, & ! 13 - tundra 638 0.77_wp, 0.65_wp, 0.90_wp, & ! 14 - land ice 639 0.77_wp, 0.65_wp, 0.90_wp, & ! 15 - sea ice 640 0.82_wp, 0.70_wp, 0.95_wp, & ! 16 - snow 641 0.08_wp, 0.08_wp, 0.08_wp, & ! 17 - bare soil 642 0.17_wp, 0.17_wp, 0.17_wp, & ! 18 - asphalt/concrete mix 643 0.17_wp, 0.17_wp, 0.17_wp, & ! 19 - asphalt (asphalt concrete) 644 0.30_wp, 0.30_wp, 0.30_wp, & ! 20 - concrete (Portland concrete) 645 0.17_wp, 0.17_wp, 0.17_wp, & ! 21 - sett 646 0.17_wp, 0.17_wp, 0.17_wp, & ! 22 - paving stones 647 0.17_wp, 0.17_wp, 0.17_wp, & ! 23 - cobblestone 648 0.17_wp, 0.17_wp, 0.17_wp, & ! 24 - metal 649 0.17_wp, 0.17_wp, 0.17_wp, & ! 25 - wood 650 0.17_wp, 0.17_wp, 0.17_wp, & ! 26 - gravel 651 0.17_wp, 0.17_wp, 0.17_wp, & ! 27 - fine gravel 652 0.17_wp, 0.17_wp, 0.17_wp, & ! 28 - pebblestone 653 0.17_wp, 0.17_wp, 0.17_wp, & ! 29 - woodchips 654 0.17_wp, 0.17_wp, 0.17_wp, & ! 30 - tartan (sports) 655 0.17_wp, 0.17_wp, 0.17_wp, & ! 31 - artificial turf (sports) 656 0.17_wp, 0.17_wp, 0.17_wp, & ! 32 - clay (sports) 657 0.17_wp, 0.17_wp, 0.17_wp, & ! 33 - building (dummy) 658 0.60_wp, 0.60_wp, 0.60_wp, & ! 34 - building wall type 1 - reflecting facade 659 0.30_wp, 0.30_wp, 0.30_wp, & ! 35 - building wall type 2 - bright facacde 660 0.07_wp, 0.07_wp, 0.07_wp, & ! 36 - building wall type 3) - other materials 661 0.12_wp, 0.12_wp, 0.12_wp, & ! 37 - building window type 1 - double glazing 662 0.17_wp, 0.18_wp, 0.18_wp, & ! 38 - building window type 2 - triple glazing 663 0.48_wp, 0.48_wp, 0.48_wp, & ! 39 - building window type 3 - reflecting 664 0.60_wp, 0.60_wp, 0.60_wp, & ! 40 - building roof type 1 - reflecting 665 0.30_wp, 0.30_wp, 0.30_wp, & ! 41 - building roof type 2 - bright 666 0.07_wp, 0.07_wp, 0.07_wp & ! 42 - building roof type 3 - other materials 667 /), (/ 3, 42 /) ) 650 668 651 669 REAL(wp), DIMENSION(:,:,:), ALLOCATABLE, TARGET :: &
Note: See TracChangeset
for help on using the changeset viewer.
