Changeset 3133 for palm

Timestamp:

Jul 16, 2018 11:46:50 AM (6 years ago)

Author:

maronga

Message:

bugfix for last commit

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix for last commit.
+! 
+! 3127 2018-07-15 08:01:25Z maronga
 ! Some adjustments for pavement parameters
 ! Limit magnus formula to avoid negative q_s (leads to model crash)
@@ -2285 +2288 @@
 !
 !--       Calculate water vapour pressure at saturation and convert to hPa
-          e_s = 0.01_wp * magnus( MIN(surf_t_surface%var_1d(m), 333.15_wp) )                   
+          e_s = 0.01_wp * magnus( MIN(surf_t_surface_p%var_1d(m), 333.15_wp) )                   
 
 !