Changeset 3246 for palm/trunk/SOURCE/spectra_mod.f90

Timestamp:

Sep 13, 2018 3:14:50 PM (6 years ago)

Author:

sward

Message:

Added error handling for wrong input parameters

File:

• palm/trunk/SOURCE/spectra_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/spectra_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added error handling for input namelist via parin_fail_message
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! unused variables removed
 ! 
@@ -237 +240 @@
        line = ' '
        DO   WHILE ( INDEX( line, '&spectra_parameters' ) == 0 )
-          READ ( 11, '(A)', END=10 )  line
+          READ ( 11, '(A)', END=12 )  line
        ENDDO
        BACKSPACE ( 11 )
@@ -243 +246 @@
 !
 !--    Read namelist
-       READ ( 11, spectra_parameters )
+       READ ( 11, spectra_parameters, ERR = 10 )
 
 !
@@ -254 +257 @@
        calculate_spectra = .TRUE.
 
-       GOTO 12
+       GOTO 14
+
+ 10    BACKSPACE( 11 )
+       READ( 11 ,fmt='(A)') line
+       CALL parin_fail_message ( 'spectra_parameters', line )
 !
 !--    Try to find the old namelist
- 10    REWIND ( 11 )
+ 12    REWIND ( 11 )
        line = ' '
        DO   WHILE ( INDEX( line, '&spectra_par' ) == 0 )
-          READ ( 11, '(A)', END=12 )  line
+          READ ( 11, '(A)', END=14 )  line
        ENDDO
        BACKSPACE ( 11 )
@@ -266 +273 @@
 !
 !--    Read namelist
-       READ ( 11, spectra_par )
+       READ ( 11, spectra_par, ERR = 13, END = 14 )
 
        
@@ -282 +289 @@
        calculate_spectra = .TRUE.
        
+       GOTO 14
+
+ 13    BACKSPACE( 11 )
+       READ( 11 ,fmt='(A)') line
+       CALL parin_fail_message ( 'spectra_par', line )
        
- 12    CONTINUE
+       
+ 14    CONTINUE
 
     END SUBROUTINE spectra_parin