Changes in palm/trunk/UTIL/interpret_config.f90 [21:1]

File:

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

palm/trunk/UTIL/interpret_config.f90

@@ -7 +7 @@
 ! 29/06/05 - Siggi - Fehlermeldung ins englische uebertragen und ergaenzt
 ! 01/11/05 - Siggi - s2b-Feld erlaubt den Wert locopt
-! 28/02/07 - Siggi - empty lines in configuration file are accepted
 !
 ! Letzte Aenderungen:
@@ -72 +71 @@
        izeile = LEN_TRIM( zeile )
 
-       IF ( LEN_TRIM( zeile ) == 0 )  THEN
-          CONTINUE
-       ELSEIF ( zeile(1:1) == '#' )  THEN
+       IF ( zeile(1:1) == '#' )  THEN
           icomment = icomment + 1
        ELSEIF ( zeile(1:1) == '%' )  THEN
@@ -494 +491 @@
                              bs, bs, bs, bs, bs, bs, bs
  2010        FORMAT ('printf "',A,'n',A,'n +++ I/O-field in configuration ', &
-                     'file ',A, ' has the illegal"'/                         &
-                     'printf "',A,'n     value ',A,'"',A,A,'". Only ',       &
-                     A,'"in',A,'" or ',A,'"out',A,'" are allowed!"'          &
+                     'file ',A, ' has the illegal"'/ &
+                     'printf "',A,'n     value ',A,'"',A,A,'". Only ', &
+                     A,'"in',A,'" or ',A,'"out',A,'" are allowed!"'/ &
+                     'printf "',A,'n     The error may be caused by an', &
+                     ' empty line at the end of the "'/ &
+                     'printf "',A,'n     configuration file."' &
                     )
              WRITE (2,'(''locat=connect; exit'')')