Changeset 3014 for palm/trunk/SOURCE/land_surface_model_mod.f90

Timestamp:

May 9, 2018 8:42:38 AM (6 years ago)

Author:

maronga

Message:

series of bugfixes

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: set some initial values
+! Bugfix: domain bounds of local_pf corrected
+! 
+! 3004 2018-04-27 12:33:25Z Giersch
 ! Further allocation checks implemented (averaged data will be assigned to fill
 ! values if no allocation happened so far) 
@@ -4639 +4643 @@
        surf_lsm_h%pavement_surface     = .FALSE.
        surf_lsm_h%vegetation_surface   = .FALSE. 
+
+!
+!--    Set default values
+       surf_lsm_h%r_canopy_min = 0.0_wp
+
 !
 !--    Vertical surfaces
@@ -4671 +4680 @@
           surf_lsm_v(l)%vegetation_surface   = .FALSE. 
           
+
+!
+!--       Set default values
+          surf_lsm_v(l)%r_canopy_min = 0.0_wp
+        
        ENDDO
 
@@ -5632 +5646 @@
     REAL(wp) ::  fill_value = -999.0_wp    !< value for the _FillValue attribute
 
-    REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb:nzt+1) ::  local_pf !< 
+    REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) ::  local_pf !<