Changeset 1094 for palm/trunk/UTIL


Ignore:
Timestamp:
Feb 3, 2013 1:52:12 AM (11 years ago)
Author:
raasch
Message:

scp/ssh port can be set explicitly

File:
1 edited

Legend:

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

    r1047 r1094  
    1919!
    2020! Current revisions:
    21 ! -----------------
     21! ------------------
     22! unused variables removed
    2223!
    2324! Former revisions:
     
    6162                             for_cond1, for_cond2, for_host, input_list,     &
    6263                             iolist, output_list, s1, s2, s2a, s2b, s2c, s3, &
    63                              s3cond, s4, s5, s6, value, value_mrun, var, zeile
    64 
    65     INTEGER ::  dummy, i, icomment = 0, icond1, icond2, idatver = 0, iec = 0,  &
     64                             s3cond, s4, s5, s6, value, var, zeile
     65
     66    INTEGER ::  i, icomment = 0, icond1, icond2, idatver = 0, iec = 0,         &
    6667                ienvvar = 0, ifor_cond1, ifor_cond2, ifor_host, ihost,         &
    6768                iic = 0, iicf, iin = 0, iinput_list, il, ilocalhost,  ioc = 0, &
     
    231232             host  = value(1:ivalue)
    232233             ihost = ivalue
    233 
    234 !             IF ( host(1:ihost) /= localhost(1:ilocalhost) )  THEN
    235 !
    236 !                SELECT CASE ( value(1:ivalue) )
    237 !
    238 !                   CASE ( 'cray','hpcs','t3d','t3eb','t3eh','unics','vpp' )
    239 !
    240 !                      dummy = 1
    241 !
    242 !                   CASE DEFAULT
    243 !
    244 !                      WRITE (2,2202)  bs, bs, value(1:ivalue), bs, bs
    245 ! 2202                 FORMAT ('printf "',A,'n +++ Auf Zielrechner ',A,'"',A,A,'" ist kein NQS-System vorhanden"'/ &
    246 !                              'printf "',A,'n     Programmlauf kann deshalb nicht gestartet werden"'/ &
    247 !                              'locat=nqs; exit')
    248 !                      STOP
    249 !
    250 !                END SELECT
    251 !
    252 !             ENDIF
    253234
    254235          ENDIF
Note: See TracChangeset for help on using the changeset viewer.