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

Timestamp:

Feb 4, 2019 5:34:55 PM (6 years ago)

Author:

suehring

Message:

Revise check for saturation moisture

File:

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

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Revise check for saturation moisture
+! 
+! 3710 2019-01-30 18:11:19Z suehring
 ! Check if soil-, water-, pavement- and vegetation types are set within a valid
 ! range.
@@ -4543 +4546 @@
                   surf_lsm_h%pavement_surface(m) )  THEN
                 DO  k = nzb_soil, nzt_soil
-                   IF ( m_soil_h%var_2d(k,m) >= surf_lsm_h%m_sat(k,m) )  THEN
+                   IF ( m_soil_h%var_2d(k,m) > surf_lsm_h%m_sat(k,m) )  THEN
                       WRITE( message_string, * ) 'soil moisture is higher '//  &
                             'than its saturation value at (k,j,i) ', k,        &
@@ -4557 +4560 @@
                      surf_lsm_v(l)%pavement_surface(m) )  THEN
                    DO  k = nzb_soil, nzt_soil
-                      IF ( m_soil_v(l)%var_2d(k,m) >= surf_lsm_v(l)%m_sat(k,m) )  &
+                      IF ( m_soil_v(l)%var_2d(k,m) > surf_lsm_v(l)%m_sat(k,m) )  &
                       THEN
                          WRITE( message_string, * )                               &