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

Timestamp:

Feb 9, 2018 5:16:39 PM (6 years ago)

Author:

suehring

Message:

Bugfix initialization of %pt_surface array; Output of surface temperature also for default-type surfaces

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Minor bugfix for initialization of pt_surface
+! 
+! 2797 2018-02-08 13:24:35Z suehring
 ! Move output of ghf to general 2D output to output ghf also at urban-type 
 ! surfaces. 
@@ -4031 +4034 @@
 !--          layer
              IF ( surf_lsm_h%lambda_surface_s(m) == 0.0_wp )  THEN
-                t_surface_h%var_1d(:)    = t_soil_h%var_2d(nzb_soil,m)
+                t_surface_h%var_1d(m)    = t_soil_h%var_2d(nzb_soil,m)
                 surf_lsm_h%pt_surface(m) = t_soil_h%var_2d(nzb_soil,m) / exn
              ELSE