Ignore:
Timestamp:
Aug 3, 2017 9:15:22 PM (4 years ago)
Author:
maronga
Message:

bugfix for previous revision

File:
1 edited

Legend:

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

    r2328 r2332  
    2525! -----------------
    2626! $Id$
     27! bugfix in pavement_pars
     28!
     29! 2328 2017-08-03 12:34:22Z maronga
    2730! Revised skin layer concept.
    2831! Bugfix for runs with pavement surface and humidity
     
    641644!-- TO BE FILLED
    642645!-- Pavement parameters  depth,        z0,       z0h, lambda_h,      rho_c, albedo_type, emissivity 
    643     REAL(wp), DIMENSION(0:5,1:7), PARAMETER :: pavement_pars = RESHAPE( (/ &
     646    REAL(wp), DIMENSION(0:6,1:7), PARAMETER :: pavement_pars = RESHAPE( (/ &
    644647                      0.050_wp, 1.0E-4_wp, 1.0E-5_wp,  1.00_wp,  1.94E6_wp, 17.0_wp, 0.97_wp, & ! 1
    645648                      0.050_wp, 1.0E-4_wp, 1.0E-5_wp,  1.00_wp,  1.94E6_wp, 18.0_wp, 0.94_wp,  & ! 2
     
    649652                      0.050_wp, 1.0E-4_wp, 1.0E-5_wp,  1.00_wp,  1.94E6_wp, 22.0_wp, 0.97_wp,  & ! 6
    650653                      0.050_wp, 1.0E-4_wp, 1.0E-5_wp,  1.00_wp,  1.94E6_wp, 23.0_wp, 0.97_wp  & ! 7
    651                                                                  /), (/ 6, 7 /) )                             
     654                                                                 /), (/ 7, 7 /) )                             
    652655
    653656!
Note: See TracChangeset for help on using the changeset viewer.