Home

Context Navigation

source: palm/trunk/SCRIPTS/mbuild @ 1652

Last change on this file since 1652 was 1652, checked in by raasch, 9 years ago
bugfix in calculation of vertical profile of energy production by turbulent transport of TKE bugfix for output of configuration settings (mbuild) output of login init command (mbuild)
Property svn:keywords set to `Id Rev`
File size: 49.1 KB

Line
1	#!/bin/ksh
2
3	# mbuild - script for compiling the PALM code and its utility programs
4
5	#--------------------------------------------------------------------------------#
6	# This file is part of PALM.
7	#
8	# PALM is free software: you can redistribute it and/or modify it under the terms
9	# of the GNU General Public License as published by the Free Software Foundation,
10	# either version 3 of the License, or (at your option) any later version.
11	#
12	# PALM is distributed in the hope that it will be useful, but WITHOUT ANY
13	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
15	#
16	# You should have received a copy of the GNU General Public License along with
17	# PALM. If not, see <http://www.gnu.org/licenses/>.
18	#
19	# Copyright 1997-2014 Leibniz Universitaet Hannover
20	#--------------------------------------------------------------------------------#
21	#
22	# Current revisions:
23	# ------------------
24	# bug in terminal output of configuration settings removed,
25	# output of login init commands
26	#
27	# Former revisions:
28	# -----------------
29	# $Id: mbuild 1652 2015-09-17 08:12:24Z raasch $
30	#
31	# 1621 2015-07-17 11:39:33Z heinze
32	# adjustments for Mistral at DKRZ Hamburg (lcbullhh)
33	#
34	# 1613 2015-07-08 14:53:29Z maronga
35	# nc2vdf removed
36	#
37	# 1547 2015-01-29 15:09:12Z witha
38	# adjustments for ForWind computing cluster (lcflow)
39	#
40	# 1487 2014-10-25 14:36:28Z raasch
41	# bash compatibility adjustments: output formatting with printf instead
42	# of "typeset -L/-R", print replaced by echo
43	#
44	# 1468 2014-09-24 14:06:57Z maronga
45	# Typo removed (addres->address)
46	# Adjustments for lcxe6
47	#
48	# 1390 2014-05-06 07:57:37Z maronga
49	# disabled compilation of parameter file check (currently not working),
50	# adjustments for lcxe6
51	#
52	# 1388 2014-05-06 07:42:38Z maronga
53	# small adjustments for lcxe6
54	#
55	# 1350 2014-04-04 13:01:30Z maronga
56	# init_cmds is now executed before module calls in case of compilation on local
57	# host
58	#
59	# 1289 2014-03-04 07:12:34Z raasch
60	# comments translated from German to English
61	# fimm-, scirocco-, ibmy-, and sgi-specific code removed
62	#
63	# 1274 2014-01-09 13:14:54Z heinze
64	# adjustments for lccrayh
65	#
66	# 1255 2013-11-07 14:43:35Z raasch
67	# further adjustments for lccrayb remote access
68	#
69	# 1229 2013-09-20 06:55:19Z raasch
70	# adjustments for lccrayb
71	#
72	# 1216 2013-08-26 09:31:42Z raasch
73	# RCS renamed SOURCES
74	#
75	# 1210 2013-08-14 10:58:20Z raasch
76	# fftw support added
77	#
78	# 1197 2013-07-04 06:19:45Z raasch
79	# adjustments for CSC Helsinki (lccrayf)
80	#
81	# 1099 2013-02-10 01:47:43Z raasch
82	# adjustments for Forwind cluster (lcflow)
83	#
84	# 1096 2013-02-03 01:52:12Z raasch
85	# decalpha parts (yonsei) removed
86	#
87	# 2013-02-02 07:06:13Z raasch
88	# adjustments for Kyushu-University computing center (lckyut)
89	# old changelog messages removed
90	#
91	# 1083 2013-01-04 10:22:09Z maronga
92	# bugfix in parameter file check (in case that no preprocessor flag, i.e. -cpp was
93	# set in %cpp_options, the last directive in the variable was processed.
94	#
95	# 1081 2013-01-03 08:44:36Z maronga
96	# loader options set for parameter file check_depository_path
97	#
98	# 1069 2012-11-28 16:18:43Z maronga
99	# added copy of nc2vdf tools to remote host_found
100	#
101	# 1046 2012-11-09 14:38:45Z maronga
102	# code put under GPL (PALM 3.9)
103	#
104	# 12/06/02 - Siggi - first version finished
105	# 06/05/02 - Siggi - script development started
106	#
107	#--------------------------------------------------------------------------------#
108	# mbuild - script for compiling the PALM code and its utility programs
109	#
110	# Procedure to compile code on local and remote hosts using the
111	# make-mechanism. The source code must be provided on the local host.
112	#--------------------------------------------------------------------------------#
113
114
115	# VARIABLE DECLARATIONS + DEFAULT VALUES
116	block_conditions=none
117	block_conditions_found=false
118	calltime=""
119	column1=""
120	column2=""
121	compile_utility_programs=false
122	config_file=.mrun.config
123	host=all
124	host_found=false
125	locat=normal
126	makefile=""
127	module_calls=""
128	util_compiled_localhost=false
129	silent=false
130	suf=f90
131	update=false
132	version="MBUILD 2.1 Rev$Rev: 1652 $"
133	working_directory=`pwd`
134
135	typeset -i ih ihost=0
136
137
138	# ERROR HANDLING
139	# IN CASE OF EXIT:
140	trap 'rm -rf $working_directory/tmp_mbuild
141	if [[ $locat != normal ]]
142	then
143	printf "\n\n +++ mbuild killed \n\n"
144	else
145	printf "\n\n *** mbuild finished \n\n"
146	fi' exit
147
148
149	# IN CASE OF TERMINAL-BREAK:
150	trap 'rm -rf $working_directory/tmp_mbuild
151	printf "\n\n +++ mbuild killed by \"^C\" \n\n"
152	exit
153	' 2
154
155
156	tmp_mbuild=${working_directory}/tmp_mbuild
157
158	# READ SHELLSCRIPT-OPTIONS
159	while getopts :c:h:K:m:s:uv option
160	do
161	case $option in
162	(c) config_file=$OPTARG;;
163	(h) host=$OPTARG;;
164	(K) block_conditions=$OPTARG;;
165	(m) makefile=$OPTARG;;
166	(s) suf=$OPTARG;;
167	(u) compile_utility_programs=true;;
168	(v) silent=true;;
169	(\?) printf "\n +++ unknown option $OPTARG \n";
170	locat=parameter; exit;;
171	esac
172	done
173
174
175
176	# CHECK, IF CONFIGURATION-FILE EXISTS
177	if [[ ! -f $config_file ]]
178	then
179	printf "\n +++ configuration file: "
180	printf "\n $config_file"
181	printf "\n does not exist"
182	locat=configuration; exit
183	fi
184
185
186
187	# DETERMINE THE LOCAL HOST
188	local_host_real_name=$(hostname)
189	local_address=$(nslookup `hostname` 2>&1 \| grep "Address:" \| tail -1 \| awk '{echo $2}')
190
191
192
193	# DETERMINE HOST-IDENTIFIER (local_host) FROM THE CONFIG-FILE
194	line=""
195	grep "%host_identifier" $config_file > $tmp_mbuild
196	while read line
197	do
198	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
199	then
200	HOSTNAME=`echo $line \| cut -d" " -s -f2`
201	host_identifier=`echo $line \| cut -d" " -s -f3`
202	if [[ $local_host_real_name = $HOSTNAME ]]
203	then
204	local_host=$host_identifier
205	break
206	fi
207	fi
208	done < $tmp_mbuild
209
210	if [[ "$local_host" = "" ]]
211	then
212	printf "\n +++ no host identifier found in configuration file \"$config_file\""
213	printf "\n for local host \"$local_host_real_name\"."
214	printf "\n Please add line"
215	printf "\n \"\%host_identifier $local_host_real_name <identifier>\""
216	printf "\n to the configuration file."
217	locat=local_host; exit
218	fi
219
220
221	if [[ $local_host != ibms ]]
222	then
223	config_file=$PWD/$config_file
224	else
225	config_file=`pwd`/$config_file
226	fi
227
228
229	# DETERMINE THE BLOCK CONDITIONS
230	if [[ $block_conditions != none ]]
231	then
232	block_condition1=`echo $block_conditions \| cut -d" " -f1`
233	block_condition2=`echo $block_conditions \| cut -d" " -f2`
234	if [[ "$block_condition2" = "$block_condition1" ]]
235	then
236	block_condition2=""
237	fi
238	fi
239
240
241	# DETERMINE USER NAME ON LOCAL HOST FROM THE CONFIG-FILE
242	line=""
243	grep " $local_host" $config_file \| grep "%remote_username" > $tmp_mbuild
244	while read line
245	do
246	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
247	then
248	local_username=`echo $line \| cut -d" " -s -f2`
249	fi
250	done < $tmp_mbuild
251
252
253	if [[ "$local_username" = "" ]]
254	then
255	printf "\n +++ no user name found in configuration file"
256	printf "\n for local host \"$local_host\" "
257	locat=config_file; exit
258	fi
259
260
261	# DETERMINE LOCAL SOURCE-CODE PATH.
262	# FIRST CHECK, IF A GLOBAL SOURCE-CODE PATH HAS BEEN DECLARED FOR ALL HOSTS.
263	# THEREFORE, FIRST SET ALL GLOBAL VARIABLES DECLARED IN THE CONFIG-FILE,
264	# BECAUSE THEY MAY BE USED AS PART OF THE PATH NAME.
265	line=""
266	grep "%" $config_file > $tmp_mbuild
267	while read line
268	do
269	if [[ "$line" != "" && "$(echo $line \| cut -d" " -s -f3)" = "" && $(echo $line \| cut -c1) != "#" ]]
270	then
271	var=`echo $line \| cut -d" " -s -f1 \| cut -c2-`
272	value=`echo $line \| cut -d" " -s -f2`
273	eval export $var=\$value
274	fi
275	done < $tmp_mbuild
276
277	# NOW CHECK, IF A GLOBAL SOURCE-CODE-PATH HAS BEEN DECLARED
278	line=""
279	grep "%source_path" $config_file > $tmp_mbuild
280	while read line
281	do
282	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
283	then
284	if [[ "$(echo $line \| cut -d" " -s -f3)" = "" ]]
285	then
286	global_source_path=`echo $line \| cut -d" " -s -f2`
287	fi
288	fi
289	done < $tmp_mbuild
290
291	line=""
292	grep " $local_host" $config_file \| grep "%source_path" > $tmp_mbuild
293	while read line
294	do
295	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
296	then
297	local_source_path=`echo $line \| cut -d" " -s -f2`
298	fi
299	done < $tmp_mbuild
300
301	if [[ "$local_source_path" = "" ]]
302	then
303	if [[ "$global_source_path" != "" ]]
304	then
305	local_source_path=$global_source_path
306	else
307	printf "\n +++ no source path found in configuration file"
308	printf "\n for local host \"$local_host\" "
309	printf "\n please set \"\%source_path\" in configuration file"
310	locat=config_file; exit
311	fi
312	fi
313	eval local_source_path=$local_source_path
314	eval local_source_path=$local_source_path
315
316
317
318	# DETERMINE GLOBAL DEPOSITORY-PATH
319	line=""
320	grep "%depository_path" $config_file > $tmp_mbuild
321	while read line
322	do
323	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
324	then
325	if [[ "$(echo $line \| cut -d" " -s -f3)" = "" ]]
326	then
327	global_depository_path=`echo $line \| cut -d" " -s -f2`
328	fi
329	fi
330	done < $tmp_mbuild
331
332	if [[ $found = false ]]
333	then
334	printf "\n +++ no \%depository_path found in"
335	printf "\n $config_file"
336	locat=depository_path; exit
337	fi
338
339	# CHECK, IF A MAIN PROGRAM HAS BEEN DEFINED IN THE CONFIG-FILE
340	if [[ $(grep -c "%mainprog" $config_file) != 1 ]]
341	then
342	printf "\n +++ no main program or more than one main program defined"
343	printf "\n in configuration file"
344	locat=configuration; exit
345	else
346	line=`grep "%mainprog" $config_file`
347	if [[ "$line" = "" \|\| $(echo $line \| cut -c1) = "#" ]]
348	then
349	printf "\n +++ no main program defined in configuration file"
350	locat=configuration; exit
351	fi
352	mainprog=`echo $line \| cut -d" " -s -f2 \| cut -d"." -f1`
353	fi
354
355
356
357	# CHECK IF MAKEFILE EXITS
358	[[ "$makefile" = "" ]] && makefile=$local_source_path/Makefile
359	if [[ ! -f $makefile ]]
360	then
361	printf "\n +++ makefile: "
362	printf "\n $makefile"
363	printf "\n does not exist"
364	locat=makefile; exit
365	fi
366
367
368	# HEADER-OUTPUT (PART1: MESSAGES CONCERNING THE LOCAL HOST)
369	calltime=$(date)
370	printf "\n"
371	printf "#------------------------------------------------------------------------# \n"
372	printf "\| %-40s%30s \| \n" "$version" "$calltime"
373	printf "\| \| \n"
374	printf "\| %-20s%-50s \| \n" "called on:" "$local_host_real_name"
375	printf "\| %-20s%-50s \| \n" "local username:" "$local_username"
376	printf "\| %-20s%-50s \| \n" "local IP-address:" "$local_address"
377	column2=$(echo $config_file \| cut -c1-50 )
378	printf "\| %-20s%-50s \| \n" "config file:" "$column2"
379	line=$(echo "$config_file" \| cut -c51-)
380	while [[ "$line" != "" ]]
381	do
382	column1=""
383	column2=$(echo $line \| cut -c1-50 )
384	printf "\| %-20s%-50s \| \n" "$column1" "$column2"
385	line=$(echo "$line" \| cut -c51-)
386	done
387	column2=$(echo $makefile \| cut -c1-50 )
388	printf "\| %-20s%-50s \| \n" "makefile:" "$column2"
389	line=$(echo "$makefile" \| cut -c51-)
390	while [[ "$line" != "" ]]
391	do
392	column1=""
393	column2=$(echo $line \| cut -c1-50 )
394	printf "\| %-20s%-50s \| \n" "$column1" "$column2"
395	line=$(echo "$line" \| cut -c51-)
396	done
397	column2=$(echo $local_source_path \| cut -c1-50 )
398	printf "\| %-20s%-50s \| \n" "local source path:" "$column2"
399	line=$(echo "$local_source_path" \| cut -c51-)
400	while [[ "$line" != "" ]]
401	do
402	column1=""
403	column2=$(echo $line \| cut -c1-50 )
404	printf "\| %-20s%-50s \| \n" "$column1" "$column2"
405	line=$(echo "$line" \| cut -c51-)
406	done
407	printf "#------------------------------------------------------------------------# \n"
408
409
410	if [[ $compile_utility_programs = false ]]
411	then
412
413	# IN ANY CASE, GIVE ALL FILES WRITE-PERMIT, IN ORDER TO AVOID PROBLEMS
414	# WITH OVERWRITING FILES ON THE REMOTE HOST
415	cd $local_source_path
416	printf "\n\n *** tar of makefile and source files in $local_source_path"
417	tar -cf ${mainprog}_sources.tar Makefile *.$suf
418	printf "\n"
419
420	else
421	cd $local_source_path
422	printf "\n\n *** tar of makefile and source files in $local_source_path"
423
424	cat Makefile_check\|while read line
425	do
426	line=$(echo $line\|grep SOURCES)
427	if [[ $line == "SOURCES" ]]
428	then
429	line=$(echo $line\|sed 's/SOURCES = //g')
430	break
431	fi
432	done
433
434	tar -cf ${mainprog}_sources_check.tar Makefile_check $line
435	printf "\n"
436	fi
437
438
439
440	# GET CONFIRMATION TO CONTINUE
441	if [[ $host = all ]]
442	then
443	printf "\n *** updates will be made for ALL hosts found in"
444	printf "\n the configuration file"
445	else
446	printf "\n *** update will be made for host \"$host\" "
447	fi
448
449	if [[ $silent = false ]]
450	then
451	answer=dummy
452	printf "\n\n"
453	while [[ "$answer" != y && "$answer" != Y && "$answer" != n && "$answer" != N ]]
454	do
455	printf " >>> continue (y/n) ? "
456	read answer
457	done
458	if [[ $answer = n \|\| $answer = N ]]
459	then
460	locat=user_abort; exit
461	fi
462	fi
463
464
465
466
467	# GENERATE MODEL-VERSIONS FOR ALL HOST-BLOCKS
468	# FOUND IN THE CONFIGURATION-FILE
469	printf "\n *** scanning configuration file for host(s) ..."
470
471	grep %fopts $config_file > $tmp_mbuild
472	while read line
473	do
474	# SKIP COMMENT-LINES
475	[[ $(echo $line \| cut -c1) = "#" ]] && continue
476	(( ihost = ihost + 1 ))
477	hostline[$ihost]="$line"
478	done < $tmp_mbuild
479
480
481	while (( ih < ihost ))
482	do
483
484	(( ih = ih + 1 ))
485
486	# DETERMINE REMOTE HOST AND CONDITIONS FOR THE RESPECTIVE BLOCK
487	# CONTINUE, ONLY IF THIS HOST HAS BEEN CHOSEN VIA -h OPTION AND IF
488	# CONDITIONS HAVE BEEN CHOSEN VIA -K OPTION
489	remote_host_string=`echo ${hostline[$ih]} \| cut -d" " -s -f3-`
490	remote_host=`echo $remote_host_string \| cut -d" " -f1`
491	if [[ $host != all ]]
492	then
493	[[ $remote_host != $host ]] && continue
494	fi
495	host_found=true
496	condition1=`echo $remote_host_string \| cut -d" " -s -f2`
497	if [[ $condition1 = $remote_host ]]
498	then
499	condition1=""
500	else
501	condition2=`echo $remote_host_string \| cut -d" " -s -f3`
502	fi
503
504	if [[ $block_conditions != none ]]
505	then
506	if [[ "$condition1" != "$block_condition1" \|\| "$condition2" != "$block_condition2" ]]
507	then
508	continue
509	fi
510	block_conditions_found=true
511	fi
512
513	fftw_inc=""
514	fftw_lib=""
515	modules=""
516	netcdf_inc=""
517	netcdf_lib=""
518	make_options=""
519
520	# DETERMINE IP-ADDRES OF THE REMOTE-HOST
521	case $remote_host in
522	(lcbullhh) remote_address=136.172.50.13;;
523	(lccrayb) remote_address=130.73.233.1;;
524	(lccrayh) remote_address=130.75.4.1;;
525	(lcflow) remote_address="flow02.hpc.uni-oldenburg.de";;
526	(lckordi) remote_adress=210.219.61.8;;
527	(lcmuk) remote_address=130.75.105.2;;
528	(lcrte) remote_address=133.5.185.60;;
529	(lcsb) remote_address=147.46.30.151;;
530	(lck) remote_address=165.132.26.61;;
531	(lckiaps) remote_address=118.128.66.223;;
532	(lckyut) remote_address=133.5.4.37;;
533	(lctit) remote_address=10.1.6.170;;
534	(lcxe6) remote_address=129.177.20.113;;
535	(lcxt5m) remote_address=193.166.211.144;;
536	(ibmh) remote_address=136.172.40.15;;
537	(ibmkisti) remote_address=150.183.146.24;;
538	(ibmku) remote_address=133.5.4.129;;
539	(ibms) remote_address=150.183.5.101;;
540	(nech) remote_address=136.172.44.192;;
541	(neck) remote_address=133.5.178.11;;
542	(ground.yonsei.ac.kr) remote_address=134.75.155.33;;
543	(*) if [[ $local_host != $remote_host ]]
544	then
545	printf "\n +++ remote host \"$remote_host\" unknown";
546	printf "\n please inform PALM group support!"
547	locat=remote_host; exit
548	fi;;
549	esac
550
551
552	# DETERMINE REMOTE-USERNAME
553	line=""
554	found=false
555	grep "$remote_host_string" $config_file \| grep "%remote_username" > $tmp_mbuild
556	while read line1
557	do
558
559	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
560	then
561	line="$line1"
562	fi
563
564	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
565	then
566	remote_username=`echo $line \| cut -d" " -s -f2`
567	found=true
568	fi
569
570	done < $tmp_mbuild
571
572	if [[ $found = false ]]
573	then
574	printf "\n +++ no remote username found in configuration file"
575	printf "\n for \"$remote_host_string\" "
576	locat=config_file; exit
577	fi
578
579
580	# DETERMINE REMOTE-SOURCE-CODE-PATH
581	line=""
582	remote_source_path=""
583	grep "$remote_host_string" $config_file \| grep "%source_path" > $tmp_mbuild
584	while read line1
585	do
586
587	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
588	then
589	line="$line1"
590	fi
591
592	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
593	then
594	remote_source_path=`echo $line \| cut -d" " -s -f2`
595	fi
596
597	done < $tmp_mbuild
598
599	if [[ "$remote_source_path" = "" ]]
600	then
601	if [[ "$global_source_path" != "" ]]
602	then
603	remote_source_path=$global_source_path
604	else
605	printf "\n +++ no source path found in configuration file"
606	printf "\n for \"$remote_host_string\" "
607	locat=config_file; exit
608	fi
609	fi
610
611	remote_ud=${remote_source_path}/../UTIL
612	remote_ud=$(eval echo $remote_ud)
613
614
615	# DETERMINE REMOTE-PATH FOR MAKE-DEPOSITORY
616	remote_md=""
617	line=""
618	grep "$remote_host_string" $config_file \| grep "%depository_path" > $tmp_mbuild
619	while read line1
620	do
621
622	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
623	then
624	line="$line1"
625	fi
626
627	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
628	then
629	remote_md=`echo $line \| cut -d" " -s -f2`
630	fi
631
632	done < $tmp_mbuild
633
634	if [[ "$remote_md" = "" ]]
635	then
636	if [[ "$global_depository_path" != "" ]]
637	then
638	remote_md=$global_depository_path
639	else
640	printf "\n +++ no depository path found in configuration file"
641	printf "\n for \"$remote_host_string\" "
642	printf "\n please set \"\%depository_path\" in configuration file"
643	locat=config_file; exit
644	fi
645	fi
646
647	remote_md=$(eval echo $remote_md)
648	block=""
649	[[ "$condition1" != "" ]] && block=_$condition1
650	[[ "$condition2" != "" ]] && block=${block}_$condition2
651	remote_md=${remote_md}$block
652
653
654	# DETERMINE COMPILERNAME
655	line=""
656	found=false
657	grep "$remote_host_string" $config_file \| grep "%compiler_name " > $tmp_mbuild
658	while read line1
659	do
660
661	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
662	then
663	line="$line1"
664	fi
665
666	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
667	then
668	compiler_name=`echo $line \| cut -d" " -s -f2`
669	found=true
670	fi
671
672	done < $tmp_mbuild
673
674	if [[ $found = false ]]
675	then
676	printf "\n +++ no compiler name found in configuration file"
677	printf "\n for \"$remote_host_string\" "
678	locat=config_file; exit
679	fi
680
681
682	# IN CASE OF PARALLEL EXECUTION (COMPILER FOR PARALLEL EXECUTION),
683	# A SERIAL COMPILERNAME MUST BE DETERMINED ALSO
684	if [[ $(echo $remote_host_string \| grep -c parallel) = 1 ]]
685	then
686	line=""
687	found=false
688	grep "$remote_host_string" $config_file \| grep "%compiler_name_ser" > $tmp_mbuild
689	while read line1
690	do
691
692	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
693	then
694	line="$line1"
695	fi
696
697	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
698	then
699	compiler_name_ser=`echo $line \| cut -d" " -s -f2`
700	found=true
701	fi
702
703	done < $tmp_mbuild
704
705	if [[ $found = false ]]
706	then
707	printf "\n +++ no serial compiler name found in configuration file"
708	printf "\n for \"$remote_host_string\" "
709	locat=config_file; exit
710	fi
711	else
712	compiler_name_ser=$compiler_name
713	fi
714
715
716
717	# DETERMINE PREPROCESSOR-OPTIONS AND DIRECTIVES
718	line=""
719	found=false
720	grep "$remote_host_string" $config_file \| grep "%cpp_options" > $tmp_mbuild
721	while read line1
722	do
723
724	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
725	then
726	line="$line1"
727	fi
728
729	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
730	then
731	# REMOVE COLONS FROM THE OPTION-STRING, IF THERE ARE ANY
732	cpp_options=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
733	found=true
734	fi
735
736	done < $tmp_mbuild
737
738	if [[ $found = false ]]
739	then
740	printf "\n +++ no preprocessor options found in configuration file"
741	printf "\n for \"$remote_host_string\" "
742	locat=config_file; exit
743	fi
744
745
746	# ADD HOST-SPECIFIC PREPROCESSOR-DIRECTIVES
747	for string in $remote_host_string
748	do
749	if [[ $(echo $remote_host \| cut -c1-2) = lc && $(echo $string \| cut -c1-2) = lc ]]
750	then
751	cpp_options="$cpp_options -D__lc "
752	elif [[ $(echo $remote_host \| cut -c1-3) = ibm && $(echo $string \| cut -c1-3) = ibm ]]
753	then
754	cpp_options="${cpp_options},-D__ibm"
755	elif [[ $(echo $remote_host \| cut -c1-3) = nec && $(echo $string \| cut -c1-3) = nec ]]
756	then
757	cpp_options="${cpp_options} -D__nec"
758	else
759	if [[ $(echo $remote_host \| cut -c1-3) = ibm ]]
760	then
761	cpp_options="${cpp_options},-D__$string"
762	else
763	cpp_options="$cpp_options -D__$string "
764	fi
765	fi
766	done
767
768
769
770	# GET netCDF OPTIONS
771	line=""
772	grep "$remote_host_string" $config_file \| grep "%netcdf_inc" > $tmp_mbuild
773	while read line1
774	do
775
776	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
777	then
778	line="$line1"
779	fi
780
781	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
782	then
783	# REMOVE COLONS FROM THE OPTION-STRING, IF THERE ARE ANY
784	netcdf_inc=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
785	fi
786
787	done < $tmp_mbuild
788
789	line=""
790	grep "$remote_host_string" $config_file \| grep "%netcdf_lib" > $tmp_mbuild
791	while read line1
792	do
793
794	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
795	then
796	line="$line1"
797	fi
798
799	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
800	then
801	# REMOVE COLONS FROM THE OPTION-STRING, IF THERE ARE ANY
802	netcdf_lib=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
803	fi
804
805	done < $tmp_mbuild
806
807
808
809	# GET FFTW OPTIONS
810	line=""
811	grep "$remote_host_string" $config_file \| grep "%fftw_inc" > $tmp_mbuild
812	while read line1
813	do
814
815	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
816	then
817	line="$line1"
818	fi
819
820	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
821	then
822	# REMOVE COLONS FROM THE OPTION-STRING, IF THERE ARE ANY
823	fftw_inc=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
824	fi
825
826	done < $tmp_mbuild
827
828	line=""
829	grep "$remote_host_string" $config_file \| grep "%fftw_lib" > $tmp_mbuild
830	while read line1
831	do
832
833	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
834	then
835	line="$line1"
836	fi
837
838	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
839	then
840	# REMOVE COLONS FROM THE OPTION-STRING, IF THERE ARE ANY
841	fftw_lib=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
842	fi
843
844	done < $tmp_mbuild
845
846
847
848	# GET MAKE OPTIONS
849	line=""
850	found=false
851	grep "$remote_host_string" $config_file \| grep "%mopts" > $tmp_mbuild
852	while read line1
853	do
854
855	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
856	then
857	line="$line1"
858	fi
859
860	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
861	then
862	# REMOVE COLONS FROM THE OPTION-STRING, IF THERE ARE ANY
863	make_options=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
864
865	fi
866
867	done < $tmp_mbuild
868
869
870
871	# GET COMPILER OPTIONS
872	line=""
873	found=false
874	grep "$remote_host_string" $config_file \| grep "%fopts" > $tmp_mbuild
875	while read line1
876	do
877
878	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
879	then
880	line="$line1"
881	fi
882
883	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
884	then
885	# REMOVE COLONS FROM THE OPTION-STRING, IF THERE ARE ANY
886	compiler_options=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
887	found=true
888
889	# ADD INCLUDE PATHS FOR netCDF AND FFTW
890	compiler_options="$compiler_options $netcdf_inc $fftw_inc"
891	fi
892
893	done < $tmp_mbuild
894
895	if [[ $found = false ]]
896	then
897	printf "\n +++ no compiler options found in configuration file"
898	printf "\n for \"$remote_host_string\" "
899	locat=config_file; exit
900	fi
901
902
903	# GET LOGIN INIT COMMANDS
904	line=""
905	grep "$remote_host_string" $config_file \| grep "%login_init_cmd" > $tmp_mbuild
906	while read line1
907	do
908
909	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
910	then
911	line="$line1"
912	fi
913
914	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
915	then
916	# REMOVE COLONS FROM THE OPTION-STRING, IF THERE ARE ANY
917	init_cmds=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
918	init_cmds="${init_cmds};"
919	fi
920	done < $tmp_mbuild
921
922
923	# GET MODULES TO BE LOADED
924	line=""
925	grep "$remote_host_string" $config_file \| grep "%modules" > $tmp_mbuild
926	while read line1
927	do
928
929	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
930	then
931	line="$line1"
932	fi
933
934	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
935	then
936	# REMOVE COLONS FROM THE OPTION-STRING, IF THERE ARE ANY
937	modules=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
938	fi
939
940	done < $tmp_mbuild
941
942
943	# GET LINKER OPTIONS
944	line=""
945	found=false
946	grep "$remote_host_string" $config_file \| grep "%lopts" > $tmp_mbuild
947	while read line1
948	do
949
950	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
951	then
952	line="$line1"
953	fi
954
955	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
956	then
957	# REMOVE COLONS FROM THE OPTION-STRING, IF THERE ARE ANY
958	loader_options=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
959	found=true
960
961	# ADD netCDF- AND FFTW-LIBRARY
962	loader_options="$loader_options $netcdf_lib $fftw_lib"
963	fi
964
965	done < $tmp_mbuild
966
967	if [[ $found = false ]]
968	then
969	printf "\n +++ no loader options found in configuration file"
970	printf "\n for \"$remote_host_string\" "
971	locat=config_file; exit
972	fi
973
974
975	printf "\n\n#------------------------------------------------------------------------# \n"
976	if [[ $remote_host = $local_host ]]
977	then
978	column2="$remote_host (= local host!)"
979	else
980	column2=$remote_host
981	fi
982	printf "\| %-20s%-50s \| \n" "remote_host:" "$column2"
983	printf "\| \| \n"
984	printf "\| %-20s%-50s \| \n" "conditions:" "$condition1 $condition2"
985	column2=$(echo "$remote_md" \| cut -c1-50 )
986	printf "\| %-20s%-50s \| \n" "make depository:" "$column2"
987	line=$(echo "$remote_md" \| cut -c51-)
988	while [[ "$line" != "" ]]
989	do
990	column1=""
991	column2=$(echo "$line" \| cut -c1-50 )
992	printf "\| %-20s%-50s \| \n" "$column1" "$column2"
993	line=$(echo "$line" \| cut -c51-)
994	done
995	if [[ $compile_utility_programs = true ]]
996	then
997	column2=$(echo "$remote_ud" \| cut -c1-50 )
998	printf "\| %-20s%-50s \| \n" "utility directory:" "$column2"
999	line=$(echo "$remote_ud" \| cut -c51-)
1000	while [[ "$line" != "" ]]
1001	do
1002	column1=""
1003	column2=$(echo "$line" \| cut -c1-50 )
1004	printf "\| %-20s%-50s \| \n" "$column1" "$column2"
1005	line=$(echo "$line" \| cut -c51-)
1006	done
1007	fi
1008	printf "\| %-20s%-50s \| \n" "username:" "$remote_username"
1009	printf "\| %-20s%-50s \| \n" "address:" "$remote_address"
1010	printf "\| %-20s%-50s \| \n" "compiler:" "$compiler_name"
1011	if [[ $compile_utility_programs = true ]]
1012	then
1013	printf "\| %-20s%-50s \| \n" "serial compiler:" "$compiler_name_ser"
1014	fi
1015	if [[ "$make_options" != "" ]]
1016	then
1017	printf "\| %-20s%-50s \| \n" "make options:" "$make_options"
1018	fi
1019	column2=$(echo $cpp_options \| cut -c1-50 )
1020	printf "\| %-20s%-50s \| \n" "cpp options:" "$column2"
1021	line=$(echo "$cpp_options" \| cut -c51-)
1022	while [[ "$line" != "" ]]
1023	do
1024	column1=""
1025	column2=$(echo $line \| cut -c1-50 )
1026	printf "\| %-20s%-50s \| \n" "$column1" "$column2"
1027	line=$(echo "$line" \| cut -c51-)
1028	done
1029	column2=$(echo $compiler_options \| cut -c1-50 )
1030	printf "\| %-20s%-50s \| \n" "compiler options:" "$column2"
1031	line=$(echo "$compiler_options" \| cut -c51-)
1032	while [[ "$line" != "" ]]
1033	do
1034	column1=""
1035	column2=$(echo $line \| cut -c1-50 )
1036	printf "\| %-20s%-50s \| \n" "$column1" "$column2"
1037	line=$(echo "$line" \| cut -c51-)
1038	done
1039	column2=$(echo $loader_options \| cut -c1-50 )
1040	printf "\| %-20s%-50s \| \n" "loader options:" "$column2"
1041	line=$(echo "$loader_options" \| cut -c51-)
1042	while [[ "$line" != "" ]]
1043	do
1044	column1=""
1045	column2=$(echo $line \| cut -c1-50 )
1046	printf "\| %-20s%-50s \| \n" "$column1" "$column2"
1047	line=$(echo "$line" \| cut -c51-)
1048	done
1049	if [[ $init_cmds != "" ]]
1050	then
1051	column2=$(echo $init_cmds \| cut -c1-50 )
1052	printf "\| %-20s%-50s \| \n" "login init command:" "$column2"
1053	line=$(echo "$init_cmds" \| cut -c51-)
1054	while [[ "$line" != "" ]]
1055	do
1056	column1=""
1057	column2=$(echo $line \| cut -c1-50 )
1058	printf "\| %-20s%-50s \| \n" "$column1" "$column2"
1059	line=$(echo "$line" \| cut -c51-)
1060	done
1061	fi
1062	if [[ $modules != "" ]]
1063	then
1064	column2=$(echo $modules \| cut -c1-50 )
1065	printf "\| %-20s%-50s \| \n" "modules to be load:" "$column2"
1066	line=$(echo "$modules" \| cut -c51-)
1067	while [[ "$line" != "" ]]
1068	do
1069	column1=""
1070	column2=$(echo $line \| cut -c1-50 )
1071	printf "\| %-20s%-50s \| \n" "$column1" "$column2"
1072	line=$(echo "$line" \| cut -c51-)
1073	done
1074	fi
1075	printf "#------------------------------------------------------------------------# \n"
1076
1077	if [[ $silent = false ]]
1078	then
1079	answer=dummy
1080	printf "\n\n"
1081	while [[ "$answer" != y && "$answer" != Y && "$answer" != c && "$answer" != C && "$answer" != s && "$answer" != S && "$answer" != a && "$answer" != A ]]
1082	do
1083	printf " >>> continue (y(es)/c(ontinue)/a(bort)/s(skip)) ? "
1084	read answer
1085	done
1086	if [[ $answer = a \|\| $answer = A ]]
1087	then
1088	locat=user_abort; exit
1089	fi
1090	if [[ $answer = c \|\| $answer = C ]]
1091	then
1092	silent=true
1093	fi
1094	if [[ $answer = s \|\| $answer = S ]]
1095	then
1096	continue
1097	fi
1098	fi
1099
1100
1101	# MAKE ON REMOTE HOST
1102	if [[ $remote_host != $local_host ]]
1103	then
1104	if [[ $compile_utility_programs = false ]]
1105	then
1106
1107	# COPY CURRENT SOURCE CODE TO SOURCE-CODE DIRECTORY ON THE REMOTE HOST
1108	# CREATE THIS DIRECTORY, IF IT DOES NOT EXIST
1109	echo " *** copying \"${mainprog}_sources.tar\" to \"${remote_address}:${remote_md}/\" "
1110	if [[ $remote_host != lctit ]]
1111	then
1112	ssh ${remote_username}@${remote_address} "[[ ! -d ${remote_md} ]] && (echo \" *** ${remote_md} will be created\"; mkdir -p ${remote_md})"
1113	else
1114	# USING PIPE, BECAUSE TIT ALLOWS SSH TO EXECUTE ONLY SOME SELECTED COMMANDS
1115	echo "[[ ! -d ${remote_md} ]] && (echo \" *** ${remote_md} will be created\"; mkdir -p ${remote_md})" \| ssh ${remote_username}@${remote_address} 2>&1
1116	fi
1117
1118	scp ${local_source_path}/${mainprog}_sources.tar ${remote_username}@${remote_address}:${remote_md}/${mainprog}_sources.tar
1119
1120
1121
1122	# UNTAR PREVIOUS UPDATE ON REMOTE HOST, IF EXISTING
1123	echo " *** untar previous update on remote host, if existing"
1124	if [[ $remote_host != lctit ]]
1125	then
1126	ssh ${remote_username}@${remote_address} "cd ${remote_md}; [[ -f ${mainprog}_current_version.tar ]] && tar -xf ${mainprog}_current_version.tar"
1127	else
1128	# USING PIPE, BECAUSE TIT ALLOWS SSH TO EXECUTE ONLY SOME SELECTED COMMANDS
1129	echo "cd ${remote_md}; [[ -f ${mainprog}_current_version.tar ]] && tar -xf ${mainprog}_current_version.tar" \| ssh ${remote_username}@${remote_address} 2>&1
1130	fi
1131
1132
1133	# UNTAR CURRENT SOURCES ON REMOTE HOST
1134	echo " *** untar current sources on remote host"
1135	if [[ $remote_host != lctit ]]
1136	then
1137	ssh ${remote_username}@${remote_address} "cd ${remote_md}; tar -xf ${mainprog}_sources.tar"
1138	else
1139	# USING PIPE, BECAUSE TIT ALLOWS SSH TO EXECUTE ONLY SOME SELECTED COMMANDS
1140	echo "cd ${remote_md}; tar -xf ${mainprog}_sources.tar" \| ssh ${remote_username}@${remote_address} 2>&1
1141	fi
1142
1143
1144	# EXECUTE MAKE WITH THOSE OPTIONS DETERMINED ABOVE
1145	# COMMANDS WILL BE COMMUNICATED TO SSH VIA PIPE, SINCE THIS WAY THE SYSTEM- AND
1146	# USER-PROFILES OF THE SHELL ARE COMPLETELY EXECUTED (OTHERWISE, MAKE
1147	# WILL E.G. MISS THE COMPILER-PATHS)
1148	echo " *** execute \"make\" on remote host"
1149
1150
1151	# GENERATE MAKE CALL WITH MAKE OPTIONS
1152	if [[ $remote_host = nech ]]
1153	then
1154	make_call_string="sxmake $make_options PROG=$mainprog F90=$compiler_name COPT=\"$cpp_options\" F90FLAGS=\"$compiler_options\" LDFLAGS=\"$loader_options\" "
1155	else
1156	make_call_string="make $make_options PROG=$mainprog F90=$compiler_name COPT=\"$cpp_options\" F90FLAGS=\"$compiler_options\" LDFLAGS=\"$loader_options\" "
1157	fi
1158
1159	# GENERATE COMMAND TO LOAD MODULES, IF MODULES ARE GIVEN
1160	if [[ "$modules" != "" ]]
1161	then
1162	if [[ $remote_host = lctit ]]
1163	then
1164	module_calls=". $modules"
1165	else
1166	module_calls="module load ${modules};"
1167	fi
1168	else
1169	module_calls=""
1170	fi
1171
1172	if [[ $remote_host = ibmkisti \|\| $remote_host = ibms ]]
1173	then
1174
1175	ssh ${remote_username}@${remote_address} "$init_cmds $module_calls 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
1176
1177	elif [[ $remote_host = ibmh ]]
1178	then
1179
1180	echo "$init_cmds $module_calls 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_address} 2>&1 \| tee ${remote_host}_last_make_protokoll
1181
1182	elif [[ $remote_host = lctit ]]
1183	then
1184
1185	echo " " > ${remote_host}_last_make_protokoll
1186	while [[ $(cat ${remote_host}_last_make_protokoll \| grep -c "Forwarding to N1GE") = 0 ]]
1187	do
1188	echo "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_address} 2>&1 \| tee ${remote_host}_last_make_protokoll
1189	done
1190
1191	elif [[ $remote_host = lcxe6 ]]
1192	then
1193
1194	ssh ${remote_username}@${remote_address} "$init_cmds $module_calls 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
1195
1196	else
1197
1198	echo "$init_cmds $module_calls 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_address} 2>&1 \| tee ${remote_host}_last_make_protokoll
1199
1200	fi
1201
1202	if [[ $(grep -c MAKE_ERROR ${remote_host}_last_make_protokoll) != 0 ]]
1203	then
1204	printf "\a\n +++ error(s) occurred during compiling or linking on host \"$remote_host\" "
1205	if [[ $silent = false ]]
1206	then
1207	answer=dummy
1208	printf "\n"
1209	while [[ "$answer" != c && "$answer" != k ]]
1210	do
1211	printf " >>> continue / list errors / kill mbuild (c/l/k) ? "
1212	read answer
1213	if [[ "$answer" = l ]]
1214	then
1215	more ${remote_host}_last_make_protokoll
1216	fi
1217	done
1218	if [[ $answer = k ]]
1219	then
1220	locat=user_abort; exit
1221	fi
1222	fi
1223	fi
1224
1225
1226
1227	# TAR UPDATED VERSION ON THE REMOTE HOST
1228	printf "\n *** tar update on remote host ..."
1229	if [[ $remote_host != lctit ]]
1230	then
1231	ssh ${remote_username}@${remote_address} "cd ${remote_md}; chmod u+w ; tar -cf ${mainprog}_current_version.tar ${mainprog} .f90 .o .mod"
1232	else
1233	# USING PIPE, BECAUSE TIT ALLOWS SSH TO EXECUTE ONLY SOME SELECTED COMMANDS
1234	echo "cd ${remote_md}; chmod u+w ; tar -cf ${mainprog}_current_version.tar ${mainprog} .f90 .o .mod" \| ssh ${remote_username}@${remote_address} 2>&1
1235	fi
1236
1237
1238
1239	# DO THE SAME THINGS FOR THE UTILITY-ROUTINES:
1240	# COPY CURRENT SOURCE CODE TO SOURCE-CODE DIRECTORY ON THE REMOTE HOST
1241	# CREATE THIS DIRECTORY, IF IT DOES NOT EXIST
1242	elif [[ $compile_utility_programs = true ]]
1243	then
1244
1245	printf "\n\n"
1246	echo " *** copying scripts and utility programs to \"${remote_address}:${remote_ud}/\" "
1247	cd ${local_source_path}/../SCRIPTS
1248
1249	if [[ $remote_host != lctit ]]
1250	then
1251	ssh ${remote_username}@${remote_address} "[[ ! -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)"
1252	else
1253	# USING PIPE, BECAUSE TIT ALLOWS SSH TO EXECUTE ONLY SOME SELECTED COMMANDS
1254	echo "[[ ! -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_address} 2>&1
1255	fi
1256
1257	# COPY SHELL-SCRIPTS
1258	scp batch_scp mbuild mrun process_dvr_output .dvrserver.config subjob ${remote_username}@${remote_address}:${remote_ud}/../SCRIPTS > /dev/null
1259
1260	cd - > /dev/null
1261	cd ${local_source_path}/../UTIL
1262
1263
1264	# COPY UTILITY-ROUTINES
1265	scp Makefile *.f90 ${remote_username}@${remote_address}:${remote_ud} > /dev/null
1266
1267
1268
1269	# EXECUTE MAKE WITH THOSE OPTIONS DETERMINED ABOVE
1270	# COMMANDS WILL BE COMMUNICATED TO SSH VIA PIPE, SINCE THIS WAY THE SYSTEM- AND
1271	# USER-PROFILES OF THE SHELL ARE COMPLETELY EXECUTED (OTHERWISE, MAKE
1272	# WILL E.G. MISS THE COMPILER-PATHS)
1273	echo " *** execute \"make\" on remote host"
1274
1275	if [[ $remote_host = nech ]]
1276	then
1277	make_call_string="sxmake $make_options BLOCK=$block F90=$compiler_name F90_SER=$compiler_name_ser COPT=\"$cpp_options\" F90FLAGS=\"$compiler_options\" LDFLAGS=\"$loader_options\" "
1278	else
1279	make_call_string="make $make_options BLOCK=$block F90=$compiler_name F90_SER=$compiler_name_ser COPT=\"$cpp_options\" F90FLAGS=\"$compiler_options\" LDFLAGS=\"$loader_options\" "
1280	fi
1281
1282	# GENERATE COMMAND TO LOAD MODULES, IF MODULES ARE GIVEN
1283	if [[ "$modules" != "" ]]
1284	then
1285	if [[ $remote_host = lctit ]]
1286	then
1287	module_calls=". $modules"
1288	else
1289	module_calls="module load ${modules};"
1290	fi
1291	else
1292	module_calls=""
1293	fi
1294
1295
1296	if [[ $remote_host = ibms ]]
1297	then
1298
1299	ssh ${remote_username}@${remote_address} "$init_cmds $module_calls cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR"
1300
1301	elif [[ $remote_host = ibmh ]]
1302	then
1303
1304	echo "$init_cmds $module_calls export OBJECT_MODE=64; cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" \| ssh ${remote_username}@${remote_address}
1305
1306	elif [[ $remote_host = lctit ]]
1307	then
1308
1309	echo " " > ${remote_host}_last_make_protokoll
1310	while [[ $(cat ${remote_host}_last_make_protokoll \| grep -c "Forwarding to N1GE") = 0 ]]
1311	do
1312	echo "$init_cmds $module_calls cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" \| ssh ${remote_username}@${remote_address} 2>&1 \| tee ${remote_host}_last_make_protokoll
1313	done
1314
1315	elif [[ $remote_host = lcxe6 ]]
1316	then
1317
1318	ssh ${remote_username}@${remote_address} "$init_cmds $module_calls cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" 2>&1 \| tee ${remote_host}_last_make_protokoll
1319
1320	else
1321
1322	echo "$init_cmds $module_calls cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" \| ssh ${remote_username}@${remote_address} 2>&1 \| tee ${remote_host}_last_make_protokoll
1323
1324	fi
1325
1326	fi # END OF COMPILING UTILITY-ROUTINES
1327
1328	rm -rf ${remote_host}_last_make_protokoll
1329
1330	# MAKE ON LOCAL HOST
1331	else
1332
1333	# INIT WORKAROUND FOR lcxe6
1334	if [[ $remote_host = lcxe6 \|\| $remote_host = lccrayb \|\| $remote_host = lccrayf \|\| $remote_host = lccrayh ]]
1335	then
1336
1337	eval $init_cmds > /dev/null 2>&1
1338
1339	fi
1340
1341	# FIRST LOAD MODULES, IF GIVEN
1342	if [[ "$modules" != "" ]]
1343	then
1344	if [[ $remote_host = lctit ]]
1345	then
1346	. $modules
1347	elif [[ $remote_host = lcflow ]]
1348	then
1349	eval `$MODULESHOME/bin/modulecmd ksh load ${modules}`
1350	else
1351	eval init_cmds=$init_cmds
1352	module load ${modules}
1353	fi
1354	fi
1355
1356
1357	if [[ $compile_utility_programs = false ]]
1358	then
1359
1360	# CREATE MAKE-DEPOSITORY, IF IT DOES NOT EXIST
1361	eval remote_md=$remote_md
1362	if [[ ! -d $remote_md ]]
1363	then
1364	if mkdir $remote_md
1365	then
1366	printf "\n\n *** directory for make depository:"
1367	printf "\n $remote_md"
1368	printf "\n was created\n"
1369	else
1370	printf "\n +++ directory for make depository:"
1371	printf "\n $remote_md"
1372	printf "\n cannot be created"
1373	locat=local_depository_path; exit
1374	fi
1375	fi
1376
1377	# COPY SOURCE-CODE FROM REPOSITORY TO MAKE-DEPOSITORY
1378	echo " "
1379	echo " *** updating sources in $remote_md"
1380	cd $remote_md
1381	cp $local_source_path/${mainprog}_sources.tar .
1382	tar xf ${mainprog}_sources.tar
1383
1384	# CALL MAKE ON LOCAL HOST USING THE OPTIONS DETERMINED FURTHER ABOVE
1385	echo " "
1386	echo " *** execute \"make\" on local host"
1387
1388	make $make_options PROG=$mainprog F90=$compiler_name COPT="$cpp_options" F90FLAGS="$compiler_options" LDFLAGS="$loader_options" 2>&1 \| tee ${remote_host}_last_make_protokoll
1389
1390	if [[ $? != 0 ]]
1391	then
1392	printf "\a\n +++ error(s) occurred during compiling or linking on host \"$remote_host\" "
1393	if [[ $silent = false ]]
1394	then
1395	answer=dummy
1396	printf "\n"
1397	while [[ "$answer" != c && "$answer" != k ]]
1398	do
1399	printf " >>> continue / list errors / kill mbuild (c/l/k) ? "
1400	read answer
1401	if [[ "$answer" = l ]]
1402	then
1403	more ${remote_host}_last_make_protokoll
1404	fi
1405	done
1406	if [[ $answer = k ]]
1407	then
1408	locat=user_abort; exit
1409	fi
1410	fi
1411	fi
1412
1413
1414	# TAR NEW VERSION ON LOCAL HOST
1415	printf "\n *** tar update on local host ..."
1416	tar -cf ${mainprog}_current_version.tar .$suf .o *.mod
1417
1418
1419	# COMPILE THE UTILITY PROGRAMS
1420	elif [[ $compile_utility_programs = true ]]
1421	then
1422	printf "\n\n"
1423	echo " *** compiling the utility programs ..."
1424	cd ${local_source_path}/../UTIL
1425
1426	# TOUCH FILES IN ORDER TO FORCE COMPILATION FOR EVERY BLOCK
1427	touch *.f90
1428	eval init_cmds=$init_cmds
1429	make $make_options BLOCK=$block F90=$compiler_name F90_SER=$compiler_name_ser COPT="$cpp_options" F90FLAGS="$compiler_options" LDFLAGS="$loader_options"
1430
1431	# CHECK IF QMAKE IS AVAILABLE AND COMPILE MRUNGUI
1432	if [[ $util_compiled_localhost == false ]]
1433	then
1434	printf "\n\n"
1435	echo " *** compiling the mrun GUI"
1436	if which qmake >/dev/null; then
1437	cd mrungui
1438	touch *
1439	qmake
1440	make
1441	make clean
1442	rm Makefile
1443	cd ..
1444	else
1445	echo " +++ no qmake found. The (optional) GUI will not be compiled."
1446	fi
1447
1448	# # COMPILE CHECK_NAMELIST_FILES (ONLY FOR ONE BRANCH on LOCALHOST NEEDED)
1449	# printf "\n\n"
1450	# echo " *** compiling check_namelist_files ..."
1451	#
1452	# # GET CHECK OPTIONS
1453	# line=""
1454	# found=false
1455	# grep "$remote_host_string" $config_file \| grep "%cpp_options" > $tmp_mbuild
1456	# while read line1
1457	# do
1458	#
1459	# if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
1460	# then
1461	# line="$line1"
1462	# fi
1463	#
1464	# if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
1465	# then
1466	# # REMOVE COLONS FROM THE OPTION-STRING, IF THERE ARE ANY
1467	# line="$line "
1468	# copts_check=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g' \| sed 's/-D[^ ]* //g' \| sed 's/ -D.*//g'`
1469	# found=true
1470	# fi
1471	#
1472	# done < $tmp_mbuild
1473	# copts_check="$copts_check -D__check -D__parallel"
1474	#
1475	# check_depository_path=${local_source_path}/../UTIL
1476	# cd $check_depository_path
1477	# mkdir check_tmp
1478	# cp ${local_source_path}/${mainprog}_sources_check.tar ./check_tmp
1479	# cd check_tmp
1480	# tar -xf ${mainprog}_sources_check.tar
1481	# rm -rf ${mainprog}_sources_check.tar
1482	# make -f Makefile_check $make_options F90=$compiler_name_ser COPT="$copts_check" F90FLAGS="$compiler_options"
1483	# tar -cf check_namelist_files.tar Makefile_check check_namelist_files.x .f90 .o *.mod
1484	# mv check_namelist_files.tar $check_depository_path
1485	# mv check_namelist_files.x $PALM_BIN
1486	# cd $check_depository_path
1487	# rm -rf check_tmp
1488	# util_compiled_localhost=true
1489	else
1490	cd $check_depository_path
1491	printf "\n\n"
1492	echo " *** skipped compilation of mrun GUI."
1493	printf "\n\n"
1494	echo " *** skipped compilation of check_namelist_files (currently not available)."
1495	fi
1496
1497	fi
1498	fi
1499	done
1500
1501
1502	if [[ $host_found = false ]]
1503	then
1504	if [[ $host = all ]]
1505	then
1506	printf "\n +++ no hosts found in configuration file"
1507	else
1508	printf "\n +++ host \"$host\" not found in configuration file"
1509	fi
1510	locat=config_file; exit
1511	fi
1512
1513	if [[ "$block_conditions" != none && $block_conditions_found = false ]]
1514	then
1515	printf "\n +++ block conditions \"$block_conditions\" not found for host \"$host\""
1516	fi
1517
1518
1519	# FINAL WORK
1520	rm -f hosts_found_in_config_file
1521	rm -f ${local_source_path}/${mainprog}_sources_check.tar

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

Download in other formats:

| Impressum | ©Leibniz Universität Hannover |