Changeset 82


Ignore:
Timestamp:
Apr 16, 2007 3:40:52 PM (14 years ago)
Author:
raasch
Message:

vorlaeufige Standalone-Version fuer Linux-Cluster

Location:
palm/trunk
Files:
1 added
25 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/DOC/app/chapter_5.1.html

    r62 r82  
    1212Details about new releases can be found in the
    1313<a href="../tec/technical_documentation.html">technical/numerical
    14 documentation</a>. Users can easily make version updates by
     14documentation</a>.</p><p>If you have previously checked out the most recent (at that time)  PALM version by using</p><p style="margin-left: 40px; font-family: Courier New,Courier,monospace;">svn checkout ...../palm/trunk trunk &nbsp; &nbsp; ,</p><p>you can easily make an update to the most recent PALM version by
    1515changing into
    1616the working directory<span style="font-family: Courier New,Courier,monospace;">
    1717~/palm/current_version
    1818</span>and executing<span style="font-family: Courier New,Courier,monospace;"></span></p><p style="margin-left: 40px;"><span style="font-family: Courier New,Courier,monospace;">svn
    19 update</span></p><p><span style="font-family: Courier New,Courier,monospace;"></span>This
     19update trunk</span></p><p><span style="font-family: Courier New,Courier,monospace;"></span>This
    2020updates all files in the PALM working copy in subdirectory<span style="font-family: Courier New,Courier,monospace;"> trunk</span>.
    2121The update may fail due&nbsp;the&nbsp;<span style="font-weight: bold;">subversion</span> rules, if
  • palm/trunk/SCRIPTS/mbuild

    r75 r82  
    8787     #                    adjustments for running under pdksh, local ip-addres
    8888     #                    is not determined any more
     89     # 30/03/07 - Siggi - cpp-directives/options + netcdf-options are read
     90     #                    from configuration file
     91     #                    host identifier (local_host) is read from config file
    8992
    9093
     
    159162
    160163
    161     # LOKALEN RECHNER ERMITTELN
    162  local_host_real_name=$(hostname)
    163 # local_addres=$(nslookup `hostname` 2>&1 | grep "Address:" | tail -1 | awk '{print $2}')
    164 
    165  case  $local_host_real_name  in
    166      (atmos)                    local_host=lcide;;
    167      (berte)                    local_host=t3eb;;
    168      (bora|breva|gregale|irifi|levanto|maestro|orkan|ostria|quanero|scirocco)  local_host=lcmuk;;
    169      (fimm.bccs.uib.no)         local_host=lcmuk;;
    170      (gate)                     local_host=neck;;
    171      (gfdl3.yonsei.ac.kr)       local_host=decalpha;;
    172      (gfdl5)                    local_host=ibmy;;
    173      (gwdk081.gwdg.de)          local_host=ibm;;
    174      (hreg01a-en0|hreg02a-en0)  local_host=ibmh;;
    175      (nobel|nobela)             local_host=ibms;;
    176      (tgg*)                     local_host=lctit;;
    177      (t3e)                      local_host=t3eh;;
    178      (zam003)                   local_host=t3ej2;;
    179      (zam005)                   local_host=t3ej5;;
    180      (*)       printf "\n  +++ local host \"$local_host_real_name\" not admitted for mbuild \n"
    181                locat=local_host; exit;;
    182  esac
    183 
    184  [[ $local_host_real_name = scirocco ]]  &&  scirocco=true
    185  [[ $local_host_real_name = fimm.bccs.uib.no ]]  &&  fimm=true
    186 
    187 
    188 
    189164    # PRUEFEN, OB KONFIGURATIONS-DATEI VORHANDEN
    190165 if [[ ! -f $config_file ]]
     
    195170    locat=configuration; exit 
    196171 fi
     172
     173
     174
     175    # LOKALEN RECHNER ERMITTELN
     176 local_host_real_name=$(hostname)
     177# local_addres=$(nslookup `hostname` 2>&1 | grep "Address:" | tail -1 | awk '{print $2}')
     178
     179
     180
     181    # HOST-IDENTIFIER (local_host) AUS KONFIGURATIONSDATEI BESTIMMEN
     182 line=""
     183 grep  "%host_identifier"  $config_file  >  tmp_mbuild
     184 while read line
     185 do
     186    if [[ "$line" != ""  ||  $(echo $line | cut -c1) != "#" ]]
     187    then
     188       HOSTNAME=`echo $line | cut -d" " -s -f2`
     189       host_identifier=`echo $line | cut -d" " -s -f3`
     190       if [[ "$HOSTNAME" = $local_host_real_name ]]
     191       then
     192          local_host=$host_identifier
     193          break
     194       fi
     195    fi
     196 done < tmp_mbuild
     197
     198 if [[ "$local_host" = "" ]]
     199 then
     200    printf "\n  +++ no host identifier found in configuration file \"$config_file\""
     201    printf "\n      for local host \"$local_host_real_name\"."
     202    printf "\n      Please add line"
     203    printf "\n      \"\%host_identifier $local_host_real_name <identifier>\""
     204    printf "\n      to the configuration file."
     205    locat=local_host; exit
     206 fi
     207
     208
     209# case  $local_host_real_name  in
     210#     (atmos)                    local_host=lcide;;
     211#     (berte)                    local_host=t3eb;;
     212#     (bora|breva|gregale|irifi|levanto|maestro|orkan|ostria|quanero|scirocco)  local_host=lcmuk;;
     213#     (fimm.bccs.uib.no)         local_host=lcmuk;;
     214#     (gate)                     local_host=neck;;
     215#     (gfdl3.yonsei.ac.kr)       local_host=decalpha;;
     216#     (gfdl5)                    local_host=ibmy;;
     217#     (gwdk081.gwdg.de)          local_host=ibm;;
     218#     (hreg01a-en0|hreg02a-en0)  local_host=ibmh;;
     219#     (nobel|nobela)             local_host=ibms;;
     220#     (tgg*)                     local_host=lctit;;
     221#     (t3e)                      local_host=t3eh;;
     222#     (zam003)                   local_host=t3ej2;;
     223#     (zam005)                   local_host=t3ej5;;
     224#    (*)       printf "\n  +++ local host \"$local_host_real_name\" not admitted for mbuild \n"
     225#               locat=local_host; exit;;
     226# esac
     227
     228 [[ $local_host_real_name = scirocco ]]  &&  scirocco=true
     229 [[ $local_host_real_name = fimm.bccs.uib.no ]]  &&  fimm=true
     230
     231
     232
    197233 if [[ $local_host != ibms ]]
    198234 then
     
    214250    fi
    215251 done < tmp_mbuild
     252
    216253
    217254 if [[ "$local_username" = "" ]]
     
    673710    fi
    674711
     712    netcdf_inc=""
     713    netcdf_lib=""
    675714
    676715       # AUF HLRN-RECHNER NUR EINMAL UEBERSETZEN
     
    700739    netcdf_support=false
    701740    case  $remote_host  in
    702         (lcmuk)          remote_addres=130.75.105.3; cpp_options=""
     741        (lcmuk)          remote_addres=130.75.105.3
    703742                         netcdf_support=true
    704743                         if [[ $scirocco = true ]]
     
    939978
    940979
     980       # PRAEPROZESSOR-OPTIONEN/DIREKTIVEN ERMITTELN
     981    line=""
     982    grep  "$remote_host_string" $config_file | grep "%cpp_options"  >  tmp_mbuild
     983    while read line1
     984    do
     985       if [[ $(echo $line1 | cut -d" " -s -f3-) = "$remote_host_string" ]]
     986       then
     987          line="$line1"
     988       fi
     989    done < tmp_mbuild
     990    if [[ "$line" = ""  ||  $(echo $line | cut -c1) = "#" ]]
     991    then
     992       printf "\n  +++ no preprocessor options found in configuration file"
     993       printf "\n      for \"$remote_host_string\" "
     994       locat=config_file; exit
     995    else
     996          # EVENTUELLE DOPPELPUNKTE AUS OPTIONSSTRING ENTFERNEN
     997       cpp_options=`echo $line | cut -d" " -s -f2 | sed 's/::/%DUM%/g' | sed 's/:/ /g' | sed 's/%DUM%/:/g'`
     998    fi
     999
     1000       # RECHNERSPEZIFISCHE CPP-DIREKTIVEN HINZUFUEGEN
     1001    for  string  in  $remote_host_string
     1002    do
     1003       if [[ $(echo $remote_host | cut -c1-2) = lc  &&  $(echo $string | cut -c1-2) = lc ]]
     1004       then
     1005          cpp_options="$cpp_options -D__lc "
     1006       else
     1007          cpp_options="$cpp_options -D__$string "
     1008       fi
     1009    done
     1010
     1011
     1012
     1013       # NETCDF-OPTIONEN ERMITTELN
     1014    line=""
     1015    grep  "$remote_host_string" $config_file | grep "%netcdf_inc"  >  tmp_mbuild
     1016    while read line1
     1017    do
     1018       if [[ $(echo $line1 | cut -d" " -s -f3-) = "$remote_host_string" ]]
     1019       then
     1020          line="$line1"
     1021       fi
     1022    done < tmp_mbuild
     1023    if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
     1024    then
     1025          # EVENTUELLE DOPPELPUNKTE AUS OPTIONSSTRING ENTFERNEN
     1026       netcdf_inc=`echo $line | cut -d" " -s -f2 | sed 's/::/%DUM%/g' | sed 's/:/ /g' | sed 's/%DUM%/:/g'`
     1027    fi
     1028
     1029    line=""
     1030    grep  "$remote_host_string" $config_file | grep "%netcdf_lib"  >  tmp_mbuild
     1031    while read line1
     1032    do
     1033       if [[ $(echo $line1 | cut -d" " -s -f3-) = "$remote_host_string" ]]
     1034       then
     1035          line="$line1"
     1036       fi
     1037    done < tmp_mbuild
     1038    if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
     1039    then
     1040          # EVENTUELLE DOPPELPUNKTE AUS OPTIONSSTRING ENTFERNEN
     1041       netcdf_lib=`echo $line | cut -d" " -s -f2 | sed 's/::/%DUM%/g' | sed 's/:/ /g' | sed 's/%DUM%/:/g'`
     1042    fi
     1043
     1044
     1045
    9411046       # COMPILEROPTIONEN ERMITTELN
    9421047    line=""
     
    9571062          # EVENTUELLE DOPPELPUNKTE AUS DIREKTIVENSTRING ENTFERNEN
    9581063       compiler_options=`echo $line | cut -d" " -s -f2 | sed 's/::/%DUM%/g' | sed 's/:/ /g' | sed 's/%DUM%/:/g'`
    959     fi
     1064
     1065          # NETCDF-INCLUDEVERZEICHNIS HINZUFUEGEN
     1066       compiler_options="$compiler_options $netcdf_inc"
     1067    fi
     1068
    9601069    if [[ $netcdf_support = true ]]
    9611070    then
     
    9651074          (ibms)      compiler_options="-I /applic/netcdf64/src/f90  $compiler_options";;
    9661075          (ibmy)      compiler_options="-I ${netcdf_path}/include  $compiler_options";;
    967           (lcmuk)     compiler_options="-I ${netcdf_path}/include  $compiler_options";;
    9681076          (lctit)     compiler_options="-I ${netcdf_path}/include  $compiler_options";;
    9691077          (nech|neck) compiler_options="-I ${netcdf_path}/include  $compiler_options";;
    9701078       esac
    9711079    fi
    972 
    9731080
    9741081
     
    9921099          # EVENTUELLE DOPPELPUNKTE AUS DIREKTIVENSTRING ENTFERNEN
    9931100       loader_options=`echo $line | cut -d" " -s -f2 | sed 's/::/%DUM%/g' | sed 's/:/ /g' | sed 's/%DUM%/:/g'`
    994     fi
     1101
     1102          # NETCDF-LIBRARY HINZUFUEGEN
     1103       loader_options="$loader_options $netcdf_lib"
     1104    fi
     1105
    9951106    if [[ $netcdf_support = true ]]
    9961107    then
    9971108       case  $remote_host  in
    998           (decalpha)                   loader_options="$loader_options -L${netcdf_path}/lib -lnetcdf";;
    999           (ibmb|ibmh|lcmuk|nech|neck)  loader_options="$loader_options -L${netcdf_path}/lib -lnetcdf";;
    1000           (ibms)                       loader_options="$loader_options -L${netcdf_path} -lnetcdf";;
    1001           (ibmy)                       loader_options="$loader_options -L${netcdf_path}/lib -lnetcdf";;
    1002           (lctit)                      loader_options="$loader_options -L${netcdf_path}/lib -lnetcdf";;
     1109          (decalpha)             loader_options="$loader_options -L${netcdf_path}/lib -lnetcdf";;
     1110          (ibmb|ibmh|nech|neck)  loader_options="$loader_options -L${netcdf_path}/lib -lnetcdf";;
     1111          (ibms)                 loader_options="$loader_options -L${netcdf_path} -lnetcdf";;
     1112          (ibmy)                 loader_options="$loader_options -L${netcdf_path}/lib -lnetcdf";;
     1113          (lctit)                loader_options="$loader_options -L${netcdf_path}/lib -lnetcdf";;
    10031114       esac
    10041115    fi
  • palm/trunk/SCRIPTS/mrun

    r79 r82  
    114114     # 29/03/07 - Siggi  - global revision transfered to batch job by new
    115115     #                     option -G
     116     # 30/03/07 - Siggi  - compilation "by hand" removed, cpp-directives/options
     117     #                     + netcdf/dvrp-options are read from configuration
     118     #                     file, host identifier (local_host) is read from
     119     #                     config file, code related to ftp filetransfer
     120     #                     removed (incl. option -f)
    116121
    117122
     
    135140 config_file=.mrun.config
    136141 cpp_opts=""
     142 cpp_options=""
    137143 cpumax=0
    138144 cpurest=0
     
    148154 executable=""
    149155 execution_error=false
    150  filetransfer_protocol=""
    151156 fimm=false
    152157 fname=test
     
    172177 done
    173178 module_files=""
    174  MODULE_OPTIONS=""
    175179 mrun_script_name=$mc
     180 netcdf_inc=""
     181 netcdf_lib=""
    176182 netcdf_support=false
    177183 node_usage=default
     
    213219 transfer_problems=false
    214220 usern=$LOGNAME
    215  use_makefile=""
    216221 working_directory=`pwd`
    217222 TOPT=""
     
    335340
    336341
    337     # EVTL. NAMEN DES LOKALEN RECHNERS MIT UEBERGREIFENDEM NAMEN VERSEHEN
    338  case  $localhost_realname  in
    339      (atmos)                localhost=lcide;;
    340      (bora|breva|elephanta|gallego|gregale|hababai|irifi|levanto|maestro|orkan|ostria|poniente|quanero|scirocco|vorias)  localhost=lcmuk;;
    341      (breg*-en0|berni*-en0) localhost=ibmb; archive_system=tivoli;;
    342      (cs*)                  localhost=nech; archive_system=ut;;
    343      (fimm.bccs.uib.no)     localhost=lcmuk;;
    344      (gate|n-sx)            PATH=$PALM_BIN:$PATH:/usr/bin/nqsII; localhost=neck;;
    345      (ground.yonsei.ac.kr)  localhost=decalpha;;
    346      (gfdl3.yonsei.ac.kr)   localhost=decalpha;;
    347      (gfdl5)                localhost=ibmy;;
    348      (hreg*-en0|hanni*-en0) localhost=ibmh; archive_system=tivoli;;
    349      (nobel*)               localhost=ibms;;
    350      (sun1|sun2)            localhost=unics;;
    351      (tgg*)                 localhost=lctit;;
    352      (*)                    printf "\n  +++ Host \"$localhost_realname\" not admitted for mrun \n"
    353                             locat=localhost; exit;;
    354  esac
    355 
    356  [[ $localhost_realname = scirocco ]]  &&  scirocco=true
    357  [[ $localhost_realname = fimm.bccs.uib.no ]]  &&  fimm=true
    358 
    359 
    360  
     342
    361343    # SHELLSCRIPT-OPTIONEN EINLESEN UND KOMMANDO NEU ZUSAMMENSETZEN, FALLS ES
    362344    # FUER FOLGEJOBS BENOETIGT WIRD
    363  while  getopts  :a:AbBc:Cd:D:f:FG:h:H:i:IkK:m:M:n:o:Op:P:q:r:R:s:St:T:u:U:vxX: option
     345 while  getopts  :a:AbBc:Cd:D:FG:h:H:i:IkK:m:M:n:o:Op:P:q:r:R:s:St:T:u:U:vxX: option
    364346 do
    365347   case  $option  in
     
    372354       (d)   fname=$OPTARG; mc="$mc -d$OPTARG";;
    373355       (D)   cpp_opts="$cpp_opts $OPTARG"; mc="$mc -D$OPTARG";;
    374        (f)   filetransfer_protocol=$OPTARG; mc="$mc -f$OPTARG";;
    375356       (F)   job_on_file="-D"; mc="$mc -F";;
    376357       (G)   global_revision=$OPTARG; mc="$mc -G'$OPTARG'";;
     
    426407    printf "\n        -d    base name of files attached to program   test"
    427408    printf "\n        -D    preprocessor(cpp)-directives             \"\" "
    428     printf "\n        -f    filetransfer protocol (ftp or scp)       depending on -h"
    429409    printf "\n        -F    create remote job file only              ---"
    430410    printf "\n        -h    execution host                           $localhost_realname"
     
    472452
    473453
     454
     455    # PRUEFEN, OB KONFIGURATIONS-DATEI VORHANDEN
     456 if [[ ! -f $config_file ]]
     457 then
     458    printf "\n\n  +++ configuration file: "
     459    printf "\n           $config_file"
     460    printf "\n      does not exist"
     461    locat=connect; exit 
     462 fi
     463
     464
     465    # HOST-IDENTIFIER (local_host) AUS KONFIGURATIONSDATEI BESTIMMEN
     466 line=""
     467 grep  "%host_identifier"  $config_file  >  tmp_mrun
     468 while read line
     469 do
     470    if [[ "$line" != ""  ||  $(echo $line | cut -c1) != "#" ]]
     471    then
     472       HOSTNAME=`echo $line | cut -d" " -s -f2`
     473       host_identifier=`echo $line | cut -d" " -s -f3`
     474       if [[ "$HOSTNAME" = $localhost_realname ]]
     475       then
     476          localhost=$host_identifier
     477          break
     478       fi
     479    fi
     480 done < tmp_mrun
     481
     482 if [[ "$localhost" = "" ]]
     483 then
     484    printf "\n\n  +++ no host identifier found in configuration file \"$config_file\""
     485    printf "\n      for local host \"$localhost_realname\"."
     486    printf "\n      Please add line"
     487    printf "\n      \"\%host_identifier $localhost_realname <identifier>\""
     488    printf "\n      to the configuration file."
     489    locat=localhost; exit
     490 fi
     491
     492
     493
     494    # HOSTSPEZIFISCHE VARIABLEN SETZEN
     495 case  $localhost_realname  in
     496     (breg*-en0|berni*-en0)  archive_system=tivoli;;
     497     (cs*)                   archive_system=ut;;
     498     (fimm.bccs.uib.no)      fimm=true;;
     499     (gate|n-sx)             PATH=$PALM_BIN:$PATH:/usr/bin/nqsII;;
     500     (hreg*-en0|hanni*-en0)  archive_system=tivoli;;
     501     (scirocco)              scirocco=true;;
     502 esac
     503
     504
     505 
    474506    # BASISNAME DER INPUT-DATEIEN GLEICH ALLGEMEINEM BASISNAMEN SETZEN,
    475507    # WENN NICHT VOM BENUTZER ANDERS BESTIMMT
     
    555587
    556588
    557     # PRUEFEN, OB KONFIGURATIONS-DATEI VORHANDEN
    558  if [[ ! -f $config_file ]]
    559  then
    560     printf "\n\n  +++ configuration file: "
    561     printf "\n           $config_file"
    562     printf "\n      does not exist"
    563     locat=connect; exit 
    564  fi
    565 
    566 
    567589
    568590    # LESEN UND INTERPRETIEREN DER KONFIGURATIONS-DATEI VOM SHELLSCRIPT AUS
     
    10301052 fi
    10311053
    1032     # DEFAULT-DATEITRANSFER-PROTOKOLL FESTLEGEN
    1033  if [[ "$filetransfer_protocol" = "" ]]
    1034  then
    1035     case  $host  in
    1036         (nech|neck|ibm|ibmb|ibmh|ibms|ibmy|lctit)  filetransfer_protocol=scp;;
    1037         (*)              filetransfer_protocol=ftp;;
    1038     esac
    1039  fi
    1040 
    1041     # PRUEFEN, OB ZULAESSIGES DATEITRANSFER-PROTOKOLL GEWAEHLT WURDE
    1042  if [[ "$filetransfer_protocol" != ftp  &&  "$filetransfer_protocol" != scp ]]
    1043  then
    1044     printf "\n"
    1045     printf "\n  +++ illegal value \"$filetransfer_protocol\" for Option -f"
    1046     printf "\n      only \"ftp\" or \"scp\" are allowed"
    1047     locat=options; exit
    1048  fi
    10491054
    10501055
     
    10751080
    10761081    # EVTL. NETCDF-UNTERSTUETZUNG SETZEN
    1077  case  $host  in
    1078      (decalpha)   netcdf_support=true
    1079                   netcdf_path=/usr/local/netcdf-3.5.1;;
    1080      (ibmb|ibmh)  netcdf_support=true
    1081                   netcdf_path=/aws/dataformats/netcdf-3.6.0-p1/64-32;;
    1082      (ibms)       netcdf_support=true
    1083                   netcdf_path=/applic/lib/NETCDF64;;
    1084      (ibmy)       netcdf_support=true
    1085                   netcdf_path=/usr1/users/raasch/pub/netcdf-3.6.0-p1;;
    1086      (lcmuk)      netcdf_support=true
    1087                   if [[ $scirocco = true ]]
    1088                   then
    1089                      netcdf_path=/opt/netcdf/3.6.2-beta4
    1090                   elif [[ $fimm = true ]]
    1091                   then
    1092                      netcdf_path=/local/netcdf
    1093                   else
    1094                      netcdf_path=/muksoft/packages/netcdf/linux
    1095                   fi;;
    1096      (lctit)      netcdf_support=true
    1097                   netcdf_path=/home2/usr5/mkanda/netcdf-3.6.2;;
    1098      (nech)       netcdf_support=true
    1099                   netcdf_path=/pool/SX-6/netcdf/netcdf-3.6.0-p1;;
    1100      (neck)       netcdf_support=true
    1101                   netcdf_path=/home/DSRC/NC/tatuyama/pub/netcdf-3.6.0-p1;;
    1102  esac
     1082# case  $host  in
     1083#     (decalpha)   netcdf_support=true
     1084#                  netcdf_path=/usr/local/netcdf-3.5.1;;
     1085#     (ibmb|ibmh)  netcdf_support=true
     1086#                  netcdf_path=/aws/dataformats/netcdf-3.6.0-p1/64-32;;
     1087#     (ibms)       netcdf_support=true
     1088#                  netcdf_path=/applic/lib/NETCDF64;;
     1089#     (ibmy)       netcdf_support=true
     1090#                  netcdf_path=/usr1/users/raasch/pub/netcdf-3.6.0-p1;;
     1091#     (lcmuk)      if [[ $scirocco = true ]]
     1092#                  then
     1093#                     netcdf_path=/opt/netcdf/3.6.2-beta4
     1094#                  elif [[ $fimm = true ]]
     1095#                  then
     1096#                     netcdf_path=/local/netcdf
     1097#                  else
     1098#                     netcdf_path=/muksoft/packages/netcdf/linux
     1099#                  fi;;
     1100#     (lctit)      netcdf_support=true
     1101#                  netcdf_path=/home2/usr5/mkanda/netcdf-3.6.2;;
     1102#     (nech)       netcdf_support=true
     1103#                  netcdf_path=/pool/SX-6/netcdf/netcdf-3.6.0-p1;;
     1104#     (neck)       netcdf_support=true
     1105#                  netcdf_path=/home/DSRC/NC/tatuyama/pub/netcdf-3.6.0-p1;;
     1106# esac
    11031107
    11041108
     
    16261630       # MAKEFILE AUF VORHANDENSEIN PRUEFEN UND KOPIEREN
    16271631       # BEI RESTART-LAEUFEN LIEGT ES SCHON IM VERZEICHNIS SOURCES_FOR_RUN...
    1628     if [[ "$use_makefile" = true  &&  "$restart_run" != true ]]
     1632    if [[ "$restart_run" != true ]]
    16291633    then
    16301634       [[ "$makefile" = "" ]]  &&  makefile=$source_path/Makefile
     
    16321636       then
    16331637          printf "\n  +++ file \"$makefile\" does not exist"
    1634           printf "\n      provide this file or set \"use_makefile=false\" in configuration file\n"
    16351638          locat=make; exit
    16361639       else
     
    16511654    if [[ $(echo $localhost | cut -c1-3) = ibm ]]
    16521655    then
    1653        PPOPTS=-Dibm=ibm
     1656       cpp_options="${cpp_options},-D__ibm=__ibm"
    16541657    elif [[ $(echo $localhost | cut -c1-3) = nec ]]
    16551658    then
    1656        PPOPTS=-Dnec
     1659       cpp_options="$cpp_options -D__nec"
     1660    elif [[ $(echo $localhost | cut -c1-2) = lc ]]
     1661    then
     1662       cpp_options="$cpp_options -D__lc"
    16571663    else
    1658        PPOPTS=-D$localhost
     1664       cpp_options="$cpp_options -D__$localhost"
    16591665    fi
    16601666    if [[ $(echo $localhost | cut -c1-3) = ibm ]]
    16611667    then
    1662        [[ -n $cond1 ]]               &&  PPOPTS="$PPOPTS -D$cond1=$cond1"
    1663        [[ -n $cond2 ]]               &&  PPOPTS="$PPOPTS -D$cond2=$cond2"
    1664        if [[ $netcdf_support = true ]]
    1665        then
    1666           PPOPTS="$PPOPTS -Dnetcdf=netcdf"
    1667           [[ $localhost != ibms ]]      &&  PPOPTS="$PPOPTS -Dnetcdf_64bit=netcdf_64bit"
    1668        fi
    1669        if [[ $localhost = ibmy ]]
    1670        then
    1671           PPOPTS="$PPOPTS -Dibmy_special=ibmy_special"
    1672        fi
     1668       [[ -n $cond1 ]]  &&  cpp_options="${cpp_options},-D__$cond1=__$cond1"
     1669       [[ -n $cond2 ]]  &&  cpp_options="${cpp_options},-D__$cond2=__$cond2"
     1670#       if [[ $netcdf_support = true ]]
     1671#       then
     1672#          PPOPTS="$PPOPTS -Dnetcdf=netcdf"
     1673#          [[ $localhost != ibms ]]      &&  PPOPTS="$PPOPTS -Dnetcdf_64bit=netcdf_64bit"
     1674#       fi
     1675#       if [[ $localhost = ibmy ]]
     1676#       then
     1677#          PPOPTS="$PPOPTS -Dibmy_special=ibmy_special"
     1678#       fi
    16731679    else
    1674        [[ -n $cond1 ]]               &&  PPOPTS="$PPOPTS -D$cond1"
    1675        [[ -n $cond2 ]]               &&  PPOPTS="$PPOPTS -D$cond2"
    1676        if [[ $netcdf_support = true ]]
    1677        then
    1678           PPOPTS="$PPOPTS -Dnetcdf"
    1679           [[ $localhost != decalpha  &&  $localhost != lctit ]]  &&  PPOPTS="$PPOPTS -Dnetcdf_64bit"
    1680        fi
     1680       [[ -n $cond1 ]]  &&  cpp_options="$cpp_options -D__$cond1"
     1681       [[ -n $cond2 ]]  &&  cpp_options="$cpp_options -D__$cond2"
     1682#       if [[ $netcdf_support = true ]]
     1683#       then
     1684#          PPOPTS="$PPOPTS -Dnetcdf"
     1685#          [[ $localhost != decalpha  &&  $localhost != lctit ]]  &&  PPOPTS="$PPOPTS -Dnetcdf_64bit"
     1686#       fi
    16811687    fi
    16821688    if [[ -n $package_list ]]
     
    16881694             if [[ $package != "dvrp_graphics+1PE" ]]
    16891695             then
    1690                 PPOPTS="$PPOPTS -D$package=$package"
     1696                cpp_options="${cpp_options},-D__$package=__$package"
    16911697             else
    1692                 PPOPTS="$PPOPTS -Ddvrp_graphics"
     1698                cpp_options="${cpp_options},-D__dvrp_graphics=__dvrp_graphics"
    16931699                export use_seperate_pe_for_dvrp_output=true
    16941700             fi
     
    16961702             if [[ $package != "dvrp_graphics+1PE" ]]
    16971703             then
    1698                 PPOPTS="$PPOPTS -D$package"
     1704                cpp_options="$cpp_options -D__$package"
    16991705             else
    1700                 PPOPTS="$PPOPTS -Ddvrp_graphics"
     1706                cpp_options="$cpp_options -D__dvrp_graphics"
    17011707                export use_seperate_pe_for_dvrp_output=true
    17021708             fi
     
    17081714       for  popts  in  $cpp_opts
    17091715       do
    1710           PPOPTS="$PPOPTS -D$popts"
     1716          if [[ $(echo $localhost | cut -c1-3) = ibm ]]
     1717          then
     1718             cpp_options="${cpp_options},-D__$popts=__$popts"
     1719          else
     1720             cpp_options="$cpp_options -D__$popts"
     1721          fi
    17111722       done
    17121723    fi
    17131724
    1714        # -D ARGUMENTEN EINEN DOPPELTEN UNTERSTRICH VORANSTELLEN
    1715     PPOPTS=`echo " $PPOPTS" | sed 's/ -D/ -D__/g'`
    1716 
    17171725       # OPTION ZUM EINSCHALTEN DES PRAEPROZESSORS HINZUFUEGEN
    1718     if [[ $host = decalpha ]]
    1719     then
    1720        C_PPOPTS="-cpp  -DMPI_REAL=MPI_DOUBLE_PRECISION -DMPI_2REAL=MPI_2DOUBLE_PRECISION $PPOPTS"
    1721     elif [[ $(echo $host | cut -c1-3) = ibm ]]
    1722     then
    1723           # blanks in PPOPTS muessen durch "," ersetzt werden
    1724        PPOPTS=`echo $PPOPTS | sed 's/ -/,-/g'`
    1725        C_PPOPTS="-qsuffix=cpp=f90 -WF,-DMPI_REAL=MPI_DOUBLE_PRECISION,$PPOPTS"
    1726     elif [[ $host = lcmuk ]]
    1727     then
    1728        C_PPOPTS="$PPOPTS -DMPI_REAL=MPI_DOUBLE_PRECISION -DMPI_2REAL=MPI_2DOUBLE_PRECISION"
    1729     elif [[ $host = lctit ]]
    1730     then
    1731        C_PPOPTS="$PPOPTS -Mpreprocess -DMPI_REAL=MPI_DOUBLE_PRECISION -DMPI_2REAL=MPI_2DOUBLE_PRECISION"
    1732     elif [[ $(echo $host | cut -c1-3) = nec ]]
    1733     then
    1734        C_PPOPTS="-Ep -DMPI_REAL=MPI_REAL8 -DMPI_2REAL=MPI_2REAL8 -DSCFFT=dzfft -DCSFFT=zdfft $PPOPTS"
    1735     else
    1736        C_PPOPTS="$PPOPTS"
    1737     fi
     1726#    if [[ $host = decalpha ]]
     1727#    then
     1728#       C_PPOPTS="-cpp  -DMPI_REAL=MPI_DOUBLE_PRECISION -DMPI_2REAL=MPI_2DOUBLE_PRECISION $PPOPTS"
     1729#    elif [[ $(echo $host | cut -c1-3) = ibm ]]
     1730#    then
     1731#          # blanks in PPOPTS muessen durch "," ersetzt werden
     1732#       PPOPTS=`echo $PPOPTS | sed 's/ -/,-/g'`
     1733#       C_PPOPTS="-qsuffix=cpp=f90 -WF,-DMPI_REAL=MPI_DOUBLE_PRECISION,$PPOPTS"
     1734#    elif [[ $host = lcmuk ]]
     1735#    then
     1736#       C_PPOPTS="$PPOPTS -DMPI_REAL=MPI_DOUBLE_PRECISION -DMPI_2REAL=MPI_2DOUBLE_PRECISION"
     1737#    elif [[ $host = lctit ]]
     1738#    then
     1739#       C_PPOPTS="$PPOPTS -Mpreprocess -DMPI_REAL=MPI_DOUBLE_PRECISION -DMPI_2REAL=MPI_2DOUBLE_PRECISION"
     1740#    elif [[ $(echo $host | cut -c1-3) = nec ]]
     1741#    then
     1742#       C_PPOPTS="-Ep -DMPI_REAL=MPI_REAL8 -DMPI_2REAL=MPI_2REAL8 -DSCFFT=dzfft -DCSFFT=zdfft $PPOPTS"
     1743#    else
     1744#       C_PPOPTS="$PPOPTS"
     1745#    fi
    17381746
    17391747 else
     
    17661774 if [[ "$compiler_name" = "" ]]
    17671775 then
    1768     case  $localhost  in
    1769         (unics)                                 compiler_name=f77;;
    1770         (lcmuk)                                 if [[ "$cond1" = parallel  ||  "$cond2" = parallel ]]
    1771                                                 then
    1772                                                    compiler_name=mpif90
    1773                                                 else
    1774                                                    compiler_name=ifc
    1775                                                 fi;;
    1776         (lctit)                                 if [[ "$cond1" = parallel  ||  "$cond2" = parallel ]]
    1777                                                 then
    1778                                                    compiler_name=mpif90
    1779                                                    echo ">>> compiler=mpif90"
    1780                                                 else
    1781                                                    compiler_name=pgf95
    1782                                                    echo ">>> compiler=pgf95"
    1783                                                 fi;;
    1784         (nech)                                  compiler_name=sxmpif90;;
    1785         (decalpha)                              compiler_name=f95;;
    1786         (ibm|ibmb|ibmh|ibms|ibmy)               compiler_name=mpxlf95_r;;
    1787         (*)      printf "\n  +++ unknown host name: $localhost \n";
    1788                  locat=localhost; exit;;
    1789     esac
     1776
     1777    printf "\n  +++ no compiler specified for \"$localhost $cond1 $cond2\""
     1778    locat=compiler_name; exit
     1779
     1780#    case  $localhost  in
     1781#        (unics)                                 compiler_name=f77;;
     1782#        (lctit)                                 if [[ "$cond1" = parallel  ||  "$cond2" = parallel ]]
     1783#                                                then
     1784#                                                   compiler_name=mpif90
     1785#                                                   echo ">>> compiler=mpif90"
     1786#                                                else
     1787#                                                   compiler_name=pgf95
     1788#                                                   echo ">>> compiler=pgf95"
     1789#                                                fi;;
     1790#        (nech)                                  compiler_name=sxmpif90;;
     1791#        (decalpha)                              compiler_name=f95;;
     1792#        (ibm|ibmb|ibmh|ibms|ibmy)               compiler_name=mpxlf95_r;;
     1793#        (*)      printf "\n  +++ unknown host name: $localhost \n";
     1794#                 locat=localhost; exit;;
     1795#    esac
    17901796 fi
    17911797
     
    18461852
    18471853    # COMPILE- UND LINK-OPTIONEN BESTIMMEN
    1848  FOPTS="$fopts"
    1849  LOPTS="$lopts"
     1854 fopts="$fopts $netcdf_inc $dvrp_inc"
     1855 lopts="$lopts $netcdf_lib $dvrp_lib"
    18501856 ROPTS="$ropts"
    18511857 if [[ ( $(echo $host | cut -c1-3) = nec  ||  $(echo $host | cut -c1-3) = ibm  ||  $host = lctit )  &&  -n $numprocs ]]
     
    18571863    # BEI VERWENDUNG VON DVRP-SOFTWARE MUSS ENTSPECHENDE GRAFIK-BIBLIOTHEK
    18581864    # MIT EINGEBUNDEN WERDEN
    1859  if [[ -n $package_list ]]
    1860  then
    1861     if [[ $(echo $package_list | grep -c dvrp_graphics) != 0 ]]
    1862     then
    1863 
    1864           # DVRP-GRAFIK GIBT ES NUR AUF DER IBM AM HLRN, AUF NECH/NECK UND
    1865           # DEM NOTEBOOK SCIROCCO
    1866        if [[ $host != ibmh  &&  $host != nech  &&  $host != neck  &&  $host != lcmuk  &&  "$local_compile" != true ]]
    1867        then
    1868           printf "\n"
    1869           printf "\n  +++ option -p with package \"dvrp_graphics\" only allowed on nech and ibmh"
    1870           locat=parameter; exit
    1871        fi
    1872        if [[ $host = ibmh ]]
    1873        then
    1874           if [[ $cond1 = debug  ||  $cond2 = debug ]]
    1875           then
    1876              FOPTS="-I/home/h/hzazchmi/lib/debug  $FOPTS"
    1877              LOPTS="$LOPTS -L/home/h/hzazchmi/lib/debug -lDVRP2 -lftp"
    1878           else
    1879              FOPTS="-I/home/h/nikevita/lib_stable/optimize  $FOPTS"
    1880              LOPTS="$LOPTS -L/home/h/nikevita/lib_stable/optimize -lDVRP2 -lftp"
    1881           fi
    1882        elif [[ $host = nech ]]
    1883        then
    1884           FOPTS="-I/import/ds9b/ipf2/b/b323014/lib/optimize  $FOPTS"
    1885           LOPTS="$LOPTS -L/import/ds9b/ipf2/b/b323014/lib/optimize -lDVRP2 -lftp"
    1886        elif [[ $host = neck ]]
    1887        then
    1888           FOPTS="-I/home/DSRC/NC/tatuyama/pub/dvrp  $FOPTS"
    1889           LOPTS="$LOPTS -L/home/DSRC/NC/tatuyama/pub/dvrp -lDVRP2 -lftp"
    1890        elif [[ $host = lcmuk ]]
    1891        then
    1892           FOPTS="-I/usr/local/lib/dvrp/optimize  $FOPTS"
    1893           LOPTS="$LOPTS -L/usr/local/lib/dvrp/optimize -lDVRP2 -lftp"
    1894        fi
    1895     fi
    1896  fi
     1865# if [[ -n $package_list ]]
     1866# then
     1867#    if [[ $(echo $package_list | grep -c dvrp_graphics) != 0 ]]
     1868#    then
     1869#
     1870#          # DVRP-GRAFIK GIBT ES NUR AUF DER IBM AM HLRN, AUF NECH/NECK UND
     1871#          # DEM NOTEBOOK SCIROCCO
     1872#       if [[ $host != ibmh  &&  $host != nech  &&  $host != neck  &&  $host != lcmuk  &&  "$local_compile" != true ]]
     1873#       then
     1874#          printf "\n"
     1875#          printf "\n  +++ option -p with package \"dvrp_graphics\" only allowed on nech and ibmh"
     1876#          locat=parameter; exit
     1877#       fi
     1878#       if [[ $host = ibmh ]]
     1879#       then
     1880#          if [[ $cond1 = debug  ||  $cond2 = debug ]]
     1881#          then
     1882#             fopts="-I/home/h/hzazchmi/lib/debug  $fopts"
     1883#             lopts="$lopts -L/home/h/hzazchmi/lib/debug -lDVRP2 -lftp"
     1884#          else
     1885#             fopts="-I/home/h/nikevita/lib_stable/optimize  $fopts"
     1886#             lopts="$lopts -L/home/h/nikevita/lib_stable/optimize -lDVRP2 -lftp"
     1887#          fi
     1888#       elif [[ $host = nech ]]
     1889#       then
     1890#          fopts="-I/import/ds9b/ipf2/b/b323014/lib/optimize  $fopts"
     1891#          lopts="$lopts -L/import/ds9b/ipf2/b/b323014/lib/optimize -lDVRP2 -lftp"
     1892#       elif [[ $host = neck ]]
     1893#       then
     1894#          fopts="-I/home/DSRC/NC/tatuyama/pub/dvrp  $fopts"
     1895#          lopts="$lopts -L/home/DSRC/NC/tatuyama/pub/dvrp -lDVRP2 -lftp"
     1896#       elif [[ $host = lcmuk ]]
     1897#       then
     1898#          fopts="-I/usr/local/lib/dvrp/optimize  $fopts"
     1899#          lopts="$lopts -L/usr/local/lib/dvrp/optimize -lDVRP2 -lftp"
     1900#       fi
     1901#    fi
     1902# fi
    18971903
    18981904
    18991905    # EVTL. EINBINDEN DER NETCDF-BIBLIOTHEK
    1900  if [[ $netcdf_support = true ]]
    1901  then
    1902     case  $host  in
    1903        (decalpha)         FOPTS="-I${netcdf_path}/include  $FOPTS"
    1904                           LOPTS="$LOPTS -L${netcdf_path}/lib -lnetcdf";;
    1905        (ibmb|ibmh)        FOPTS="-I ${netcdf_path}/include-64  $FOPTS"
    1906                           LOPTS="$LOPTS -L${netcdf_path}/lib -lnetcdf";;
    1907        (ibms)             FOPTS="-I /applic/netcdf64/src/f90  $FOPTS"
    1908                           LOPTS="$LOPTS -L${netcdf_path} -lnetcdf";;
    1909        (ibmy)             FOPTS="-I ${netcdf_path}/include  $FOPTS"
    1910                           LOPTS="$LOPTS -L${netcdf_path}/lib -lnetcdf";;
    1911        (lcmuk|nech|neck)  FOPTS="-I ${netcdf_path}/include  $FOPTS"
    1912                           LOPTS="$LOPTS -L${netcdf_path}/lib -lnetcdf";;
    1913        (lctit)            FOPTS="-I ${netcdf_path}/include  $FOPTS"
    1914                           LOPTS="$LOPTS -L${netcdf_path}/lib -lnetcdf";;
    1915 
    1916     esac
    1917  fi
     1906# if [[ $netcdf_support = true ]]
     1907# then
     1908#    case  $host  in
     1909#       (decalpha)   fopts="-I${netcdf_path}/include  $fopts"
     1910#                    lopts="$lopts -L${netcdf_path}/lib -lnetcdf";;
     1911#       (ibmb|ibmh)  fopts="-I ${netcdf_path}/include-64  $fopts"
     1912#                    lopts="$lopts -L${netcdf_path}/lib -lnetcdf";;
     1913#       (ibms)       fopts="-I /applic/netcdf64/src/f90  $fopts"
     1914#                    lopts="$lopts -L${netcdf_path} -lnetcdf";;
     1915#       (ibmy)       fopts="-I ${netcdf_path}/include  $fopts"
     1916#                    lopts="$lopts -L${netcdf_path}/lib -lnetcdf";;
     1917#       (nech|neck)  fopts="-I ${netcdf_path}/include  $fopts"
     1918#                    lopts="$lopts -L${netcdf_path}/lib -lnetcdf";;
     1919#       (lctit)      fopts="-I ${netcdf_path}/include  $fopts"
     1920#                    lopts="$lopts -L${netcdf_path}/lib -lnetcdf";;
     1921#
     1922#    esac
     1923# fi
    19181924
    19191925    # PRUEFEN DER CPU-ZEIT. (CPUMAX WIRD ALS ENV-VARIABLE VOM HAUTPRO-
     
    20142020 if [[ $do_compile = true ]]
    20152021 then
    2016     spalte1=cpp-directives:; spalte2=$C_PPOPTS
     2022    spalte1=cpp-directives:; spalte2=$cpp_options
    20172023    printf "| $spalte1$spalte2 | \n"
    2018     zeile=$(echo "$C_PPOPTS" | cut -c41-)
     2024    zeile=$(echo "$cpp_options" | cut -c41-)
    20192025    while [[ "$zeile" != "" ]]
    20202026    do
     
    20252031    done
    20262032
    2027     spalte1=compiler-options:; spalte2="$FOPTS $MODULE_OPTIONS"
     2033    spalte1=compiler-options:; spalte2="$fopts"
    20282034    printf "| $spalte1$spalte2 | \n"
    2029     zeile=$(echo "$FOPTS $MODULE_OPTIONS" | cut -c41-)
     2035    zeile=$(echo "$fopts" | cut -c41-)
    20302036    while [[ "$zeile" != "" ]]
    20312037    do
     
    20362042    done
    20372043
    2038     spalte1=linker-options:; spalte2=$LOPTS
     2044    spalte1=linker-options:; spalte2=$lopts
    20392045    printf "| $spalte1$spalte2 | \n"
    2040     zeile=$(echo "$LOPTS" | cut -c41-)
     2046    zeile=$(echo "$lopts" | cut -c41-)
    20412047    while [[ "$zeile" != "" ]]
    20422048    do
     
    20492055    spalte1="main program":; spalte2=$mainprog
    20502056    printf "| $spalte1$spalte2 | \n"
    2051     if [[ "$use_makefile" = true ]]
    2052     then
    2053        spalte1="using \"make\" for com"; spalte2="piling and linking"
    2054        printf "| $spalte1$spalte2 | \n"
    2055     fi
    2056 #    if [[ $vtk_graphics = true ]]
    2057 #    then
    2058 #       spalte1=""; spalte2="wird in C++ - Programm eingebunden (vtk)"
    2059 #       printf "| $spalte1$spalte2 | \n"
    2060 #    fi
    20612057 else
    20622058    spalte1=executable:; spalte2=$executable
     
    22122208       fi
    22132209
    2214        if [[ "$use_makefile" = true ]]
    2215        then
    2216 
    2217              # PFADNAMEN FUER DAS MAKE-DEPOSITORY ERMITTELN
    2218           line=""
    2219           grep "%depository_path" $config_file  >  tmp_mrun
    2220           while read line
    2221           do
    2222              if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
    2223              then
    2224                 if [[ "$(echo $line | cut -d" " -s -f3)" = "" ]]
    2225                 then
    2226                    global_depository_path=`echo $line | cut -d" " -s -f2`
    2227                 fi
    2228              fi
    2229           done < tmp_mrun
    2230 
    2231           line=""
    2232           grep  " $localhost" $config_file | grep "%depository_path"  >  tmp_mrun
    2233           while read line
    2234           do
    2235              if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
    2236              then
    2237                 local_depository_path=`echo $line | cut -d" " -s -f2`
    2238              fi
    2239           done < tmp_mrun
    2240 
    2241           if [[ "$local_depository_path" = "" ]]
    2242           then
    2243              if [[ "$global_depository_path" != "" ]]
    2244              then
    2245                 local_depository_path=$global_depository_path
    2246              else
    2247                 printf "\n\n  +++ no depository path found in configuration file"
    2248                 printf "\n      for local host \"$localhost\" "
    2249                 printf "\n      please set \"\%depository_path\" in configuration file\n"
    2250                 locat=config_file; exit
    2251              fi
    2252           fi
    2253           eval local_depository_path=$local_depository_path
    2254 
    2255           basename=`print $mainprog | cut -f1 -d"."`
    2256           eval make_depository=${local_depository_path}/${basename}_current_version.tar
    2257           if [[ ! -f $make_depository ]]
    2258           then
    2259              printf "\n"
    2260              printf "\n  *** WARNING: make depository \"$make_depository\" not found"
    2261              printf "\n               \"make\" will fail, if the Makefile or other source files are missing\n"
     2210
     2211          # PFADNAMEN FUER DAS MAKE-DEPOSITORY ERMITTELN
     2212       line=""
     2213       grep "%depository_path" $config_file  >  tmp_mrun
     2214       while read line
     2215       do
     2216          if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
     2217          then
     2218             if [[ "$(echo $line | cut -d" " -s -f3)" = "" ]]
     2219             then
     2220                global_depository_path=`echo $line | cut -d" " -s -f2`
     2221             fi
     2222          fi
     2223       done < tmp_mrun
     2224
     2225       line=""
     2226       grep  " $localhost" $config_file | grep "%depository_path"  >  tmp_mrun
     2227       while read line
     2228       do
     2229          if [[ "$line" != ""  &&  $(echo $line | cut -c1) != "#" ]]
     2230          then
     2231             local_depository_path=`echo $line | cut -d" " -s -f2`
     2232          fi
     2233       done < tmp_mrun
     2234
     2235       if [[ "$local_depository_path" = "" ]]
     2236       then
     2237          if [[ "$global_depository_path" != "" ]]
     2238          then
     2239             local_depository_path=$global_depository_path
    22622240          else
    2263              cp  $make_depository  $TEMPDIR_COMPILE
    2264              cd  $TEMPDIR_COMPILE
    2265              tar -xf  $make_depository  >  /dev/null  2>&1
    2266              cd -  > /dev/null
    2267           fi
    2268 
    2269           cp  SOURCES_FOR_RUN_$fname/*  $TEMPDIR_COMPILE
    2270 
    2271              # FALLS USER-INTERFACE VORHANDEN UND AUF DATEI MIT ANDEREM NAMEN
    2272              # ALS user_interface.f90 LIEGT, DIESEN GEAENDERTEN NAMEN INS
    2273              # MAKEFILE EINTRAGEN
     2241             printf "\n\n  +++ no depository path found in configuration file"
     2242             printf "\n      for local host \"$localhost\" "
     2243             printf "\n      please set \"\%depository_path\" in configuration file\n"
     2244             locat=config_file; exit
     2245          fi
     2246       fi
     2247       eval local_depository_path=$local_depository_path
     2248
     2249       basename=`print $mainprog | cut -f1 -d"."`
     2250       eval make_depository=${local_depository_path}/${basename}_current_version.tar
     2251       if [[ ! -f $make_depository ]]
     2252       then
     2253          printf "\n"
     2254          printf "\n  *** WARNING: make depository \"$make_depository\" not found"
     2255          printf "\n               \"make\" will fail, if the Makefile or other source files are missing\n"
     2256       else
     2257          cp  $make_depository  $TEMPDIR_COMPILE
    22742258          cd  $TEMPDIR_COMPILE
    2275           interface_file=`grep -l "END SUBROUTINE user_parin" $source_list`
    2276           if [[ "$interface_file" != "" ]]
    2277           then
    2278              interface_file=`echo $interface_file | cut -d"." -f1`
    2279              mv  Makefile  Makefile_old
    2280              sed "s/user_interface/$interface_file/g"  Makefile_old  >  Makefile
    2281           fi
     2259          tar -xf  $make_depository  >  /dev/null  2>&1
    22822260          cd -  > /dev/null
    22832261       fi
     2262
     2263       cp  SOURCES_FOR_RUN_$fname/*  $TEMPDIR_COMPILE
     2264
     2265          # FALLS USER-INTERFACE VORHANDEN UND AUF DATEI MIT ANDEREM NAMEN
     2266          # ALS user_interface.f90 LIEGT, DIESEN GEAENDERTEN NAMEN INS
     2267          # MAKEFILE EINTRAGEN
     2268       cd  $TEMPDIR_COMPILE
     2269       interface_file=`grep -l "END SUBROUTINE user_parin" $source_list`
     2270       if [[ "$interface_file" != "" ]]
     2271       then
     2272          interface_file=`echo $interface_file | cut -d"." -f1`
     2273          mv  Makefile  Makefile_old
     2274          sed "s/user_interface/$interface_file/g"  Makefile_old  >  Makefile
     2275       fi
     2276       cd -  > /dev/null
    22842277    else
    22852278       cp  $executable   ${TEMPDIR}/a.out
     
    23152308
    23162309          # COMPILING WITH MAKE (ON NEC COMPILER IS CALLED ON HOST CROSS)
    2317        if [[ "$use_makefile" = true ]]
    2318        then
    2319           printf "\n\n\n  *** compilation starts \n$striche\n"
    2320           printf "  *** compilation with make using following options:\n"
    2321           printf "      compilername:             $compiler_name\n"
    2322           printf "      options:                  $FOPTS\n"
    2323           printf "      preprocessor-directives:  $C_PPOPTS \n"
    2324           printf "      linker-options:           $LOPTS \n"
    2325           printf "      source code files:        $source_list \n"
    2326 
    2327           if [[ $localhost = nech ]]
    2328           then
    2329              ssh  136.172.44.192 -l $usern ". /SX/opt/etc/initsx.sh; cd \$HOME/work/${usern}.$kennung; sxmake -f Makefile PROG=a.out  F90=$compiler_name  COPT=\"$C_PPOPTS\"  F90FLAGS=\"$FOPTS\"  LDFLAGS=\"$LOPTS\" "
    2330              cp  $TEMPDIR_COMPILE/a.out  .
    2331              [[ $? != 0 ]]  &&  compile_error=true
    2332              rm -rf  $TEMPDIR_COMPILE
    2333           else
    2334              make -f Makefile PROG=a.out  F90=$compiler_name  COPT="$C_PPOPTS"  F90FLAGS="$FOPTS"  LDFLAGS="$LOPTS"
    2335           fi
    2336 
    2337           # UEBERSETZUNG "VON HAND" (OHNE MAKE)
     2310       printf "\n\n\n  *** compilation starts \n$striche\n"
     2311       printf "  *** compilation with make using following options:\n"
     2312       printf "      compilername:             $compiler_name\n"
     2313       printf "      options:                  $fopts\n"
     2314       printf "      preprocessor-directives:  $cpp_options \n"
     2315       printf "      linker-options:           $lopts \n"
     2316       printf "      source code files:        $source_list \n"
     2317
     2318       if [[ $localhost = nech ]]
     2319       then
     2320          ssh  136.172.44.192 -l $usern ". /SX/opt/etc/initsx.sh; cd \$HOME/work/${usern}.$kennung; sxmake -f Makefile PROG=a.out  F90=$compiler_name  COPT=\"$cpp_options\"  F90FLAGS=\"$fopts\"  LDFLAGS=\"$lopts\" "
     2321          cp  $TEMPDIR_COMPILE/a.out  .
     2322          [[ $? != 0 ]]  &&  compile_error=true
     2323          rm -rf  $TEMPDIR_COMPILE
    23382324       else
    2339 
    2340 
    2341              # UEBERSETZUNG DER QUELLTEXT-DATEIEN UND DES HAUPTPROGRAMMS
    2342              # $CPPOPTS FUER CPP-PRAEPROZESSOR WURDEN OBEN BESTIMMT
    2343           printf "\n\n\n  *** compilation starts \n$striche\n"
    2344 
    2345 
    2346              # VORWEG EVTL. UEBERSETZUNG VON PROGRAMMTEILEN MIT SPEZIELLEN
    2347              # COMPILERN UND/ODER COMPILEROPTIONEN. DIESE WERDEN BEI DER SPAETEREN
    2348              # EIGENTLICHEN UEBERSETZUNG ALS OBJECT-FILES EINGEBUNDEN
    2349           new_source_list=""
    2350           for  filename  in  $source_list
    2351           do
    2352 
    2353              basename=`print $filename | cut -f1 -d"."`
    2354 
    2355                 # EVTL. SPEZIELLEN COMPILER FUER UP BESTIMMEN
    2356              comp_var=$(eval echo \$comp_$basename)  # \$ liefert evtl. fuer source alternativ vereinbarten Compiler
    2357              comp_opt_var=$(eval echo \$$basename)  # \$$ liefert evtl. fuer source vereinbarte Compiler-Environment-Variable
    2358 
    2359              if [[ "$comp_var" = ""  &&  "$comp_opt_var" = "" ]]
    2360              then
    2361                 new_source_list="$new_source_list "$filename
    2362              else
    2363 
    2364                 if [[ "$comp_var" = "" ]]
    2365                 then
    2366                    SPECIAL_COMPILER=$compiler_name
    2367                 else
    2368                    SPECIAL_COMPILER=$comp_var
    2369                 fi
    2370 
    2371                 if [[ "$comp_opt_var" = "" ]]
    2372                 then
    2373                    SPECIAL_FOPTS=$FOPTS
    2374                 else
    2375                    SPECIAL_FOPTS="$parallel_options $(eval echo \$$comp_opt_var)"
    2376                 fi
    2377 
    2378                 printf "  *** compiling of $filename with special compiler call: $SPECIAL_COMPILER  $CPPOPTS  -c $SPECIAL_FOPTS \n"
    2379                 $SPECIAL_COMPILER  $C_PPOPTS  -c $SPECIAL_FOPTS  $MODULE_OPTIONS  $filename 
    2380                 if [[ $? != 0 ]]
    2381                 then
    2382                    printf "\n  +++ compiling error occured"
    2383                    locat=compile
    2384                    exit
    2385                 fi
    2386                 new_source_list="$new_source_list "${basename}.o
    2387              fi
    2388           done
    2389           source_list="$new_source_list"
    2390 
    2391 
    2392              # EIGENTLICHE UEBERSETZUNG MIT DEN NORMALEN OPTIONEN
    2393           printf "  *** compilation with standard options: $compiler_name $FOPTS $MODULE_OPTIONS \n"
    2394           printf "      preprocessor-directives:           $C_PPOPTS \n"
    2395           printf "      linker-options:                    $LOPTS \n"
    2396           printf "      source code files:                 $source_list \n"
    2397 
    2398           $compiler_name  $C_PPOPTS  $FOPTS  $MODULE_OPTIONS  $LOPTS  $source_list 
    2399 
    2400        fi
     2325          make -f Makefile PROG=a.out  F90=$compiler_name  COPT="$cpp_options"  F90FLAGS="$fopts"  LDFLAGS="$lopts"
     2326       fi
     2327
    24012328       if [[ $? != 0  ||  "$compile_error" = true  ||  "$module_compile_error" = true ]]
    24022329       then
     
    29072834
    29082835             fi
    2909           elif [[ $host = lcmuk ]]
     2836          elif [[ $(echo $host | cut -c1-2) = lc  &&  $host != lctit ]]
    29102837          then
    29112838
     
    31063033                   echo "set -x"                                    >    transfer_${localout[$i]}
    31073034                   echo "cd  $tmp_data_catalog/TRANSFER"            >>   transfer_${localout[$i]}
    3108                    if [[ $filetransfer_protocol = ftp ]]
    3109                    then
    3110                       if [[ $files_for_pes = true ]]
    3111                       then
    3112                          printf "\n  +++ WARNING: no transfer of catalogs via ftpcopy\n"
    3113                       fi
    3114                       printf "\n  >>> OUTPUT: ${localout[$i]}  by FTP in seperate job to"
    3115                       printf "\n              ${pathout[$i]}/${localhost}_${fname}${endout[$i]}"
    3116                       printf "\n              or higher cycle\n"
    3117                       echo "ftpcopy -b -m $return_addres $file_to_transfer \"${pathout[$i]}\" ${localhost}_${fname}${endout[$i]}  ${extout[$i]}"  >>  transfer_${localout[$i]}
    3118                    else
    3119                       printf "\n  >>> OUTPUT: ${localout[$i]}$cst  by SCP in seperate job to"
    3120                       printf "\n              ${pathout[$i]}/${localhost}_${fname}${endout[$i]}$cst"
    3121                       printf "\n              or higher cycle\n"
    3122                       echo "batch_scp $cps -b -m -u $return_username $return_addres  $file_to_transfer \"${pathout[$i]}\" ${localhost}_${fname}${endout[$i]}  ${extout[$i]}"  >>  transfer_${localout[$i]}
    3123                    fi
     3035
     3036                   printf "\n  >>> OUTPUT: ${localout[$i]}$cst  by SCP in seperate job to"
     3037                   printf "\n              ${pathout[$i]}/${localhost}_${fname}${endout[$i]}$cst"
     3038                   printf "\n              or higher cycle\n"
     3039                   echo "batch_scp $cps -b -m -u $return_username $return_addres  $file_to_transfer \"${pathout[$i]}\" ${localhost}_${fname}${endout[$i]}  ${extout[$i]}"  >>  transfer_${localout[$i]}
     3040
    31243041                   echo "[[ \$? = 0 ]]  &&  rm  $file_to_transfer"  >>  transfer_${localout[$i]}
    31253042
    31263043                   if [[ $localhost = nech ]]
    31273044                   then
    3128                       subjob  -d  -c /pf/b/$usern/job_queue  -v  -q pp  -X 0  -m 1000  -t 900  -f $filetransfer_protocol  transfer_${localout[$i]}
     3045                      subjob  -d  -c /pf/b/$usern/job_queue  -v  -q pp  -X 0  -m 1000  -t 900  transfer_${localout[$i]}
    31293046                   else
    31303047                      if [[ "$LOGNAME" = b323013 ]]
    31313048                      then
    3132                          subjob  -v  -q c1  -X 0  -m 1000  -t 900  -f $filetransfer_protocol  transfer_${localout[$i]}
     3049                         subjob  -v  -q c1  -X 0  -m 1000  -t 900  transfer_${localout[$i]}
    31333050                      else
    3134                          subjob  -d  -v  -q c1  -X 0  -m 1000  -t 900  -f $filetransfer_protocol  transfer_${localout[$i]}
     3051                         subjob  -d  -v  -q c1  -X 0  -m 1000  -t 900  transfer_${localout[$i]}
    31353052                      fi
    31363053                   fi
     
    31403057                      # TRANSFER INNERHALB DIESES JOBS
    31413058                   transfer_failed=false
    3142                    if [[ $filetransfer_protocol = ftp ]]
    3143                    then
    3144                       if [[ $files_for_pes = true ]]
    3145                       then
    3146                          printf "\n  +++ WARNING: no transfer of catalogs via ftpcopy\n"
    3147                       fi
    3148                       printf "\n  >>> OUTPUT: ${localout[$i]}  by FTP to"
    3149                       printf "\n              ${pathout[$i]}/${localhost}_${fname}${endout[$i]}\n"
    3150                       ftpcopy -b -m $return_addres ${localout[$i]} "${pathout[$i]}" ${localhost}_${fname}${endout[$i]}  ${extout[$i]}
    3151                       [[ $? != 0 ]]  &&  transfer_failed=true
    3152                    else
    3153                       printf "\n  >>> OUTPUT: ${localout[$i]}$cst  by SCP to"
    3154                       printf "\n              ${pathout[$i]}/${localhost}_${fname}${endout[$i]}$cst\n"
    3155                       batch_scp $cps -b -m -u $return_username $return_addres  ${localout[$i]} "${pathout[$i]}" ${localhost}_${fname}${endout[$i]}  ${extout[$i]}
    3156                       [[ $? != 0 ]]  &&  transfer_failed=true
    3157                    fi
     3059                   printf "\n  >>> OUTPUT: ${localout[$i]}$cst  by SCP to"
     3060                   printf "\n              ${pathout[$i]}/${localhost}_${fname}${endout[$i]}$cst\n"
     3061                   batch_scp $cps -b -m -u $return_username $return_addres  ${localout[$i]} "${pathout[$i]}" ${localhost}_${fname}${endout[$i]}  ${extout[$i]}
     3062                   [[ $? != 0 ]]  &&  transfer_failed=true
    31583063
    31593064                      # BEI FEHLGESCHLAGENEM TRANSFER SICHERUNGSKOPIE AUF
     
    32033108                   echo "set -x"                                    >    transfer_${localout[$i]}
    32043109                   echo "cd  $tmp_data_catalog/TRANSFER"            >>   transfer_${localout[$i]}
    3205                    if [[ $filetransfer_protocol = ftp ]]
    3206                    then
    3207                       printf "\n  >>> OUTPUT: ${localout[$i]}  append by FTP in seperate job to"
    3208                       printf "\n              ${pathout[$i]}/${localhost}_${fname}${endout[$i]}"
    3209                       printf "\n              or higher cycle\n"
    3210                       echo "ftpcopy -A -b -m $return_addres $file_to_transfer \"${pathout[$i]}\" ${localhost}_${fname}${endout[$i]}  ${extout[$i]}"  >>  transfer_${localout[$i]}
    3211                    else
    3212                       printf "\n  >>> OUTPUT: ${localout[$i]}  append by SCP in seperate job to"
    3213                       printf "\n              ${pathout[$i]}/${localhost}_${fname}${endout[$i]}"
    3214                       printf "\n              or higher cycle\n"
    3215                       echo "batch_scp -A -b -m -u $return_username $return_addres  $file_to_transfer \"${pathout[$i]}\" ${localhost}_${fname}${endout[$i]}  ${extout[$i]}"  >>  transfer_${localout[$i]}
    3216                    fi
     3110
     3111                   printf "\n  >>> OUTPUT: ${localout[$i]}  append by SCP in seperate job to"
     3112                   printf "\n              ${pathout[$i]}/${localhost}_${fname}${endout[$i]}"
     3113                   printf "\n              or higher cycle\n"
     3114                   echo "batch_scp -A -b -m -u $return_username $return_addres  $file_to_transfer \"${pathout[$i]}\" ${localhost}_${fname}${endout[$i]}  ${extout[$i]}"  >>  transfer_${localout[$i]}
     3115
    32173116                   echo "[[ \$? = 0 ]]  &&  rm  $file_to_transfer"  >>  transfer_${localout[$i]}
    32183117
    32193118                   if [[ $localhost = nech ]]
    32203119                   then
    3221                       subjob  -d  -c /pf/b/$usern/job_queue  -v  -q pp  -X 0  -m 1000  -t 900  -f $filetransfer_protocol  transfer_${localout[$i]}
     3120                      subjob  -d  -c /pf/b/$usern/job_queue  -v  -q pp  -X 0  -m 1000  -t 900  transfer_${localout[$i]}
    32223121                   else
    32233122                      if [[ $LOGNAME = b323013 ]]
    32243123                      then
    3225                          subjob  -v  -q c1  -X 0  -m 1000  -t 900  -f $filetransfer_protocol  transfer_${localout[$i]}
     3124                         subjob  -v  -q c1  -X 0  -m 1000  -t 900  transfer_${localout[$i]}
    32263125                      else
    3227                          subjob  -d  -v  -q c1  -X 0  -m 1000  -t 900  -f $filetransfer_protocol  transfer_${localout[$i]}
     3126                         subjob  -d  -v  -q c1  -X 0  -m 1000  -t 900  transfer_${localout[$i]}
    32283127                      fi
    32293128                   fi
     
    32333132                      # TRANSFER INNERHALB DIESES JOBS
    32343133                   transfer_failed=false
    3235                    if [[ $filetransfer_protocol = ftp ]]
    3236                    then
    3237                       printf "\n  >>> OUTPUT: ${localout[$i]}  append by FTP to"
    3238                       printf "\n              ${pathout[$i]}/${localhost}_${fname}${endout[$i]}\n"
    3239                       ftpcopy -A -b -m $return_addres ${localout[$i]} "${pathout[$i]}" ${localhost}_${fname}${endout[$i]}  ${extout[$i]}
    3240                       [[ $? != 0 ]]  &&  transfer_failed=true
    3241                    else
    3242                       printf "\n  >>> OUTPUT: ${localout[$i]}  append by SCP to"
    3243                       printf "\n              ${pathout[$i]}/${localhost}_${fname}${endout[$i]}\n"
    3244                       batch_scp -A -b -m -u $return_username  $return_addres ${localout[$i]} "${pathout[$i]}" ${localhost}_${fname}${endout[$i]}  ${extout[$i]}
    3245                       [[ $? != 0 ]]  &&  transfer_failed=true
    3246                    fi
     3134                   printf "\n  >>> OUTPUT: ${localout[$i]}  append by SCP to"
     3135                   printf "\n              ${pathout[$i]}/${localhost}_${fname}${endout[$i]}\n"
     3136                   batch_scp -A -b -m -u $return_username  $return_addres ${localout[$i]} "${pathout[$i]}" ${localhost}_${fname}${endout[$i]}  ${extout[$i]}
     3137                   [[ $? != 0 ]]  &&  transfer_failed=true
    32473138
    32483139                      # BEI FEHLGESCHLAGENEM TRANSFER SICHERUNGSKOPIE AUF
     
    34133304                   if [[ $localhost = ibmh  ||  $localhost = ibmb ]]
    34143305                   then
    3415                       subjob  -d  -v  -q cdata  -X 0  -m 1000  -t 7200  -f $filetransfer_protocol  archive_${frelout[$i]}
     3306                      subjob  -d  -v  -q cdata  -X 0  -m 1000  -t 7200  archive_${frelout[$i]}
    34163307                   elif [[ $localhost = nech ]]
    34173308                   then
    3418                       subjob  -d  -c /pf/b/$usern/job_queue  -v  -q pp  -X 0  -m 1000  -t 7200  -f $filetransfer_protocol  archive_${frelout[$i]}
     3309                      subjob  -d  -c /pf/b/$usern/job_queue  -v  -q pp  -X 0  -m 1000  -t 7200  archive_${frelout[$i]}
    34193310                   fi
    34203311                   printf "              Archiving of $tmp_data_catalog/${frelout[$i]} initiated (batch job submitted)\n"
     
    35373428                fi
    35383429
    3539                 subjob  -v  -d  -q cdata  -X 0  -m 1000  -t 7200  -f $filetransfer_protocol  archive_${frelout[$i]}
     3430                subjob  -v  -d  -q cdata  -X 0  -m 1000  -t 7200  archive_${frelout[$i]}
    35403431                printf "              Archiving of $tmp_data_catalog/${frelout[$i]} initiated (batch job submitted)\n"
    35413432                file_saved=true
     
    35713462                fi
    35723463
    3573                 subjob  -v  -c /pf/b/$usern/job_queue  -d  -q pp  -X 0  -m 1000  -t 7200  -f $filetransfer_protocol  archive_${frelout[$i]}
     3464                subjob  -v  -c /pf/b/$usern/job_queue  -d  -q pp  -X 0  -m 1000  -t 7200  archive_${frelout[$i]}
    35743465                printf "              Archiving of $tmp_data_catalog/${frelout[$i]} initiated (batch job submitted)\n"
    35753466                file_saved=true
     
    37543645
    37553646       # MRUN-BEFEHL FUER REMOTE-MASCHINE ZUSAMMENSTELLEN
    3756     mrun_com="$mrun_script_name -a $afname -c $config_file -d $fname -f $filetransfer_protocol -h $host -H $fromhost -m $memory -t $cpumax -q $queue -R $return_addres -U $return_username -u $remote_username"
     3647    mrun_com="$mrun_script_name -a $afname -c $config_file -d $fname -h $host -H $fromhost -m $memory -t $cpumax -q $queue -R $return_addres -U $return_username -u $remote_username"
    37573648    [[ "$cpp_opts" != "" ]]       &&  mrun_com=${mrun_com}" -D \"$cpp_opts\""
    37583649    [[ "$global_revision" != "" ]]  &&  mrun_com=${mrun_com}" -G \"$global_revision\""
     
    38273718       done
    38283719
    3829        if [[ "$use_makefile" = true ]]
    3830        then
    3831              # ABDECKZEICHEN VERHINDERN, DASS ERSETZUNGEN ERFOLGEN
    3832           echo  "cat > Makefile << \"%END%\""               >>  $jobfile
    3833           cat   $source_catalog/Makefile                    >>  $jobfile
    3834           echo  " "                                         >>  $jobfile
    3835           echo  "%END%"                                     >>  $jobfile
    3836           echo  " "                                         >>  $jobfile
    3837        fi
     3720          # ABDECKZEICHEN VERHINDERN, DASS ERSETZUNGEN ERFOLGEN
     3721       echo  "cat > Makefile << \"%END%\""               >>  $jobfile
     3722       cat   $source_catalog/Makefile                    >>  $jobfile
     3723       echo  " "                                         >>  $jobfile
     3724       echo  "%END%"                                     >>  $jobfile
     3725       echo  " "                                         >>  $jobfile
    38383726
    38393727       echo  "cd -  > /dev/null"                         >>  $jobfile
     
    38823770             echo  "%END%"                                    >>  $jobfile
    38833771          else
    3884              if [[ $filetransfer_protocol = ftp ]]
    3885              then
    3886                 echo  "ftpcopy -b -o -g -s $return_addres ${remotepathin[$i]} \"${pathin[$i]}\" ${frelin[$i]}" >>  $jobfile
    3887              else
    3888                 echo  "batch_scp -b -o -g -s -u $return_username $return_addres ${remotepathin[$i]} \"${pathin[$i]}\" ${frelin[$i]}" >>  $jobfile
    3889              fi
     3772             echo  "batch_scp -b -o -g -s -u $return_username $return_addres ${remotepathin[$i]} \"${pathin[$i]}\" ${frelin[$i]}" >>  $jobfile
    38903773          fi
    38913774
     
    39363819    fi
    39373820
    3938     subjob  $job_on_file  -h $host  -u $remote_username  -q $queue  -m $memory  -N $node_usage -t $cpumax  $XOPT  $TOPT  $OOPT  -n $fname  -f $filetransfer_protocol  -v   $jobfile
     3821    subjob  $job_on_file  -h $host  -u $remote_username  -q $queue  -m $memory  -N $node_usage -t $cpumax  $XOPT  $TOPT  $OOPT  -n $fname  -v   $jobfile
    39393822    rm -rf  $jobfile
    39403823
  • palm/trunk/SCRIPTS/subjob

    r69 r82  
    11#!/bin/ksh
    2 # subjob - Plot-Shellskript         Version:  @(#)SUBJOB 1.0    13/02/07
     2# subjob - Plot-Shellskript         Version:  @(#)SUBJOB 1.0
    33# $Id: subjob 54 2007-03-08 00:00:02Z raasch $
    44
     
    8181     # 13/02/07 - Siggi - hpmuk releated code removed
    8282     # 01/03/07 - Siggi - adjustments for RIAM machines gate and NEC-SX8 (n-sx)
     83     # 12/04/07 - Siggi - option -f (filetransfer protocol) removed, scp only
    8384
    8485
    8586    # VARIABLENVEREINBARUNGEN + DEFAULTWERTE
    8687 delete_dayfile=false
    87  filetransfer_protocol=scp
    8888 locat=normal
    8989 no_default_queue=none
     
    180180
    181181    # PROZEDUROPTIONEN EINLESEN
    182  while  getopts  :c:dDf:h:m:n:N:O:q:t:T:u:vX:  option
     182 while  getopts  :c:dDh:m:n:N:O:q:t:T:u:vX:  option
    183183 do
    184184   case  $option  in
     
    186186       (d)   delete_dayfile=true;;
    187187       (D)   no_submit=true;;
    188        (f)   filetransfer_protocol=$OPTARG;;
    189188       (h)   remote_host=$OPTARG;;
    190189       (m)   memory=$OPTARG;;
     
    218217    printf "\n        -d    no job-protocol will be created     ---"
    219218    printf "\n        -D    only the job-file will be created   ---"
    220     printf "\n        -f    filetransfer protocol               scp"
    221219    printf "\n        -h    execution host, available hosts:    $remote_host"
    222220    printf "\n              ibm, ibmb, ibmh, ibms, ibmy, lcmuk,"
     
    897895    then
    898896       [[ $verify = true ]]  &&  printf "\n >>> transfering job to \"$remote_host\"..."
    899        if [[ $filetransfer_protocol = scp ]]
    900        then
    901           if [[ $remote_host = ibms  ||  $remote_host = ibmy ]]    # ssh on ibms cannot handle "~/"
    902           then
    903              job_catalog_save=$job_catalog
    904              job_catalog=job_queue
    905           elif [[ $remote_host = nech ]]
    906           then
    907              job_catalog_save=$job_catalog
    908              job_catalog=/hpf/b/${remote_user}/job_queue
    909           fi
    910           if [[ $local_host = decalpha ]]
    911           then
    912                 # VERWENDUNG VON SCP AUF DECALPHA FRAGT FEHLERHAFTERWEISE
    913                 # PASSWORT AB
    914              /bin/scp  $job_to_send  ${remote_user}@${remote_addres}:${job_catalog}/$job_on_remhost
    915           elif [[ $remote_host = nech ]]
    916           then
    917                 # DATEIEN KOENNEN NUR UEBER DEN ARCHIVE-SERVER DES DKRZ
    918                 # TRANSFERIERT WERDEN
    919              scp  $job_to_send  ${remote_user}@136.172.44.205:${job_catalog}/$job_on_remhost
    920           else
    921              scp  $job_to_send  ${remote_user}@${remote_addres}:${job_catalog}/$job_on_remhost
    922           fi
    923           if [[ $? = 1 ]]
    924           then
    925              locat=scp; exit
    926           fi
    927           if [[ $remote_host = ibms ]]
    928           then
    929              job_catalog=$job_catalog_save
    930           fi
     897       if [[ $remote_host = ibms  ||  $remote_host = ibmy ]]    # ssh on ibms cannot handle "~/"
     898       then
     899          job_catalog_save=$job_catalog
     900          job_catalog=job_queue
     901       elif [[ $remote_host = nech ]]
     902       then
     903          job_catalog_save=$job_catalog
     904          job_catalog=/hpf/b/${remote_user}/job_queue
     905       fi
     906       if [[ $local_host = decalpha ]]
     907       then
     908             # VERWENDUNG VON SCP AUF DECALPHA FRAGT FEHLERHAFTERWEISE
     909             # PASSWORT AB
     910          /bin/scp  $job_to_send  ${remote_user}@${remote_addres}:${job_catalog}/$job_on_remhost
     911       elif [[ $remote_host = nech ]]
     912       then
     913             # DATEIEN KOENNEN NUR UEBER DEN ARCHIVE-SERVER DES DKRZ
     914             # TRANSFERIERT WERDEN
     915          scp  $job_to_send  ${remote_user}@136.172.44.205:${job_catalog}/$job_on_remhost
    931916       else
    932           ftpcopy -s -o  $remote_addres  $job_to_send  "$job_catalog"  $job_on_remhost
    933           if [[ $? = 1 ]]
    934           then
    935              locat=ftpcopy; exit
    936           fi
     917          scp  $job_to_send  ${remote_user}@${remote_addres}:${job_catalog}/$job_on_remhost
     918       fi
     919       if [[ $? = 1 ]]
     920       then
     921          locat=scp; exit
     922       fi
     923       if [[ $remote_host = ibms ]]
     924       then
     925          job_catalog=$job_catalog_save
    937926       fi
    938927       [[ $verify = true ]]  &&  printf "\n >>> finished\n"
     
    948937    then
    949938       [[ $verify = true ]]  &&  printf "\n >>> submitting job using \"qsub\"...\n"
    950        if [[ $filetransfer_protocol = scp ]]
    951        then
    952           if [[ $remote_host != lctit ]]
    953           then
    954              ssh  $remote_addres  -l $remote_user  "cd $job_catalog; $submcom $job_on_remhost; rm $job_on_remhost"
    955           else
    956                 # TIT ERLAUBT NUR DIE AUSFÜHRUNG GANZ BESTIMMTER KOMMANDOS
    957                 # MIT SSH, DESHALB AUFRUF PER PIPE
    958                 # UEBERGANGSWEISE CHECK, OB N1GE ENVIRONMENT WIRKLICH VERFUEGBAR
    959              print  "cd $job_catalog; chmod u+x $job_on_remhost"  |  ssh  $remote_addres  -l $remote_user  > /dev/null  2>&1
    960              echo "first try" > send_protocol
    961              while [[ $(cat send_protocol | grep -c "Forwarding to N1GE") = 0 ]]
    962              do
    963                 if [[ $(cat send_protocol | grep -c "first try") = 1 ]]
    964                 then
    965                    printf "\n trying to submit job to TIT cluster..."
    966                 else
    967                    printf "\n +++ failed ... trying to submit again ..."
    968                 fi
    969                 print  "cd $job_catalog; $submcom $job_on_remhost"  |  ssh  $remote_addres  -l $remote_user  >  send_protocol  2>&1
    970                 cat send_protocol
    971              done
    972              sleep 10
    973              print  "cd $job_catalog;  rm $job_on_remhost"  |  ssh  $remote_addres  -l $remote_user  > /dev/null  2>&1
    974              echo "$submcom  $job_on_remhost"
    975              rm  send_protocol
    976           fi
     939       if [[ $remote_host != lctit ]]
     940       then
     941          ssh  $remote_addres  -l $remote_user  "cd $job_catalog; $submcom $job_on_remhost; rm $job_on_remhost"
    977942       else
    978           if [[ $remote_host = ibms ]]
    979           then
    980              password=`cat ~/.netrc | grep $remote_addres | awk '{print $6}'`
    981              echo "echo \"$remote_user\" "       >  telnet_script
    982              echo "sleep 5"                      >> telnet_script
    983              echo "echo \"$password\" "          >> telnet_script
    984              echo "sleep 10"                     >> telnet_script
    985              echo "echo \"\" "                   >> telnet_script
    986              echo "sleep 2"                      >> telnet_script
    987              echo "echo \"cd $job_catalog; $submcom $job_on_remhost; rm -rf $job_on_remhost\" " >> telnet_script
    988              echo "sleep 10"                     >> telnet_script
    989              echo "echo \"exit\" "               >> telnet_script
    990 
    991              chmod  u+x  telnet_script
    992              telnet_script  |  telnet $remote_addres  2>&1  |  grep "llsubmit:"
    993              rm  telnet_script
    994           elif [[ $remote_host = t3es ]]
    995           then
    996              password=`cat ~/.netrc | grep $remote_addres | awk '{print $6}'`
    997              echo "printf \"$remote_user\\\n\" " >  telnet_script
    998              echo "sleep 10"                     >> telnet_script
    999              echo "printf \"$password\\\n\" "    >> telnet_script
    1000              echo "sleep 10"                     >> telnet_script
    1001              echo "printf \"\\\n\" "             >> telnet_script
    1002              echo "sleep 5"                      >> telnet_script
    1003              echo "printf \"\\\n\" "             >> telnet_script
    1004              echo "sleep 5"                      >> telnet_script
    1005              echo "printf \"cd $job_catalog; $submcom $job_on_remhost; rm -f $job_on_remhost\\\n\" " >> telnet_script
    1006              echo "sleep 10"                     >> telnet_script
    1007              echo "printf \"exit\\\n\" "         >> telnet_script
    1008 
    1009              chmod  u+x  telnet_script
    1010              cat telnet_script
    1011              telnet_script | telnet $remote_addres  |  grep $remote_user
    1012              rm  telnet_script
    1013           else
    1014              remcom.x  $remote_addres  "cd $job_catalog; $submcom $job_on_remhost; rm $job_on_remhost"
    1015           fi
    1016        fi
     943             # TIT ERLAUBT NUR DIE AUSFÜHRUNG GANZ BESTIMMTER KOMMANDOS
     944             # MIT SSH, DESHALB AUFRUF PER PIPE
     945             # UEBERGANGSWEISE CHECK, OB N1GE ENVIRONMENT WIRKLICH VERFUEGBAR
     946          print  "cd $job_catalog; chmod u+x $job_on_remhost"  |  ssh  $remote_addres  -l $remote_user  > /dev/null  2>&1
     947          echo "first try" > send_protocol
     948          while [[ $(cat send_protocol | grep -c "Forwarding to N1GE") = 0 ]]
     949          do
     950             if [[ $(cat send_protocol | grep -c "first try") = 1 ]]
     951             then
     952                printf "\n trying to submit job to TIT cluster..."
     953             else
     954                printf "\n +++ failed ... trying to submit again ..."
     955             fi
     956             print  "cd $job_catalog; $submcom $job_on_remhost"  |  ssh  $remote_addres  -l $remote_user  >  send_protocol  2>&1
     957             cat send_protocol
     958          done
     959          sleep 10
     960          print  "cd $job_catalog;  rm $job_on_remhost"  |  ssh  $remote_addres  -l $remote_user  > /dev/null  2>&1
     961          echo "$submcom  $job_on_remhost"
     962          rm  send_protocol
     963       fi
     964
    1017965       [[ $verify = true ]]  &&  printf " >>> o.k.\n"
    1018966    else
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r77 r82  
    55Changed:
    66-------
     7All system relevant compile and link options as well as the host identifier (local_host) are specified in the configuration file.
    78
     9Filetransfer by ftp removed (options -f removed from mrun and mbuild).
     10
     11Call of (system-)FLUSH routine moved to new routine local_flush.
     12
     13return_addres and return_username are read from ENVPAR-NAMELIST-file.
     14
     15Preprocessor strings for different linux clusters changed to "lc", some preprocessor directives renamed (new: __intel_openmp_bug), preprocessor directives for old systems removed
     16
     17advec_particles, check_open, cpu_log, cpu_statistics, data_output_dvrp, flow_statistics, header, init_dvrp, init_particles, init_1d_model, init_dvrp, init_pegrid, local_getenv, local_system, local_tremain, local_tremain_ini, modules, run_control
     18
     19new:
     20local_flush
     21
     22mbuild, mrun
    823
    924Errors:
  • palm/trunk/SOURCE/Makefile

    r77 r82  
    44# Actual revisions:
    55# -----------------
    6 #
     6# +local_flush
    77#
    88# Former revisions:
     
    5151        init_particles.f90 init_pegrid.f90 init_pt_anomaly.f90 \
    5252        init_rankine.f90 init_slope.f90 interaction_droplets_ptq.f90 \
    53         local_getenv.f90 local_stop.f90 local_system.f90 local_tremain.f90 \
     53        local_flush.f90 local_getenv.f90 local_stop.f90 local_system.f90 local_tremain.f90 \
    5454        local_tremain_ini.f90 modules.f90 netcdf.f90 package_parin.f90 \
    5555        palm.f90 parin.f90 particle_boundary_conds.f90 poisfft.f90 \
     
    8181        init_dvrp.o init_grid.o init_particles.o init_pegrid.o \
    8282        init_pt_anomaly.o init_rankine.o init_slope.o \
    83         interaction_droplets_ptq.o local_getenv.o local_stop.o \
     83        interaction_droplets_ptq.o local_flush.o local_getenv.o local_stop.o \
    8484        local_system.o local_tremain.o local_tremain_ini.o modules.o netcdf.o \
    8585        package_parin.o palm.o parin.o particle_boundary_conds.o poisfft.o \
  • palm/trunk/SOURCE/advec_particles.f90

    r77 r82  
    117117!       WRITE (9,*) '--- advec_particles: #1'
    118118!       WRITE (9,*) '    #of p=',number_of_particles,' #of t=',number_of_tails
    119 !       CALL FLUSH_( 9 )
     119!       CALL local_flush( 9 )
    120120!    ENDIF
    121121!
     
    165165
    166166!    WRITE ( 9, * ) '*** advec_particles: ##0.3'
    167 !    CALL FLUSH_( 9 )
     167!    CALL local_flush( 9 )
    168168!    nd = 0
    169169!    DO  n = 1, number_of_particles
     
    172172!    IF ( nd /= deleted_particles ) THEN
    173173!       WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles
    174 !       CALL FLUSH_( 9 )
     174!       CALL local_flush( 9 )
    175175!       CALL MPI_ABORT( comm2d, 9999, ierr )
    176176!    ENDIF
     
    18721872
    18731873!    WRITE ( 9, * ) '*** advec_particles: ##0.4'
    1874 !    CALL FLUSH_( 9 )
     1874!    CALL local_flush( 9 )
    18751875!    nd = 0
    18761876!    DO  n = 1, number_of_particles
     
    18791879!    IF ( nd /= deleted_particles ) THEN
    18801880!       WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles
    1881 !       CALL FLUSH_( 9 )
     1881!       CALL local_flush( 9 )
    18821882!       CALL MPI_ABORT( comm2d, 9999, ierr )
    18831883!    ENDIF
     
    19041904             ELSE
    19051905!    WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory dt_prel'
    1906 !    CALL FLUSH_( 9 )
     1906!    CALL local_flush( 9 )
    19071907                CALL allocate_prt_memory( number_of_initial_particles )
    19081908!    WRITE ( 9, * ) '*** advec_particles: after allocate_prt_memory dt_prel'
    1909 !    CALL FLUSH_( 9 )
     1909!    CALL local_flush( 9 )
    19101910             ENDIF
    19111911          ENDIF
     
    19281928                ELSE
    19291929!    WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory dt_prel'
    1930 !    CALL FLUSH_( 9 )
     1930!    CALL local_flush( 9 )
    19311931                   CALL allocate_tail_memory( number_of_initial_tails )
    19321932!    WRITE ( 9, * ) '*** advec_particles: after allocate_tail_memory dt_prel'
    1933 !    CALL FLUSH_( 9 )
     1933!    CALL local_flush( 9 )
    19341934                ENDIF
    19351935             ENDIF
     
    20082008             ENDIF
    20092009!    WRITE ( 9, * ) '*** advec_particles: after setting the beginning of new tails'
    2010 !    CALL FLUSH_( 9 )
     2010!    CALL local_flush( 9 )
    20112011
    20122012             number_of_particles = number_of_particles + &
     
    20172017
    20182018!    WRITE ( 9, * ) '*** advec_particles: ##0.5'
    2019 !    CALL FLUSH_( 9 )
     2019!    CALL local_flush( 9 )
    20202020!    nd = 0
    20212021!    DO  n = 1, number_of_particles
     
    20242024!    IF ( nd /= deleted_particles ) THEN
    20252025!       WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles
    2026 !       CALL FLUSH_( 9 )
     2026!       CALL local_flush( 9 )
    20272027!       CALL MPI_ABORT( comm2d, 9999, ierr )
    20282028!    ENDIF
     
    20312031!       WRITE (9,*) '--- advec_particles: #2'
    20322032!       WRITE (9,*) '    #of p=',number_of_particles,' #of t=',number_of_tails
    2033 !       CALL FLUSH_( 9 )
     2033!       CALL local_flush( 9 )
    20342034!    ENDIF
    20352035!    DO  n = 1, number_of_particles
     
    20382038!          WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')'
    20392039!          WRITE (9,*) '    id=',particles(n)%tail_id,' of (',number_of_tails,')'
    2040 !          CALL FLUSH_( 9 )
     2040!          CALL local_flush( 9 )
    20412041!          CALL MPI_ABORT( comm2d, 9999, ierr )
    20422042!       ENDIF
     
    21032103
    21042104!    WRITE ( 9, * ) '*** advec_particles: ##1'
    2105 !    CALL FLUSH_( 9 )
     2105!    CALL local_flush( 9 )
    21062106!    nd = 0
    21072107!    DO  n = 1, number_of_particles
     
    21112111!          WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')'
    21122112!          WRITE (9,*) '    id=',particles(n)%tail_id,' of (',number_of_tails,')'
    2113 !          CALL FLUSH_( 9 )
     2113!          CALL local_flush( 9 )
    21142114!          CALL MPI_ABORT( comm2d, 9999, ierr )
    21152115!       ENDIF
     
    21172117!    IF ( nd /= deleted_particles ) THEN
    21182118!       WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles
    2119 !       CALL FLUSH_( 9 )
     2119!       CALL local_flush( 9 )
    21202120!       CALL MPI_ABORT( comm2d, 9999, ierr )
    21212121!    ENDIF
     
    22742274
    22752275!    WRITE ( 9, * ) '*** advec_particles: ##2'
    2276 !    CALL FLUSH_( 9 )
     2276!    CALL local_flush( 9 )
    22772277!    nd = 0
    22782278!    DO  n = 1, number_of_particles
     
    22822282!          WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')'
    22832283!          WRITE (9,*) '    id=',particles(n)%tail_id,' of (',number_of_tails,')'
    2284 !          CALL FLUSH_( 9 )
     2284!          CALL local_flush( 9 )
    22852285!          CALL MPI_ABORT( comm2d, 9999, ierr )
    22862286!       ENDIF
     
    22882288!    IF ( nd /= deleted_particles ) THEN
    22892289!       WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles
    2290 !       CALL FLUSH_( 9 )
     2290!       CALL local_flush( 9 )
    22912291!       CALL MPI_ABORT( comm2d, 9999, ierr )
    22922292!    ENDIF
     
    23132313             ELSE
    23142314!    WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory trrp'
    2315 !    CALL FLUSH_( 9 )
     2315!    CALL local_flush( 9 )
    23162316                CALL allocate_prt_memory( trrp_count_recv )
    23172317!    WRITE ( 9, * ) '*** advec_particles: after allocate_prt_memory trrp'
    2318 !    CALL FLUSH_( 9 )
     2318!    CALL local_flush( 9 )
    23192319             ENDIF
    23202320          ENDIF
     
    23412341                ELSE
    23422342!    WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory trrpt'
    2343 !    CALL FLUSH_( 9 )
     2343!    CALL local_flush( 9 )
    23442344                   CALL allocate_tail_memory( trrpt_count_recv )
    23452345!    WRITE ( 9, * ) '*** advec_particles: after allocate_tail_memory trrpt'
    2346 !    CALL FLUSH_( 9 )
     2346!    CALL local_flush( 9 )
    23472347                ENDIF
    23482348             ENDIF
     
    23702370!          WRITE (9,*) '--- advec_particles: #3'
    23712371!          WRITE (9,*) '    #of p=',number_of_particles,' #of t=',number_of_tails
    2372 !          CALL FLUSH_( 9 )
     2372!          CALL local_flush( 9 )
    23732373!       ENDIF
    23742374
     
    23902390             ELSE
    23912391!    WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory trlp'
    2392 !    CALL FLUSH_( 9 )
     2392!    CALL local_flush( 9 )
    23932393                CALL allocate_prt_memory( trlp_count_recv )
    23942394!    WRITE ( 9, * ) '*** advec_particles: after allocate_prt_memory trlp'
    2395 !    CALL FLUSH_( 9 )
     2395!    CALL local_flush( 9 )
    23962396             ENDIF
    23972397          ENDIF
     
    24182418                ELSE
    24192419!    WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory trlpt'
    2420 !    CALL FLUSH_( 9 )
     2420!    CALL local_flush( 9 )
    24212421                   CALL allocate_tail_memory( trlpt_count_recv )
    24222422!    WRITE ( 9, * ) '*** advec_particles: after allocate_tail_memory trlpt'
    2423 !    CALL FLUSH_( 9 )
     2423!    CALL local_flush( 9 )
    24242424                ENDIF
    24252425             ENDIF
     
    24472447!          WRITE (9,*) '--- advec_particles: #4'
    24482448!          WRITE (9,*) '    #of p=',number_of_particles,' #of t=',number_of_tails
    2449 !          CALL FLUSH_( 9 )
     2449!          CALL local_flush( 9 )
    24502450!       ENDIF
    24512451
     
    24602460
    24612461!    WRITE ( 9, * ) '*** advec_particles: ##3'
    2462 !    CALL FLUSH_( 9 )
     2462!    CALL local_flush( 9 )
    24632463!    nd = 0
    24642464!    DO  n = 1, number_of_particles
     
    24682468!          WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')'
    24692469!          WRITE (9,*) '    id=',particles(n)%tail_id,' of (',number_of_tails,')'
    2470 !          CALL FLUSH_( 9 )
     2470!          CALL local_flush( 9 )
    24712471!          CALL MPI_ABORT( comm2d, 9999, ierr )
    24722472!       ENDIF
     
    24742474!    IF ( nd /= deleted_particles ) THEN
    24752475!       WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles
    2476 !       CALL FLUSH_( 9 )
     2476!       CALL local_flush( 9 )
    24772477!       CALL MPI_ABORT( comm2d, 9999, ierr )
    24782478!    ENDIF
     
    25382538
    25392539!    WRITE ( 9, * ) '*** advec_particles: ##4'
    2540 !    CALL FLUSH_( 9 )
     2540!    CALL local_flush( 9 )
    25412541!    nd = 0
    25422542!    DO  n = 1, number_of_particles
     
    25462546!          WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')'
    25472547!          WRITE (9,*) '    id=',particles(n)%tail_id,' of (',number_of_tails,')'
    2548 !          CALL FLUSH_( 9 )
     2548!          CALL local_flush( 9 )
    25492549!          CALL MPI_ABORT( comm2d, 9999, ierr )
    25502550!       ENDIF
     
    25522552!    IF ( nd /= deleted_particles ) THEN
    25532553!       WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles
    2554 !       CALL FLUSH_( 9 )
     2554!       CALL local_flush( 9 )
    25552555!       CALL MPI_ABORT( comm2d, 9999, ierr )
    25562556!    ENDIF
     
    27152715
    27162716!    WRITE ( 9, * ) '*** advec_particles: ##5'
    2717 !    CALL FLUSH_( 9 )
     2717!    CALL local_flush( 9 )
    27182718!    nd = 0
    27192719!    DO  n = 1, number_of_particles
     
    27232723!          WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')'
    27242724!          WRITE (9,*) '    id=',particles(n)%tail_id,' of (',number_of_tails,')'
    2725 !          CALL FLUSH_( 9 )
     2725!          CALL local_flush( 9 )
    27262726!          CALL MPI_ABORT( comm2d, 9999, ierr )
    27272727!       ENDIF
     
    27292729!    IF ( nd /= deleted_particles ) THEN
    27302730!       WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles
    2731 !       CALL FLUSH_( 9 )
     2731!       CALL local_flush( 9 )
    27322732!       CALL MPI_ABORT( comm2d, 9999, ierr )
    27332733!    ENDIF
     
    27542754             ELSE
    27552755!    WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory trnp'
    2756 !    CALL FLUSH_( 9 )
     2756!    CALL local_flush( 9 )
    27572757                CALL allocate_prt_memory( trnp_count_recv )
    27582758!    WRITE ( 9, * ) '*** advec_particles: after allocate_prt_memory trnp'
    2759 !    CALL FLUSH_( 9 )
     2759!    CALL local_flush( 9 )
    27602760             ENDIF
    27612761          ENDIF
     
    27822782                ELSE
    27832783!    WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory trnpt'
    2784 !    CALL FLUSH_( 9 )
     2784!    CALL local_flush( 9 )
    27852785                   CALL allocate_tail_memory( trnpt_count_recv )
    27862786!    WRITE ( 9, * ) '*** advec_particles: after allocate_tail_memory trnpt'
    2787 !    CALL FLUSH_( 9 )
     2787!    CALL local_flush( 9 )
    27882788                ENDIF
    27892789             ENDIF
     
    28112811!          WRITE (9,*) '--- advec_particles: #5'
    28122812!          WRITE (9,*) '    #of p=',number_of_particles,' #of t=',number_of_tails
    2813 !          CALL FLUSH_( 9 )
     2813!          CALL local_flush( 9 )
    28142814!       ENDIF
    28152815
     
    28312831             ELSE
    28322832!    WRITE ( 9, * ) '*** advec_particles: before allocate_prt_memory trsp'
    2833 !    CALL FLUSH_( 9 )
     2833!    CALL local_flush( 9 )
    28342834                CALL allocate_prt_memory( trsp_count_recv )
    28352835!    WRITE ( 9, * ) '*** advec_particles: after allocate_prt_memory trsp'
    2836 !    CALL FLUSH_( 9 )
     2836!    CALL local_flush( 9 )
    28372837             ENDIF
    28382838          ENDIF
     
    28592859                ELSE
    28602860!    WRITE ( 9, * ) '*** advec_particles: before allocate_tail_memory trspt'
    2861 !    CALL FLUSH_( 9 )
     2861!    CALL local_flush( 9 )
    28622862                   CALL allocate_tail_memory( trspt_count_recv )
    28632863!    WRITE ( 9, * ) '*** advec_particles: after allocate_tail_memory trspt'
    2864 !    CALL FLUSH_( 9 )
     2864!    CALL local_flush( 9 )
    28652865                ENDIF
    28662866             ENDIF
     
    28882888!          WRITE (9,*) '--- advec_particles: #6'
    28892889!          WRITE (9,*) '    #of p=',number_of_particles,' #of t=',number_of_tails
    2890 !          CALL FLUSH_( 9 )
     2890!          CALL local_flush( 9 )
    28912891!       ENDIF
    28922892
     
    29012901
    29022902!    WRITE ( 9, * ) '*** advec_particles: ##6'
    2903 !    CALL FLUSH_( 9 )
     2903!    CALL local_flush( 9 )
    29042904!    nd = 0
    29052905!    DO  n = 1, number_of_particles
     
    29092909!          WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')'
    29102910!          WRITE (9,*) '    id=',particles(n)%tail_id,' of (',number_of_tails,')'
    2911 !          CALL FLUSH_( 9 )
     2911!          CALL local_flush( 9 )
    29122912!          CALL MPI_ABORT( comm2d, 9999, ierr )
    29132913!       ENDIF
     
    29152915!    IF ( nd /= deleted_particles ) THEN
    29162916!       WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles
    2917 !       CALL FLUSH_( 9 )
     2917!       CALL local_flush( 9 )
    29182918!       CALL MPI_ABORT( comm2d, 9999, ierr )
    29192919!    ENDIF
     
    31333133
    31343134!    WRITE ( 9, * ) '*** advec_particles: ##7'
    3135 !    CALL FLUSH_( 9 )
     3135!    CALL local_flush( 9 )
    31363136!    nd = 0
    31373137!    DO  n = 1, number_of_particles
     
    31413141!          WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')'
    31423142!          WRITE (9,*) '    id=',particles(n)%tail_id,' of (',number_of_tails,')'
    3143 !          CALL FLUSH_( 9 )
     3143!          CALL local_flush( 9 )
    31443144!          CALL MPI_ABORT( comm2d, 9999, ierr )
    31453145!       ENDIF
     
    31473147!    IF ( nd /= deleted_particles ) THEN
    31483148!       WRITE (9,*) '*** nd=',nd,' deleted_particles=',deleted_particles
    3149 !       CALL FLUSH_( 9 )
     3149!       CALL local_flush( 9 )
    31503150!       CALL MPI_ABORT( comm2d, 9999, ierr )
    31513151!    ENDIF
     
    31673167!       IF ( nd /= deleted_particles ) THEN
    31683168!          WRITE (9,*) '*** advec_part nd=',nd,' deleted_particles=',deleted_particles
    3169 !          CALL FLUSH_( 9 )
     3169!          CALL local_flush( 9 )
    31703170!          CALL MPI_ABORT( comm2d, 9999, ierr )
    31713171!       ENDIF
     
    31893189!                WRITE (9,*) '+++ n=',n,' (of ',number_of_tails,' #oftails)'
    31903190!                WRITE (9,*) '    id=',new_tail_id(n)
    3191 !                CALL FLUSH_( 9 )
     3191!                CALL local_flush( 9 )
    31923192                ENDIF
    31933193             ENDDO
     
    31963196!       IF ( nd /= deleted_tails  .AND.  use_particle_tails ) THEN
    31973197!          WRITE (9,*) '*** advec_part nd=',nd,' deleted_tails=',deleted_tails
    3198 !          CALL FLUSH_( 9 )
     3198!          CALL local_flush( 9 )
    31993199!          CALL MPI_ABORT( comm2d, 9999, ierr )
    32003200!       ENDIF
     
    32113211!        WRITE (9,*) '    new_tail_id=', new_tail_id(particles(n)%tail_id), &
    32123212!                         ' of (',number_of_tails,')'
    3213 !        CALL FLUSH_( 9 )
     3213!        CALL local_flush( 9 )
    32143214!     ENDIF
    32153215                particles(n)%tail_id = new_tail_id(particles(n)%tail_id)
     
    32193219!     IF ( nn /= number_of_tails  .AND.  use_particle_tails ) THEN
    32203220!        WRITE (9,*) '*** advec_part #of_tails=',number_of_tails,' nn=',nn
    3221 !        CALL FLUSH_( 9 )
     3221!        CALL local_flush( 9 )
    32223222!        DO  n = 1, number_of_particles
    32233223!           WRITE (9,*) 'prt# ',n,' tail_id=',particles(n)%tail_id, &
     
    32333233!       WRITE (9,*) '--- advec_particles: #7'
    32343234!       WRITE (9,*) '    #of p=',number_of_particles,' #of t=',number_of_tails
    3235 !       CALL FLUSH_( 9 )
     3235!       CALL local_flush( 9 )
    32363236!    ENDIF
    32373237!    WRITE ( 9, * ) '*** advec_particles: ##8'
    3238 !    CALL FLUSH_( 9 )
     3238!    CALL local_flush( 9 )
    32393239!    DO  n = 1, number_of_particles
    32403240!       IF ( particles(n)%tail_id<0 .OR. particles(n)%tail_id>number_of_tails ) &
     
    32423242!          WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')'
    32433243!          WRITE (9,*) '    id=',particles(n)%tail_id,' of (',number_of_tails,')'
    3244 !          CALL FLUSH_( 9 )
     3244!          CALL local_flush( 9 )
    32453245!          CALL MPI_ABORT( comm2d, 9999, ierr )
    32463246!       ENDIF
     
    32523252
    32533253!    WRITE ( 9, * ) '*** advec_particles: ##9'
    3254 !    CALL FLUSH_( 9 )
     3254!    CALL local_flush( 9 )
    32553255!    DO  n = 1, number_of_particles
    32563256!       IF ( particles(n)%tail_id<0 .OR. particles(n)%tail_id>number_of_tails ) &
     
    32583258!          WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')'
    32593259!          WRITE (9,*) '    id=',particles(n)%tail_id,' of (',number_of_tails,')'
    3260 !          CALL FLUSH_( 9 )
     3260!          CALL local_flush( 9 )
    32613261!          CALL MPI_ABORT( comm2d, 9999, ierr )
    32623262!       ENDIF
     
    33413341    CALL user_particle_attributes
    33423342!    WRITE ( 9, * ) '*** advec_particles: ##10'
    3343 !    CALL FLUSH_( 9 )
     3343!    CALL local_flush( 9 )
    33443344!    DO  n = 1, number_of_particles
    33453345!       IF ( particles(n)%tail_id<0 .OR. particles(n)%tail_id>number_of_tails ) &
     
    33473347!          WRITE (9,*) '+++ n=',n,' (of ',number_of_particles,')'
    33483348!          WRITE (9,*) '    id=',particles(n)%tail_id,' of (',number_of_tails,')'
    3349 !          CALL FLUSH_( 9 )
     3349!          CALL local_flush( 9 )
    33503350!          CALL MPI_ABORT( comm2d, 9999, ierr )
    33513351!       ENDIF
     
    33663366!--          next tailpoint
    33673367!             WRITE ( 9, * ) '*** advec_particles: ##10.1  nn=',nn
    3368 !             CALL FLUSH_( 9 )
     3368!             CALL local_flush( 9 )
    33693369             IF ( minimum_tailpoint_distance /= 0.0 )  THEN
    33703370                distance = ( particle_tail_coordinates(1,1,nn) -      &
     
    33763376             ENDIF
    33773377!             WRITE ( 9, * ) '*** advec_particles: ##10.2'
    3378 !             CALL FLUSH_( 9 )
     3378!             CALL local_flush( 9 )
    33793379!
    33803380!--          First, increase the index of all existings tailpoints by one
     
    33953395             ENDIF
    33963396!             WRITE ( 9, * ) '*** advec_particles: ##10.3'
    3397 !             CALL FLUSH_( 9 )
     3397!             CALL local_flush( 9 )
    33983398!
    33993399!--          In any case, store the new point at the beginning of the tail
     
    34033403             particle_tail_coordinates(1,4,nn) = particles(n)%color
    34043404!             WRITE ( 9, * ) '*** advec_particles: ##10.4'
    3405 !             CALL FLUSH_( 9 )
     3405!             CALL local_flush( 9 )
    34063406!
    34073407!--          Increase the age of the tailpoints
     
    34183418             ENDIF
    34193419!             WRITE ( 9, * ) '*** advec_particles: ##10.5'
    3420 !             CALL FLUSH_( 9 )
     3420!             CALL local_flush( 9 )
    34213421
    34223422          ENDIF
     
    34263426    ENDIF
    34273427!    WRITE ( 9, * ) '*** advec_particles: ##11'
    3428 !    CALL FLUSH_( 9 )
     3428!    CALL local_flush( 9 )
    34293429
    34303430!
     
    35333533    ENDIF
    35343534    WRITE (9,*) '*** Request: ',new_maximum_number,' new_maximum_number(tails)'
    3535 !    CALL FLUSH_( 9 )
     3535!    CALL local_flush( 9 )
    35363536
    35373537    tmp_tail(:,:,1:number_of_tails)  = &
  • palm/trunk/SOURCE/check_open.f90

    r77 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Call of local_getenv removed, preprocessor directives for old systems removed
    77!
    88! Former revisions:
     
    4242
    4343    CHARACTER (LEN=2)   ::  suffix
    44     CHARACTER (LEN=20)  ::  return_addres, return_usern, xtext = 'time in s'
     44    CHARACTER (LEN=20)  ::  xtext = 'time in s'
    4545    CHARACTER (LEN=30)  ::  filename
    4646    CHARACTER (LEN=40)  ::  avs_coor_file, avs_coor_file_localname, &
     
    151151                        STATUS='OLD' )
    152152          ELSE
    153 #if defined( __t3eh ) || defined( __t3eb ) || defined( __t3ej5 )
    154 !
    155 !--          Declare a cache layer for faster I/O
    156              CALL ASNUNIT ( 13, '-F cachea:512:1:1', ierr1 )
    157 #endif
    158153             OPEN ( 13, FILE='BININ/'//myid_char, FORM='UNFORMATTED', &
    159154                        STATUS='OLD' )
     
    174169!--          directory created by PE0 can open their file
    175170             CALL MPI_BARRIER( comm2d, ierr )
    176 #endif
    177 #if defined( __t3eh ) || defined( __t3eb ) || defined( __t3ej5 )
    178 !
    179 !--          Declare a cache layer for faster I/O
    180              CALL ASNUNIT ( 14, '-F cachea:512:1:1', ierr1 )
    181171#endif
    182172             OPEN ( 14, FILE='BINOUT/'//myid_char_14, FORM='UNFORMATTED', &
     
    342332       CASE ( 30 )
    343333
    344 
    345 #if defined( __t3eb ) || defined( __t3eh ) || defined( __t3ej5 )
    346 !
    347 !--       In case of active data compression 32Bit integer output
    348           IF ( do3d_compress )  THEN
    349              CALL ASNUNIT( 30, '-F f77 -N ieee_32', ierr1 )
    350           ENDIF
    351 #endif
    352 
    353334          OPEN ( 30, FILE='PLOT3D_DATA'//myid_char, FORM='UNFORMATTED' )
    354335!
     
    369350!--          Therefore path information has to be obtained first.
    370351             IF ( avs_output )  THEN
    371                 CALL local_getenv( 'return_addres', 13, return_addres, iaddres )
    372                 CALL local_getenv( 'return_username', 15, return_usern, iusern )
     352                iaddres = LEN_TRIM( return_addres )
     353                iusern  = LEN_TRIM( return_username )
    373354
    374355                OPEN ( 3, FILE='OUTPUT_FILE_CONNECTIONS', FORM='FORMATTED' )
     
    433414!--                   really transferred.
    434415                      command = TRIM( batch_scp ) // ' -n -u ' // &
    435                          return_usern(1:iusern) // ' ' // &
     416                         return_username(1:iusern) // ' ' // &
    436417                         return_addres(1:iaddres) // ' /etc/passwd "' // &
    437418                         TRIM( avs_coor_file_catalog ) // '" ' // &
     
    445426!--                   Determine the data file name
    446427                      command = TRIM( batch_scp ) // ' -n -u ' // &
    447                          return_usern(1:iusern) // ' ' // &
     428                         return_username(1:iusern) // ' ' // &
    448429                         return_addres(1:iaddres) // ' /etc/passwd "' // &
    449430                         TRIM( avs_data_file_catalog ) // '" ' // &
  • palm/trunk/SOURCE/cpu_log.f90

    r4 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Preprocessor strings for different linux clusters changed to "lc",
     7! preprocessor directives for old systems removed
    78!
    89! Former revisions:
     
    3435    TYPE(logpoint)              ::  log_event
    3536
    36 #if defined( __lcmuk ) || defined( __lctit ) || defined( __hpmuk ) || defined( __decalpha ) || defined( __nec )
     37#if defined( __lc ) || defined( __decalpha ) || defined( __nec )
    3738    INTEGER                     ::  count, count_rate
    3839#elif defined( __ibm )
    3940    INTEGER(8)                  ::  IRTC
    40 #elif defined( __t3eb )
    41     REAL                        ::  TIMEF
    4241#endif
    4342
     
    5756!
    5857!-- Take current time
    59 #if defined( __lcmuk ) || defined( __lctit ) || defined( __hpmuk ) || defined( __decalpha ) || defined( __nec )
     58#if defined( __lc ) || defined( __decalpha ) || defined( __nec )
    6059    CALL SYSTEM_CLOCK( count, count_rate )
    6160    mtime = REAL( count ) / REAL( count_rate )
    6261#elif defined( __ibm )
    6362    mtime = IRTC( ) * 1E-9
    64 !#elif defined( __vpp )
    65 !    CALL CLOCKV ( mtimevec, mtime, 0, 2 )
    66 #elif defined( __t3eb ) || defined( __t3eh ) || defined( __t3ej2 ) || defined( __t3ej5 )
    67 #if defined( __parallel )
    68     IF ( .NOT. PRESENT( barrierwait ) )  THEN
    69        CALL MPI_BARRIER( comm2d, ierr )
    70        CONTINUE
    71     ENDIF
    72 #endif
    73     mtime = TIMEF( )
    74     mtime = mtime * 0.001
    7563#else
    7664    IF ( myid == 0 )  THEN
  • palm/trunk/SOURCE/cpu_statistics.f90

    r4 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Preprocessor directives for old systems removed
    77!
    88! Former revisions:
     
    3737    REAL, DIMENSION(:,:), ALLOCATABLE ::  pe_log_points
    3838
    39 
    40 !#if defined( __hpmuk )  &&  ! defined( __chinook )
    41 !    norm = clock_ticks_per_second()
    42 !#endif
    4339
    4440!
  • palm/trunk/SOURCE/data_output_dvrp.f90

    r77 r82  
    3232! Actual revisions:
    3333! -----------------
     34! Preprocessor strings for different linux clusters changed to "lc",
     35! routine local_flush is used for buffer flushing
    3436! TEST: write statements
    3537!
     
    8486
    8587    WRITE ( 9, * ) '*** myid=', myid, ' Anfang data_output_dvrp'
    86 #if defined( __ibm )
    87     CALL FLUSH_( 9 )
    88 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    89     CALL FLUSH( 9 )
    90 #endif
     88    CALL local_flush( 9 )
    9189    CALL cpu_log( log_point(27), 'data_output_dvrp', 'start' )
    9290
     
    104102          lock_steering_update = .TRUE.
    105103    WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: vor steering_update'
    106 #if defined( __ibm )
    107     CALL FLUSH_( 9 )
    108 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    109     CALL FLUSH( 9 )
    110 #endif
     104    CALL local_flush( 9 )
    111105          CALL DVRP_STEERING_UPDATE( m-1, data_output_dvrp )
    112106    WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: nach steering_update'
    113 #if defined( __ibm )
    114     CALL FLUSH_( 9 )
    115 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    116     CALL FLUSH( 9 )
    117 #endif
     107    CALL local_flush( 9 )
    118108          lock_steering_update = .FALSE.
    119109       ENDIF
     
    150140
    151141    WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: anfang particles'
    152 #if defined( __ibm )
    153     CALL FLUSH_( 9 )
    154 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    155     CALL FLUSH( 9 )
    156 #endif
     142    CALL local_flush( 9 )
    157143!
    158144!--       DVRP-Calls for plotting particles:
     
    183169             WRITE (9,*) '--- before ALLOCATE  simtime=',simulated_time,' #of_tails=', number_of_tails, &
    184170                           ' max#of_tp=', maximum_number_of_tailpoints
    185 #if defined( __ibm )
    186     CALL FLUSH_( 9 )
    187 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    188     CALL FLUSH( 9 )
    189 #endif
     171    CALL local_flush( 9 )
    190172             ALLOCATE( psize(number_of_tails), p_t(number_of_tails),      &
    191173                       p_c(number_of_tails*maximum_number_of_tailpoints), &
     
    194176                       p_z(number_of_tails*maximum_number_of_tailpoints) )
    195177             WRITE (9,*) '--- after ALLOCATE'
    196 #if defined( __ibm )
    197     CALL FLUSH_( 9 )
    198 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    199     CALL FLUSH( 9 )
    200 #endif
     178    CALL local_flush( 9 )
    201179             psize = 0.0;  p_t = 0;  p_c = 0.0;  p_x = 0.0;  p_y = 0.0
    202180             p_z   = 0.0;
     
    209187                   IF ( simulated_time > 1338.0 )  THEN
    210188                      WRITE (9,*) '--- particle ',n,' tail_id=',nn,' #of_tp=',particles(n)%tailpoints
    211 #if defined( __ibm )
    212     CALL FLUSH_( 9 )
    213 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    214     CALL FLUSH( 9 )
    215 #endif
     189    CALL local_flush( 9 )
    216190                   ENDIF
    217191                   DO  j = 1, particles(n)%tailpoints
     
    227201                         WRITE (9,*) '--- tp= ',i,' x=',p_x(i),' y=',p_y(i), &
    228202                                                 ' z=',p_z(i),' c=',p_c(i)
    229 #if defined( __ibm )
    230     CALL FLUSH_( 9 )
    231 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    232     CALL FLUSH( 9 )
    233 #endif
     203    CALL local_flush( 9 )
    234204                      ENDIF
    235205                   ENDDO
     
    238208                   IF ( simulated_time > 1338.0 )  THEN
    239209                      WRITE (9,*) '--- t= ',k,' psize=',psize(k),' p_t=',p_t(k)
    240 #if defined( __ibm )
    241     CALL FLUSH_( 9 )
    242 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    243     CALL FLUSH( 9 )
    244 #endif
     210    CALL local_flush( 9 )
    245211                   ENDIF
    246212                ENDIF               
    247213             ENDDO
    248214             WRITE (9,*) '--- after locally storing the particle attributes'
    249 #if defined( __ibm )
    250     CALL FLUSH_( 9 )
    251 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    252     CALL FLUSH( 9 )
    253 #endif
     215    CALL local_flush( 9 )
    254216          ENDIF
    255217
     
    275237             ELSE
    276238                WRITE (9,*) '--- before DVRP_PARTICLES'
    277 #if defined( __ibm )
    278     CALL FLUSH_( 9 )
    279 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    280     CALL FLUSH( 9 )
    281 #endif
     239    CALL local_flush( 9 )
    282240                CALL DVRP_PARTICLES( m-1, number_of_tails, p_x, p_y, p_z, 15, &
    283241                                     psize, p_c, p_t )
     
    292250                WRITE (9,*) 'p_t =', p_t
    293251
    294 #if defined( __ibm )
    295     CALL FLUSH_( 9 )
    296 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    297     CALL FLUSH( 9 )
    298 #endif
     252    CALL local_flush( 9 )
    299253             ENDIF
    300254          ENDIF
     
    302256          CALL DVRP_VISUALIZE( m-1, 3, dvrp_filecount )
    303257    WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: ende particles'
    304 #if defined( __ibm )
    305     CALL FLUSH_( 9 )
    306 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    307     CALL FLUSH( 9 )
    308 #endif
     258    CALL local_flush( 9 )
    309259
    310260          DEALLOCATE( psize, p_c, p_t, p_x, p_y, p_z )
     
    456406
    457407    WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: anfang isosurface'
    458 #if defined( __ibm )
    459     CALL FLUSH_( 9 )
    460 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    461     CALL FLUSH( 9 )
    462 #endif
     408    CALL local_flush( 9 )
    463409!
    464410!--          DVRP-Calls for plotting isosurfaces:
     
    481427             CALL DVRP_VISUALIZE( m-1, 1, dvrp_filecount )
    482428    WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: ende isosurface'
    483 #if defined( __ibm )
    484     CALL FLUSH_( 9 )
    485 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    486     CALL FLUSH( 9 )
    487 #endif
     429    CALL local_flush( 9 )
    488430
    489431             CALL cpu_log( log_point_s(26), 'dvrp_isosurface', 'stop' )
     
    492434
    493435    WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: anfang slicer'
    494 #if defined( __ibm )
    495     CALL FLUSH_( 9 )
    496 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    497     CALL FLUSH( 9 )
    498 #endif
     436    CALL local_flush( 9 )
    499437!
    500438!--          DVRP-Calls for plotting slicers:
     
    526464
    527465    WRITE ( 9, * ) '*** myid=', myid, ' data_output_dvrp: ende slicer'
    528 #if defined( __ibm )
    529     CALL FLUSH_( 9 )
    530 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    531     CALL FLUSH( 9 )
    532 #endif
     466    CALL local_flush( 9 )
    533467          ENDIF
    534468
     
    545479    CALL cpu_log( log_point(27), 'data_output_dvrp', 'stop' )
    546480    WRITE ( 9, * ) '*** myid=', myid, ' Ende data_output_dvrp'
    547 #if defined( __ibm )
    548     CALL FLUSH_( 9 )
    549 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    550     CALL FLUSH( 9 )
    551 #endif
     481    CALL local_flush( 9 )
    552482
    553483#endif
  • palm/trunk/SOURCE/flow_statistics.f90

    r77 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Cpp-directive lcmuk changed to intel_openmp_bug
    77!
    88! Former revisions:
     
    9898       tn = 0
    9999       !$OMP PARALLEL PRIVATE( i, j, k, tn )
    100 #if defined( __lcmuk )
     100#if defined( __intel_openmp_bug )
    101101       tn = omp_get_thread_num()
    102102#else
     
    260260!--          rearranged according to the staggered grid.
    261261       tn = 0
    262 #if defined( __lcmuk )
     262#if defined( __intel_openmp_bug )
    263263       !$OMP PARALLEL PRIVATE( i, j, k, pts, sums_ll, sums_l_eper, sums_l_etot, &
    264264       !$OMP                    tn, ust, ust2, u2, vst, vst2, v2, w2 )
  • palm/trunk/SOURCE/header.f90

    r77 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Preprocessor strings for different linux clusters changed to "lc",
     7! routine local_flush is used for buffer flushing
    78!
    89! Former revisions:
     
    11091110    WRITE ( io, 99 )
    11101111
    1111 #if defined( __ibm )
    11121112!
    11131113!-- Write buffer contents to disc immediately
    1114     CALL FLUSH_( io )
    1115 #elif defined( __lcmuk )  ||  defined( __nec )
    1116     CALL FLUSH( io )
    1117 #endif
     1114    CALL local_flush( io )
    11181115
    11191116!
  • palm/trunk/SOURCE/init_1d_model.f90

    r77 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Preprocessor strings for different linux clusters changed to "lc",
     7! routine local_flush is used for buffer flushing
    78!
    89! Former revisions:
     
    770771       WRITE ( 15, 101 )  current_timestep_number_1d, simulated_time_chr, &
    771772                          dt_1d, umax, vmax, us1d, alpha, energy
    772 #if defined( __ibm )
    773773!
    774774!--    Write buffer contents to disc immediately
    775        CALL FLUSH_( 15 )
    776 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    777        CALL FLUSH( 15 )
    778 #endif
     775       CALL local_flush( 15 )
    779776
    780777    ENDIF
     
    955952       WRITE ( 17, 101 )
    956953
    957 #if defined( __ibm )
    958954!
    959955!--    Write buffer contents to disc immediately
    960        CALL FLUSH_( 17 )
    961 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    962        CALL FLUSH( 17 )
    963 #endif
     956       CALL local_flush( 17 )
    964957
    965958    ENDIF
  • palm/trunk/SOURCE/init_dvrp.f90

    r39 r82  
    33!------------------------------------------------------------------------------!
    44! Actual revisions:
    5 ! -----------------
     5! -----------------
     6! Preprocessor strings for different linux clusters changed to "lc",
     7! routine local_flush is used for buffer flushing
    68! Test output of isosurface on camera file
    79! TEST: print* statements
     
    145147
    146148    WRITE ( 9, * ) '***  vor dvrp_output_rtsp'
    147 #if defined( __ibm )
    148     CALL FLUSH_( 9 )
    149 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    150     CALL FLUSH( 9 )
    151 #endif
     149    CALL local_flush( 9 )
    152150
    153151             dvrp_file   = TRIM( mode_dvrp(m) ) // '/camera.dvr'
     
    157155                                    dvrp_file_c )
    158156    WRITE ( 9, * ) '***  nach dvrp_output_rtsp'
    159 #if defined( __ibm )
    160     CALL FLUSH_( 9 )
    161 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    162     CALL FLUSH( 9 )
    163 #endif
     157    CALL local_flush( 9 )
    164158
    165159          ELSEIF ( dvrp_output == 'ftp' )  THEN
     
    185179          CALL DVRP_CAMERA( m-1, center, distance )
    186180    WRITE ( 9, * ) '***  #1'
    187 #if defined( __ibm )
    188     CALL FLUSH_( 9 )
    189 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    190     CALL FLUSH( 9 )
    191 #endif
     181    CALL local_flush( 9 )
    192182
    193183!
     
    202192          CALL DVRP_EXIT( m-1 )
    203193    WRITE ( 9, * ) '***  #2'
    204 #if defined( __ibm )
    205     CALL FLUSH_( 9 )
    206 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    207     CALL FLUSH( 9 )
    208 #endif
     194    CALL local_flush( 9 )
    209195
    210196
     
    223209                                    dvrp_file_c )
    224210    WRITE ( 9, * ) '***  #3'
    225 #if defined( __ibm )
    226     CALL FLUSH_( 9 )
    227 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    228     CALL FLUSH( 9 )
    229 #endif
     211    CALL local_flush( 9 )
    230212
    231213          ELSEIF ( dvrp_output == 'ftp' )  THEN
     
    274256          CALL DVRP_MATERIAL_RGB( m-1, 1, 0.8, 0.7, 0.6, 0.0 )
    275257    WRITE ( 9, * ) '***  #4'
    276 #if defined( __ibm )
    277     CALL FLUSH_( 9 )
    278 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    279     CALL FLUSH( 9 )
    280 #endif
     258    CALL local_flush( 9 )
    281259
    282260!
     
    292270          ENDDO
    293271    WRITE ( 9, * ) '***  #4.1'
    294 #if defined( __ibm )
    295     CALL FLUSH_( 9 )
    296 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    297     CALL FLUSH( 9 )
    298 #endif
     272    CALL local_flush( 9 )
    299273          CALL DVRP_DATA( m-1, local_pf, 1, nx_dvrp, ny_dvrp, nz_dvrp, &
    300274                          cyclic_dvrp, cyclic_dvrp, cyclic_dvrp )
    301275    WRITE ( 9, * ) '***  #4.2'
    302 #if defined( __ibm )
    303     CALL FLUSH_( 9 )
    304 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    305     CALL FLUSH( 9 )
    306 #endif
     276    CALL local_flush( 9 )
    307277          CALL DVRP_THRESHOLD( m-1, 1.0 )
    308278    WRITE ( 9, * ) '***  #4.3'
    309 #if defined( __ibm )
    310     CALL FLUSH_( 9 )
    311 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    312     CALL FLUSH( 9 )
    313 #endif
     279    CALL local_flush( 9 )
    314280          CALL DVRP_VISUALIZE( m-1, 1, 0 )
    315281    WRITE ( 9, * ) '***  #4.4'
    316 #if defined( __ibm )
    317     CALL FLUSH_( 9 )
    318 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    319     CALL FLUSH( 9 )
    320 #endif
     282    CALL local_flush( 9 )
    321283
    322284          DEALLOCATE( local_pf )
     
    324286          CALL DVRP_EXIT( m-1 )
    325287    WRITE ( 9, * ) '***  #5'
    326 #if defined( __ibm )
    327     CALL FLUSH_( 9 )
    328 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    329     CALL FLUSH( 9 )
    330 #endif
     288    CALL local_flush( 9 )
    331289
    332290!
     
    344302                                    dvrp_file_c )
    345303    WRITE ( 9, * ) '***  #6'
    346 #if defined( __ibm )
    347     CALL FLUSH_( 9 )
    348 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    349     CALL FLUSH( 9 )
    350 #endif
     304    CALL local_flush( 9 )
    351305
    352306          ELSEIF ( dvrp_output == 'ftp' )  THEN
     
    395349          CALL DVRP_MATERIAL_RGB( m-1, 1, 0.0, 0.6, 0.0, 0.0 )
    396350    WRITE ( 9, * ) '***  #7'
    397 #if defined( __ibm )
    398     CALL FLUSH_( 9 )
    399 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    400     CALL FLUSH( 9 )
    401 #endif
     351    CALL local_flush( 9 )
    402352
    403353!
     
    416366          CALL DVRP_EXIT( m-1 )
    417367    WRITE ( 9, * ) '***  #8'
    418 #if defined( __ibm )
    419     CALL FLUSH_( 9 )
    420 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    421     CALL FLUSH( 9 )
    422 #endif
     368    CALL local_flush( 9 )
    423369
    424370   
     
    461407                name_c = TRIM( do3d(0,vn) )
    462408    WRITE ( 9, * ) '***  #9'
    463 #if defined( __ibm )
    464     CALL FLUSH_( 9 )
    465 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    466     CALL FLUSH( 9 )
    467 #endif
     409    CALL local_flush( 9 )
    468410                CALL DVRP_STEERING_INIT( m-1, name_c, steering_dvrp(pn)%min, &
    469411                                         steering_dvrp(pn)%max, threshold(tv) )
    470412    WRITE ( 9, * ) '***  #10'
    471 #if defined( __ibm )
    472     CALL FLUSH_( 9 )
    473 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    474     CALL FLUSH( 9 )
    475 #endif
     413    CALL local_flush( 9 )
    476414
    477415             ELSEIF ( mode_dvrp(pn)(1:6) == 'slicer' )  THEN
     
    517455
    518456    WRITE ( 9, * ) '***  #11'
    519 #if defined( __ibm )
    520     CALL FLUSH_( 9 )
    521 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    522     CALL FLUSH( 9 )
    523 #endif
     457    CALL local_flush( 9 )
    524458
    525459          dvrp_file = TRIM( mode_dvrp(m) ) // '/*****.dvr'
     
    529463                                 dvrp_file_c )
    530464    WRITE ( 9, * ) '***  #12'
    531 #if defined( __ibm )
    532     CALL FLUSH_( 9 )
    533 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    534     CALL FLUSH( 9 )
    535 #endif
     465    CALL local_flush( 9 )
    536466
    537467       ELSEIF ( dvrp_output == 'ftp' )  THEN
     
    585515!--    Define the grid used by dvrp
    586516    WRITE ( 9, * ) '***  #13'
    587 #if defined( __ibm )
    588     CALL FLUSH_( 9 )
    589 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    590     CALL FLUSH( 9 )
    591 #endif
     517    CALL local_flush( 9 )
    592518
    593519       CALL DVRP_GRID( m-1, nx_dvrp, ny_dvrp, nz_dvrp, xcoor_dvrp, ycoor_dvrp, &
    594520                       zcoor_dvrp )
    595521    WRITE ( 9, * ) '***  #14'
    596 #if defined( __ibm )
    597     CALL FLUSH_( 9 )
    598 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    599     CALL FLUSH( 9 )
    600 #endif
     522    CALL local_flush( 9 )
    601523
    602524
     
    631553!-- Initialize logging of calls by DVRP graphic software
    632554    WRITE ( 9, * ) '*** myid=', myid, ' vor DVRP_LOG_INIT'
    633 #if defined( __ibm )
    634     CALL FLUSH_( 9 )
    635 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    636     CALL FLUSH( 9 )
    637 #endif
     555    CALL local_flush( 9 )
    638556    CALL DVRP_LOG_INIT( 'DVRP_LOG' // CHAR( 0 ), 0 )
    639557    WRITE ( 9, * ) '*** myid=', myid, ' nach DVRP_LOG_INIT'
    640 #if defined( __ibm )
    641     CALL FLUSH_( 9 )
    642 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    643     CALL FLUSH( 9 )
    644 #endif
     558    CALL local_flush( 9 )
    645559
    646560!
    647561!-- User-defined logging events: #1 (total time needed by PALM)
    648562    WRITE ( 9, * ) '*** myid=', myid, ' vor DVRP_LOG_SYMBOL'
    649 #if defined( __ibm )
    650     CALL FLUSH_( 9 )
    651 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    652     CALL FLUSH( 9 )
    653 #endif
     563    CALL local_flush( 9 )
    654564    CALL DVRP_LOG_SYMBOL( 1, 'PALM_total' // CHAR( 0 ) )
    655565    WRITE ( 9, * ) '*** myid=', myid, ' nach DVRP_LOG_SYMBOL'
    656 #if defined( __ibm )
    657     CALL FLUSH_( 9 )
    658 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    659     CALL FLUSH( 9 )
    660 #endif
     566    CALL local_flush( 9 )
    661567    CALL DVRP_LOG_SYMBOL( 2, 'PALM_timestep' // CHAR( 0 ) )
    662568    WRITE ( 9, * ) '*** myid=', myid, ' vor DVRP_LOG_EVENT'
    663 #if defined( __ibm )
    664     CALL FLUSH_( 9 )
    665 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    666     CALL FLUSH( 9 )
    667 #endif
     569    CALL local_flush( 9 )
    668570    CALL DVRP_LOG_EVENT( 1, 1 )
    669571    WRITE ( 9, * ) '*** myid=', myid, ' nach DVRP_LOG_EVENT'
    670 #if defined( __ibm )
    671     CALL FLUSH_( 9 )
    672 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    673     CALL FLUSH( 9 )
    674 #endif
     572    CALL local_flush( 9 )
    675573
    676574#if defined( __parallel )
     
    681579       use_seperate_pe_for_dvrp_output = .TRUE.
    682580    WRITE ( 9, * ) '*** myid=', myid, ' vor DVRP_SPLIT'
    683 #if defined( __ibm )
    684     CALL FLUSH_( 9 )
    685 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    686     CALL FLUSH( 9 )
    687 #endif
     581    CALL local_flush( 9 )
    688582       CALL DVRP_SPLIT( MPI_COMM_WORLD, comm_palm )
    689583    WRITE ( 9, * ) '*** myid=', myid, ' nach DVRP_SPLIT'
    690 #if defined( __ibm )
    691     CALL FLUSH_( 9 )
    692 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    693     CALL FLUSH( 9 )
    694 #endif
     584    CALL local_flush( 9 )
    695585       CALL MPI_COMM_SIZE( comm_palm, numprocs, ierr )
    696586    ENDIF
  • palm/trunk/SOURCE/init_particles.f90

    r77 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Preprocessor directives for old systems removed
    77!
    88! Former revisions:
     
    5959!
    6060!-- Define MPI derived datatype for FORTRAN datatype particle_type (see module
    61 !-- particle_attributes). Integer length is 4 byte, Real is 8 byte (=> total
    62 !-- length 100, nevertheless, 120 bytes are needed on T3E since integer seems
    63 !-- to be 8 bytes long there)
    64     blocklengths(1)  = 19; blocklengths(2)  = 4; blocklengths(3)  =  1
    65 #if defined( __t3eb )
    66     displacements(1) = 0; displacements(2) = 152; displacements(3) = 184
    67 #else
    68     displacements(1) = 0; displacements(2) = 152; displacements(3) = 168
    69 #endif
     61!-- particle_attributes). Integer length is 4 byte, Real is 8 byte
     62    blocklengths(1)  = 19;  blocklengths(2)  =   4;  blocklengths(3)  =   1
     63    displacements(1) =  0;  displacements(2) = 152;  displacements(3) = 168
     64
    7065    types(1) = MPI_REAL
    7166    types(2) = MPI_INTEGER
  • palm/trunk/SOURCE/init_pegrid.f90

    r77 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Cpp-directive lcmuk changed to intel_openmp_bug, setting of host on lcmuk by
     7! cpp-directive removed
    78!
    89! Former revisions:
     
    5657!-- Get the number of OpenMP threads
    5758    !$OMP PARALLEL
    58 #if defined( __lcmuk )
     59#if defined( __intel_openmp_bug )
    5960    threads_per_task = omp_get_num_threads()
    6061#else
     
    7273!--    Automatic determination of the topology
    7374!--    The default on SMP- and cluster-hosts is a 1d-decomposition along x
    74 #if defined( __lcmuk )
    75        host = 'lcmuk'
    76 #endif
    7775       IF ( host(1:3) == 'ibm'  .OR.  host(1:3) == 'nec'  .OR. &
    7876            host(1:2) == 'lc'   .OR.  host(1:3) == 'dec' )  THEN
  • palm/trunk/SOURCE/local_getenv.f90

    r4 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Preprocessor directives for old systems removed
    77!
    88! Former revisions:
     
    2929    CHARACTER (LEN=*) ::  var, value
    3030    INTEGER           ::  ivalue, ivar
    31 #if defined( __t3eb ) || defined( __t3eh ) || defined( __t3ej2 ) || defined( __t3ej5 )
    32     INTEGER           ::  dummy
    33 #endif
    3431#if defined( __lcmuk )
    3532    INTEGER            ::  i, ia(20)
    3633#endif
    3734
    38 #if defined( __t3eb ) || defined( __t3eh ) || defined( __t3ej2 ) || defined( __t3ej5 )
    39     CALL PXFGETENV( var(1:ivar), ivar, value, ivalue, dummy )
    40     IF ( ivalue == 0 )  value = ''
    41 #else
    4235    CALL GETENV( var(1:ivar), value )
    4336    ivalue = LEN_TRIM( value )
    44 #endif
    4537
    4638#if defined( __lcmuk )  &&  defined( __parallel )
  • palm/trunk/SOURCE/local_system.f90

    r4 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Preprocessor directives for old systems removed
    77!
    88! Former revisions:
     
    2525    CHARACTER (LEN=*) ::  command
    2626
    27 #if defined( __t3eb ) || defined( __t3eh ) || defined( __t3ej2 ) || defined( __t3ej5 )
    28     CALL ISHELL( command )
    29 #else
    3027    CALL SYSTEM( command )
    31 #endif
    3228
    3329 END SUBROUTINE local_system   
  • palm/trunk/SOURCE/local_tremain.f90

    r4 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Preprocessor strings for different linux clusters changed to "lc",
     7! preprocessor directives for old systems removed
    78!
    89! Former revisions:
     
    3031
    3132    REAL ::  remaining_time
    32 !#if defined( __vpp )
    33 !    REAL ::  cpu_time_used, rdum
    34 !#endif
    3533#if defined( __ibm )
    3634    INTEGER(8) ::  IRTC
    3735    REAL       ::  actual_wallclock_time
    38 #elif defined( __lctit )
     36#elif defined( __lc )
    3937    INTEGER    ::  count, count_rate
    4038    REAL       ::  actual_wallclock_time
    4139#endif
    4240
    43 #if defined( __t3eh ) || defined( __t3eb ) || defined( __t3ej2 ) || defined( __t3ej5 )
     41#if defined( __ibm )
    4442
    45     CALL MPP_TREMAIN( remaining_time )
    46 
    47 !#elif defined( __vpp )
    48 !
    49 !    CALL CLOCKV( rdum, cpu_time_used, 0, 2 )
    50 !    remaining_time = maximum_cpu_time_allowed - cpu_time_used
    51 
    52 #elif defined( __ibm )
    53 
    54 !    CALL SYSTEM_CLOCK( count, count_rate )
    55 !    actual_wallclock_time = REAL( count ) / REAL( count_rate )
    5643    actual_wallclock_time = IRTC( ) * 1E-9
    5744    remaining_time = maximum_cpu_time_allowed - &
    5845                     ( actual_wallclock_time - initial_wallclock_time )
    5946
    60 #elif defined( __lctit )
     47#elif defined( __lc )
    6148
    6249    CALL SYSTEM_CLOCK( count, count_rate )
  • palm/trunk/SOURCE/local_tremain_ini.f90

    r4 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Cpp-directive lctit renamed lc
    77!
    88! Former revisions:
     
    3333    INTEGER            ::  idum
    3434    INTEGER(8)         ::  IRTC
    35 #elif defined( __lctit )
     35#elif defined( __lc )
    3636    CHARACTER (LEN=10) ::  value_chr
    3737    INTEGER            ::  idum
     
    4646    initial_wallclock_time = IRTC( ) * 1E-9
    4747
    48 #elif defined( __lctit )
     48#elif defined( __lc )
    4949
    5050    CALL SYSTEM_CLOCK( count, count_rate )
  • palm/trunk/SOURCE/modules.f90

    r77 r82  
    55! Actual revisions:
    66! -----------------
    7 !
     7! +return_addres, return_username
     8! Cpp-directive lcmuk renamed lc
    89!
    910! Former revisions:
     
    236237                            mixing_length_1d = 'as_in_3d_model', &
    237238                            random_generator = 'numerical-recipes', &
     239                            return_addres, return_username, &
    238240                            timestep_scheme = 'runge-kutta-3'
    239241    CHARACTER (LEN=40)  ::  avs_data_file, topography = 'flat'
     
    879881
    880882#if defined( __parallel )
    881 #if defined( __lcmuk )
     883#if defined( __lc )
    882884    USE MPI
    883 !    INCLUDE "mpif.h"
    884885#else
    885886    INCLUDE "mpif.h"
  • palm/trunk/SOURCE/parin.f90

    r77 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! +return_addres, return_username, use_seperate_pe_for_dvrp_output in envpar
    77!
    88! Former revisions:
     
    121121
    122122
    123     NAMELIST /envpar/  host, maximum_cpu_time_allowed, revision, &
    124                        run_identifier, tasks_per_node, write_binary
     123    NAMELIST /envpar/  host, maximum_cpu_time_allowed, revision, return_addres, &
     124                       return_username, run_identifier, tasks_per_node, write_binary
    125125
    126126
  • palm/trunk/SOURCE/poisfft.f90

    r77 r82  
    13451345!       tn = omp_get_thread_num()
    13461346!       WRITE( 120+tn, * ) '+++ id=',myid,' nx=',nx,' thread=', omp_get_thread_num()
    1347 !       CALL FLUSH_( 120+tn )
     1347!       CALL local_flush( 120+tn )
    13481348!CDIR NOLOOPCHG
    13491349       DO  k = 0, nz-1
     
    13541354       ENDDO
    13551355!       WRITE( 120+tn, * ) '+++ id=',myid,' end of first tridia loop   thread=', omp_get_thread_num()
    1356 !       CALL FLUSH_( 120+tn )
     1356!       CALL local_flush( 120+tn )
    13571357
    13581358       IF ( j <= nnyh )  THEN
  • palm/trunk/SOURCE/run_control.f90

    r4 r82  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Preprocessor strings for different linux clusters changed to "lc",
     7! routine local_flush is used for buffer flushing
    78!
    89! Former revisions:
     
    8990                          advected_distance_x/1000.0,                          &
    9091                          advected_distance_y/1000.0, mgcycles
    91 #if defined( __ibm )
    9292!
    9393!--    Write buffer contents to disc immediately
    94        CALL FLUSH_( 15 )
    95 #elif defined( __lcmuk )  ||  defined( __lctit )  ||  defined( __nec )
    96        CALL FLUSH( 15 )
    97 #endif
     94       CALL local_flush( 15 )
     95
    9896    ENDIF
    9997!
Note: See TracChangeset for help on using the changeset viewer.