Changeset 3247 for palm/trunk

Timestamp:

Sep 14, 2018 7:06:30 AM (6 years ago)

Author:

sward

Message:

parin_fail_message now also outputs the line number at which namelist reading failed

File:

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

palm/trunk/SOURCE/message.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Subroutine description updated and parin_fail_message now also outputs
+! the line number in which namelist reading failed
+! 
+! 3246 2018-09-13 15:14:50Z sward
 ! Added SUBROUTINE parin_fail_message for error handling of input namelists
 ! 
@@ -296 +300 @@
 ! Description:
 ! ------------
-!> Prints out the given location on stdout
+!> Abort routine for failures durin reading of namelists
 !------------------------------------------------------------------------------!
  
@@ -304 +308 @@
         ONLY:  message_string
 
+    USE kinds
+
     IMPLICIT NONE
 
@@ -309 +315 @@
     CHARACTER(LEN=*) ::  line
 
-    message_string = 'Error(s) in NAMELIST '// TRIM(location) //                 &
-                     '&Reading fails at& '// line
+    CHARACTER(LEN=80) ::  line_dum
+
+    INTEGER(iwp) ::  line_counter
+
+    line_dum = ' '
+    line_counter = 0
+
+    REWIND( 11 )
+    DO   WHILE ( INDEX( line_dum, TRIM(line) ) == 0 )
+         READ ( 11, '(A)', END=20 )  line_dum
+         line_counter = line_counter + 1
+    ENDDO
+
+ 20 WRITE( message_string, '(A,I3,A)' )                                        &
+                   'Error(s) in NAMELIST '// TRIM(location) //                 &
+                   '&Reading fails on line ', line_counter,                    &
+                   ' at&' // line
           CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )