Changeset 3045 for palm/trunk/SOURCE/land_surface_model_mod.f90
- Timestamp:
- May 28, 2018 7:55:41 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/land_surface_model_mod.f90
r3026 r3045 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Error messages revised and added 28 ! 29 ! 3026 2018-05-22 10:30:53Z schwenkel 27 30 ! Changed the name specific humidity to mixing ratio, since we are computing 28 31 ! mixing ratios. … … 431 434 USE radiation_model_mod, & 432 435 ONLY: albedo, albedo_type, emissivity, force_radiation_call, & 433 radiation _scheme, unscheduled_radiation_calls436 radiation, radiation_scheme, unscheduled_radiation_calls 434 437 435 438 USE statistics, & … … 1274 1277 TRIM( surface_type ) /= 'water' .AND. & 1275 1278 TRIM( surface_type ) /= 'netcdf' ) THEN 1276 message_string = 'unknown surface type surface_type = "' //&1279 message_string = 'unknown surface type: surface_type = "' // & 1277 1280 TRIM( surface_type ) // '"' 1278 1281 CALL message( 'lsm_check_parameters', 'PA0019', 1, 2, 0, 6, 0 ) … … 1295 1298 CALL message( 'lsm_check_parameters', 'PA0400', 1, 2, 0, 6, 0 ) 1296 1299 ENDIF 1300 1301 IF ( .NOT. radiation ) THEN 1302 message_string = 'lsm requires '// & 1303 'the radiation model to be switched on' 1304 CALL message( 'lsm_check_parameters', 'PA0400', 1, 2, 0, 6, 0 ) 1305 ENDIF 1297 1306 1298 1307 IF ( TRIM( surface_type ) == 'vegetation' ) THEN … … 1380 1389 ' is not allowed in combination with ', & 1381 1390 'most_method = ', most_method 1382 CALL message( 'lsm_check_parameters', 'PA041 7', 1, 2, 0, 6, 0 )1391 CALL message( 'lsm_check_parameters', 'PA0414', 1, 2, 0, 6, 0 ) 1383 1392 ENDIF 1384 1393 … … 1426 1435 CALL message( 'lsm_check_parameters', 'PA0352', 1, 2, 0, 6, 0 ) 1427 1436 ENDIF 1428 1437 1429 1438 IF ( z0h_pavement == 9999999.9_wp ) THEN 1430 1439 message_string = 'pavement_type = 0 (user_defined)'// & … … 1630 1639 DO k = nzb_soil, nzt_soil-1 1631 1640 dz_soil_center(k) = zs(k+1) - zs(k) 1632 IF ( dz_soil_center(k) == 0.0_wp ) THEN1641 IF ( dz_soil_center(k) <= 0.0_wp ) THEN 1633 1642 message_string = 'invalid soil layer configuration found ' // & 1634 '(dz_soil_center(k) = 0.0)'1643 '(dz_soil_center(k) <= 0.0)' 1635 1644 CALL message( 'lsm_rrd_local', 'PA0140', 1, 2, 0, 6, 0 ) 1636 1645 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.