Changeset 4822 for palm/trunk/SOURCE/biometeorology_mod.f90

Timestamp:

Dec 11, 2020 2:18:43 PM (4 years ago)

Author:

raasch

Message:

reading of namelist file and actions in case of namelist errors revised so that statement labels and goto statements are not required any more

File:

• palm/trunk/SOURCE/biometeorology_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/biometeorology_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! reading of namelist file and actions in case of namelist errors revised so that statement labels
+! and goto statements are not required any more
+!
+! 4807 2020-12-02 21:02:28Z gronemeier
 ! Add checks for setup of UV exposure (only workaround!); corrected formatting errors.
 !
@@ -1383 +1387 @@
 !
 !-- Internal variables
-    CHARACTER (LEN=80) ::  line  !< Dummy string for current line in parameter file
+    CHARACTER (LEN=100) ::  line  !< Dummy string for current line in parameter file
+
+    INTEGER(iwp) ::  io_status   !< Status after reading the namelist file
 
     NAMELIST /biometeorology_parameters/  clothing,                                                &
@@ -1393 +1399 @@
                                           uv_exposure
 
-
-!-- Try to find biometeorology_parameters namelist
-    REWIND ( 11 )
-    line = ' '
-    DO WHILE ( INDEX( line, '&biometeorology_parameters' ) == 0 )
-       READ ( 11, '(A)', END = 20 )  line
-    ENDDO
-    BACKSPACE ( 11 )
-
-!
-!-- Read biometeorology_parameters namelist
-    READ ( 11, biometeorology_parameters, ERR = 10, END = 20 )
-
-!
-!-- Set flag that indicates that the biomet_module is switched on
-    biometeorology = .TRUE.
-
-    GOTO 20
-
-!
-!-- In case of error
- 10 BACKSPACE( 11 )
-    READ( 11 , '(A)') line
-    CALL parin_fail_message( 'biometeorology_parameters', line )
-
-!
-!-- Complete
- 20 CONTINUE
-
+!
+!-- Move to the beginning of the namelist file and try to find and read the namelist named
+!-- biometeorology_parameters.
+    REWIND( 11 )
+    READ( 11, biometeorology_parameters, IOSTAT=io_status )
+!
+!-- Action depending on the READ status
+    IF ( io_status == 0 )  THEN
+!
+!--    biometeorology_parameters namelist was found and read correctly. Set flag that
+!--    biometeorology_mod is switched on.
+       biometeorology = .TRUE.
+
+    ELSEIF ( io_status > 0 )  THEN
+!
+!--    biometeorology_parameters namelist was found, but contained errors. Print an error message
+!--    containing the line that caused the problem.
+       BACKSPACE( 11 )
+       READ( 11 , '(A)') line
+       CALL parin_fail_message( 'biometeorology_parameters', line )
+
+    ENDIF
 
  END SUBROUTINE bio_parin
+
 
 !--------------------------------------------------------------------------------------------------!