Changeset 3246 for palm/trunk/SOURCE/chemistry_model_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/chemistry_model_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Added error handling for input namelist via parin_fail_message
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! +nest_chemistry
 ! 
@@ -867 +870 @@
       line = ' '
       DO   WHILE ( INDEX( line, '&chemistry_parameters' ) == 0 )
-         READ ( 11, '(A)', END=10 )  line
+         READ ( 11, '(A)', END=20 )  line
       ENDDO
       BACKSPACE ( 11 )
 !
 !--   Read chemistry namelist
-      READ ( 11, chemistry_parameters )                          
+      READ ( 11, chemistry_parameters, ERR = 10, END = 20 )
 !
 !--   Enable chemistry model
-      air_chemistry = .TRUE.                    
-
-      
- 10   CONTINUE
+      air_chemistry = .TRUE.
+      GOTO 20
+
+ 10   BACKSPACE( 11 )
+      READ( 11 ,fmt='(A)') line
+      CALL parin_fail_message ( 'chemistry_parameters', line )
+
+ 20   CONTINUE
 
       t_steps = my_steps          !(todo: Why not directly make t_steps a