Changeset 2282 for palm


Ignore:
Timestamp:
Jun 13, 2017 11:38:46 AM (7 years ago)
Author:
schwenkel
Message:

Bugfix check saturation moisture

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/land_surface_model_mod.f90

    r2273 r2282  
    2525! -----------------
    2626! $Id$
     27! Bugfix for check of saturation moisture
     28!
     29! 2273 2017-06-09 12:46:06Z sward
    2730! Error number changed
    2831!
     
    12211224!-- saturation value.
    12221225    DO  k = nzb_soil, nzt_soil
    1223        IF ( soil_moisture(k) > soil_pars(4,soil_type) )  THEN
     1226       IF ( soil_moisture(k) > saturation_moisture )  THEN
    12241227          message_string = 'soil_moisture must not exceed its saturation' // &
    1225                            ' value'
    1226           CALL message( 'check_parameters', 'PA0403', 1, 2, 0, 6, 0 )
     1228                            ' value'
     1229          CALL message( 'check_parameters', 'PA0458', 1, 2, 0, 6, 0 )
    12271230       ENDIF
    12281231    ENDDO
Note: See TracChangeset for help on using the changeset viewer.