Changeset 3248 for palm/trunk/SOURCE/package_parin.f90
- Timestamp:
- Sep 14, 2018 9:42:06 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/package_parin.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 ! … … 315 318 20 BACKSPACE( 11 ) 316 319 READ( 11 ,fmt='(A)') line 317 CALL parin_fail_message 320 CALL parin_fail_message( 'dvrp_graphics_par', line ) 318 321 319 322 21 CONTINUE … … 340 343 341 344 10 BACKSPACE( 11 ) 342 READ( 11 , fmt='(A)') line343 CALL parin_fail_message 345 READ( 11 , '(A)') line 346 CALL parin_fail_message( 'particle_parameters', line ) 344 347 345 348 ! … … 347 350 12 REWIND ( 11 ) 348 351 line = ' ' 349 DO 352 DO WHILE ( INDEX( line, '&particles_par' ) == 0 ) 350 353 READ ( 11, '(A)', END=14 ) line 351 354 ENDDO … … 369 372 370 373 13 BACKSPACE( 11 ) 371 READ( 11 , fmt='(A)') line372 CALL parin_fail_message 374 READ( 11 , '(A)') line 375 CALL parin_fail_message( 'particles_par', line ) 373 376 374 377 14 CONTINUE
Note: See TracChangeset
for help on using the changeset viewer.