Changeset 3246 for palm/trunk/SOURCE/synthetic_turbulence_generator_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/synthetic_turbulence_generator_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/synthetic_turbulence_generator_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
 ! 
@@ -967 +970 @@
     line = ' '
     DO WHILE ( INDEX( line, '&stg_par' ) == 0 )
-       READ ( 11, '(A)', END=10 )  line
+       READ ( 11, '(A)', END=20 )  line
     ENDDO
     BACKSPACE ( 11 )
@@ -973 +976 @@
 !
 !-- Read namelist
-    READ ( 11, stg_par )
+    READ ( 11, stg_par, ERR = 10, END = 20 )
 
 !
@@ -979 +982 @@
 !-- on
     syn_turb_gen = .TRUE.
-
-
- 10 CONTINUE
+    GOTO 20
+
+ 10 BACKSPACE( 11 )
+    READ( 11 ,fmt='(A)') line
+    CALL parin_fail_message ( 'stg_par', line )
+
+ 20 CONTINUE
 
  END SUBROUTINE stg_parin