Changeset 2332 for palm

Timestamp:

Aug 3, 2017 9:15:22 PM (7 years ago)

Author:

maronga

Message:

bugfix for previous revision

File:

• palm/trunk/SOURCE/land_surface_model_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix in pavement_pars
+! 
+! 2328 2017-08-03 12:34:22Z maronga
 ! Revised skin layer concept.
 ! Bugfix for runs with pavement surface and humidity
@@ -641 +644 @@
 !-- TO BE FILLED
 !-- Pavement parameters  depth,        z0,       z0h, lambda_h,      rho_c, albedo_type, emissivity  
-    REAL(wp), DIMENSION(0:5,1:7), PARAMETER :: pavement_pars = RESHAPE( (/ &
+    REAL(wp), DIMENSION(0:6,1:7), PARAMETER :: pavement_pars = RESHAPE( (/ &
                       0.050_wp, 1.0E-4_wp, 1.0E-5_wp,  1.00_wp,  1.94E6_wp, 17.0_wp, 0.97_wp, & ! 1
                       0.050_wp, 1.0E-4_wp, 1.0E-5_wp,  1.00_wp,  1.94E6_wp, 18.0_wp, 0.94_wp,  & ! 2
@@ -649 +652 @@
                       0.050_wp, 1.0E-4_wp, 1.0E-5_wp,  1.00_wp,  1.94E6_wp, 22.0_wp, 0.97_wp,  & ! 6
                       0.050_wp, 1.0E-4_wp, 1.0E-5_wp,  1.00_wp,  1.94E6_wp, 23.0_wp, 0.97_wp  & ! 7
-                                                                 /), (/ 6, 7 /) )                             
+                                                                 /), (/ 7, 7 /) )                             
 
 !