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

Timestamp:

Aug 17, 2017 10:49:36 AM (7 years ago)

Author:

schwenkel

Message:

bugfix for lsm data output

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! minor bugfixes
+! 
+! 2340 2017-08-07 17:11:13Z maronga
 ! Revised root_distribution tabel and implemented a pseudo-generic root fraction
 ! calculation
@@ -1234 +1237 @@
        ENDDO    
     ENDIF
+    nzs = nzt_soil + 1
+
 
     IF ( vegetation_type == 0 )  THEN
@@ -1290 +1295 @@
        
     ddz_soil_center = 1.0_wp / dz_soil_center
-    ddz_soil = 1.0_wp / dz_soil
+    ddz_soil(nzb_soil:nzt_soil) = 1.0_wp / dz_soil(nzb_soil:nzt_soil)
+
 
 
@@ -1431 +1437 @@
 !--    for vegetation type surfaces, the thermal conductivity of the soil is
 !--    needed
+
        IF ( surf%vegetation_surface(m) )  THEN