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

palm/trunk/SOURCE/uv_exposure_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added error handling for input namelist via parin_fail_message and small
+! typo bugfix
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! unused variables removed
 ! 
@@ -449 +453 @@
     REWIND ( 11 )
     line = ' '
-    DO   WHILE ( INDEX( line, '&biometerology_parameters' ) == 0 )
-       READ ( 11, '(A)', END=10 )  line
+    DO   WHILE ( INDEX( line, '&biometeorology_parameters' ) == 0 )
+       READ ( 11, '(A)', END=20 )  line
     ENDDO
     BACKSPACE ( 11 )
@@ -456 +460 @@
 !
 !-- Read user-defined namelist
-    READ ( 11, biometeorology_parameters )
+    READ ( 11, biometeorology_parameters, ERR = 10, END = 20 )
 
 !
@@ -462 +466 @@
     uv_exposure = .TRUE.
 
-
- 10 CONTINUE
+ 10 BACKSPACE( 11 )
+    READ( 11 ,fmt='(A)') line
+    CALL parin_fail_message ( 'biometeorology_parameters', line )
+
+
+ 20 CONTINUE