Changeset 3248 for palm/trunk/SOURCE/urban_surface_mod.f90
- Timestamp:
- Sep 14, 2018 9:42:06 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/urban_surface_mod.f90
r3246 r3248 28 28 ! ----------------- 29 29 ! $Id$ 30 ! Minor formating changes 31 ! 32 ! 3246 2018-09-13 15:14:50Z sward 30 33 ! Added error handling for input namelist via parin_fail_message 31 34 ! … … 5359 5362 REWIND ( 11 ) 5360 5363 line = ' ' 5361 DO 5364 DO WHILE ( INDEX( line, '&urban_surface_parameters' ) == 0 ) 5362 5365 READ ( 11, '(A)', END=12 ) line 5363 5366 ENDDO … … 5375 5378 5376 5379 10 BACKSPACE( 11 ) 5377 READ( 11 , fmt='(A)') line5378 CALL parin_fail_message 5380 READ( 11 , '(A)') line 5381 CALL parin_fail_message( 'urban_surface_parameters', line ) 5379 5382 ! 5380 5383 !-- Try to find old namelist 5381 5384 12 REWIND ( 11 ) 5382 5385 line = ' ' 5383 DO 5386 DO WHILE ( INDEX( line, '&urban_surface_par' ) == 0 ) 5384 5387 READ ( 11, '(A)', END=14 ) line 5385 5388 ENDDO … … 5402 5405 5403 5406 13 BACKSPACE( 11 ) 5404 READ( 11 , fmt='(A)') line5405 CALL parin_fail_message 5407 READ( 11 , '(A)') line 5408 CALL parin_fail_message( 'urban_surface_par', line ) 5406 5409 5407 5410
Note: See TracChangeset
for help on using the changeset viewer.