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

palm/trunk/SOURCE/multi_agent_system_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
 ! 
@@ -3775 +3778 @@
 !
 !--    Read user-defined namelist
-       READ ( 11, agent_parameters )
+       READ ( 11, agent_parameters, ERR = 10, END = 20 )
 
 !
 !--    Set flag that indicates that agents are switched on
        agents_active = .TRUE.
+       GOTO 20
+
+ 10    BACKSPACE( 11 )
+       READ( 11 ,fmt='(A)') line
+       CALL parin_fail_message ( 'agent_parameters', line )
 
  20    CONTINUE