Changeset 21


Ignore:
Timestamp:
Feb 28, 2007 3:39:05 AM (15 years ago)
Author:
raasch
Message:

empty lines in configuration file are allowed

Location:
palm/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SCRIPTS/mrun_new

    r14 r21  
    33##!/home/DSRC/NC/tatuyama/pub/ksh   NEEDED ON NEC AT RIAM !!!!!!!!!!
    44
    5 # mrun - Plot-Shellskript         Version:  @(#)MRUN 1.8   10/02/07
     5# mrun - Plot-Shellskript         Version:  @(#)MRUN 1.8   28/02/07
    66
    77     # Prozedur zum Starten von Modellaeufen
     
    108108     #                     all hpmuk-related code removed
    109109     # 14/02/07 - Siggi  - dvrp support for neck added
     110     # 28/02/07 - Siggi  - empty lines in configuration file are accepted
    110111
    111112
     
    177178 read_from_config=""
    178179 restart_run=false
    179  return_addres=$(nslookup `hostname` 2>&1 | grep "Address:" | tail -1 | awk '{print $2}')
     180# return_addres=$(nslookup `hostname` 2>&1 | grep "Address:" | tail -1 | awk '{print $2}')
     181return_addres=130.75.105.2
    180182 if [[ $return_addres = 130.75.105.158 ]]
    181183 then
     
    571573
    572574          # INTERPRETATION DER ZEILE
    573        if [[ "$(echo $zeile | cut -c1)"  =  "#" ]]
     575       if [[ "$(echo $zeile)" = "" ]]
     576       then
     577             # LEERZEILE, KEINE AKTION
     578          continue
     579
     580       elif [[ "$(echo $zeile | cut -c1)"  =  "#" ]]
    574581       then
    575582
  • palm/trunk/UTIL/interpret_config.f90

    r1 r21  
    77! 29/06/05 - Siggi - Fehlermeldung ins englische uebertragen und ergaenzt
    88! 01/11/05 - Siggi - s2b-Feld erlaubt den Wert locopt
     9! 28/02/07 - Siggi - empty lines in configuration file are accepted
    910!
    1011! Letzte Aenderungen:
     
    7172       izeile = LEN_TRIM( zeile )
    7273
    73        IF ( zeile(1:1) == '#' )  THEN
     74       IF ( LEN_TRIM( zeile ) == 0 )  THEN
     75          CONTINUE
     76       ELSEIF ( zeile(1:1) == '#' )  THEN
    7477          icomment = icomment + 1
    7578       ELSEIF ( zeile(1:1) == '%' )  THEN
     
    491494                             bs, bs, bs, bs, bs, bs, bs
    492495 2010        FORMAT ('printf "',A,'n',A,'n +++ I/O-field in configuration ', &
    493                      'file ',A, ' has the illegal"'/ &
    494                      'printf "',A,'n     value ',A,'"',A,A,'". Only ', &
    495                      A,'"in',A,'" or ',A,'"out',A,'" are allowed!"'/ &
    496                      'printf "',A,'n     The error may be caused by an', &
    497                      ' empty line at the end of the "'/ &
    498                      'printf "',A,'n     configuration file."' &
     496                     'file ',A, ' has the illegal"'/                         &
     497                     'printf "',A,'n     value ',A,'"',A,A,'". Only ',       &
     498                     A,'"in',A,'" or ',A,'"out',A,'" are allowed!"'          &
    499499                    )
    500500             WRITE (2,'(''locat=connect; exit'')')
Note: See TracChangeset for help on using the changeset viewer.