Changeset 3246 for palm/trunk/SOURCE/urban_surface_mod.f90
- Timestamp:
- Sep 13, 2018 3:14:50 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/urban_surface_mod.f90
r3241 r3246 28 28 ! ----------------- 29 29 ! $Id$ 30 ! Added error handling for input namelist via parin_fail_message 31 ! 32 ! 3241 2018-09-12 15:02:00Z raasch 30 33 ! unused variables removed 31 34 ! … … 5349 5352 soil_inner_temperature, & 5350 5353 window_inner_temperature 5354 5355 5356 5351 5357 ! 5352 5358 !-- Try to find urban surface model package … … 5354 5360 line = ' ' 5355 5361 DO WHILE ( INDEX( line, '&urban_surface_parameters' ) == 0 ) 5356 READ ( 11, '(A)', END=10 ) line5357 ENDDO5358 BACKSPACE ( 11 )5359 5360 !5361 !-- Read user-defined namelist5362 READ ( 11, urban_surface_parameters )5363 !5364 !-- Set flag that indicates that the land surface model is switched on5365 urban_surface = .TRUE.5366 5367 GOTO 125368 !5369 !-- Try to find old namelist5370 10 REWIND ( 11 )5371 line = ' '5372 DO WHILE ( INDEX( line, '&urban_surface_par' ) == 0 )5373 5362 READ ( 11, '(A)', END=12 ) line 5374 5363 ENDDO … … 5377 5366 ! 5378 5367 !-- Read user-defined namelist 5379 READ ( 11, urban_surface_par ) 5368 READ ( 11, urban_surface_parameters, ERR = 10 ) 5369 5370 ! 5371 !-- Set flag that indicates that the urban surface model is switched on 5372 urban_surface = .TRUE. 5373 5374 GOTO 14 5375 5376 10 BACKSPACE( 11 ) 5377 READ( 11 ,fmt='(A)') line 5378 CALL parin_fail_message ( 'urban_surface_parameters', line ) 5379 ! 5380 !-- Try to find old namelist 5381 12 REWIND ( 11 ) 5382 line = ' ' 5383 DO WHILE ( INDEX( line, '&urban_surface_par' ) == 0 ) 5384 READ ( 11, '(A)', END=14 ) line 5385 ENDDO 5386 BACKSPACE ( 11 ) 5387 5388 ! 5389 !-- Read user-defined namelist 5390 READ ( 11, urban_surface_par, ERR = 13, END = 14 ) 5380 5391 5381 5392 message_string = 'namelist urban_surface_par is deprecated and will be ' // & 5382 'removed in near future. Please use namelist ' // 5383 'urban_surface_parameters instead' 5393 'removed in near future. Please use namelist ' // & 5394 'urban_surface_parameters instead' 5384 5395 CALL message( 'usm_parin', 'PA0487', 0, 1, 0, 6, 0 ) 5385 ! 5386 !-- Set flag that indicates that the land surface model is switched on 5396 5397 ! 5398 !-- Set flag that indicates that the urban surface model is switched on 5387 5399 urban_surface = .TRUE. 5388 5400 5389 12 CONTINUE 5401 GOTO 14 5402 5403 13 BACKSPACE( 11 ) 5404 READ( 11 ,fmt='(A)') line 5405 CALL parin_fail_message ( 'urban_surface_par', line ) 5406 5407 5408 14 CONTINUE 5390 5409 5391 5410
Note: See TracChangeset
for help on using the changeset viewer.