Changeset 5

Timestamp:

Feb 14, 2007 1:53:31 AM (17 years ago)

Author:

raasch

Message:

html-documentation added

Location:

palm/trunk

Files:

• DOC/app (added)
• DOC/app/chapter_1.0.html (added)
• DOC/app/chapter_2.0.html (added)
• DOC/app/chapter_3.0.html (added)
• DOC/app/chapter_3.1.html (added)
• DOC/app/chapter_3.2.html (added)
• DOC/app/chapter_3.3.html (added)
• DOC/app/chapter_3.4.html (added)
• DOC/app/chapter_3.5.1.html (added)
• DOC/app/chapter_3.5.2.html (added)
• DOC/app/chapter_3.5.3.html (added)
• DOC/app/chapter_3.5.4.html (added)
• DOC/app/chapter_3.5.5.html (added)
• DOC/app/chapter_3.5.html (added)
• DOC/app/chapter_3.6.html (added)
• DOC/app/chapter_3.7.html (added)
• DOC/app/chapter_4.0.html (added)
• DOC/app/chapter_4.1.html (added)
• DOC/app/chapter_4.2.html (added)
• DOC/app/chapter_4.3.html (added)
• DOC/app/chapter_4.4.html (added)
• DOC/app/chapter_4.5.1.html (added)
• DOC/app/chapter_4.5.2.html (added)
• DOC/app/chapter_4.5.3.html (added)
• DOC/app/chapter_4.5.4.html (added)
• DOC/app/chapter_4.5.5.html (added)
• DOC/app/chapter_4.5.6.html (added)
• DOC/app/chapter_4.5.7.html (added)
• DOC/app/chapter_4.5.html (added)
• DOC/app/chapter_4.6.html (added)
• DOC/app/chapter_5.0.html (added)
• DOC/app/chapter_5.1.html (added)
• DOC/app/index.html (added)
• DOC/app/left.gif (added)
• DOC/app/right.gif (added)
• DOC/app/up.gif (added)
• DOC/tec (added)
• DOC/tec/technical_documentation.html (added)
• SCRIPTS/mbuild_new (modified) (7 diffs)
• SCRIPTS/mrun_new (modified) (23 diffs)
• SCRIPTS/subjob (modified) (6 diffs)

palm/trunk/SCRIPTS/mbuild_new

@@ -1 +1 @@
 #!/bin/ksh
-# mbuild - Programmuebersetzungsscript   Version:  @(#)MBUILD 1.0    07/02/07
+# mbuild - Programmuebersetzungsscript   Version:  @(#)MBUILD 1.0    10/02/07
 
      # Prozedur zur Uebersetzung von Programmteilen mittels make-Mechanismus
@@ -78 +78 @@
      # 24/11/06 - Siggi - breva and levanto admitted
      # 07/02/07 - Siggi - adapted for RIAM (neck)
+     # 10/02/07 - Siggi - all hpmuk-related code removed
 
 
@@ -152 +153 @@
      (berte)                    local_host=t3eb;;
      (bora|breva|gregale|irifi|levanto|maestro|orkan|ostria|quanero|scirocco)  local_host=lcmuk;;
-     (argestes|caurus|caver|chinook|dschani|gharra|nevados|poniente|samun|twister|yalka)  local_host=hpmuk;;
      (gate)                     local_host=neck;;
      (gfdl3.yonsei.ac.kr)       local_host=decalpha; local_addres=165.132.26.56;;
@@ -206 +206 @@
 
 
+    # LOKALEN QUELLTEXTPFAD ERMITTELN.
+    # ZUERST PRUEFEN, OB EIN GLOBALER QUELLTEXTPFAD FUER ALLE RECHNER
+    # VEREINBART WURDE.
+    # DAZU ZUNAECHST ALLE IN DER KONFIGURATIONSDATEI VEREINBARTEN GLOBALEN
+    # VARIABLEN SETZEN, WEIL DIESE EVTL. IN PFADNAMEN VERWENDET WERDEN
+ line=""
+ grep "%" $config_file  |  while read line
+ do
+    if [[ "$line" != ""  &&  "$(echo $line | cut -d" " -s -f3)" = "" ]]
+    then
+       var=`echo $line | cut -d" " -s -f1 | cut -c2-`
+       value=`echo $line | cut -d" " -s -f2`
+       echo "*** export $var=$value"
+       eval export $var=$value
+       eval echo \"   $var=\$$var \"
+    fi
+ done
+
+    # NUN PRUEFEN, OB EIN GLOBALER QUELLTEXTPFAD VEREINBART WURDE
+ line=""
+ grep "%source_path" $config_file  |  while read line
+ do
+    if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
+    then
+       if [[ "$(echo $line | cut -d" " -s -f3)" = "" ]]
+       then
+          global_source_path=`echo $line | cut -d" " -s -f2`
+       fi
+    fi
+ done
+
+ line=""
+ grep  " $local_host" $config_file | grep "%source_path"  |  while read line
+ do
+    if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
+    then
+       local_source_path=`echo $line | cut -d" " -s -f2`
+    fi
+ done
+
+ if [[ "$local_source_path" = "" ]]
+ then
+    if [[ "$global_source_path" != "" ]]
+    then
+       local_source_path=$global_source_path
+    else
+       printf "\n  +++ no source path found in configuration file"
+       printf "\n      for local host \"$local_host\" "
+       printf "\n      please set \"\%source_path\" in configuration file"
+       locat=config_file; exit
+    fi
+ fi
+ eval local_source_path=$local_source_path
+
+
+     # EBENSO PFAD FUER DAS MAKE-DEPOSITORY ERMITTELN
+ line=""
+ grep "%depository_path" $config_file  |  while read line
+ do
+    if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
+    then
+       if [[ "$(echo $line | cut -d" " -s -f3)" = "" ]]
+       then
+          global_depository_path=`echo $line | cut -d" " -s -f2`
+       fi
+    fi
+ done
+
+ line=""
+ grep  " $local_host" $config_file | grep "%depository_path"  |  while read line
+ do
+    if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
+    then
+       local_depository_path=`echo $line | cut -d" " -s -f2`
+    fi
+ done
+
+ if [[ "$local_depository_path" = "" ]]
+ then
+    if [[ "$global_depository_path" != "" ]]
+    then
+       local_depository_path=$global_depository_path
+    else
+       printf "\n  +++ no depository path found in configuration file"
+       printf "\n      for local host \"$local_host\" "
+       printf "\n      please set \"\%depository_path\" in configuration file"
+       locat=config_file; exit
+    fi
+ fi
+ eval local_depository_path=$local_depository_path
+
+
+
     # PRUEFEN, OB IN KONFIGURATIONSDATEI EIN HAUPTPROGRAMM
     # VEREINBART WURDE
@@ -222 +315 @@
     mainprog=`echo $line | cut -d" " -s -f2 | cut -d"." -f1`
  fi
-
-
-
-    # LOKALEN QUELLTEXTPFAD ERMITTELN.
-    # ZUERST PRUEFEN, OB EIN GLOBALER QUELLTEXTPFAD FUER ALLE RECHNER
-    # VEREINBART WURDE
- line=""
- grep "%source_path" $config_file  |  while read line
- do
-    if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
-    then
-       if [[ "$(echo $line | cut -d" " -s -f3)" = "" ]]
-       then
-          global_source_path=`echo $line | cut -d" " -s -f2`
-       fi
-    fi
- done
-
- line=""
- grep  " $local_host" $config_file | grep "%source_path"  |  while read line
- do
-    if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
-    then
-       local_source_path=`echo $line | cut -d" " -s -f2`
-    fi
- done
-
- if [[ "$local_source_path" = "" ]]
- then
-    if [[ "$global_source_path" != "" ]]
-    then
-       local_source_path=$global_source_path
-    else
-       printf "\n  +++ no source path found in configuration file"
-       printf "\n      for local host \"$local_host\" "
-       printf "\n      please set \"\%source_path\" in configuration file"
-       locat=config_file; exit
-    fi
- fi
- eval local_source_path=$local_source_path
-
-
-     # EBENSO PFAD FUER DAS MAKE-DEPOSITORY ERMITTELN
- line=""
- grep "%depository_path" $config_file  |  while read line
- do
-    if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
-    then
-       if [[ "$(echo $line | cut -d" " -s -f3)" = "" ]]
-       then
-          global_depository_path=`echo $line | cut -d" " -s -f2`
-       fi
-    fi
- done
-
- line=""
- grep  " $local_host" $config_file | grep "%depository_path"  |  while read line
- do
-    if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
-    then
-       local_depository_path=`echo $line | cut -d" " -s -f2`
-    fi
- done
-
- if [[ "$local_depository_path" = "" ]]
- then
-    if [[ "$global_depository_path" != "" ]]
-    then
-       local_depository_path=$global_depository_path
-    else
-       printf "\n  +++ no depository path found in configuration file"
-       printf "\n      for local host \"$local_host\" "
-       printf "\n      please set \"\%depository_path\" in configuration file"
-       locat=config_file; exit
-    fi
- fi
- eval local_depository_path=$local_depository_path
 
 
@@ -655 +671 @@
     netcdf_support=false
     case  $remote_host  in
-        (hpmuk)          remote_addres=130.75.105.19;;
         (lcmuk)          remote_addres=130.75.105.3; cpp_options=""
                          netcdf_support=true
@@ -998 +1013 @@
           # BATCH-JOB PARAMETER SETZEN
        case  $remote_host  in
-           (hpmuk)          remote_addres=130.75.105.19;;
            (t3eb)           queue=berte; memory=60; cputime=1000; xoption="-X 0";;
            (t3eh)           queue=comp_t3e; memory=60; cputime=360;;
            (t3ej2)          queue=normal; memory=60; cputime=1000; xoption="-X 0";;
-           (hpmuk|t3ej5|ground.yonsei.ac.kr)  printf "\n  --- remote host \"$remote_host\" does not allow batch jobs"; continue;;
+           (t3ej5|ground.yonsei.ac.kr)  printf "\n  --- remote host \"$remote_host\" does not allow batch jobs"; continue;;
        esac
 

palm/trunk/SCRIPTS/mrun_new

@@ -3 +3 @@
 ##!/home/DSRC/NC/tatuyama/pub/ksh   NEEDED ON NEC AT RIAM !!!!!!!!!!
 
-# mrun - Plot-Shellskript         Version:  @(#)MRUN 1.8   07/02/07
+# mrun - Plot-Shellskript         Version:  @(#)MRUN 1.8   10/02/07
 
      # Prozedur zum Starten von Modellaeufen
@@ -103 +103 @@
      #                     sampled in SOURCES_FOR_RUN_$fname which is a
      #                     subdirectory of the current working directory,
-     #                     -s TEST  changed to  -s CHANGED_FILES  or -s CF,
+     #                     -s TEST  changed to  -s WRITE_PERMIT  or -s WP,
      #                     adapted for RIAM (neck)
+     #                     bugfix for cycle number of output file (extout)
+     #                     all hpmuk-related code removed
 
 
@@ -125 +127 @@
  cond2="" 
  config_file=.mrun.config
- continuation_run=false
  cpp_opts=""
  cpumax=0
@@ -174 +175 @@
  queue=none
  read_from_config=""
+ restart_run=false
  return_addres=$(nslookup `hostname` 2>&1 | grep "Address:" | tail -1 | awk '{print $2}')
  if [[ $return_addres = 130.75.105.158 ]]
@@ -314 +316 @@
      (bora|breva|elephanta|gallego|gregale|hababai|irifi|levanto|maestro|orkan|ostria|poniente|quanero|scirocco|vorias)  mrun_path=/home/raasch/pub
                             localhost=lcmuk;;
-     (caurus|caver|gharra|samun|twister|viracao|yalka)  mrun_path=/home/raasch/pub/
-                                                         localhost=hpmuk;;
      (breg*-en0|berni*-en0) mrun_path=/home/b/niksiraa/pub
                             localhost=ibmb; archive_system=tivoli;;
@@ -357 +357 @@
        (B)   delete_temporary_catalog=false; mc="$mc -B";;
        (c)   config_file=$OPTARG; mc="$mc -c$OPTARG";;
-       (C)   continuation_run=true; mc="$mc -C";;
+       (C)   restart_run=true; mc="$mc -C";;
        (d)   fname=$OPTARG; mc="$mc -d$OPTARG";;
        (D)   cpp_opts="$cpp_opts $OPTARG"; mc="$mc -D$OPTARG";;
@@ -500 +500 @@
     do_remote=true
     case  $host  in
-        (hpmuk|ibm|ibmb|ibmh|ibms|ibmy|nech|neck|lctit|unics)  true;;
+        (ibm|ibmb|ibmh|ibms|ibmy|nech|neck|lctit|unics)  true;;
         (*)  printf "\n"
              printf "\n  +++ execution host \"$host\" not admitted for MRUN,"
@@ -843 +843 @@
     do_remote=true
     case  $host  in
-        (hpmuk|ibm|ibmb|ibmh|ibms|ibmy|lctit|nech|neck|unics)  true;;
+        (ibm|ibmb|ibmh|ibms|ibmy|lctit|nech|neck|unics)  true;;
         (*)  printf "\n"
              printf "\n  +++ execution host \"$host\" not admitted for MRUN,"
@@ -995 +995 @@
  then
     case  $host  in
-        (hpmuk)      queue=hpmuk;;
         (ibmb)       if [[ $node_usage = shared ]]
                      then
@@ -1297 +1296 @@
  then
 
-    [[ "$source_list" = CF ]]  &&  source_list=CHANGED_FILES
-
-    if [[ "$source_list" = CHANGED_FILES  ||  $continuation_run != true ]]
+    [[ "$source_list" = LM ]]  &&  source_list=LOCALLY_MODIFIED
+    [[ "$source_list" = WP ]]  &&  source_list=WRITE_PERMIT
+
+    if [[ $restart_run != true ]]
     then
        rm -rf  SOURCES_FOR_RUN_$fname
@@ -1315 +1315 @@
        # ALLE ERMITTELTEN DATEIEN WERDEN IM VERZEICHNIS SOURCES_FOR_RUN_...
        # GESAMMELT
-    if [[ "$source_list" = CHANGED_FILES ]]
+    if [[ "$source_list" = WRITE_PERMIT ]]
     then
 
        source_list=""
-
-          # ZUERST DAS DURCH DIE KONFIGURATIONSDATEI FESTGELEGTE
-          # QUELLTEXTVERZEICHNIS DURCHSUCHEN
        cd  $source_path
 
@@ -1354 +1351 @@
 
 
+    elif [[ "$source_list" = LOCALLY_MODIFIED ]]
+    then
+
+          # MODIFIZIERTE DATEIEN DER SVN-ARBEITSKOPIE BESTIMMEN
+       source_list=""
+       cd  $source_path
+
+
+          # PRUEFEN, OB VERZEICHNIS UEBERHAUPT UNTER SVN-KONTROLLE STEHT
+       if [[ ! -d .svn ]]
+       then
+          printf "\n\n  +++ source directory"
+          printf "\n         \"$source_path\" "
+          printf "\n         is not under control of \"subversion\"."
+          printf "\n         Please do not use mrun-option \"-s LOCALLY MODIFIED\"\n"
+       fi
+
+
+          # ALLE MODIFIZIERTEN QUELLCODEDATEIEN AUFLISTEN
+       Filenames=""
+       svn status  |  while  read line
+       do
+          firstc=`echo $line | cut -c1`
+          if [[ $firstc = M  ||  $firstc = "?" ]]
+          then
+             Name=`echo "$line" | cut -c8-`
+             extension=`echo $Name | cut -d. -f2`
+             if [[ "$extension" = f90 || "$extension" = F90 || "$extension" = f || "$extension" = F || "$extension" = c ]]
+             then
+                Filenames="$Filenames "$Name
+             fi
+          fi
+       done
+
+
+          # DATEIEN NACH SOURCES_FOR_RUN_... KOPIEREN
+       for  dateiname  in  $Filenames
+       do
+          cp  $dateiname  $working_directory/SOURCES_FOR_RUN_$fname
+          source_list=$source_list"$dateiname "
+       done
+
+       cd -  > /dev/null
+
+
        # MITTELS OPTION -s ANGEGEBENE DATEIEN NACH SOURCES_FOR_RUN_... KOPIEREN
        # BEI AUTOMATISCHEN FORTSETZUNGSLAEUFEN SIND DORT SCHON ALLE DATEIEN
        # VORHANDEN
-    elif [[ "$source_list" != ""  &&  $continuation_run != true ]]
+    elif [[ "$source_list" != ""  &&  $restart_run != true ]]
     then
 
@@ -1392 +1434 @@
        # LISTE DER ZU UEBERSETZENDEN PROGRAMMTEILE MIT ENTHALTEN IST (WENN
        # NICHT, WIRD ES DIESER LISTE HINZUGEFUEGT)
-    if [[ $continuation_run != true ]]
+    if [[ $restart_run != true ]]
     then
 
@@ -1412 +1454 @@
 
        # DATEIEN AUS ZUSAETZLICHEM QUELLVERZEICHNIS HINZUFUEGEN
-    if [[ $continuation_run != true  &&  "$add_source_path" != "" ]]
+    if [[ $restart_run != true  &&  "$add_source_path" != "" ]]
     then
 
@@ -1482 +1524 @@
        # ALLE UNTERPROGRAMME, DIE ZU VEREINBARTEN SOFTWAREPAKETEN GEHOEREN,
        # DER LISTE DER ZU UEBERSETZENDEN DATEIEN HINZUFUEGEN
-    if [[ $continuation_run != true  &&  -n $package_list ]]
+    if [[ $restart_run != true  &&  -n $package_list ]]
     then
 
@@ -1522 +1564 @@
        # MAKEFILE AUF VORHANDENSEIN PRUEFEN UND KOPIEREN
        # BEI RESTART-LAEUFEN LIEGT ES SCHON IM VERZEICHNIS SOURCES_FOR_RUN...
-    if [[ "$use_makefile" = true  &&  "$continuation_run" != true ]]
+    if [[ "$use_makefile" = true  &&  "$restart_run" != true ]]
     then
        [[ "$makefile" = "" ]]  &&  makefile=$source_path/Makefile
@@ -1663 +1705 @@
  then
     case  $localhost  in
-        (hpmuk|unics)                           compiler_name=f77;;
+        (unics)                                 compiler_name=f77;;
         (lcmuk)                                 if [[ "$cond1" = parallel  ||  "$cond2" = parallel ]]
                                                 then
@@ -1695 +1737 @@
  case  $localhost  in
      (decalpha|ibm|ibmb|ibmh|ibms|ibmy|unics)  praeproc=cpp;;
-     (hpmuk)                                   praeproc=/usr/ccs/lbin/cpp;;
  esac
 
@@ -2154 +2195 @@
              cp  $make_depository  $TEMPDIR_COMPILE
              cd  $TEMPDIR_COMPILE
-             tar -xf  $make_depository  >  /dev/null
+             tar -xf  $make_depository  >  /dev/null  2>&1
              cd -  > /dev/null
           fi
@@ -2229 +2270 @@
        else
 
-             # HPMUK EVTL. PRAEPROZESSOR LAUFEN LASSEN
-          if [[ $localhost = hpmuk ]]
-          then
-             (( i = 0 ))
-             new_source_list=""
-             for  filename  in  $source_list
-             do
-                basename=`print $filename | cut -f1 -d"."`
-                extension=`print $filename | cut -f2 -d"."`
-                if [[ $extension = F  &&  $localhost != hpmuk ]]
-                then
-                   (( i = i + 1 ))
-                   if (( i == 1 ))
-                   then
-                      printf "\n\n  *** preprocessor-calls:\n$striche"
-                   fi
-                   printf "\n      $praeproc  $PPOPTS  -P  $filename  >  ${basename}.f  2> /dev/null"
-                   $praeproc  $PPOPTS  -P  $filename  >  ${basename}.f  2> /dev/null
-                   new_source_list="$new_source_list "${basename}.f
-                   elif [[ $extension = f90 ]]
-                then
-                   (( i = i + 1 ))
-                   if (( i == 1 ))
-                   then
-                      printf "\n\n  *** preprocessor-calls:\n$striche"
-                   fi
-                   mv  $filename  ${basename}.F90
-                   printf "\n      $praeproc  $PPOPTS  -C  -P  ${basename}.F90  >  $filename  2> /dev/null"
-                   $praeproc  $PPOPTS  -C  -P  ${basename}.F90  >  $filename  2> /dev/null
-                   new_source_list="$new_source_list "$filename
-                   rm -f  ${basename}.F90
-                else
-                   new_source_list="$new_source_list "$filename
-                fi
-             done
-             source_list="$new_source_list"
-             if (( i != 0 ))
-             then
-                printf "\n$striche\n  *** preprocessor-calls finished\n"
-             fi
-          fi
-
 
              # UEBERSETZUNG DER QUELLTEXT-DATEIEN UND DES HAUPTPROGRAMMS
@@ -2328 +2327 @@
           printf "      linker-options:                    $LOPTS \n"
           printf "      source code files:                 $source_list \n"
-          if [[ $localhost = hpmuk ]]
-          then
-             if [[ $localhost_realname = caurus ]]
-             then
-                $compiler_name  $C_PPOPTS  $FOPTS  $MODULE_OPTIONS  $source_list  $LOPTS
-             else
-                remsh  caurus  "export PATH=/opt/fortran90/bin:$PATH; cd `pwd`; $compiler_name  $C_PPOPTS  $FOPTS  $MODULE_OPTIONS  $source_list  $LOPTS" 
-             fi
-          else
-             $compiler_name  $C_PPOPTS  $FOPTS  $MODULE_OPTIONS  $LOPTS  $source_list  
-          fi
+
+          $compiler_name  $C_PPOPTS  $FOPTS  $MODULE_OPTIONS  $LOPTS  $source_list  
+
        fi
        if [[ $? != 0  ||  "$compile_error" = true  ||  "$module_compile_error" = true ]]
@@ -2683 +2674 @@
           exit
        fi
-       if [[ $localhost = hpmuk ]]
-       then
-          echo  "property sdir .,${source_path}, ${add_source_path}"  >  .dderc
-          dde  a.out
-       elif [[ $localhost = decalpha ]]
+       if [[ $localhost = decalpha ]]
        then
           dxladebug  a.out
@@ -3546 +3533 @@
 
                 # KOPIEREN AUF EINPROZESSORMASCHINE
-             if [[ "${extout[$i]}" != " " ]]
+             if [[ "${extout[$i]}" != " "  &&  "${extout[$i]}" != "" ]]
              then
                 printf "\n  >>> OUTPUT: ${localout[$i]}  to  ${pathout[$i]}.${extout[$i]}\n"

palm/trunk/SCRIPTS/subjob

@@ -1 +1 @@
 #!/bin/ksh
-# subjob - Plot-Shellskript         Version:  @(#)SUBJOB 1.0    28/11/06
+# subjob - Plot-Shellskript         Version:  @(#)SUBJOB 1.0    13/02/07
 
      # Prozedur zum automatischen Generieren von Batch-Jobs, die unter NQS
@@ -78 +78 @@
      # 25/10/06 - Siggi - data_limit set to 1.76 GByte on hanni and berni
      # 28/11/06 - Siggi - levanto admitted
+     # 13/02/07 - Siggi - hpmuk releated code removed
 
 
@@ -141 +142 @@
  case  $local_host  in
      (atmos)                 local_addres=172.20.25.35;   local_host=lcide;;
-     (bora)                  local_addres=130.75.105.103; local_host=hpmuk;;
+     (bora)                  local_addres=130.75.105.103; local_host=lcmuk;;
      (breg*-en0|berni*-en0)  local_addres=130.73.230.10;  local_host=ibmb;;
-     (breva)                 local_addres=130.75.105.98;  local_host=hpmuk;;     
-     (caurus)                local_addres=130.75.105.19;  local_host=hpmuk;;
-     (chinook)               local_addres=130.75.105.100; local_host=hpmuk;;
      (cs*)                   local_addres=136.172.44.131; local_host=nech;;
-     (elephanta)             local_addres=130.75.105.6;   local_host=hpmuk;;
+     (elephanta)             local_addres=130.75.105.6;   local_host=lcmuk;;
      (gfdl5)                 local_addres=165.132.26.58;  local_host=ibmy;;
      (gfdl3.yonsei.ac.kr)    local_addres=165.132.26.56;  local_host=decalpha;;
-     (gregale)               local_addres=130.75.105.109; local_host=hpmuk;;
-     (hababai)               local_addres=130.75.105.108; local_host=hpmuk;;
+     (gregale)               local_addres=130.75.105.109; local_host=lcmuk;;
+     (hababai)               local_addres=130.75.105.108; local_host=lcmuk;;
      (hreg*-en0|hanni*-en0)  local_addres=130.75.4.10;    local_host=ibmh;;
-     (irifi)                 local_addres=130.75.105.104; local_host=hpmuk;;
-     (levanto)               local_addres=130.75.105.45;  local_host=hpmuk;;
-     (maestro)               local_addres=130.75.105.2;   local_host=hpmuk;;
+     (irifi)                 local_addres=130.75.105.104; local_host=lcmuk;;
+     (levanto)               local_addres=130.75.105.45;  local_host=lcmuk;;
+     (maestro)               local_addres=130.75.105.2;   local_host=lcmuk;;
      (nobel*)                local_addres=150.183.5.101;  local_host=ibms;;
-     (orkan)                 local_addres=130.75.105.3;   local_host=hpmuk;;
-     (ostria)                local_addres=130.75.105.106; local_host=hpmuk;;
-     (quanero)               local_addres=130.75.105.107; local_host=hpmuk;;
+     (orkan)                 local_addres=130.75.105.3;   local_host=lcmuk;;
+     (ostria)                local_addres=130.75.105.106; local_host=lcmuk;;
+     (quanero)               local_addres=130.75.105.107; local_host=lcmuk;;
      (scirocco)              local_addres=172.20.25.41;   local_host=lcmuk;;
      (sun1|sun2)             local_addres=130.75.6.1;     local_host=unics;;
@@ -218 +216 @@
     printf "\n        -f    filetransfer protocol               scp"
     printf "\n        -h    execution host, available hosts:    $remote_host"
-    printf "\n              hpmuk, ibm, ibmb, ibmh, ibms, ibmy,"
+    printf "\n              ibm, ibmb, ibmh, ibms, ibmy, lcmuk,"
     printf "\n              unics"
     printf "\n        -m    memory demand per process in MByte  ---"
@@ -282 +280 @@
  else
     case  $remote_host  in
-        (hpmuk)  qsubmem=d; qsubtime=t; queue=hpmuk; remote_addres=130.75.105.19; submcom=/opt/nqs/bin/qsub;;
         (ibm)    queue=p690_standard; remote_addres=134.76.99.81; submcom=/usr/lpp/LoadL/full/bin/llsubmit;;
         (ibmb)   queue=cpar; remote_addres=130.73.230.10; submcom=/usr/lpp/LoadL/full/bin/llsubmit;;
@@ -304 +301 @@
     ndq=$no_default_queue
     case  $remote_host  in
-        (hpmuk)  case  $ndq  in
-                     (hpmuk)  error=false;;
-                     (*)      error=true;;
-                 esac;;
         (ibm)    case  $ndq  in
                      (p690_express|p690_standard|p690_long)  error=false;;