Changeset 313 for palm/trunk/UTIL

Timestamp:

May 12, 2009 10:55:07 AM (16 years ago)

Author:

raasch

Message:

bugfix in interpret_config

File:

• palm/trunk/UTIL/interpret_config.f90 (modified) (6 diffs)

palm/trunk/UTIL/interpret_config.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! bugfix in WRITE (2010) statement
 ! mrun environment variables are read from NAMELIST instead of using GETENV.
 ! Variables are allways assigned a value, also if they already got one. These
@@ -42 +43 @@
                 iic = 0, iicf, iin = 0, iinput_list, il, ilocalhost,  ioc = 0, &
                 ios, iout = 0, ioutput_list, is1, is2, is2a, is2b, is2c,       &
-                is3, is3cond, is4, is5, is6, ivalue, ivar, izeile
+                is3, is3cond, is4, is5, is6, ivalue, ivar, izeile, linenr
 
     LOGICAL ::  found
@@ -53 +54 @@
     OPEN ( 1, FILE='.mrun_environment', FORM='FORMATTED' )
     READ ( 1, mrun_environment )
+    CLOSE ( 1 )
 
     icond1       = LEN_TRIM( cond1 )
@@ -82 +84 @@
 
     READ ( 1, '(A)', IOSTAT=ios )  zeile
+    linenr = 1
 
 
@@ -499 +502 @@
 !
 !--          Kein gueltiger Wert fuer I/O-Feld
-             WRITE (2,2010)  bs, bs, config_file(1:il), bs, bs, s2a(1:is2a), &
-                             bs, bs, bs, bs, bs, bs, bs
+             WRITE (2,2010)  bs, bs, config_file(1:il), linenr, bs, bs, &
+                             s2a(1:is2a), bs, bs, bs, bs, bs
  2010        FORMAT ('printf "',A,'n',A,'n +++ I/O-field in configuration ', &
-                     'file ',A, ' has the illegal"'/                         &
+                     'file ',A, ', line ', I5, ' has the illegal"'/          &
                      'printf "',A,'n     value ',A,'"',A,A,'". Only ',       &
                      A,'"in',A,'" or ',A,'"out',A,'" are allowed!"'          &
@@ -513 +516 @@
 
        READ( 1, '(A)', IOSTAT=ios )  zeile
+       linenr = linenr + 1
 
     ENDDO