Changeset 3161 for palm/trunk
- Timestamp:
- Jul 23, 2018 9:30:10 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/land_surface_model_mod.f90
r3152 r3161 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Increased roughness of asphalt surfaces to account for turbulence production 28 ! by traffic and other obstacles 29 ! 30 ! 3152 2018-07-19 13:26:52Z suehring 27 31 ! Further adjustments for q_surface 28 32 ! … … 871 875 !-- Pavement parameters z0, z0h, albedo_type, emissivity 872 876 REAL(wp), DIMENSION(0:3,1:15), PARAMETER :: pavement_pars = RESHAPE( (/ & 873 1.0E-4_wp, 1.0E-5_wp, 18.0_wp, 0.97_wp, & ! 1874 1.0E-4_wp, 1.0E-5_wp, 19.0_wp, 0.94_wp, & ! 2875 1.0E- 4_wp, 1.0E-5_wp, 20.0_wp, 0.98_wp, & ! 3876 1.0E- 4_wp, 1.0E-5_wp, 21.0_wp, 0.93_wp, & ! 4877 1.0E- 4_wp, 1.0E-5_wp, 22.0_wp, 0.97_wp, & ! 5878 1.0E- 4_wp, 1.0E-5_wp, 23.0_wp, 0.97_wp, & ! 6879 1.0E- 4_wp, 1.0E-5_wp, 24.0_wp, 0.97_wp, & ! 7880 1.0E- 4_wp, 1.0E-5_wp, 25.0_wp, 0.94_wp, & ! 8881 1.0E- 4_wp, 1.0E-5_wp, 26.0_wp, 0.98_wp, & ! 9882 1.0E- 4_wp, 1.0E-5_wp, 27.0_wp, 0.93_wp, & ! 10883 1.0E- 4_wp, 1.0E-5_wp, 28.0_wp, 0.97_wp, & ! 11884 1.0E- 4_wp, 1.0E-5_wp, 29.0_wp, 0.97_wp, & ! 12885 1.0E- 4_wp, 1.0E-5_wp, 30.0_wp, 0.97_wp, & ! 13886 1.0E- 4_wp, 1.0E-5_wp, 31.0_wp, 0.94_wp, & ! 14887 1.0E- 4_wp, 1.0E-5_wp, 32.0_wp, 0.98_wp & ! 15877 5.0E-2_wp, 5.0E-4_wp, 18.0_wp, 0.97_wp, & ! 1 878 5.0E-2_wp, 5.0E-4_wp, 19.0_wp, 0.94_wp, & ! 2 879 1.0E-2_wp, 1.0E-4_wp, 20.0_wp, 0.98_wp, & ! 3 880 1.0E-2_wp, 1.0E-4_wp, 21.0_wp, 0.93_wp, & ! 4 881 1.0E-2_wp, 1.0E-4_wp, 22.0_wp, 0.97_wp, & ! 5 882 1.0E-2_wp, 1.0E-4_wp, 23.0_wp, 0.97_wp, & ! 6 883 1.0E-2_wp, 1.0E-4_wp, 24.0_wp, 0.97_wp, & ! 7 884 1.0E-2_wp, 1.0E-4_wp, 25.0_wp, 0.94_wp, & ! 8 885 1.0E-2_wp, 1.0E-4_wp, 26.0_wp, 0.98_wp, & ! 9 886 1.0E-2_wp, 1.0E-4_wp, 27.0_wp, 0.93_wp, & ! 10 887 1.0E-2_wp, 1.0E-4_wp, 28.0_wp, 0.97_wp, & ! 11 888 1.0E-2_wp, 1.0E-4_wp, 29.0_wp, 0.97_wp, & ! 12 889 1.0E-2_wp, 1.0E-4_wp, 30.0_wp, 0.97_wp, & ! 13 890 1.0E-2_wp, 1.0E-4_wp, 31.0_wp, 0.94_wp, & ! 14 891 1.0E-2_wp, 1.0E-4_wp, 32.0_wp, 0.98_wp & ! 15 888 892 /), (/ 4, 15 /) ) 889 893 !
Note: See TracChangeset
for help on using the changeset viewer.