Changeset 3248 for palm/trunk/SOURCE/virtual_flight_mod.f90
- Timestamp:
- Sep 14, 2018 9:42:06 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/virtual_flight_mod.f90
r3246 r3248 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Minor formating changes 28 ! 29 ! 3246 2018-09-13 15:14:50Z sward 27 30 ! Added error handling for input namelist via parin_fail_message 28 31 ! … … 252 255 REWIND ( 11 ) 253 256 line = ' ' 254 DO 257 DO WHILE ( INDEX( line, '&virtual_flight_parameters' ) == 0 ) 255 258 READ ( 11, '(A)', END=12 ) line 256 259 ENDDO … … 267 270 268 271 10 BACKSPACE( 11 ) 269 READ( 11 , fmt='(A)') line270 CALL parin_fail_message 272 READ( 11 , '(A)') line 273 CALL parin_fail_message( 'virtual_flight_parameters', line ) 271 274 ! 272 275 !-- Try to find the old namelist 273 276 12 REWIND ( 11 ) 274 277 line = ' ' 275 DO 278 DO WHILE ( INDEX( line, '&flight_par' ) == 0 ) 276 279 READ ( 11, '(A)', END=14 ) line 277 280 ENDDO … … 293 296 294 297 13 BACKSPACE( 11 ) 295 READ( 11 , fmt='(A)') line296 CALL parin_fail_message 298 READ( 11 , '(A)') line 299 CALL parin_fail_message( 'flight_par', line ) 297 300 298 301 14 CONTINUE
Note: See TracChangeset
for help on using the changeset viewer.