Changeset 3161 for palm/trunk


Ignore:
Timestamp:
Jul 23, 2018 9:30:10 AM (6 years ago)
Author:
maronga
Message:

increased roughness lengths for asphalt

File:
1 edited

Legend:

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

    r3152 r3161  
    2525! -----------------
    2626! $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
    2731! Further adjustments for q_surface
    2832!
     
    871875!-- Pavement parameters      z0,       z0h, albedo_type, emissivity 
    872876    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,  & !  1
    874                       1.0E-4_wp, 1.0E-5_wp,     19.0_wp,    0.94_wp,  & !  2
    875                       1.0E-4_wp, 1.0E-5_wp,     20.0_wp,    0.98_wp,  & !  3                                 
    876                       1.0E-4_wp, 1.0E-5_wp,     21.0_wp,    0.93_wp,  & !  4
    877                       1.0E-4_wp, 1.0E-5_wp,     22.0_wp,    0.97_wp,  & !  5
    878                       1.0E-4_wp, 1.0E-5_wp,     23.0_wp,    0.97_wp,  & !  6
    879                       1.0E-4_wp, 1.0E-5_wp,     24.0_wp,    0.97_wp,  & !  7
    880                       1.0E-4_wp, 1.0E-5_wp,     25.0_wp,    0.94_wp,  & !  8
    881                       1.0E-4_wp, 1.0E-5_wp,     26.0_wp,    0.98_wp,  & !  9                                 
    882                       1.0E-4_wp, 1.0E-5_wp,     27.0_wp,    0.93_wp,  & ! 10
    883                       1.0E-4_wp, 1.0E-5_wp,     28.0_wp,    0.97_wp,  & ! 11
    884                       1.0E-4_wp, 1.0E-5_wp,     29.0_wp,    0.97_wp,  & ! 12
    885                       1.0E-4_wp, 1.0E-5_wp,     30.0_wp,    0.97_wp,  & ! 13
    886                       1.0E-4_wp, 1.0E-5_wp,     31.0_wp,    0.94_wp,  & ! 14
    887                       1.0E-4_wp, 1.0E-5_wp,     32.0_wp,    0.98_wp   & ! 15
     877                      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
    888892                      /), (/ 4, 15 /) )                             
    889893!
Note: See TracChangeset for help on using the changeset viewer.