Home

Context Navigation

mbuild @ 104

Last change on this file since 104 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

Line
1	#!/bin/ksh
2	# mbuild - Programmuebersetzungsscript
3	# $Id: mbuild 54 2007-03-08 00:00:02Z raasch $
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)
81	# 10/02/07 - Siggi - all hpmuk-related code removed
82	# 02/03/07 - Siggi - compilation of utility programs and transfer of
83	# scripts to remote hosts added (option -u)
84	# 14/03/07 - Siggi - fimm admitted, revision number added to terminal
85	# output
86	# 16/03/07 - Siggi - adjustments (netcdf) for lctit
87	# adjustments for running under pdksh, local ip-addres
88	# is not determined any more
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
92
93
94
95	# VARIABLENVEREINBARUNGEN + DEFAULTWERTE
96	compile_utility_programs=false
97	config_file=.mrun.config
98	fimm=false
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
110	working_directory=`pwd`
111
112	typeset -i ih ihost=0
113
114	typeset -R30 calltime
115	typeset -L20 column1
116	typeset -L50 column2
117	typeset -L70 column3
118	typeset -L40 version="MBUILD 2.0 Rev$Rev: 83 $"
119
120	# FEHLERBEHANDLUNG
121	# BEI EXIT:
122	trap 'rm -rf $working_directory/tmp_mbuild
123	if [[ $locat != normal ]]
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:
132	trap 'rm -rf $working_directory/tmp_mbuild
133	printf "\n\n +++ mbuild killed by \"^C\" \n\n"
134	exit
135	' 2
136
137
138
139	# SHELLSCRIPT-OPTIONEN EINLESEN
140	while getopts :c:h:m:rs:u option
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;;
148	(u) compile_utility_programs=true;;
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
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
176	# LOKALEN RECHNER ERMITTELN
177	local_host_real_name=$(hostname)
178	# local_addres=$(nslookup `hostname` 2>&1 \| grep "Address:" \| tail -1 \| awk '{print $2}')
179
180
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`
191	if [[ $local_host_real_name = $HOSTNAME ]]
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
211	[[ $local_host_real_name = scirocco ]] && scirocco=true
212	[[ $local_host_real_name = fimm.bccs.uib.no ]] && fimm=true
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=""
227	grep " $local_host" $config_file \| grep "%remote_username" > tmp_mbuild
228	while read line
229	do
230	if [[ "$line" != "" \|\| $(echo $line \| cut -c1) != "#" ]]
231	then
232	local_username=`echo $line \| cut -d" " -s -f2`
233	fi
234	done < tmp_mbuild
235
236
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
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=""
251	grep "%" $config_file > tmp_mbuild
252	while read line
253	do
254	if [[ "$line" != "" && "$(echo $line \| cut -d" " -s -f3)" = "" ]]
255	then
256	var=`echo $line \| cut -d" " -s -f1 \| cut -c2-`
257	value=`echo $line \| cut -d" " -s -f2`
258	eval export $var=\$value
259	# eval echo \" $var=\$$var \" # AUSGABE ZU TESTZWECKEN
260	fi
261	done < tmp_mbuild
262
263	# NUN PRUEFEN, OB EIN GLOBALER QUELLTEXTPFAD VEREINBART WURDE
264	line=""
265	grep "%source_path" $config_file > tmp_mbuild
266	while read line
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
275	done < tmp_mbuild
276
277	line=""
278	grep " $local_host" $config_file \| grep "%source_path" > tmp_mbuild
279	while read line
280	do
281	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
282	then
283	local_source_path=`echo $line \| cut -d" " -s -f2`
284	fi
285	done < tmp_mbuild
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
300	eval local_source_path=$local_source_path
301
302
303	# EBENSO PFAD FUER DAS MAKE-DEPOSITORY ERMITTELN
304	line=""
305	grep "%depository_path" $config_file > tmp_mbuild
306	while read line
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
315	done < tmp_mbuild
316
317	line=""
318	grep " $local_host" $config_file \| grep "%depository_path" > tmp_mbuild
319	while read line
320	do
321	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
322	then
323	local_depository_path=`echo $line \| cut -d" " -s -f2`
324	fi
325	done < tmp_mbuild
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
340	eval local_depository_path=$local_depository_path
341
342
343
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
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
399	if [[ $compile_utility_programs = false ]]
400	then
401
402	cd $local_source_path
403
404
405	# LISTE DER ZU PRUEFENDEN QUELLTEXTDATEIEN ERSTELLEN
406	source_code_files=`ls -1 *.$suf`
407
408
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 ]]
414	then
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"
420
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
427
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
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
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
540	fi
541	done
542
543
544	# PRUEFEN, OB ALLE DATEIEN IM DEPOSITORY IM AKTUELLEN ARBEITSVERZEICHNIS VORHANDEN
545	# ODER EVTL. NEUEREN DATUMS SIND
546	cd $local_depository_path
547	source_code_files_in_depository=`ls -1 *.$suf`
548	cd - > /dev/null 2>&1
549	for filename in $source_code_files_in_depository
550	do
551	if [[ ! -f $filename ]]
552	then
553	printf "\n *** source code file \"$filename\" does not exist in current directory"
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
560	printf " >>> create \"$filename\" in current directory (y/n) ? "
561	read answer
562	done
563	if [[ $answer = y \|\| $answer = Y ]]
564	then
565	cp -p $local_depository_path/$filename $filename
566	printf "\n *** source code file \"$filename\" created in current directory"
567	else
568	printf "\n *** source code file \"$filename\" not created in current directory"
569	fi
570	fi
571	elif [[ $local_depository_path/$filename -nt $filename ]]
572	then
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 ]]
577	then
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
592	fi
593	fi
594	done
595
596	if [[ $update = false ]]
597	then
598	printf "\n *** no updates necessary in \"$local_depository_path\" "
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
605	printf " >>> continue with updates on remote hosts (y/n) ? "
606	read answer
607	done
608	if [[ $answer = n \|\| $answer = N ]]
609	then
610	locat=user_abort; exit
611	fi
612	fi
613	fi
614	fi
615
616
617
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"
626
627	fi
628
629
630
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
662	grep %fopts $config_file > tmp_mbuild
663	while read line
664	do
665	# KOMMENTARZEILEN UEBERSPRINGEN
666	[[ $(echo $line \| cut -c1) = "#" ]] && continue
667	(( ihost = ihost + 1 ))
668	hostline[$ihost]="$line"
669	done < tmp_mbuild
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
695	netcdf_inc=""
696	netcdf_lib=""
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
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 ]]
734	then
735	printf "\n +++ remote host \"$remote_host\" unknown";
736	printf "\n please inform S. Raasch!"
737	fi;;
738	esac
739
740
741	# REMOTE-USERNAMEN ERMITTELN
742	line=""
743	grep "$remote_host_string" $config_file \| grep "%remote_username" > tmp_mbuild
744	while read line1
745	do
746	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
747	then
748	line="$line1"
749	fi
750	done < tmp_mbuild
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=""
764	remote_source_path=""
765	grep "$remote_host_string" $config_file \| grep "%source_path" > tmp_mbuild
766	while read line1
767	do
768	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
769	then
770	line="$line1"
771	fi
772	done < tmp_mbuild
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
790	remote_ud=${remote_source_path}/../UTIL
791	remote_ud=$(eval echo $remote_ud)
792
793
794	# REMOTE-PFAD FUER MAKE-DEPOSITORY ERMITTELN
795	remote_md=""
796	line=""
797	grep "$remote_host_string" $config_file \| grep "%depository_path" > tmp_mbuild
798	while read line1
799	do
800	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
801	then
802	line="$line1"
803	fi
804	done < tmp_mbuild
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
823	remote_md=$(eval echo $remote_md)
824
825
826	# COMPILERNAMEN ERMITTELN
827	line=""
828	grep "$remote_host_string" $config_file \| grep "%compiler_name " > tmp_mbuild
829	while read line1
830	do
831	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
832	then
833	line="$line1"
834	fi
835	done < tmp_mbuild
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
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=""
852	grep "$remote_host_string" $config_file \| grep "%compiler_name_ser" > tmp_mbuild
853	while read line1
854	do
855	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
856	then
857	line="$line1"
858	fi
859	done < tmp_mbuild
860
861	if [[ "$line" = "" \|\| $(echo $line \| cut -c1) = "#" ]]
862	then
863	printf "\n +++ no serial compiler name found in configuration file"
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
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 "
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"
907	else
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
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
952	# COMPILEROPTIONEN ERMITTELN
953	line=""
954	grep "$remote_host_string" $config_file \| grep "%fopts" > tmp_mbuild
955	while read line1
956	do
957	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
958	then
959	line="$line1"
960	fi
961	done < tmp_mbuild
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'`
970
971	# NETCDF-INCLUDEVERZEICHNIS HINZUFUEGEN
972	compiler_options="$compiler_options $netcdf_inc"
973	fi
974
975
976
977	# LADER-OPTIONEN ERMITTELN
978	line=""
979	grep "$remote_host_string" $config_file \| grep "%lopts" > tmp_mbuild
980	while read line1
981	do
982	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
983	then
984	line="$line1"
985	fi
986	done < tmp_mbuild
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'`
996
997	# NETCDF-LIBRARY HINZUFUEGEN
998	loader_options="$loader_options $netcdf_lib"
999	fi
1000
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"
1015	if [[ $compile_utility_programs = true ]]
1016	then
1017	column1="utility directory:"; column2=$remote_ud
1018	printf "\| $column1$column2 \| \n"
1019	fi
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"
1026	if [[ $compile_utility_programs = true ]]
1027	then
1028	column1="serial compiler:"; column2=$compiler_name_ser
1029	printf "\| $column1$column2 \| \n"
1030	fi
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";;
1095	(t3ej5\|ground.yonsei.ac.kr) printf "\n --- remote host \"$remote_host\" does not allow batch jobs"; continue;;
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
1164	if [[ $compile_utility_programs = false ]]
1165	then
1166
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
1188
1189
1190
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
1201
1202
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
1213
1214
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"
1220
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
1230
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
1232
1233	elif [[ $remote_host = t3ej2 \|\| $remote_host = ibms \|\| $remote_host = ibmy ]]
1234	then
1235
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
1237
1238	elif [[ $remote_host = ibmb \|\| $remote_host = ibmh ]]
1239	then
1240
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
1242
1243	elif [[ $remote_host = lctit ]]
1244	then
1245
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
1251
1252	else
1253
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
1255
1256	fi
1257
1258	if [[ $(grep -c MAKE_ERROR ${remote_host}_last_make_protokoll) != 0 ]]
1259	then
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 ]]
1275	then
1276	locat=user_abort; exit
1277	fi
1278	fi
1279	fi
1280
1281
1282
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
1293
1294
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"
1299
1300
1301
1302
1303	# GLEICHE AKTIONEN FUER DIE UTILITY-PROGRAMME DURCHFUEHREN
1304	# AKTUELLE QUELLTEXTVERSION INS REMOTE-QUELLTEXTVERZEICHNIS KOPIEREN
1305	# FALLS DIESES NOCH NICHT EXISTIERT, WIRD ES ERZEUGT
1306	elif [[ $compile_utility_programs = true ]]
1307	then
1308
1309	printf "\n\n"
1310	echo " *** copying scripts and utility programs to \"${remote_addres}:${remote_ud}/\" "
1311	cd ${local_source_path}/../SCRIPTS
1312
1313	if [[ $remote_host != lctit ]]
1314	then
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)"
1316	else
1317	# TIT ERLAUBT NUR DIE AUSFÜHRUNG GANZ BESTIMMTER KOMMANDOS
1318	# MIT SSH, DESHALB AUFRUF PER PIPE
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
1320	fi
1321
1322	# KOPIEREN DER SCRIPTE
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\///'`
1329	/bin/scp batch_scp mbuild mrun subjob ${remote_username}@${remote_addres}:${remote_ud}/../SCRIPTS > /dev/null
1330	else
1331	scp batch_scp mbuild mrun subjob ${remote_username}@${remote_addres}:${remote_ud}/../SCRIPTS > /dev/null
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\///'`
1345	/bin/scp Makefile *.f90 ${remote_username}@${remote_addres}:${remote_ud} > /dev/null
1346	else
1347	scp Makefile *.f90 ${remote_username}@${remote_addres}:${remote_ud} > /dev/null
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
1360	make_call_string="sxmake F90=$compiler_name F90_SER=$compiler_name_ser COPT=\"$cpp_options\" F90FLAGS=\"$compiler_options\" LDFLAGS=\"$loader_options\" "
1361	else
1362	make_call_string="make F90=$compiler_name F90_SER=$compiler_name_ser COPT=\"$cpp_options\" F90FLAGS=\"$compiler_options\" LDFLAGS=\"$loader_options\" "
1363	fi
1364
1365	if [[ $remote_host = ibms \|\| $remote_host = ibmy ]]
1366	then
1367
1368	ssh ${remote_username}@${remote_addres} "cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR"
1369
1370	elif [[ $remote_host = ibmb \|\| $remote_host = ibmh ]]
1371	then
1372
1373	print "export OBJECT_MODE=64; cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" \| ssh ${remote_username}@${remote_addres}
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
1392	rm -rf ${remote_host}_last_make_protokoll
1393
1394	# NUR AUF EINEM HLRN-RECHNER UEBERSETZEN
1395	[[ $remote_host = ibmb \|\| $remote_host = ibmh ]] && ibm_hb_done=true
1396
1397	else
1398
1399	if [[ $compile_utility_programs = false ]]
1400	then
1401
1402	# MAKE MIT ZUVOR ERMITTELTEN OPTIONEN AUF LOKALEM RECHNER AUSFUEHREN
1403	echo " "
1404	echo " *** execute \"make\" on local host"
1405
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 ]]
1409	then
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 ]]
1425	then
1426	locat=user_abort; exit
1427	fi
1428	fi
1429	fi
1430
1431
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
1435
1436
1437	# COMPILE THE UTILITY PROGRAMS
1438	elif [[ $compile_utility_programs = true ]]
1439	then
1440	printf "\n\n"
1441	echo " *** compiling the utility programs ..."
1442	cd ${local_source_path}/../UTIL
1443	make F90=$compiler_name F90_SER=$compiler_name_ser COPT="$cpp_options" F90FLAGS="$compiler_options" LDFLAGS="$loader_options"
1444	cd - > /dev/null
1445	fi
1446
1447
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 @ 104

Download in other formats: