Changeset 1094 for palm/trunk/UTIL

Timestamp:

Feb 3, 2013 1:52:12 AM (12 years ago)

Author:

raasch

Message:

scp/ssh port can be set explicitly

File:

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

palm/trunk/UTIL/interpret_config.f90

@@ -19 +19 @@
 !
 ! Current revisions:
-! -----------------
+! ------------------
+! unused variables removed
 !
 ! Former revisions:
@@ -61 +62 @@
                              for_cond1, for_cond2, for_host, input_list,     &
                              iolist, output_list, s1, s2, s2a, s2b, s2c, s3, &
-                             s3cond, s4, s5, s6, value, value_mrun, var, zeile
-
-    INTEGER ::  dummy, i, icomment = 0, icond1, icond2, idatver = 0, iec = 0,  &
+                             s3cond, s4, s5, s6, value, var, zeile
+
+    INTEGER ::  i, icomment = 0, icond1, icond2, idatver = 0, iec = 0,         &
                 ienvvar = 0, ifor_cond1, ifor_cond2, ifor_host, ihost,         &
                 iic = 0, iicf, iin = 0, iinput_list, il, ilocalhost,  ioc = 0, &
@@ -231 +232 @@
              host  = value(1:ivalue)
              ihost = ivalue
-
-!             IF ( host(1:ihost) /= localhost(1:ilocalhost) )  THEN
-!
-!                SELECT CASE ( value(1:ivalue) )
-!
-!                   CASE ( 'cray','hpcs','t3d','t3eb','t3eh','unics','vpp' )
-!
-!                      dummy = 1
-!
-!                   CASE DEFAULT
-!
-!                      WRITE (2,2202)  bs, bs, value(1:ivalue), bs, bs
-! 2202                 FORMAT ('printf "',A,'n +++ Auf Zielrechner ',A,'"',A,A,'" ist kein NQS-System vorhanden"'/ &
-!                              'printf "',A,'n     Programmlauf kann deshalb nicht gestartet werden"'/ &
-!                              'locat=nqs; exit')
-!                      STOP
-!
-!                END SELECT
-!
-!             ENDIF
 
           ENDIF