Changeset 2282
- Timestamp:
- Jun 13, 2017 11:38:46 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/land_surface_model_mod.f90
r2273 r2282 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Bugfix for check of saturation moisture 28 ! 29 ! 2273 2017-06-09 12:46:06Z sward 27 30 ! Error number changed 28 31 ! … … 1221 1224 !-- saturation value. 1222 1225 DO k = nzb_soil, nzt_soil 1223 IF ( soil_moisture(k) > s oil_pars(4,soil_type)) THEN1226 IF ( soil_moisture(k) > saturation_moisture ) THEN 1224 1227 message_string = 'soil_moisture must not exceed its saturation' // & 1225 ' value'1226 CALL message( 'check_parameters', 'PA04 03', 1, 2, 0, 6, 0 )1228 ' value' 1229 CALL message( 'check_parameters', 'PA0458', 1, 2, 0, 6, 0 ) 1227 1230 ENDIF 1228 1231 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.