Home

Context Navigation

mbuild @ 86

Last change on this file since 86 was 83, checked in by raasch, 18 years ago

New:
---

Changed:

PALM can be generally installed on any kind of Linux-, IBM-AIX-, or NEC-SX-system by adding appropriate settings to the configuration file.

Scripts are also running under the public domain ksh.

All system relevant compile and link options as well as the host identifier (local_host) are specified in the configuration file.

Filetransfer by ftp removed (options -f removed from mrun and mbuild).

Call of (system-)FLUSH routine moved to new routine local_flush.

return_addres and return_username are read from ENVPAR-NAMELIST-file instead of using local_getenv.

Preprocessor strings for different linux clusters changed to "lc", some preprocessor directives renamed (new: intel_openmp_bug), preprocessor directives for old systems removed

advec_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, palm, parin, run_control

new:
local_flush

mbuild, mrun

Errors:

Property svn:keywords set to Rev

File size: 53.1 KB

Rev	Line
[1]	1	#!/bin/ksh
[66]	2	# mbuild - Programmuebersetzungsscript
	3	# $Id: mbuild 54 2007-03-08 00:00:02Z raasch $
[1]	4
	5	# Prozedur zur Uebersetzung von Programmteilen mittels make-Mechanismus
	6	# auf einem Remote-Rechner, ausgehend von Quellcode auf einem lokalen
	7	# Rechner
	8
	9	# Folgende Probleme existieren unter Linux, wenn keine AT&T-Korn-Shell
	10	# verwendet wird:
	11	# Wertzuweisungen an Variablen innerhalb von DO-Schleifen werden nicht
	12	# nach aussen weitergegeben. "while read line" funktioniert nicht
	13	# innerhalb einer Pipe.
	14
	15	# letzte Aenderung:
	16	# 06/05/02 - Siggi - Beginn der Entwicklung
	17	# 12/06/02 - Siggi - Abschluss der Entwicklungsarbeiten
	18	# 23/06/02 - Siggi - voerst kein make-clean, Abbruch bei batch-mode
	19	# 24/07/02 - Siggi - Keine Verwendung der temporaeren Datei tmp_mbuild
	20	# unter linux mehr noetig, da nun AT&T-Korn-Shell
	21	# benutzt wird
	22	# 12/09/02 - Siggi - ibmh (hanni.hlrn.de) validiert
	23	# 19/12/02 - Siggi - ibmb validiert
	24	# 05/02/03 - Siggi - hostname nobela included
	25	# 04/03/03 - Siggi - host nech included
	26	# 06/03/03 - Siggi - make_call_string is echoed without '' to
	27	# file LAST_MAKE_CALL (otherwise error on NEC, because
	28	# '' are part of compiler options
	29	# 16/03/03 - Siggi - Two underscores are placed in front of every define
	30	# string, in case that palm.f90 version contains
	31	# such strings
	32	# 16/04/03 - Siggi - First extensions for linux machines
	33	# 24/06/03 - Siggi - host orkan included
	34	# 17/07/03 - Siggi - IP adress set to new "cross" machine at DKRZ
	35	# 24/07/03 - Siggi - host maestro admitted
	36	# 06/08/03 - Siggi - host gregale admitted
	37	# 05/11/03 - Siggi - hosts irifi and quanero are now belonging to lcmuk
	38	# 19/11/03 - Heiko - on lcmuk, mbuild does not tar the *.i files
	39	# 08/01/04 - Siggi - additional preprocessor directive for ibm included
	40	# (-D$OMP=OMP) in order to avoid problems with
	41	# OMP_NUM_THREADS
	42	# 09/01/04 - Siggi - action above cancelled
	43	# 28/01/04 - Siggi - action above re-cancelled
	44	# 08/03/04 - Siggi - host scirocco admitted
	45	# 26/03/04 - Siggi - .o and .mod files are also deleted in depository, if
	46	# the respective .f90 file is not listed in the makefile
	47	# and deletion is demanded by the user
	48	# 12/04/04 - Siggi - scp2 instead of scp used for transfer from decalpha
	49	# due to error in ssh installation (otherwise a prompt
	50	# for the password appears)
	51	# 23/07/04 - Siggi - changes due to the new berni configuration
	52	# (federation switch)
	53	# 08/09/04 - Siggi - hanni IP address changed to 130.75.4.10
	54	# 23/09/04 - Joerg - correction of IP-Address for 'cross' (DKRZ)
	55	# 09/03/05 - Siggi - on nech, mbuild does not tar the *.i files
	56	# 31/03/05 - Siggi - mbuild does not tar *.i files any more
	57	# 24/04/05 - Siggi - netcdf support on lcmuk
	58	# 25/04/05 - Siggi - netcdf support on gfdl3 (decalpha)
	59	# 12/05/05 - Siggi - netcdf support on ibm
	60	# set OBJECT_MODE=64 for compiling on ibmb, ibmh
	61	# 18/05/05 - Siggi - netcdf support on nec
	62	# 19/05/05 - Siggi - IP addres 134.75.155.74 changed to 165.132.26.56
	63	# 23/05/05 - Siggi - netcdf support on ibms
	64	# 01/06/05 - Siggi - reset of cpp_options to "" on lcmuk
	65	# 30/06/05 - Siggi - netcdf support on bora
	66	# 20/10/05 - Siggi - update of netcdf-version on decalpha (gfdl3)
	67	# 04/11/05 - Siggi - netcdf 3.6.0-p1 on ibmh/ibmb
	68	# 30/12/05 - Siggi - change of IP adresses in subnet 130.75.105
	69	# host gfdl5 (ibmy) admitted
	70	# 10/01/06 - Siggi - cpp directive for NetCDF 64bit support
	71	# 20/01/06 - Siggi - cpp directive for ibmy
	72	# 09/02/06 - Marcus- compile only once on lcmuk (as on ibmh/ibmb)
	73	# 10/02/06 - Siggi - modifications for scp on decalpha
	74	# 13/04/06 - Siggi - ostria admitted
	75	# 19/04/06 - Siggi - preprocessor directive -D$OMP=OMP for ibm removed
	76	# 23/05/05 - Siggi - lctit (SUN Fire X4600) admitted
	77	# 29/05/05 - Siggi - atmos (lcide) admitted
	78	# 23/08/06 - Siggi - netcdf support for scirocco (notebook)
	79	# 24/11/06 - Siggi - breva and levanto admitted
	80	# 07/02/07 - Siggi - adapted for RIAM (neck)
[5]	81	# 10/02/07 - Siggi - all hpmuk-related code removed
[40]	82	# 02/03/07 - Siggi - compilation of utility programs and transfer of
[27]	83	# scripts to remote hosts added (option -u)
[66]	84	# 14/03/07 - Siggi - fimm admitted, revision number added to terminal
	85	# output
[69]	86	# 16/03/07 - Siggi - adjustments (netcdf) for lctit
	87	# adjustments for running under pdksh, local ip-addres
	88	# is not determined any more
[82]	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
[1]	92
	93
	94
	95	# VARIABLENVEREINBARUNGEN + DEFAULTWERTE
[22]	96	compile_utility_programs=false
[1]	97	config_file=.mrun.config
[67]	98	fimm=false
[1]	99	host=all
	100	host_found=false
	101	ibm_hb_done=false
	102	lcmuk_done=false
	103	locat=normal
	104	makefile=""
	105	remote_mode=interactive
	106	scirocco=false
	107	silent=false
	108	suf=f90
	109	update=false
[83]	110	working_directory=`pwd`
[1]	111
	112	typeset -i ih ihost=0
	113
[66]	114	typeset -R30 calltime
[1]	115	typeset -L20 column1
	116	typeset -L50 column2
	117	typeset -L70 column3
[67]	118	typeset -L40 version="MBUILD 2.0 Rev$Rev: 83 $"
[1]	119
	120	# FEHLERBEHANDLUNG
	121	# BEI EXIT:
[83]	122	trap 'rm -rf $working_directory/tmp_mbuild
[69]	123	if [[ $locat != normal ]]
[1]	124	then
	125	printf "\n\n +++ mbuild killed \n\n"
	126	else
	127	printf "\n\n *** mbuild finished \n\n"
	128	fi' exit
	129
	130
	131	# BEI TERMINAL-BREAK:
[83]	132	trap 'rm -rf $working_directory/tmp_mbuild
[69]	133	printf "\n\n +++ mbuild killed by \"^C\" \n\n"
[1]	134	exit
	135	' 2
	136
	137
	138
	139	# SHELLSCRIPT-OPTIONEN EINLESEN
[22]	140	while getopts :c:h:m:rs:u option
[1]	141	do
	142	case $option in
	143	(c) config_file=$OPTARG;;
	144	(h) host=$OPTARG;;
	145	(m) makefile=$OPTARG;;
	146	(r) remote_mode=batch;;
	147	(s) suf=$OPTARG;;
[22]	148	(u) compile_utility_programs=true;;
[1]	149	(\?) printf "\n +++ unknown option $OPTARG \n";
	150	locat=parameter; exit;;
	151	esac
	152	done
	153
	154
	155
	156	# BATCH-MODE IST ZUR ZEIT NICHT FUNKTIONSFAEHIG
	157	if [[ $remote_mode = batch ]]
	158	then
	159	printf "\n +++ sorry, batch mode does not work! \n"
	160	locat=parameter; exit
	161	fi
	162
	163
	164
[82]	165	# PRUEFEN, OB KONFIGURATIONS-DATEI VORHANDEN
	166	if [[ ! -f $config_file ]]
	167	then
	168	printf "\n +++ configuration file: "
	169	printf "\n $config_file"
	170	printf "\n does not exist"
	171	locat=configuration; exit
	172	fi
	173
	174
	175
[1]	176	# LOKALEN RECHNER ERMITTELN
	177	local_host_real_name=$(hostname)
[69]	178	# local_addres=$(nslookup `hostname` 2>&1 \| grep "Address:" \| tail -1 \| awk '{print $2}')
	179
[1]	180
[82]	181
	182	# HOST-IDENTIFIER (local_host) AUS KONFIGURATIONSDATEI BESTIMMEN
	183	line=""
	184	grep "%host_identifier" $config_file > tmp_mbuild
	185	while read line
	186	do
	187	if [[ "$line" != "" \|\| $(echo $line \| cut -c1) != "#" ]]
	188	then
	189	HOSTNAME=`echo $line \| cut -d" " -s -f2`
	190	host_identifier=`echo $line \| cut -d" " -s -f3`
[83]	191	if [[ $local_host_real_name = $HOSTNAME ]]
[82]	192	then
	193	local_host=$host_identifier
	194	break
	195	fi
	196	fi
	197	done < tmp_mbuild
	198
	199	if [[ "$local_host" = "" ]]
	200	then
	201	printf "\n +++ no host identifier found in configuration file \"$config_file\""
	202	printf "\n for local host \"$local_host_real_name\"."
	203	printf "\n Please add line"
	204	printf "\n \"\%host_identifier $local_host_real_name <identifier>\""
	205	printf "\n to the configuration file."
	206	locat=local_host; exit
	207	fi
	208
	209
	210
[1]	211	[[ $local_host_real_name = scirocco ]] && scirocco=true
[67]	212	[[ $local_host_real_name = fimm.bccs.uib.no ]] && fimm=true
[1]	213
	214
	215
	216	if [[ $local_host != ibms ]]
	217	then
	218	config_file=$PWD/$config_file
	219	else
	220	config_file=`pwd`/$config_file
	221	fi
	222
	223
	224
	225	# BENUTZERNAMEN AUF LOKALEM RECHNER AUS KONFIGURATIONSDATEI ERMITTELN
	226	line=""
[69]	227	grep " $local_host" $config_file \| grep "%remote_username" > tmp_mbuild
	228	while read line
[1]	229	do
	230	if [[ "$line" != "" \|\| $(echo $line \| cut -c1) != "#" ]]
	231	then
	232	local_username=`echo $line \| cut -d" " -s -f2`
	233	fi
[69]	234	done < tmp_mbuild
[1]	235
[82]	236
[1]	237	if [[ "$local_username" = "" ]]
	238	then
	239	printf "\n +++ no user name found in configuration file"
	240	printf "\n for local host \"$local_host\" "
	241	locat=config_file; exit
	242	fi
	243
	244
[5]	245	# LOKALEN QUELLTEXTPFAD ERMITTELN.
	246	# ZUERST PRUEFEN, OB EIN GLOBALER QUELLTEXTPFAD FUER ALLE RECHNER
	247	# VEREINBART WURDE.
	248	# DAZU ZUNAECHST ALLE IN DER KONFIGURATIONSDATEI VEREINBARTEN GLOBALEN
	249	# VARIABLEN SETZEN, WEIL DIESE EVTL. IN PFADNAMEN VERWENDET WERDEN
	250	line=""
[69]	251	grep "%" $config_file > tmp_mbuild
	252	while read line
[5]	253	do
	254	if [[ "$line" != "" && "$(echo $line \| cut -d" " -s -f3)" = "" ]]
[1]	255	then
[5]	256	var=`echo $line \| cut -d" " -s -f1 \| cut -c2-`
	257	value=`echo $line \| cut -d" " -s -f2`
[8]	258	eval export $var=\$value
[9]	259	# eval echo \" $var=\$$var \" # AUSGABE ZU TESTZWECKEN
[1]	260	fi
[69]	261	done < tmp_mbuild
[1]	262
[5]	263	# NUN PRUEFEN, OB EIN GLOBALER QUELLTEXTPFAD VEREINBART WURDE
[1]	264	line=""
[69]	265	grep "%source_path" $config_file > tmp_mbuild
	266	while read line
[1]	267	do
	268	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
	269	then
	270	if [[ "$(echo $line \| cut -d" " -s -f3)" = "" ]]
	271	then
	272	global_source_path=`echo $line \| cut -d" " -s -f2`
	273	fi
	274	fi
[69]	275	done < tmp_mbuild
[1]	276
	277	line=""
[69]	278	grep " $local_host" $config_file \| grep "%source_path" > tmp_mbuild
	279	while read line
[1]	280	do
	281	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
	282	then
	283	local_source_path=`echo $line \| cut -d" " -s -f2`
	284	fi
[69]	285	done < tmp_mbuild
[1]	286
	287	if [[ "$local_source_path" = "" ]]
	288	then
	289	if [[ "$global_source_path" != "" ]]
	290	then
	291	local_source_path=$global_source_path
	292	else
	293	printf "\n +++ no source path found in configuration file"
	294	printf "\n for local host \"$local_host\" "
	295	printf "\n please set \"\%source_path\" in configuration file"
	296	locat=config_file; exit
	297	fi
	298	fi
	299	eval local_source_path=$local_source_path
[8]	300	eval local_source_path=$local_source_path
[1]	301
	302
	303	# EBENSO PFAD FUER DAS MAKE-DEPOSITORY ERMITTELN
	304	line=""
[69]	305	grep "%depository_path" $config_file > tmp_mbuild
	306	while read line
[1]	307	do
	308	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
	309	then
	310	if [[ "$(echo $line \| cut -d" " -s -f3)" = "" ]]
	311	then
	312	global_depository_path=`echo $line \| cut -d" " -s -f2`
	313	fi
	314	fi
[69]	315	done < tmp_mbuild
[1]	316
	317	line=""
[69]	318	grep " $local_host" $config_file \| grep "%depository_path" > tmp_mbuild
	319	while read line
[1]	320	do
	321	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
	322	then
	323	local_depository_path=`echo $line \| cut -d" " -s -f2`
	324	fi
[69]	325	done < tmp_mbuild
[1]	326
	327	if [[ "$local_depository_path" = "" ]]
	328	then
	329	if [[ "$global_depository_path" != "" ]]
	330	then
	331	local_depository_path=$global_depository_path
	332	else
	333	printf "\n +++ no depository path found in configuration file"
	334	printf "\n for local host \"$local_host\" "
	335	printf "\n please set \"\%depository_path\" in configuration file"
	336	locat=config_file; exit
	337	fi
	338	fi
	339	eval local_depository_path=$local_depository_path
[8]	340	eval local_depository_path=$local_depository_path
[1]	341
	342
	343
[5]	344	# PRUEFEN, OB IN KONFIGURATIONSDATEI EIN HAUPTPROGRAMM
	345	# VEREINBART WURDE
	346	if [[ $(grep -c "%mainprog" $config_file) != 1 ]]
	347	then
	348	printf "\n +++ no main program or more than one main program defined"
	349	printf "\n in configuration file"
	350	locat=configuration; exit
	351	else
	352	line=`grep "%mainprog" $config_file`
	353	if [[ "$line" = "" \|\| $(echo $line \| cut -c1) = "#" ]]
	354	then
	355	printf "\n +++ no main program defined in configuration file"
	356	locat=configuration; exit
	357	fi
	358	mainprog=`echo $line \| cut -d" " -s -f2 \| cut -d"." -f1`
	359	fi
	360
	361
	362
[1]	363	# MAKEFILE vorhanden
	364	[[ "$makefile" = "" ]] && makefile=$local_source_path/Makefile
	365	if [[ ! -f $makefile ]]
	366	then
	367	printf "\n +++ makefile: "
	368	printf "\n $makefile"
	369	printf "\n does not exist"
	370	locat=makefile; exit
	371	fi
	372
	373
	374	# HEADER-AUSGABE (TEIL1: MELDUNGEN UEBER LOKALEN RECHNER)
	375	calltime=$(date)
	376	printf "\n"
	377	printf "#------------------------------------------------------------------------# \n"
	378	printf "\| $version$calltime \| \n"
	379	printf "\| \| \n"
	380	column1="called on:"; column2=$local_host_real_name
	381	printf "\| $column1$column2 \| \n"
	382	column1="local username:"; column2=$local_username
	383	printf "\| $column1$column2 \| \n"
	384	column1="local IP-addres:"; column2=$local_addres
	385	printf "\| $column1$column2 \| \n"
	386	column1="config file:"; column2=$config_file
	387	printf "\| $column1$column2 \| \n"
	388	column1="makefile:"; column2=$makefile
	389	printf "\| $column1$column2 \| \n"
	390	column1="local source path:"; column2=$local_source_path
	391	printf "\| $column1$column2 \| \n"
	392	column1="make depository:"; column2=$local_depository_path
	393	printf "\| $column1$column2 \| \n"
	394	printf "#------------------------------------------------------------------------# \n"
	395
	396	# printf "\| \| \n"
	397
	398
[40]	399	if [[ $compile_utility_programs = false ]]
	400	then
[1]	401
[40]	402	cd $local_source_path
[1]	403
	404
[40]	405	# LISTE DER ZU PRUEFENDEN QUELLTEXTDATEIEN ERSTELLEN
	406	source_code_files=`ls -1 *.$suf`
[1]	407
	408
[40]	409
	410	# VERZEICHNIS FUER DAS MAKE-DEPOSITORY ERZEUGEN,
	411	# FALLS NOCH NICHT VORHANDEN. ANSONSTEN ALLE DATEIEN
	412	# NEUEREN DATUMS IN DIESES VERZEICHNIS KOPIEREN
	413	if [[ ! -d $local_depository_path ]]
[1]	414	then
[40]	415	if mkdir $local_depository_path
	416	then
	417	printf "\n\n *** directory for make depository:"
	418	printf "\n $local_depository_path"
	419	printf "\n was created\n"
[1]	420
[40]	421	# MAKEFILE UND QUELLTEXTDATEIEN UNTER BEIBEHALTUNG
	422	# IHRES DATUMS INS VERZEICHNIS KOPIEREN
	423	printf "\n *** makefile and source code files are copied to"
	424	printf "\n $local_depository_path\n"
	425	printf "\n copying makefile \"$makefile\" ..."
	426	cp -p $makefile $local_depository_path/Makefile
[1]	427
[40]	428	# QUELLTEXTDATEIEN MUESSEN IM MAKEFILE AUFGEFUEHRT
	429	# SEIN
	430	for filename in $source_code_files
	431	do
	432	if [[ $(grep -c $filename $makefile) = 0 ]]
	433	then
	434	printf "\n +++ source code file:"
	435	printf "\n $filename"
	436	printf "\n is not listed in makefile"
	437	locat=makefile; exit
	438	else
	439	printf "\n copying source code file \"$filename\" ..."
	440	cp -p $filename $local_depository_path
	441	fi
	442	done
	443	printf "\n"
	444	else
	445	printf "\n +++ directory for make depository:"
	446	printf "\n $local_depository_path"
	447	printf "\n cannot be created"
	448	locat=local_depository_path; exit
	449	fi
	450	else
	451
	452	printf "\n *** checking file status ..."
	453
	454	# MAKEFILE KOPIEREN, FALLS NEUEREN DATUMS
	455	if [[ $makefile -nt $local_depository_path/Makefile ]]
	456	then
	457	printf "\n *** update of \"$makefile\" "
	458	cp -f -p $makefile $local_depository_path/Makefile
	459	update=true
	460
	461	# PRUEFEN, OB ALLE DATEIEN IM DEPOSITORY AUCH IM NEUEN MAKEFILE
	462	# VERZEICHNET SIND UND GEGEBENENFALLS DATEIEN LOESCHEN
	463	cd $local_depository_path
	464	source_code_files_in_depository=`ls -1 *.$suf`
	465	for filename in $source_code_files_in_depository
	466	do
	467	if [[ $(grep -c $filename Makefile) = 0 ]]
	468	then
	469	printf "\n *** source code file in \"$local_depository_path\":"
	470	printf "\n $filename"
	471	printf "\n is not listed in makefile"
	472	if [[ $silent = false ]]
	473	then
	474	answer=dummy
	475	printf "\n\n"
	476	while [[ "$answer" != y && "$answer" != Y && "$answer" != n && "$answer" != N ]]
	477	do
	478	printf " >>> delete \"$filename\" in \"$local_depository_path\" (y/n) ? "
	479	read answer
	480	done
	481	if [[ $answer = y \|\| $answer = Y ]]
	482	then
	483	base=`echo $filename \| cut -d. -f2`
	484	rm -f $filename
	485	rm -f ${base}.o ${base}.mod
	486	printf "\n *** \"$filename\" deleted in \"$local_depository_path\" "
	487	else
	488	printf "\n *** \"$filename\" not deleted in \"$local_depository_path\" "
	489	fi
	490	fi
	491	fi
	492	done
	493	cd - > /dev/null 2>&1
	494
	495	elif [[ $local_depository_path/Makefile -nt $makefile ]]
	496	then
	497	printf "\n *** makefile in depository is newer than"
	498	printf "\n \"$makefile\" "
	499	if [[ $silent = false ]]
	500	then
	501	answer=dummy
	502	printf "\n\n"
	503	while [[ "$answer" != y && "$answer" != Y && "$answer" != n && "$answer" != N ]]
	504	do
	505	printf " >>> update \"$makefile\" (y/n) ? "
	506	read answer
	507	done
	508	if [[ $answer = y \|\| $answer = Y ]]
	509	then
	510	cp -f -p $local_depository_path/Makefile $makefile
	511	printf "\n *** \"$makefile\" updated"
	512	else
	513	printf "\n *** \"$makefile\" not updated"
	514	fi
	515	fi
	516	fi
	517
	518	# QUELLTEXTDATEIEN KOPIEREN, FALLS NEUEREN DATUMS
	519	# SIE MUESSEN IM MAKEFILE AUFGEFUEHRT SEIN
[1]	520	for filename in $source_code_files
	521	do
	522	if [[ $(grep -c $filename $makefile) = 0 ]]
	523	then
	524	printf "\n +++ source code file:"
	525	printf "\n $filename"
	526	printf "\n is not listed in makefile"
	527	locat=makefile; exit
	528	else
[40]	529	if [[ ! -f $local_depository_path/$filename ]]
	530	then
	531	cp -p $filename $local_depository_path
	532	printf "\n *** source code file \"$filename\" created in \"$local_depository_path\" "
	533	fi
	534	if [[ $filename -nt $local_depository_path/$filename ]]
	535	then
	536	printf "\n *** update of source code file \"$filename\" "
	537	cp -f -p $filename $local_depository_path
	538	update=true
	539	fi
[1]	540	fi
	541	done
	542
	543
[40]	544	# PRUEFEN, OB ALLE DATEIEN IM DEPOSITORY IM AKTUELLEN ARBEITSVERZEICHNIS VORHANDEN
	545	# ODER EVTL. NEUEREN DATUMS SIND
[1]	546	cd $local_depository_path
	547	source_code_files_in_depository=`ls -1 *.$suf`
[40]	548	cd - > /dev/null 2>&1
[1]	549	for filename in $source_code_files_in_depository
	550	do
[40]	551	if [[ ! -f $filename ]]
[1]	552	then
[40]	553	printf "\n *** source code file \"$filename\" does not exist in current directory"
[1]	554	if [[ $silent = false ]]
	555	then
	556	answer=dummy
	557	printf "\n\n"
	558	while [[ "$answer" != y && "$answer" != Y && "$answer" != n && "$answer" != N ]]
	559	do
[40]	560	printf " >>> create \"$filename\" in current directory (y/n) ? "
[1]	561	read answer
	562	done
	563	if [[ $answer = y \|\| $answer = Y ]]
	564	then
[40]	565	cp -p $local_depository_path/$filename $filename
	566	printf "\n *** source code file \"$filename\" created in current directory"
[1]	567	else
[40]	568	printf "\n *** source code file \"$filename\" not created in current directory"
[1]	569	fi
	570	fi
[40]	571	elif [[ $local_depository_path/$filename -nt $filename ]]
[1]	572	then
[40]	573	ls -al $local_depository_path/$filename
	574	ls -al $filename
	575	printf "\n *** source code file \"$filename\" in depository is newer than in current directory"
	576	if [[ $silent = false ]]
[1]	577	then
[40]	578	answer=dummy
	579	printf "\n\n"
	580	while [[ "$answer" != y && "$answer" != Y && "$answer" != n && "$answer" != N ]]
	581	do
	582	printf " >>> update \"$filename\" in current directory (y/n) ? "
	583	read answer
	584	done
	585	if [[ $answer = y \|\| $answer = Y ]]
	586	then
	587	cp -f -p $local_depository_path/$filename $filename
	588	printf "\n *** source code file \"$filename\" updated in current directory"
	589	else
	590	printf "\n *** source code file \"$filename\" not updated in current directory"
	591	fi
[1]	592	fi
	593	fi
[40]	594	done
	595
	596	if [[ $update = false ]]
[1]	597	then
[40]	598	printf "\n *** no updates necessary in \"$local_depository_path\" "
[1]	599	if [[ $silent = false ]]
	600	then
	601	answer=dummy
	602	printf "\n\n"
	603	while [[ "$answer" != y && "$answer" != Y && "$answer" != n && "$answer" != N ]]
	604	do
[40]	605	printf " >>> continue with updates on remote hosts (y/n) ? "
[1]	606	read answer
	607	done
[40]	608	if [[ $answer = n \|\| $answer = N ]]
[1]	609	then
[40]	610	locat=user_abort; exit
[1]	611	fi
	612	fi
	613	fi
	614	fi
	615
	616
	617
[40]	618	# QUELLTEXTDATEIEN UND MAKEFILE MIT TAR ZUSAMMENBINDEN
	619	# IN JEDEM FALL ALLEN DATEIEN WRITE-PERMIT GEBEN, DAMIT ES AUF
	620	# DEN REMOTE-RECHNERN NICHT EVTL. ZU PROBLEMEN BEIM UEBERSCHREIBEN KOMMT
	621	printf "\n\n *** tar of makefile and source files in depository ..."
	622	cd $local_depository_path
	623	chmod u+w Makefile *.$suf
	624	tar -cf ${mainprog}_sources.tar Makefile *.$suf
	625	printf "\n"
[1]	626
[40]	627	fi
[1]	628
	629
[40]	630
[1]	631	# BESTAETIGUNG ZUM WEITERMACHEN EINHOLEN
	632	if [[ $host = all ]]
	633	then
	634	printf "\n *** updates will be made for ALL hosts found in"
	635	printf "\n the configuration file"
	636	else
	637	printf "\n *** update will be made for host \"$host\" "
	638	fi
	639
	640	if [[ $silent = false ]]
	641	then
	642	answer=dummy
	643	printf "\n\n"
	644	while [[ "$answer" != y && "$answer" != Y && "$answer" != n && "$answer" != N ]]
	645	do
	646	printf " >>> continue (y/n) ? "
	647	read answer
	648	done
	649	if [[ $answer = n \|\| $answer = N ]]
	650	then
	651	locat=user_abort; exit
	652	fi
	653	fi
	654
	655
	656
	657
	658	# GENERIERUNG DER AKTUELLEN MODELLVERSION FUER ALLE RECHNER-/UEBERSETZUNGS-
	659	# VERSIONEN, DIE IN DER KONFIGURATIONSDATEI GEFUNDEN WERDEN
	660	printf "\n *** scanning configuration file for host(s) ..."
	661
[69]	662	grep %fopts $config_file > tmp_mbuild
	663	while read line
[1]	664	do
	665	# KOMMENTARZEILEN UEBERSPRINGEN
	666	[[ $(echo $line \| cut -c1) = "#" ]] && continue
	667	(( ihost = ihost + 1 ))
	668	hostline[$ihost]="$line"
[69]	669	done < tmp_mbuild
[1]	670
	671
	672	while (( ih < ihost ))
	673	do
	674
	675	(( ih = ih + 1 ))
	676
	677	# REMOTE-RECHNER UND UEBERSETZUNGS-VERSION FESTSTELLEN
	678	# NUR WEITERMACHEN, WENN ENTSPRECHENDER REMOTE-RECHNER MITTELS
	679	# SHELLSCRIPT-OPTION AUCH AUSGEWAEHLT WURDE
	680	remote_host_string=`echo ${hostline[$ih]} \| cut -d" " -s -f3-`
	681	remote_host=`echo $remote_host_string \| cut -d" " -f1`
	682	if [[ $host != all ]]
	683	then
	684	[[ $remote_host != $host ]] && continue
	685	fi
	686	host_found=true
	687	condition1=`echo $remote_host_string \| cut -d" " -s -f2`
	688	if [[ $condition1 = $remote_host ]]
	689	then
	690	condition1=""
	691	else
	692	condition2=`echo $remote_host_string \| cut -d" " -s -f3`
	693	fi
	694
[82]	695	netcdf_inc=""
	696	netcdf_lib=""
[1]	697
	698	# AUF HLRN-RECHNER NUR EINMAL UEBERSETZEN
	699	if [[ $remote_host = ibmb \|\| $remote_host = ibmh ]]
	700	then
	701	if [[ $ibm_hb_done = true ]]
	702	then
	703	printf "\n *** remote host \"$remote_host\" skipped since compilation has already"
	704	printf "\n been carried out on one of the HLRN machines\n"
	705	continue
	706	fi
	707	fi
	708
	709	# AUF LCMUK-RECHNER NUR EINMAL UEBERSETZEN
	710	if [[ $remote_host = lcmuk ]]
	711	then
	712	if [[ $lcmuk_done = true ]]
	713	then
	714	printf "\n *** local host \"$remote_host\" skipped since compilation has already"
	715	printf "\n been carried out on this host\n"
	716	continue
	717	fi
	718	fi
	719
	720
	721	# IP-ADRESSE DES REMOTE-RECHNERS BESTIMMEN
	722	case $remote_host in
[83]	723	(lcmuk) remote_addres=130.75.105.3;;
	724	(lctit) remote_addres=172.17.75.161;;
	725	(decalpha) remote_addres=165.132.26.56;;
	726	(ibmb) remote_addres=130.73.230.10;;
	727	(ibmh) remote_addres=130.75.4.10;;
	728	(ibms) remote_addres=150.183.5.101;;
	729	(ibmy) remote_addres=165.132.26.58;;
	730	(nech) remote_addres=136.172.44.192;;
	731	(neck) remote_addres=133.5.178.11;;
	732	(ground.yonsei.ac.kr) remote_addres=134.75.155.33;;
	733	(*) if [[ $local_host != $remote_host ]]
[1]	734	then
[83]	735	printf "\n +++ remote host \"$remote_host\" unknown";
	736	printf "\n please inform S. Raasch!"
[1]	737	fi;;
	738	esac
	739
	740
	741	# REMOTE-USERNAMEN ERMITTELN
	742	line=""
[69]	743	grep "$remote_host_string" $config_file \| grep "%remote_username" > tmp_mbuild
	744	while read line1
[1]	745	do
	746	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
	747	then
	748	line="$line1"
	749	fi
[69]	750	done < tmp_mbuild
[1]	751
	752	if [[ "$line" = "" \|\| $(echo $line \| cut -c1) = "#" ]]
	753	then
	754	printf "\n +++ no remote username found in configuration file"
	755	printf "\n for \"$remote_host_string\" "
	756	locat=config_file; exit
	757	else
	758	remote_username=`echo $line \| cut -d" " -s -f2`
	759	fi
	760
	761
	762	# REMOTE-QUELLTEXTPFAD ERMITTELN
	763	line=""
[54]	764	remote_source_path=""
[69]	765	grep "$remote_host_string" $config_file \| grep "%source_path" > tmp_mbuild
	766	while read line1
[1]	767	do
	768	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
	769	then
	770	line="$line1"
	771	fi
[69]	772	done < tmp_mbuild
[1]	773
	774	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
	775	then
	776	remote_source_path=`echo $line \| cut -d" " -s -f2`
	777	fi
	778	if [[ "$remote_source_path" = "" ]]
	779	then
	780	if [[ "$global_source_path" != "" ]]
	781	then
	782	remote_source_path=$global_source_path
	783	else
	784	printf "\n +++ no source path found in configuration file"
	785	printf "\n for \"$remote_host_string\" "
	786	locat=config_file; exit
	787	fi
	788	fi
	789
[22]	790	remote_ud=${remote_source_path}/../UTIL
[24]	791	remote_ud=$(eval echo $remote_ud)
[1]	792
[54]	793
[1]	794	# REMOTE-PFAD FUER MAKE-DEPOSITORY ERMITTELN
[54]	795	remote_md=""
[1]	796	line=""
[69]	797	grep "$remote_host_string" $config_file \| grep "%depository_path" > tmp_mbuild
	798	while read line1
[1]	799	do
	800	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
	801	then
	802	line="$line1"
	803	fi
[69]	804	done < tmp_mbuild
[1]	805
	806	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
	807	then
	808	remote_md=`echo $line \| cut -d" " -s -f2`
	809	fi
	810	if [[ "$remote_md" = "" ]]
	811	then
	812	if [[ "$global_depository_path" != "" ]]
	813	then
	814	remote_md=$global_depository_path
	815	else
	816	printf "\n +++ no depository path found in configuration file"
	817	printf "\n for \"$remote_host_string\" "
	818	printf "\n please set \"\%depository_path\" in configuration file"
	819	locat=config_file; exit
	820	fi
	821	fi
	822
[8]	823	remote_md=$(eval echo $remote_md)
[1]	824
[8]	825
[1]	826	# COMPILERNAMEN ERMITTELN
	827	line=""
[69]	828	grep "$remote_host_string" $config_file \| grep "%compiler_name " > tmp_mbuild
	829	while read line1
[1]	830	do
	831	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
	832	then
	833	line="$line1"
	834	fi
[69]	835	done < tmp_mbuild
[1]	836
	837	if [[ "$line" = "" \|\| $(echo $line \| cut -c1) = "#" ]]
	838	then
	839	printf "\n +++ no compiler name found in configuration file"
	840	printf "\n for \"$remote_host_string\" "
	841	locat=config_file; exit
	842	else
	843	compiler_name=`echo $line \| cut -d" " -s -f2`
	844	fi
	845
	846
[27]	847	# BEI BENUTZUNG EINES PARALLELEN COMPILERS MUSS AUCH EIN
	848	# SERIELLER COMPILERNAME ERMITTELT WERDEN
	849	if [[ $(echo $remote_host_string \| grep -c parallel) = 1 ]]
	850	then
	851	line=""
[69]	852	grep "$remote_host_string" $config_file \| grep "%compiler_name_ser" > tmp_mbuild
	853	while read line1
[27]	854	do
	855	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
	856	then
	857	line="$line1"
	858	fi
[69]	859	done < tmp_mbuild
[1]	860
[27]	861	if [[ "$line" = "" \|\| $(echo $line \| cut -c1) = "#" ]]
	862	then
[28]	863	printf "\n +++ no serial compiler name found in configuration file"
[27]	864	printf "\n for \"$remote_host_string\" "
	865	locat=config_file; exit
	866	else
	867	compiler_name_ser=`echo $line \| cut -d" " -s -f2`
	868	fi
	869	else
	870	compiler_name_ser=$compiler_name
	871	fi
	872
	873
	874
[82]	875	# PRAEPROZESSOR-OPTIONEN/DIREKTIVEN ERMITTELN
	876	line=""
	877	grep "$remote_host_string" $config_file \| grep "%cpp_options" > tmp_mbuild
	878	while read line1
	879	do
	880	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
	881	then
	882	line="$line1"
	883	fi
	884	done < tmp_mbuild
	885	if [[ "$line" = "" \|\| $(echo $line \| cut -c1) = "#" ]]
	886	then
	887	printf "\n +++ no preprocessor options found in configuration file"
	888	printf "\n for \"$remote_host_string\" "
	889	locat=config_file; exit
	890	else
	891	# EVENTUELLE DOPPELPUNKTE AUS OPTIONSSTRING ENTFERNEN
	892	cpp_options=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
	893	fi
	894
	895	# RECHNERSPEZIFISCHE CPP-DIREKTIVEN HINZUFUEGEN
	896	for string in $remote_host_string
	897	do
	898	if [[ $(echo $remote_host \| cut -c1-2) = lc && $(echo $string \| cut -c1-2) = lc ]]
	899	then
	900	cpp_options="$cpp_options -D__lc "
[83]	901	elif [[ $(echo $remote_host \| cut -c1-3) = ibm && $(echo $string \| cut -c1-3) = ibm ]]
	902	then
	903	cpp_options="${cpp_options},-D__ibm"
	904	elif [[ $(echo $remote_host \| cut -c1-3) = nec && $(echo $string \| cut -c1-3) = nec ]]
	905	then
	906	cpp_options="${cpp_options} -D__nec"
[82]	907	else
[83]	908	if [[ $(echo $remote_host \| cut -c1-3) = ibm ]]
	909	then
	910	cpp_options="${cpp_options},-D__$string"
	911	else
	912	cpp_options="$cpp_options -D__$string "
	913	fi
[82]	914	fi
	915	done
	916
	917
	918
	919	# NETCDF-OPTIONEN ERMITTELN
	920	line=""
	921	grep "$remote_host_string" $config_file \| grep "%netcdf_inc" > tmp_mbuild
	922	while read line1
	923	do
	924	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
	925	then
	926	line="$line1"
	927	fi
	928	done < tmp_mbuild
	929	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
	930	then
	931	# EVENTUELLE DOPPELPUNKTE AUS OPTIONSSTRING ENTFERNEN
	932	netcdf_inc=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
	933	fi
	934
	935	line=""
	936	grep "$remote_host_string" $config_file \| grep "%netcdf_lib" > tmp_mbuild
	937	while read line1
	938	do
	939	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
	940	then
	941	line="$line1"
	942	fi
	943	done < tmp_mbuild
	944	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
	945	then
	946	# EVENTUELLE DOPPELPUNKTE AUS OPTIONSSTRING ENTFERNEN
	947	netcdf_lib=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
	948	fi
	949
	950
	951
[1]	952	# COMPILEROPTIONEN ERMITTELN
	953	line=""
[69]	954	grep "$remote_host_string" $config_file \| grep "%fopts" > tmp_mbuild
	955	while read line1
[1]	956	do
	957	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
	958	then
	959	line="$line1"
	960	fi
[69]	961	done < tmp_mbuild
[1]	962	if [[ "$line" = "" \|\| $(echo $line \| cut -c1) = "#" ]]
	963	then
	964	printf "\n +++ no compiler options found in configuration file"
	965	printf "\n for \"$remote_host_string\" "
	966	locat=config_file; exit
	967	else
	968	# EVENTUELLE DOPPELPUNKTE AUS DIREKTIVENSTRING ENTFERNEN
	969	compiler_options=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
[82]	970
	971	# NETCDF-INCLUDEVERZEICHNIS HINZUFUEGEN
	972	compiler_options="$compiler_options $netcdf_inc"
[1]	973	fi
[82]	974
[1]	975
	976
	977	# LADER-OPTIONEN ERMITTELN
	978	line=""
[69]	979	grep "$remote_host_string" $config_file \| grep "%lopts" > tmp_mbuild
	980	while read line1
[1]	981	do
	982	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
	983	then
	984	line="$line1"
	985	fi
[69]	986	done < tmp_mbuild
[1]	987
	988	if [[ "$line" = "" \|\| $(echo $line \| cut -c1) = "#" ]]
	989	then
	990	printf "\n +++ no loader options found in configuration file"
	991	printf "\n for \"$remote_host_string\" "
	992	locat=config_file; exit
	993	else
	994	# EVENTUELLE DOPPELPUNKTE AUS DIREKTIVENSTRING ENTFERNEN
	995	loader_options=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
[82]	996
	997	# NETCDF-LIBRARY HINZUFUEGEN
	998	loader_options="$loader_options $netcdf_lib"
[1]	999	fi
[82]	1000
[1]	1001
	1002	printf "\n\n#------------------------------------------------------------------------# \n"
	1003	if [[ $remote_host = $local_host ]]
	1004	then
	1005	column1="remote_host:"; column2="$remote_host (= local host!)"
	1006	else
	1007	column1="remote_host:"; column2=$remote_host
	1008	fi
	1009	printf "\| $column1$column2 \| \n"
	1010	printf "\| \| \n"
	1011	column1="conditions:"; column2="$condition1 $condition2"
	1012	printf "\| $column1$column2 \| \n"
	1013	column1="make depository:"; column2=$remote_md
	1014	printf "\| $column1$column2 \| \n"
[25]	1015	if [[ $compile_utility_programs = true ]]
	1016	then
	1017	column1="utility directory:"; column2=$remote_ud
	1018	printf "\| $column1$column2 \| \n"
	1019	fi
[1]	1020	column1="username:"; column2=$remote_username
	1021	printf "\| $column1$column2 \| \n"
	1022	column1="addres:"; column2=$remote_addres
	1023	printf "\| $column1$column2 \| \n"
	1024	column1="compiler:"; column2=$compiler_name
	1025	printf "\| $column1$column2 \| \n"
[28]	1026	if [[ $compile_utility_programs = true ]]
	1027	then
	1028	column1="serial compiler:"; column2=$compiler_name_ser
	1029	printf "\| $column1$column2 \| \n"
	1030	fi
[1]	1031	column1="cpp options:"; column2=$cpp_options
	1032	printf "\| $column1$column2 \| \n"
	1033	line=$(echo "$cpp_options" \| cut -c51-)
	1034	while [[ "$line" != "" ]]
	1035	do
	1036	column1=""
	1037	column2=$line
	1038	printf "\| $column1$column2 \| \n"
	1039	line=$(echo "$line" \| cut -c51-)
	1040	done
	1041	column1="compiler options:"; column2=$compiler_options
	1042	printf "\| $column1$column2 \| \n"
	1043	line=$(echo "$compiler_options" \| cut -c51-)
	1044	while [[ "$line" != "" ]]
	1045	do
	1046	column1=""
	1047	column2=$line
	1048	printf "\| $column1$column2 \| \n"
	1049	line=$(echo "$line" \| cut -c51-)
	1050	done
	1051	column1="loader options:"; column2=$loader_options
	1052	printf "\| $column1$column2 \| \n"
	1053	line=$(echo "$loader_options" \| cut -c51-)
	1054	while [[ "$line" != "" ]]
	1055	do
	1056	column1=""
	1057	column2=$line
	1058	printf "\| $column1$column2 \| \n"
	1059	line=$(echo "$line" \| cut -c51-)
	1060	done
	1061	printf "#------------------------------------------------------------------------# \n"
	1062
	1063	if [[ $silent = false ]]
	1064	then
	1065	answer=dummy
	1066	printf "\n\n"
	1067	while [[ "$answer" != y && "$answer" != Y && "$answer" != c && "$answer" != C && "$answer" != s && "$answer" != S && "$answer" != a && "$answer" != A ]]
	1068	do
	1069	printf " >>> continue (y(es)/c(ontinue)/a(bort)/s(skip)) ? "
	1070	read answer
	1071	done
	1072	if [[ $answer = a \|\| $answer = A ]]
	1073	then
	1074	locat=user_abort; exit
	1075	fi
	1076	if [[ $answer = c \|\| $answer = C ]]
	1077	then
	1078	silent=false
	1079	fi
	1080	if [[ $answer = s \|\| $answer = S ]]
	1081	then
	1082	continue
	1083	fi
	1084	fi
	1085
	1086
	1087	if [[ $remote_mode = batch ]]
	1088	then
	1089
	1090	# BATCH-JOB PARAMETER SETZEN
	1091	case $remote_host in
	1092	(t3eb) queue=berte; memory=60; cputime=1000; xoption="-X 0";;
	1093	(t3eh) queue=comp_t3e; memory=60; cputime=360;;
	1094	(t3ej2) queue=normal; memory=60; cputime=1000; xoption="-X 0";;
[5]	1095	(t3ej5\|ground.yonsei.ac.kr) printf "\n --- remote host \"$remote_host\" does not allow batch jobs"; continue;;
[1]	1096	esac
	1097
	1098
	1099	# BATCH-JOB ZUSAMMENSTELLEN
	1100	printf "\n *** creating batch-job for remote host"
	1101	echo " " > mbuild_job
	1102
	1103	# AUF CRAY-RECHNERN IN JUELICH WIRD KEIN BENUTZER-PROFILE AUSGEFUEHRT
	1104	# DIES WIRD HIER GETAN, UM PFADE USW. ZU SETZEN
	1105	if [[ $remote_host = t3ej2 ]]
	1106	then
	1107	echo "set +vx" >> mbuild_job
	1108	echo ". .profile" >> mbuild_job
	1109	echo "set -x" >> mbuild_job
	1110	fi
	1111
	1112	# AUF CRAY-RECHNERN GELADENE MODULE AUFLISTEN
	1113	if [[ $host = t3eb \|\| $host = t3eh \|\| $host = t3ej2 ]]
	1114	then
	1115	echo "module list" >> mbuild_job
	1116	fi
	1117
	1118
	1119	# WECHSEL IN TEMPORAERES VERZEICHNIS
	1120	echo "cd ${remote_md}" >> mbuild_job
	1121
	1122
	1123	# AKTUELLE QUELLTEXTVERSION INS REMOTE-QUELLTEXTVERZEICHNIS KOPIEREN
	1124	echo "scp ${local_username}@${local_addres}:~/modell/code_3dp/palm_current_version/${mainprog}_sources.tar ${mainprog}_sources.tar" >> mbuild_job
	1125	# echo "[[ \$? != 0 ]] && (echo "+++ scp failed"; exit)" >> mbuild_job
	1126
	1127
	1128	# FALLS VORHANDEN, LETZTE VERSION AUF DEM REMOTE-RECHNER AUSPACKEN
	1129	echo "[[ -f ${mainprog}_current_version.tar ]] && tar -xvf ${mainprog}_current_version.tar" >> mbuild_job
	1130
	1131
	1132	# AKTUELLE QUELLTEXTVERSION AUF REMOTE-RECHNER AUSPACKEN
	1133	echo "tar -xvf ${mainprog}_sources.tar" >> mbuild_job
	1134
	1135
	1136	# MAKE MIT ZUVOR ERMITTELTEN OPTIONEN AUF REMOTE RECHNER AUSFUEHREN
	1137	echo "make PROG=$mainprog F90=$compiler_name COPT=\"$cpp_options\" F90FLAGS=\"$compiler_options\" LDFLAGS=\"$loader_options\" " >> mbuild_job
	1138	echo "chmod u+w *" >> mbuild_job
	1139
	1140	# NEUE VERSION AUF REMOTE-RECHNER ZUSAMMENPACKEN
	1141	echo "tar -cvf ${mainprog}_current_version.tar .f90 .o" >> mbuild_job
	1142
	1143
	1144	# AKTUELLES VERSIONSVERZEICHNIS AUF REMOTE-RECHNER BEREINIGEN
	1145	echo "make clean" >> mbuild_job
	1146	echo "rm ${mainprog}_sources.tar" >> mbuild_job
	1147	echo "rm *.f90 Makefile" >> mbuild_job
	1148
	1149
	1150
	1151	# JOB MITTELS SUBJOB STARTEN
	1152	printf "\n *** sending batch job to remote host"
	1153	# subjob $xoption -h $remote_host -q $queue -m $memory -t $cputime -v mbuild_job
	1154
	1155
	1156	# JOBFILE LOESCHEN
	1157	# rm aljob
	1158
	1159	else
	1160
	1161	if [[ $remote_host != $local_host ]]
	1162	then
	1163
[40]	1164	if [[ $compile_utility_programs = false ]]
[1]	1165	then
	1166
[40]	1167	# AKTUELLE QUELLTEXTVERSION INS REMOTE-QUELLTEXTVERZEICHNIS KOPIEREN
	1168	# FALLS DIESES NOCH NICHT EXISTIERT, WIRD ES ERZEUGT
	1169	echo " *** copying \"${mainprog}_sources.tar\" to \"${remote_addres}:${remote_md}/\" "
	1170	if [[ $remote_host != lctit ]]
	1171	then
	1172	ssh ${remote_username}@${remote_addres} "[[ ! -d ${remote_md} ]] && (echo \" *** ${remote_md} will be created\"; mkdir -p ${remote_md})"
	1173	else
	1174	# TIT ERLAUBT NUR DIE AUSFÜHRUNG GANZ BESTIMMTER KOMMANDOS
	1175	# MIT SSH, DESHALB AUFRUF PER PIPE
	1176	print "[[ ! -d ${remote_md} ]] && (echo \" *** ${remote_md} will be created\"; mkdir -p ${remote_md})" \| ssh ${remote_username}@${remote_addres} 2>&1
	1177	fi
	1178	if [[ $local_host = decalpha ]]
	1179	then
	1180	# DECALPHA BENUTZT BEI NICHTANGABE DES VOLLSTÄNDIGEN PFADES
	1181	# IRGENDEIN ANDERES SCP (WAS NICHT FUNKTIONIERT). AUSSERDEM
	1182	# KOENNEN DOLLAR-ZEICHEN NICHT BENUTZT WERDEN
	1183	remote_md=`echo $remote_md \| sed 's/\$HOME\///'`
	1184	/bin/scp ${mainprog}_sources.tar ${remote_username}@${remote_addres}:${remote_md}/${mainprog}_sources.tar
	1185	else
	1186	scp ${mainprog}_sources.tar ${remote_username}@${remote_addres}:${remote_md}/${mainprog}_sources.tar
	1187	fi
[1]	1188
	1189
	1190
[40]	1191	# FALLS VORHANDEN, LETZTE VERSION AUF DEM REMOTE-RECHNER AUSPACKEN
	1192	echo " *** untar previous update on remote host, if existing"
	1193	if [[ $remote_host != lctit ]]
	1194	then
	1195	ssh ${remote_username}@${remote_addres} "cd ${remote_md}; [[ -f ${mainprog}_current_version.tar ]] && tar -xf ${mainprog}_current_version.tar"
	1196	else
	1197	# TIT ERLAUBT NUR DIE AUSFÜHRUNG GANZ BESTIMMTER KOMMANDOS
	1198	# MIT SSH, DESHALB AUFRUF PER PIPE
	1199	print "cd ${remote_md}; [[ -f ${mainprog}_current_version.tar ]] && tar -xf ${mainprog}_current_version.tar" \| ssh ${remote_username}@${remote_addres} 2>&1
	1200	fi
[1]	1201
	1202
[40]	1203	# AKTUELLE QUELLTEXTVERSION AUF REMOTE-RECHNER AUSPACKEN
	1204	echo " *** untar actual sources on remote host"
	1205	if [[ $remote_host != lctit ]]
	1206	then
	1207	ssh ${remote_username}@${remote_addres} "cd ${remote_md}; tar -xf ${mainprog}_sources.tar"
	1208	else
	1209	# TIT ERLAUBT NUR DIE AUSFÜHRUNG GANZ BESTIMMTER KOMMANDOS
	1210	# MIT SSH, DESHALB AUFRUF PER PIPE
	1211	print "cd ${remote_md}; tar -xf ${mainprog}_sources.tar" \| ssh ${remote_username}@${remote_addres} 2>&1
	1212	fi
[1]	1213
	1214
[40]	1215	# MAKE MIT ZUVOR ERMITTELTEN OPTIONEN AUF REMOTE RECHNER AUSFUEHREN
	1216	# KOMMANDOUEBERGABE AN SSH PER PIPE, DA SO DIE SYSTEM- UND
	1217	# BENUTZERPROFILE VOLLSTAENDIG AUSGEFUEHRT WERDEN (SONST FEHLEN MAKE
	1218	# Z.B. DIE PFADE ZUM COMPILER)
	1219	echo " *** execute \"make\" on remote host"
[1]	1220
[40]	1221	if [[ $remote_host = nech ]]
	1222	then
	1223	make_call_string="sxmake PROG=$mainprog F90=$compiler_name COPT=\"$cpp_options\" F90FLAGS=\"$compiler_options\" LDFLAGS=\"$loader_options\" "
	1224	else
	1225	make_call_string="make PROG=$mainprog F90=$compiler_name COPT=\"$cpp_options\" F90FLAGS=\"$compiler_options\" LDFLAGS=\"$loader_options\" "
	1226	fi
	1227
	1228	if [[ $remote_host = t3eh ]]
	1229	then
[1]	1230
[40]	1231	print "xterm\nexit\n cd ${remote_md}; make PROG=$mainprog F90=$compiler_name COPT=\"$cpp_options\" F90FLAGS=\"$compiler_options\" LDFLAGS=\"$loader_options\" " \| ssh ${remote_username}@${remote_addres} 2>&1 \| tee ${remote_host}_last_make_protokoll
[1]	1232
[40]	1233	elif [[ $remote_host = t3ej2 \|\| $remote_host = ibms \|\| $remote_host = ibmy ]]
	1234	then
[1]	1235
[40]	1236	ssh ${remote_username}@${remote_addres} "cd ${remote_md}; echo '$make_call_string' > LAST_MAKE_CALL; chmod u+x LAST_MAKE_CALL; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" 2>&1 \| tee ${remote_host}_last_make_protokoll
[1]	1237
[40]	1238	elif [[ $remote_host = ibmb \|\| $remote_host = ibmh ]]
	1239	then
[1]	1240
[40]	1241	print "export OBJECT_MODE=64; cd ${remote_md}; echo $make_call_string > LAST_MAKE_CALL; chmod u+x LAST_MAKE_CALL; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" \| ssh ${remote_username}@${remote_addres} 2>&1 \| tee ${remote_host}_last_make_protokoll
[1]	1242
[40]	1243	elif [[ $remote_host = lctit ]]
	1244	then
[1]	1245
[40]	1246	echo " " > ${remote_host}_last_make_protokoll
	1247	while [[ $(cat ${remote_host}_last_make_protokoll \| grep -c "Forwarding to N1GE") = 0 ]]
	1248	do
	1249	print "cd ${remote_md}; echo $make_call_string > LAST_MAKE_CALL; chmod u+x LAST_MAKE_CALL; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" \| ssh ${remote_username}@${remote_addres} 2>&1 \| tee ${remote_host}_last_make_protokoll
	1250	done
[1]	1251
[40]	1252	else
[1]	1253
[40]	1254	print "cd ${remote_md}; echo $make_call_string > LAST_MAKE_CALL; chmod u+x LAST_MAKE_CALL; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" \| ssh ${remote_username}@${remote_addres} 2>&1 \| tee ${remote_host}_last_make_protokoll
[1]	1255
[40]	1256	fi
[1]	1257
[40]	1258	if [[ $(grep -c MAKE_ERROR ${remote_host}_last_make_protokoll) != 0 ]]
[1]	1259	then
[40]	1260	printf "\a\n +++ error(s) occurred during compiling or linking on host \"$remote_host\" "
	1261	if [[ $silent = false ]]
	1262	then
	1263	answer=dummy
	1264	printf "\n"
	1265	while [[ "$answer" != c && "$answer" != k ]]
	1266	do
	1267	printf " >>> continue / list errors / kill mbuild (c/l/k) ? "
	1268	read answer
	1269	if [[ "$answer" = l ]]
	1270	then
	1271	more ${remote_host}_last_make_protokoll
	1272	fi
	1273	done
	1274	if [[ $answer = k ]]
[1]	1275	then
[40]	1276	locat=user_abort; exit
[1]	1277	fi
	1278	fi
	1279	fi
	1280
	1281
	1282
[40]	1283	# NEUE VERSION AUF REMOTE-RECHNER ZUSAMMENPACKEN
	1284	printf "\n *** tar update on remote host ..."
	1285	if [[ $remote_host != lctit ]]
	1286	then
	1287	ssh ${remote_username}@${remote_addres} "cd ${remote_md}; chmod u+w ; tar -cf ${mainprog}_current_version.tar .f90 .o .mod"
	1288	else
	1289	# TIT ERLAUBT NUR DIE AUSFÜHRUNG GANZ BESTIMMTER KOMMANDOS
	1290	# MIT SSH, DESHALB AUFRUF PER PIPE
	1291	print "cd ${remote_md}; chmod u+w ; tar -cf ${mainprog}_current_version.tar .f90 .o .mod" \| ssh ${remote_username}@${remote_addres} 2>&1
	1292	fi
[1]	1293
	1294
[40]	1295	# AKTUELLES VERSIONSVERZEICHNIS AUF REMOTE-RECHNER BEREINIGEN
	1296	# printf "\n *** \"make clean\" on remote host ..."
	1297	# ssh ${remote_username}@${remote_addres} "cd ${remote_md}; make clean; rm ${mainprog}_sources.tar; rm *.f90 Makefile"
	1298	# printf "\n"
[1]	1299
	1300
[25]	1301
	1302
[22]	1303	# GLEICHE AKTIONEN FUER DIE UTILITY-PROGRAMME DURCHFUEHREN
	1304	# AKTUELLE QUELLTEXTVERSION INS REMOTE-QUELLTEXTVERZEICHNIS KOPIEREN
	1305	# FALLS DIESES NOCH NICHT EXISTIERT, WIRD ES ERZEUGT
[40]	1306	elif [[ $compile_utility_programs = true ]]
[22]	1307	then
	1308
[24]	1309	printf "\n\n"
[27]	1310	echo " *** copying scripts and utility programs to \"${remote_addres}:${remote_ud}/\" "
	1311	cd ${local_source_path}/../SCRIPTS
[22]	1312
	1313	if [[ $remote_host != lctit ]]
	1314	then
[24]	1315	ssh ${remote_username}@${remote_addres} "[[ ! -d ${remote_ud} ]] && (echo \" * ${remote_ud} will be created\"; mkdir -p ${remote_ud}); [[ ! -d ${remote_ud}/../SCRIPTS ]] && (echo \" * ${remote_ud}/../SCRIPTS will be created\"; mkdir -p ${remote_ud}/../SCRIPTS)"
[22]	1316	else
	1317	# TIT ERLAUBT NUR DIE AUSFÜHRUNG GANZ BESTIMMTER KOMMANDOS
	1318	# MIT SSH, DESHALB AUFRUF PER PIPE
[24]	1319	print "[[ ! -d ${remote_ud} ]] && (echo \" * ${remote_ud} will be created\"; mkdir -p ${remote_ud}); [[ ! -d ${remote_ud}/../SCRIPTS ]] && (echo \" * ${remote_ud}/../SCRIPTS will be created\"; mkdir -p ${remote_ud}/../SCRIPTS)" \| ssh ${remote_username}@${remote_addres} 2>&1
[22]	1320	fi
	1321
[27]	1322	# KOPIEREN DER SCRIPTE
[22]	1323	if [[ $local_host = decalpha ]]
	1324	then
	1325	# DECALPHA BENUTZT BEI NICHTANGABE DES VOLLSTÄNDIGEN PFADES
	1326	# IRGENDEIN ANDERES SCP (WAS NICHT FUNKTIONIERT). AUSSERDEM
	1327	# KOENNEN DOLLAR-ZEICHEN NICHT BENUTZT WERDEN
	1328	remote_ud=`echo $remote_ud \| sed 's/\$HOME\///'`
[27]	1329	/bin/scp batch_scp mbuild mrun subjob ${remote_username}@${remote_addres}:${remote_ud}/../SCRIPTS > /dev/null
	1330	else
[28]	1331	scp batch_scp mbuild mrun subjob ${remote_username}@${remote_addres}:${remote_ud}/../SCRIPTS > /dev/null
[27]	1332	fi
	1333
	1334	cd - > /dev/null
	1335	cd ${local_source_path}/../UTIL
	1336
	1337
	1338	# KOPIEREN DER UTILITY-PROGRAMME
	1339	if [[ $local_host = decalpha ]]
	1340	then
	1341	# DECALPHA BENUTZT BEI NICHTANGABE DES VOLLSTÄNDIGEN PFADES
	1342	# IRGENDEIN ANDERES SCP (WAS NICHT FUNKTIONIERT). AUSSERDEM
	1343	# KOENNEN DOLLAR-ZEICHEN NICHT BENUTZT WERDEN
	1344	remote_ud=`echo $remote_ud \| sed 's/\$HOME\///'`
[24]	1345	/bin/scp Makefile *.f90 ${remote_username}@${remote_addres}:${remote_ud} > /dev/null
[22]	1346	else
[24]	1347	scp Makefile *.f90 ${remote_username}@${remote_addres}:${remote_ud} > /dev/null
[22]	1348	fi
	1349
	1350
	1351
	1352	# MAKE MIT ZUVOR ERMITTELTEN OPTIONEN AUF REMOTE RECHNER AUSFUEHREN
	1353	# KOMMANDOUEBERGABE AN SSH PER PIPE, DA SO DIE SYSTEM- UND
	1354	# BENUTZERPROFILE VOLLSTAENDIG AUSGEFUEHRT WERDEN (SONST FEHLEN MAKE
	1355	# Z.B. DIE PFADE ZUM COMPILER)
	1356	echo " *** execute \"make\" on remote host"
	1357
	1358	if [[ $remote_host = nech ]]
	1359	then
[27]	1360	make_call_string="sxmake F90=$compiler_name F90_SER=$compiler_name_ser COPT=\"$cpp_options\" F90FLAGS=\"$compiler_options\" LDFLAGS=\"$loader_options\" "
[22]	1361	else
[27]	1362	make_call_string="make F90=$compiler_name F90_SER=$compiler_name_ser COPT=\"$cpp_options\" F90FLAGS=\"$compiler_options\" LDFLAGS=\"$loader_options\" "
[22]	1363	fi
	1364
	1365	if [[ $remote_host = ibms \|\| $remote_host = ibmy ]]
	1366	then
	1367
[25]	1368	ssh ${remote_username}@${remote_addres} "cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR"
[22]	1369
	1370	elif [[ $remote_host = ibmb \|\| $remote_host = ibmh ]]
	1371	then
	1372
[25]	1373	print "export OBJECT_MODE=64; cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" \| ssh ${remote_username}@${remote_addres}
[22]	1374
	1375	elif [[ $remote_host = lctit ]]
	1376	then
	1377
	1378	echo " " > ${remote_host}_last_make_protokoll
	1379	while [[ $(cat ${remote_host}_last_make_protokoll \| grep -c "Forwarding to N1GE") = 0 ]]
	1380	do
	1381	print "cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" \| ssh ${remote_username}@${remote_addres} 2>&1 \| tee ${remote_host}_last_make_protokoll
	1382	done
	1383
	1384	else
	1385
	1386	print "cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" \| ssh ${remote_username}@${remote_addres} 2>&1 \| tee ${remote_host}_last_make_protokoll
	1387
	1388	fi
	1389
	1390	fi # ENDE UEBERSETZUNG DER UTILITY-PROGRAMME
	1391
[75]	1392	rm -rf ${remote_host}_last_make_protokoll
[22]	1393
[1]	1394	# NUR AUF EINEM HLRN-RECHNER UEBERSETZEN
	1395	[[ $remote_host = ibmb \|\| $remote_host = ibmh ]] && ibm_hb_done=true
	1396
	1397	else
	1398
[40]	1399	if [[ $compile_utility_programs = false ]]
	1400	then
[1]	1401
[40]	1402	# MAKE MIT ZUVOR ERMITTELTEN OPTIONEN AUF LOKALEM RECHNER AUSFUEHREN
	1403	echo " "
	1404	echo " *** execute \"make\" on local host"
[1]	1405
[40]	1406	make PROG=$mainprog F90=$compiler_name COPT="$cpp_options" F90FLAGS="$compiler_options" LDFLAGS="$loader_options" 2>&1 \| tee ${remote_host}_last_make_protokoll
	1407
	1408	if [[ $? != 0 ]]
[1]	1409	then
[40]	1410	printf "\a\n +++ error(s) occurred during compiling or linking on host \"$remote_host\" "
	1411	if [[ $silent = false ]]
	1412	then
	1413	answer=dummy
	1414	printf "\n"
	1415	while [[ "$answer" != c && "$answer" != k ]]
	1416	do
	1417	printf " >>> continue / list errors / kill mbuild (c/l/k) ? "
	1418	read answer
	1419	if [[ "$answer" = l ]]
	1420	then
	1421	more ${remote_host}_last_make_protokoll
	1422	fi
	1423	done
	1424	if [[ $answer = k ]]
[1]	1425	then
[40]	1426	locat=user_abort; exit
[1]	1427	fi
	1428	fi
	1429	fi
	1430
	1431
[40]	1432	# NEUE VERSION AUF LOKALEM RECHNER ZUSAMMENPACKEN
	1433	printf "\n *** tar update on local host ..."
	1434	tar -cf ${mainprog}_current_version.tar .$suf .o *.mod
[1]	1435
[22]	1436
	1437	# COMPILE THE UTILITY PROGRAMS
[40]	1438	elif [[ $compile_utility_programs = true ]]
[22]	1439	then
	1440	printf "\n\n"
	1441	echo " *** compiling the utility programs ..."
	1442	cd ${local_source_path}/../UTIL
[35]	1443	make F90=$compiler_name F90_SER=$compiler_name_ser COPT="$cpp_options" F90FLAGS="$compiler_options" LDFLAGS="$loader_options"
[22]	1444	cd - > /dev/null
	1445	fi
	1446
	1447
[1]	1448	# NUR EINMAL AUF LCMUK UEBERSETZEN
	1449	[[ $remote_host = lcmuk ]] && lcmuk_done=true
	1450
	1451	fi
	1452
	1453	fi
	1454	done
	1455
	1456
	1457	if [[ $host_found = false ]]
	1458	then
	1459	if [[ $host = all ]]
	1460	then
	1461	printf "\n +++ no hosts found in configuration file"
	1462	else
	1463	printf "\n +++ host \"$host\" not found in configuration file"
	1464	fi
	1465	locat=config_file; exit
	1466	fi
	1467
	1468
	1469
	1470	# ABSCHLIESSENDE ARBEITEN
	1471	rm -f hosts_found_in_config_file
	1472

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: palm/trunk/SCRIPTS/mbuild @ 86

Download in other formats: