Changeset 3045 for palm/trunk/SOURCE/urban_surface_mod.f90
- Timestamp:
- May 28, 2018 7:55:41 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/urban_surface_mod.f90
r3029 r3045 28 28 ! ----------------- 29 29 ! $Id$ 30 ! Error message added 31 ! 32 ! 3029 2018-05-23 12:19:17Z raasch 30 33 ! bugfix: close unit 151 instead of 90 31 34 ! … … 320 323 USE radiation_model_mod, & 321 324 ONLY: albedo_type, radiation_interaction, calc_zenith, zenith, & 322 rad _sw_in, rad_lw_in, rad_sw_out, rad_lw_out,&325 radiation, rad_sw_in, rad_lw_in, rad_sw_out, rad_lw_out, & 323 326 sigma_sb, solar_constant, sun_direction, sun_dir_lat, & 324 327 sun_dir_lon, & … … 2303 2306 'bc_pt_b = "dirichlet" and '// & 2304 2307 'bc_q_b = "dirichlet"' 2305 CALL message( ' check_parameters', 'PA0590', 1, 2, 0, 6, 0 )2308 CALL message( 'usm_check_parameters', 'PA0590', 1, 2, 0, 6, 0 ) 2306 2309 ENDIF 2307 2310 … … 2309 2312 message_string = 'urban surface model requires '// & 2310 2313 'constant_flux_layer = .T.' 2311 CALL message( 'check_parameters', 'PA0591', 1, 2, 0, 6, 0 ) 2314 CALL message( 'usm_check_parameters', 'PA0084', 1, 2, 0, 6, 0 ) 2315 ENDIF 2316 2317 IF ( .NOT. radiation ) THEN 2318 message_string = 'urban surface model requires '// & 2319 'the radiation model to be switched on' 2320 CALL message( 'usm_check_parameters', 'PA0084', 1, 2, 0, 6, 0 ) 2312 2321 ENDIF 2313 2322 !
Note: See TracChangeset
for help on using the changeset viewer.