Changeset 4842 for palm/trunk/SOURCE/indoor_model_mod.f90

Timestamp:

Jan 14, 2021 10:42:28 AM (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, deprecated namelists removed

File:

• palm/trunk/SOURCE/indoor_model_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/indoor_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $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
+!
+! 4828 2021-01-05 11:21:41Z Giersch
 ! Change parameters for summer_pars and winter_pars (responsible: S. Rissmann)
 !
@@ -1903 +1907 @@
         CASE ( 'im_t_indoor_wall_win' )
            unit = 'K'
-           
+
         CASE ( 'im_t_indoor_wall' )
            unit = 'K'
@@ -2123 +2127 @@
 
 
-    CHARACTER (LEN=80) ::  line  !< string containing current line of file PARIN
+    CHARACTER(LEN=100) ::  line  !< string containing current line of file PARIN
+
+    INTEGER(iwp)  ::  io_status  !< status after reading the namelist file
+
 
     NAMELIST /indoor_parameters/  indoor_during_spinup,                                            &
                                   initial_indoor_temperature
 
-
-!
-!-- Try to find indoor model package
-    REWIND ( 11 )
-    line = ' '
-    DO  WHILE ( INDEX( line, '&indoor_parameters' ) == 0 )
-       READ ( 11, '(A)', END=10 )  line
-    ENDDO
-    BACKSPACE ( 11 )
-
-!
-!-- Read user-defined namelist
-    READ ( 11, indoor_parameters )
-!
-!-- Set flag that indicates that the indoor model is switched on
-    indoor_model = .TRUE.
+!
+!-- Move to the beginning of the namelist file and try to find and read the namelist.
+    REWIND( 11 )
+    READ( 11, indoor_parameters, IOSTAT=io_status )
+
+!
+!-- Action depending on the READ status
+    IF ( io_status == 0 )  THEN
+!
+!--    indoor_parameters namelist was found and read correctly. Set flag that indicates that the
+!--    indoor model is switched on.
+       indoor_model = .TRUE.
+
+    ELSEIF ( io_status > 0 )  THEN
+!
+!--    indoor_parameters namelist was found, but contained errors. Print an error message including
+!--    the line that caused the problem.
+       BACKSPACE( 11 )
+       READ( 11 , '(A)' ) line
+       CALL parin_fail_message( 'indoor_parameters', line )
+
+    ENDIF
 
 !
@@ -2156 +2169 @@
 !        ENDIF
 
- 10 CONTINUE
-
  END SUBROUTINE im_parin