Changeset 3246 for palm/trunk/SOURCE/radiation_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/radiation_model_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Added error handling for input namelist via parin_fail_message
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! unused variables removed or commented
 ! 
@@ -2787 +2790 @@
        line = ' '
        DO   WHILE ( INDEX( line, '&radiation_parameters' ) == 0 )
-          READ ( 11, '(A)', END=10 )  line
-       ENDDO
-       BACKSPACE ( 11 )
-
-!
-!--    Read user-defined namelist
-       READ ( 11, radiation_parameters )
-
-!
-!--    Set flag that indicates that the radiation model is switched on
-       radiation = .TRUE.
-       
-       GOTO 12
-!
-!--    Try to find old namelist
- 10    REWIND ( 11 )
-       line = ' '
-       DO   WHILE ( INDEX( line, '&radiation_par' ) == 0 )
           READ ( 11, '(A)', END=12 )  line
        ENDDO
@@ -2811 +2796 @@
 !
 !--    Read user-defined namelist
-       READ ( 11, radiation_par )
-       
+       READ ( 11, radiation_parameters, ERR = 10 )
+
+!
+!--    Set flag that indicates that the radiation model is switched on
+       radiation = .TRUE.
+
+       GOTO 14
+
+ 10    BACKSPACE( 11 )
+       READ( 11 ,fmt='(A)') line
+       CALL parin_fail_message ( 'radiation_parameters', line )
+!
+!--    Try to find old namelist
+ 12    REWIND ( 11 )
+       line = ' '
+       DO   WHILE ( INDEX( line, '&radiation_par' ) == 0 )
+          READ ( 11, '(A)', END=14 )  line
+       ENDDO
+       BACKSPACE ( 11 )
+
+!
+!--    Read user-defined namelist
+       READ ( 11, radiation_par, ERR = 13, END = 14 )
+
        message_string = 'namelist radiation_par is deprecated and will be ' // &
                      'removed in near future. Please use namelist ' //         &
@@ -2818 +2825 @@
        CALL message( 'radiation_parin', 'PA0487', 0, 1, 0, 6, 0 )
 
-       
 !
 !--    Set flag that indicates that the radiation model is switched on
@@ -2829 +2835 @@
        ENDIF
 
- 12    CONTINUE
+       GOTO 14
+
+ 13    BACKSPACE( 11 )
+       READ( 11 ,fmt='(A)') line
+       CALL parin_fail_message ( 'radiation_par', line )
+
+ 14    CONTINUE
        
     END SUBROUTINE radiation_parin