Changeset 3248 for palm/trunk/SOURCE/spectra_mod.f90
- Timestamp:
- Sep 14, 2018 9:42:06 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/spectra_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 ! … … 239 242 REWIND ( 11 ) 240 243 line = ' ' 241 DO 244 DO WHILE ( INDEX( line, '&spectra_parameters' ) == 0 ) 242 245 READ ( 11, '(A)', END=12 ) line 243 246 ENDDO … … 260 263 261 264 10 BACKSPACE( 11 ) 262 READ( 11 , fmt='(A)') line263 CALL parin_fail_message 265 READ( 11 , '(A)') line 266 CALL parin_fail_message( 'spectra_parameters', line ) 264 267 ! 265 268 !-- Try to find the old namelist 266 269 12 REWIND ( 11 ) 267 270 line = ' ' 268 DO 271 DO WHILE ( INDEX( line, '&spectra_par' ) == 0 ) 269 272 READ ( 11, '(A)', END=14 ) line 270 273 ENDDO … … 292 295 293 296 13 BACKSPACE( 11 ) 294 READ( 11 , fmt='(A)') line295 CALL parin_fail_message 297 READ( 11 , '(A)') line 298 CALL parin_fail_message( 'spectra_par', line ) 296 299 297 300
Note: See TracChangeset
for help on using the changeset viewer.