Changeset 2282 for palm

Timestamp:

Jun 13, 2017 11:38:46 AM (7 years ago)

Author:

schwenkel

Message:

Bugfix check saturation moisture

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 check of saturation moisture
+! 
+! 2273 2017-06-09 12:46:06Z sward
 ! Error number changed
 ! 
@@ -1221 +1224 @@
 !-- saturation value. 
     DO  k = nzb_soil, nzt_soil
-       IF ( soil_moisture(k) > soil_pars(4,soil_type) )  THEN 
+       IF ( soil_moisture(k) > saturation_moisture )  THEN 
           message_string = 'soil_moisture must not exceed its saturation' // &
-                           ' value'
-          CALL message( 'check_parameters', 'PA0403', 1, 2, 0, 6, 0 )
+                            ' value'
+          CALL message( 'check_parameters', 'PA0458', 1, 2, 0, 6, 0 )
        ENDIF
     ENDDO