Ignore:
Timestamp:
May 12, 2009 10:55:07 AM (12 years ago)
Author:
raasch
Message:

bugfix in interpret_config

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/interpret_config.f90

    r72 r313  
    44! Actual revisions:
    55! -----------------
     6! bugfix in WRITE (2010) statement
    67! mrun environment variables are read from NAMELIST instead of using GETENV.
    78! Variables are allways assigned a value, also if they already got one. These
     
    4243                iic = 0, iicf, iin = 0, iinput_list, il, ilocalhost,  ioc = 0, &
    4344                ios, iout = 0, ioutput_list, is1, is2, is2a, is2b, is2c,       &
    44                 is3, is3cond, is4, is5, is6, ivalue, ivar, izeile
     45                is3, is3cond, is4, is5, is6, ivalue, ivar, izeile, linenr
    4546
    4647    LOGICAL ::  found
     
    5354    OPEN ( 1, FILE='.mrun_environment', FORM='FORMATTED' )
    5455    READ ( 1, mrun_environment )
     56    CLOSE ( 1 )
    5557
    5658    icond1       = LEN_TRIM( cond1 )
     
    8284
    8385    READ ( 1, '(A)', IOSTAT=ios )  zeile
     86    linenr = 1
    8487
    8588
     
    499502!
    500503!--          Kein gueltiger Wert fuer I/O-Feld
    501              WRITE (2,2010)  bs, bs, config_file(1:il), bs, bs, s2a(1:is2a), &
    502                              bs, bs, bs, bs, bs, bs, bs
     504             WRITE (2,2010)  bs, bs, config_file(1:il), linenr, bs, bs, &
     505                             s2a(1:is2a), bs, bs, bs, bs, bs
    503506 2010        FORMAT ('printf "',A,'n',A,'n +++ I/O-field in configuration ', &
    504                      'file ',A, ' has the illegal"'/                         &
     507                     'file ',A, ', line ', I5, ' has the illegal"'/          &
    505508                     'printf "',A,'n     value ',A,'"',A,A,'". Only ',       &
    506509                     A,'"in',A,'" or ',A,'"out',A,'" are allowed!"'          &
     
    513516
    514517       READ( 1, '(A)', IOSTAT=ios )  zeile
     518       linenr = linenr + 1
    515519
    516520    ENDDO
Note: See TracChangeset for help on using the changeset viewer.