Changeset 69


Ignore:
Timestamp:
Mar 18, 2007 11:44:44 PM (15 years ago)
Author:
raasch
Message:

scripts are running under pdksh

Location:
palm/trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SCRIPTS/mbuild

    r67 r69  
    8484     # 14/03/07 - Siggi - fimm admitted, revision number added to terminal
    8585     #                    output
     86     # 16/03/07 - Siggi - adjustments (netcdf) for lctit
     87     #                    adjustments for running under pdksh, local ip-addres
     88     #                    is not determined any more
    8689
    8790
     
    113116    # FEHLERBEHANDLUNG
    114117    # BEI EXIT:
    115  trap 'if [[ $locat != normal ]]
     118 trap 'rm -rf  tmp_mbuild
     119       if [[ $locat != normal ]]
    116120       then
    117121          printf "\n\n +++ mbuild killed \n\n"
     
    122126
    123127    # BEI TERMINAL-BREAK:
    124  trap 'printf "\n\n +++ mbuild killed by \"^C\" \n\n"
     128 trap 'rm -rf  tmp_mbuild
     129       printf "\n\n +++ mbuild killed by \"^C\" \n\n"
    125130       exit
    126131      ' 2
     
    156161    # LOKALEN RECHNER ERMITTELN
    157162 local_host_real_name=$(hostname)
    158  local_addres=$(nslookup `hostname` 2>&1 | grep "Address:" | tail -1 | awk '{print $2}')
     163# local_addres=$(nslookup `hostname` 2>&1 | grep "Address:" | tail -1 | awk '{print $2}')
     164
    159165 case  $local_host_real_name  in
    160166     (atmos)                    local_host=lcide;;
     
    163169     (fimm.bccs.uib.no)         local_host=lcmuk;;
    164170     (gate)                     local_host=neck;;
    165      (gfdl3.yonsei.ac.kr)       local_host=decalpha; local_addres=165.132.26.56;;
    166      (gfdl5)                    local_host=ibmy; local_addres=165.132.26.58;;
     171     (gfdl3.yonsei.ac.kr)       local_host=decalpha;;
     172     (gfdl5)                    local_host=ibmy;;
    167173     (gwdk081.gwdg.de)          local_host=ibm;;
    168174     (hreg01a-en0|hreg02a-en0)  local_host=ibmh;;
     
    200206    # BENUTZERNAMEN AUF LOKALEM RECHNER AUS KONFIGURATIONSDATEI ERMITTELN
    201207 line=""
    202  grep  " $local_host" $config_file | grep "%remote_username"  |  while read line
     208 grep  " $local_host" $config_file | grep "%remote_username"  >  tmp_mbuild
     209 while read line
    203210 do
    204211    if [[ "$line" != ""  ||  $(echo $line | cut -c1) != "#" ]]
     
    206213       local_username=`echo $line | cut -d" " -s -f2`
    207214    fi
    208  done
     215 done < tmp_mbuild
    209216
    210217 if [[ "$local_username" = "" ]]
     
    222229    # VARIABLEN SETZEN, WEIL DIESE EVTL. IN PFADNAMEN VERWENDET WERDEN
    223230 line=""
    224  grep "%" $config_file  |  while read line
     231 grep "%" $config_file  >  tmp_mbuild
     232 while read line
    225233 do
    226234    if [[ "$line" != ""  &&  "$(echo $line | cut -d" " -s -f3)" = "" ]]
     
    231239#       eval echo \"   $var=\$$var \"   # AUSGABE ZU TESTZWECKEN
    232240    fi
    233  done
     241 done < tmp_mbuild
    234242
    235243    # NUN PRUEFEN, OB EIN GLOBALER QUELLTEXTPFAD VEREINBART WURDE
    236244 line=""
    237  grep "%source_path" $config_file  |  while read line
     245 grep "%source_path" $config_file  >  tmp_mbuild
     246 while read line
    238247 do
    239248    if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
     
    244253       fi
    245254    fi
    246  done
     255 done < tmp_mbuild
    247256
    248257 line=""
    249  grep  " $local_host" $config_file | grep "%source_path"  |  while read line
     258 grep  " $local_host" $config_file | grep "%source_path"  >  tmp_mbuild
     259 while read line
    250260 do
    251261    if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
     
    253263       local_source_path=`echo $line | cut -d" " -s -f2`
    254264    fi
    255  done
     265 done < tmp_mbuild
    256266
    257267 if [[ "$local_source_path" = "" ]]
     
    273283     # EBENSO PFAD FUER DAS MAKE-DEPOSITORY ERMITTELN
    274284 line=""
    275  grep "%depository_path" $config_file  |  while read line
     285 grep "%depository_path" $config_file  >  tmp_mbuild
     286 while read line
    276287 do
    277288    if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
     
    282293       fi
    283294    fi
    284  done
     295 done < tmp_mbuild
    285296
    286297 line=""
    287  grep  " $local_host" $config_file | grep "%depository_path"  |  while read line
     298 grep  " $local_host" $config_file | grep "%depository_path"  >  tmp_mbuild
     299 while read line
    288300 do
    289301    if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
     
    291303       local_depository_path=`echo $line | cut -d" " -s -f2`
    292304    fi
    293  done
     305 done < tmp_mbuild
    294306
    295307 if [[ "$local_depository_path" = "" ]]
     
    628640 printf "\n  *** scanning configuration file for host(s) ..."
    629641
    630  grep  %fopts  $config_file  |  while read line
     642 grep  %fopts  $config_file  >  tmp_mbuild
     643 while read line
    631644 do
    632645       # KOMMENTARZEILEN UEBERSPRINGEN
     
    634647    (( ihost = ihost + 1 ))
    635648    hostline[$ihost]="$line"
    636  done
     649 done < tmp_mbuild
    637650
    638651 
     
    699712                         fi;;
    700713        (lctit)          remote_addres=172.17.75.161; netcdf_support=true
    701                          netcdf_path=/home/usr5/mkanda/netcdf-3.6.1/src; cpp_options="-Mpreprocess";;
     714                         netcdf_path=/home/usr5/mkanda/netcdf-3.6.2; cpp_options="-Mpreprocess";;
    702715        (decalpha)       remote_addres=165.132.26.56; cpp_options="-cpp"; netcdf_support=true
    703716                         netcdf_path=/usr/local/netcdf-3.5.1;;
     
    728741       # REMOTE-USERNAMEN ERMITTELN
    729742    line=""
    730     grep  "$remote_host_string" $config_file | grep "%remote_username"  |  while read line1
     743    grep  "$remote_host_string" $config_file | grep "%remote_username"  >  tmp_mbuild
     744    while read line1
    731745    do
    732746       if [[ $(echo $line1 | cut -d" " -s -f3-) = "$remote_host_string" ]]
     
    734748          line="$line1"
    735749       fi
    736     done
     750    done < tmp_mbuild
    737751
    738752    if [[ "$line" = ""  ||  $(echo $line | cut -c1) = "#" ]]
     
    749763    line=""
    750764    remote_source_path=""
    751     grep  "$remote_host_string" $config_file | grep "%source_path"  |  while read line1
     765    grep  "$remote_host_string" $config_file | grep "%source_path"  >  tmp_mbuild
     766    while read line1
    752767    do
    753768       if [[ $(echo $line1 | cut -d" " -s -f3-) = "$remote_host_string" ]]
     
    755770          line="$line1"
    756771       fi
    757     done
     772    done < tmp_mbuild
    758773
    759774    if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
     
    780795    remote_md=""
    781796    line=""
    782     grep  "$remote_host_string" $config_file | grep "%depository_path"  |  while read line1
     797    grep  "$remote_host_string" $config_file | grep "%depository_path"  >  tmp_mbuild
     798    while read line1
    783799    do
    784800       if [[ $(echo $line1 | cut -d" " -s -f3-) = "$remote_host_string" ]]
     
    786802          line="$line1"
    787803       fi
    788     done
     804    done < tmp_mbuild
    789805
    790806    if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
     
    810826       # COMPILERNAMEN ERMITTELN
    811827    line=""
    812     grep  "$remote_host_string" $config_file | grep "%compiler_name "  |  while read line1
     828    grep  "$remote_host_string" $config_file | grep "%compiler_name "  >  tmp_mbuild
     829    while read line1
    813830    do
    814831       if [[ $(echo $line1 | cut -d" " -s -f3-) = "$remote_host_string" ]]
     
    816833          line="$line1"
    817834       fi
    818     done
     835    done < tmp_mbuild
    819836
    820837    if [[ "$line" = ""  ||  $(echo $line | cut -c1) = "#" ]]
     
    833850    then
    834851       line=""
    835        grep  "$remote_host_string" $config_file | grep "%compiler_name_ser"  |  while read line1
     852       grep  "$remote_host_string" $config_file | grep "%compiler_name_ser"  >  tmp_mbuild
     853       while read line1
    836854       do
    837855          if [[ $(echo $line1 | cut -d" " -s -f3-) = "$remote_host_string" ]]
     
    839857             line="$line1"
    840858          fi
    841        done
     859       done < tmp_mbuild
    842860
    843861       if [[ "$line" = ""  ||  $(echo $line | cut -c1) = "#" ]]
     
    923941       # COMPILEROPTIONEN ERMITTELN
    924942    line=""
    925     grep  "$remote_host_string" $config_file | grep "%fopts"  |  while read line1
     943    grep  "$remote_host_string" $config_file | grep "%fopts"  >  tmp_mbuild
     944    while read line1
    926945    do
    927946       if [[ $(echo $line1 | cut -d" " -s -f3-) = "$remote_host_string" ]]
     
    929948          line="$line1"
    930949       fi
    931     done
     950    done < tmp_mbuild
    932951    if [[ "$line" = ""  ||  $(echo $line | cut -c1) = "#" ]]
    933952    then
     
    947966          (ibmy)      compiler_options="-I ${netcdf_path}/include  $compiler_options";;
    948967          (lcmuk)     compiler_options="-I ${netcdf_path}/include  $compiler_options";;
    949           (lctit)     compiler_options="-I ${netcdf_path}/f90      $compiler_options";;
     968          (lctit)     compiler_options="-I ${netcdf_path}/include  $compiler_options";;
    950969          (nech|neck) compiler_options="-I ${netcdf_path}/include  $compiler_options";;
    951970       esac
     
    956975       # LADER-OPTIONEN ERMITTELN
    957976    line=""
    958     grep  "$remote_host_string" $config_file | grep "%lopts"  |  while read line1
     977    grep  "$remote_host_string" $config_file | grep "%lopts"  >  tmp_mbuild
     978    while read line1
    959979    do
    960980       if [[ $(echo $line1 | cut -d" " -s -f3-) = "$remote_host_string" ]]
     
    962982          line="$line1"
    963983       fi
    964     done
     984    done < tmp_mbuild
    965985
    966986    if [[ "$line" = ""  ||  $(echo $line | cut -c1) = "#" ]]
     
    9801000          (ibms)                       loader_options="$loader_options -L${netcdf_path} -lnetcdf";;
    9811001          (ibmy)                       loader_options="$loader_options -L${netcdf_path}/lib -lnetcdf";;
    982           (lctit)                      loader_options="$loader_options -L${netcdf_path}/libsrc -lnetcdf";;
     1002          (lctit)                      loader_options="$loader_options -L${netcdf_path}/lib -lnetcdf";;
    9831003       esac
    9841004    fi
  • palm/trunk/SCRIPTS/mrun

    r68 r69  
    1 #!/bin/ksh
     1#!/bin/pdksh
    22
    33##!/home/DSRC/NC/tatuyama/pub/ksh   NEEDED ON NEC AT RIAM !!!!!!!!!!
     
    114114     # 14/03/07 - Siggi  - fimm admitted, revision number added to terminal
    115115     #                     output
     116     # 16/03/07 - Siggi  - adjustments for lctit
    116117
    117118
     
    184185 read_from_config=""
    185186 restart_run=false
    186  return_addres=$(nslookup `hostname` 2>&1 | grep "Address:" | tail -1 | awk '{print $2}')
     187# return_addres=$(nslookup `hostname` 2>&1 | grep "Address:" | tail -1 | awk '{print $2}')
     188 return_addres=1.2.3.4
    187189 if [[ $return_addres = 130.75.105.158 ]]
    188190 then
     
    246248    # FEHLERBEHANDLUNG
    247249    # BEI EXIT:
    248  trap 'if [[ $locat != localhost ]]
     250 trap 'rm -rf  tmp_mrun
     251       if [[ $locat != localhost ]]
    249252       then
    250253#          if [[ ! -f ${mrun_path}/statistik/mrun_statistik ]]
     
    271274#             fi
    272275#          fi
    273           continue
     276          echo " " > /dev/null
    274277       fi
    275278
     
    308311
    309312    # BEI TERMINAL-BREAK:
    310  trap '[[ $tmpcreate = true ]]  &&  (cd; rm -rf $TEMPDIR)
     313 trap 'rm -rf  tmp_mrun
     314       [[ $tmpcreate = true ]]  &&  (cd; rm -rf $TEMPDIR)
    311315       if [[ -f ~/job_queue/JOBINFO.$QSUB_REQID ]]
    312316       then
     
    520524 if [[ -n $additional_conditions ]]
    521525 then
    522     echo $additional_conditions | cut -d" " -f1-3 | read  cond1  cond2  dummy
    523 #    cond1=`echo $additional_conditions | cut -d" " -f1`
    524 #    cond2=`echo $additional_conditions | cut -d" " -s -f2`
    525 #    dummy=`echo $additional_conditions | cut -d" " -s -f3`
     526#    echo $additional_conditions | cut -d" " -f1-3 | read  cond1  cond2  dummy
     527    cond1=`echo $additional_conditions | cut -d" " -f1`
     528    cond2=`echo $additional_conditions | cut -d" " -s -f2`
     529    dummy=`echo $additional_conditions | cut -d" " -s -f3`
    526530    if [[ -n $dummy ]]
    527531    then
     
    592596             # ZEILE DEFINIERT ENVIRONMENT-VARIABLE
    593597          zeile=$(echo $zeile | cut -c2-)
    594           echo $zeile | cut -d" " -f1-5 | read  var  value  for_host  for_cond1  for_cond2
    595 #          var=`echo $zeile | cut -d" " -f1`
    596 #          value=`echo $zeile | cut -d" " -s -f2`
    597 #          for_host=`echo $zeile | cut -d" " -s -f3`
    598 #          for_cond1=`echo $zeile | cut -d" " -s -f4`
    599 #          for_cond2=`echo $zeile | cut -d" " -s -f5`
     598#          echo $zeile | cut -d" " -f1-5 | read  var  value  for_host  for_cond1  for_cond2
     599          var=`echo $zeile | cut -d" " -f1`
     600          value=`echo $zeile | cut -d" " -s -f2`
     601          for_host=`echo $zeile | cut -d" " -s -f3`
     602          for_cond1=`echo $zeile | cut -d" " -s -f4`
     603          for_cond2=`echo $zeile | cut -d" " -s -f5`
    600604
    601605          if [[ "$for_host" = ""  ||  ( "$for_host" = $host  &&  "$for_cond1" = "$cond1"  &&  "$for_cond2" = "$cond2" )  ||  $(echo "$input_list$output_list"|grep -c "$for_host") != 0 ]]
     
    683687             # s2b: loc    - Feld (optional)
    684688             # s2c: tr/ar  - Feld (optional)
    685           echo $zeile | cut -d" " -f1-2 | read  s1  s2
    686 #          s1=`echo $zeile | cut -d" " -f1`
    687 #          s2=`echo $zeile | cut -d" " -s -f2`
     689#          echo $zeile | cut -d" " -f1-2 | read  s1  s2
     690          s1=`echo $zeile | cut -d" " -f1`
     691          s2=`echo $zeile | cut -d" " -s -f2`
    688692          s2a=$(echo $s2 | cut -d":" -f1)
    689693          if [[ $(echo $s2 | grep -c ":") = 0 ]]
     
    692696             s2c=""
    693697          else
    694              echo $s2 | cut -d":" -f2-3 | sed 's/:/ /g' | read  s2b  s2c
    695 #             s2b=`echo $s2 | cut -d":" -f2 | sed 's/:/ /g'`
    696 #             s2c=`echo $s2 | cut -d":" -s -f3 | sed 's/:/ /g'`
    697           fi
    698           echo $zeile | cut -d" " -f3-6 | read  s3  s4  s5  s6
    699 #          s3=`echo $zeile | cut -d" " -f3`
    700 #          s4=`echo $zeile | cut -d" " -s -f4`
    701 #          s5=`echo $zeile | cut -d" " -s -f5`
    702 #          s6=`echo $zeile | cut -d" " -s -f6`
     698#             echo $s2 | cut -d":" -f2-3 | sed 's/:/ /g' | read  s2b  s2c
     699             s2b=`echo $s2 | cut -d":" -f2 | sed 's/:/ /g'`
     700             s2c=`echo $s2 | cut -d":" -s -f3 | sed 's/:/ /g'`
     701          fi
     702#          echo $zeile | cut -d" " -f3-6 | read  s3  s4  s5  s6
     703          s3=`echo $zeile | cut -d" " -f3`
     704          s4=`echo $zeile | cut -d" " -s -f4`
     705          s5=`echo $zeile | cut -d" " -s -f5`
     706          s6=`echo $zeile | cut -d" " -s -f6`
    703707
    704708       
     
    768772#    esac
    769773
     774
     775       # ENVIRONMENT-VARIABLEN FUER INTERPRET_CONFIG UEBER NAMELIST_DATEI ZUR
     776       # VERFUEGUNG STELLEN
     777    cat  >  .mrun_environment  <<  %%END%%
     778 &mrun_environment  cond1 = '$cond1', cond2 = '$cond2',
     779                    config_file = '$config_file', do_remote = '$do_remote',
     780                    do_trace = '$do_trace', host = '$host',
     781                    input_list = '$input_list', icf = '$interpreted_config_file',
     782                    localhost = '$localhost', output_list = '$output_list' /
     783
     784%%END%%
     785
     786       # WERTE VON MRUN-OPTIONEN SICHERN UND DAMIT GEGEBENENFALLS SPAETER DIE
     787       # IN DER KONFIGURAIONSDATEI ANGEGEBENEN WERTE UEBERSTEUERN
     788    mrun_memory=$memory
     789    mrun_cpumax=$cpumax
     790    mrun_numprocs=$numprocs
     791
    770792    if [[ $localhost_realname = "gate" ]]
    771793    then
     
    779801    export PATH=$PATH:.
    780802    . $interpreted_config_file
    781     rm  $interpreted_config_file
     803#    rm  $interpreted_config_file
     804
     805       # OPTIONSWERTE UEBERSTEUERN KONFIGURATIONSDATEI
     806    [[ "mrun_memory"   != "" ]]  &&  memory=$mrun_memory
     807    [[ "mrun_cpumax"   != "" ]]  &&  cpumax=$mrun_cpumax
     808    [[ "mrun_numprocs" != "" ]]  &&  numprocs=$mrun_numprocs
    782809
    783810 fi
     
    10541081                  fi;;
    10551082     (lctit)      netcdf_support=true
    1056                   netcdf_path=/home2/usr5/mkanda/netcdf-3.6.1;;
     1083                  netcdf_path=/home2/usr5/mkanda/netcdf-3.6.2;;
    10571084     (nech)       netcdf_support=true
    10581085                  netcdf_path=/pool/SX-6/netcdf/netcdf-3.6.0-p1;;
     
    13911418          # ALLE MODIFIZIERTEN QUELLCODEDATEIEN AUFLISTEN
    13921419       Filenames=""
    1393        svn status  |  while  read line
     1420       svn status  >  tmp_mrun
     1421       while  read line
    13941422       do
    13951423          firstc=`echo $line | cut -c1`
     
    14031431             fi
    14041432          fi
    1405        done
     1433       done < tmp_mrun
    14061434
    14071435
     
    18691897       (lcmuk|nech|neck)  FOPTS="-I ${netcdf_path}/include  $FOPTS"
    18701898                          LOPTS="$LOPTS -L${netcdf_path}/lib -lnetcdf";;
    1871        (lctit)            FOPTS="-I ${netcdf_path}/src/f90  $FOPTS"
    1872                           LOPTS="$LOPTS -L${netcdf_path}/src/libsrc -lnetcdf";;
     1899       (lctit)            FOPTS="-I ${netcdf_path}/include  $FOPTS"
     1900                          LOPTS="$LOPTS -L${netcdf_path}/lib -lnetcdf";;
    18731901
    18741902    esac
     
    21752203             # PFADNAMEN FUER DAS MAKE-DEPOSITORY ERMITTELN
    21762204          line=""
    2177           grep "%depository_path" $config_file  |  while read line
     2205          grep "%depository_path" $config_file  >  tmp_mrun
     2206          while read line
    21782207          do
    21792208             if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
     
    21842213                fi
    21852214             fi
    2186           done
     2215          done < tmp_mrun
    21872216
    21882217          line=""
    2189           grep  " $localhost" $config_file | grep "%depository_path"  |  while read line
     2218          grep  " $localhost" $config_file | grep "%depository_path"  >  tmp_mrun
     2219          while read line
    21902220          do
    21912221             if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
     
    21932223                local_depository_path=`echo $line | cut -d" " -s -f2`
    21942224             fi
    2195           done
     2225          done < tmp_mrun
    21962226
    21972227          if [[ "$local_depository_path" = "" ]]
     
    29152945             if [[ "$QUEUE" = interactive ]]
    29162946             then
    2917                 mpirun  -np $numprocs  $runfile  $ROPTS  >  aout_output  2>&1
     2947                mpirun  -np $numprocs  a.out  $ROPTS  >  aout_output  2>&1
    29182948             else
    2919                 n1ge  -fore  -mpi $numprocs  -q $queue  $runfile  $ROPTS  >  aout_output  2>&1
     2949                n1ge  -fore  -mpi $numprocs  -q $queue  a.out  $ROPTS  >  aout_output  2>&1
    29202950             fi
    29212951
     
    38663896
    38673897       # WORKAROUND FUER RIAM-NEC-JOBS WEGEN PROFILE-SCHWIERIGKEITEN
    3868     if [[ $localhost_realname = "gate" ]]
     3898    if [[ $localhost_realname = "gate"  ||  $localhost = lctit ]]
    38693899    then
    38703900       echo  "export PALM_BIN=$PALM_BIN"                >>  $jobfile
  • palm/trunk/SCRIPTS/subjob

    r66 r69  
    289289        (ibms)   queue=p_normal; remote_addres=150.183.5.101; submcom=/usr/lpp/LoadL/full/bin/llsubmit;;
    290290        (ibmy)   queue=parallel; remote_addres=165.132.26.58; submcom=/usr/lpp/LoadL/full/bin/llsubmit;;
    291         (lctit)  queue=test; remote_addres=172.17.75.161; submcom=/n1ge/TITECH_GRID/tools/bin/n1ge;;
     291        (lctit)  queue=default; remote_addres=172.17.75.161; submcom=/n1ge/TITECH_GRID/tools/bin/n1ge;;
    292292        (nech)   qsubmem=memsz_job; qsubtime=cputim_job; remote_addres=136.172.44.147; submcom="/usr/local/bin/qsub";;
    293293        (neck)   qsubmem=memsz_job; qsubtime=cputim_job; remote_addres=133.5.178.11; submcom="/usr/bin/nqsII/qsub";;
     
    327327                 esac;;
    328328        (lctit)  case  $ndq  in
    329                      (cs|default|high|test)                  error=false;;
     329                     (default|high|bes1|bes2|sla1|sla2)      error=false;;
    330330                     (*)                                     error=true;;
    331331                 esac;;
     
    694694#$ -S /bin/bash
    695695cd $job_catalog
    696 PATH=$job_catalog:${job_catalog}/../pub:\$PATH
    697 export PATH
     696export PATH=$PALM_BIN:\$PATH
     697echo \$PATH
    698698
    699699%%END%%
     
    866866    # EIGENTLICHE JOB-DATEI AN QSUB-KOMMANDOS ANHAENGEN
    867867 cat  $file_to_send  >>  $job_to_send
     868
    868869 if [[ $remote_host = ibm ]]
    869870 then
    870871    echo " "         >>  $job_to_send
    871872    echo "exit"      >>  $job_to_send
     873 fi
     874 if [[ $remote_host = lctit ]]
     875 then
     876    echo " "                               >>  $job_to_send
     877    echo "rm ~/job_queue/$job_on_remhost"  >>  $job_to_send
    872878 fi
    873879
     
    10201026          echo "$submcom  $job_on_remhost"
    10211027          chmod  u+x  $job_on_remhost
    1022           sleep 5   # WEIL N1GE IM HINTERGRUND ARBEITET UND DATEI SONST EVTL.
    1023                     # SCHON WIEDER GELOESCT IST
    10241028       elif [[ $local_host = nech ]]
    10251029       then
     
    10331037          qsub  $job_on_remhost
    10341038       fi
    1035        rm  $job_on_remhost
     1039          # JOBFILE DARF AUF LCTIT NICHT GELOESCHT WERDEN!! GESCHIEHT ERST AM JOBENDE
     1040       [[ $local_host != lctit ]]  &&  rm  $job_on_remhost
    10361041       cd  -  > /dev/null
    10371042    fi
  • palm/trunk/UTIL/interpret_config.f90

    r21 r69  
    3737    LOGICAL ::  found
    3838
    39     CALL local_getenv( 'cond1', 5, cond1, icond1 )
    40     CALL local_getenv( 'cond2', 5, cond2, icond2 )
    41     CALL local_getenv( 'config_file', 11, config_file, il )
    42     CALL local_getenv( 'do_remote', 9, do_remote, dummy )
    43     CALL local_getenv( 'do_trace', 8, do_trace, dummy )
    44     CALL local_getenv( 'host', 4, host, ihost )
    45     CALL local_getenv( 'input_list', 10, input_list, iinput_list )
    46     CALL local_getenv( 'interpreted_config_file', 23, icf, iicf )
    47     CALL local_getenv( 'localhost', 9, localhost, ilocalhost )
    48     CALL local_getenv( 'output_list', 11, output_list, ioutput_list )
     39    NAMELIST /mrun_environment/  cond1, cond2, config_file, do_remote, do_trace, &
     40                                 host, input_list, icf, localhost, output_list
     41
     42
     43    OPEN ( 1, FILE='.mrun_environment', FORM='FORMATTED' )
     44    READ ( 1, mrun_environment )
     45
     46    icond1       = LEN_TRIM( cond1 )
     47    icond2       = LEN_TRIM( cond2 )
     48    il           = LEN_TRIM( config_file )
     49    ihost        = LEN_TRIM( host )
     50    iinput_list  = LEN_TRIM( input_list )
     51    iicf         = LEN_TRIM( icf )
     52    ilocalhost   = LEN_TRIM( localhost )
     53    ioutput_list = LEN_TRIM( output_list )
     54
     55!    CALL local_getenv( 'cond1', 5, cond1, icond1 )
     56!    CALL local_getenv( 'cond2', 5, cond2, icond2 )
     57!    CALL local_getenv( 'config_file', 11, config_file, il )
     58!    CALL local_getenv( 'do_remote', 9, do_remote, dummy )
     59!    CALL local_getenv( 'do_trace', 8, do_trace, dummy )
     60!    CALL local_getenv( 'host', 4, host, ihost )
     61!    CALL local_getenv( 'input_list', 10, input_list, iinput_list )
     62!    CALL local_getenv( 'interpreted_config_file', 23, icf, iicf )
     63!    CALL local_getenv( 'localhost', 9, localhost, ilocalhost )
     64!    CALL local_getenv( 'output_list', 11, output_list, ioutput_list )
    4965    iolist = input_list(1:iinput_list) // output_list(1:ioutput_list)
    5066
     
    85101!--       Achtung: Auf hpmuk und vpp sind nur die Variablen bekannt, die
    86102!--       von MRUN exportiert wurden!
    87           CALL local_getenv( var, ivar, value_mrun, ivalue_mrun )
     103!          CALL local_getenv( var, ivar, value_mrun, ivalue_mrun )
     104          value_mrun = ''
     105          ivalue_mrun = 1
    88106
    89107!
Note: See TracChangeset for help on using the changeset viewer.