Home

Context Navigation

source: palm/trunk/SCRIPTS/mbuild @ 1069

Last change on this file since 1069 was 1069, checked in by maronga, 11 years ago
allow usage of topography in combination with cloud physics, allow usage of topography in coupled ocean model, minor changes in mbuild and mrun
Property svn:keywords set to `Id Rev`
File size: 55.5 KB

Line
1	#!/bin/ksh
2
3	#--------------------------------------------------------------------------------#
4	# This file is part of PALM.
5	#
6	# PALM is free software: you can redistribute it and/or modify it under the terms
7	# of the GNU General Public License as published by the Free Software Foundation,
8	# either version 3 of the License, or (at your option) any later version.
9	#
10	# PALM is distributed in the hope that it will be useful, but WITHOUT ANY
11	# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12	# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
13	#
14	# You should have received a copy of the GNU General Public License along with
15	# PALM. If not, see <http://www.gnu.org/licenses/>.
16	#
17	# Copyright 1997-2012 Leibniz University Hannover
18	#--------------------------------------------------------------------------------#
19	#
20	# Current revisions:
21	# -----------------
22	# added copy of nc2vdf tools to remote host
23	#
24	#
25	# Former revisions:
26	# -----------------
27	# $Id: mbuild 1069 2012-11-28 16:18:43Z maronga $
28	#
29	# 1046 2012-11-09 14:38:45Z maronga
30	# code put under GPL (PALM 3.9)
31	#
32	# mbuild - script for compiling the PALM code and its utility programs
33
34	# Procedure to compile code on local and remote hosts using the
35	# make-mechanism. The source code must be provided on the local host.
36
37	# Last changes:
38	# 06/05/02 - Siggi - start development
39	# 12/06/02 - Siggi - first version finished
40	# 12/09/02 - Siggi - ibmh (hanni.hlrn.de) included
41	# 19/12/02 - Siggi - ibmb included
42	# 05/02/03 - Siggi - hostname nobela included
43	# 04/03/03 - Siggi - host nech included
44	# 06/03/03 - Siggi - make_call_string is echoed without '' to
45	# file LAST_MAKE_CALL (otherwise error on NEC, because
46	# '' are part of compiler options
47	# 16/03/03 - Siggi - Two underscores are placed in front of every define
48	# string, in case that palm.f90 version contains
49	# such strings
50	# 16/04/03 - Siggi - First extensions for linux machines
51	# 24/06/03 - Siggi - host orkan included
52	# 17/07/03 - Siggi - IP adress set to new "cross" machine at DKRZ
53	# 24/07/03 - Siggi - host maestro admitted
54	# 06/08/03 - Siggi - host gregale admitted
55	# 05/11/03 - Siggi - hosts irifi and quanero are now belonging to lcmuk
56	# 19/11/03 - Heiko - on lcmuk, mbuild does not tar the *.i files
57	# 08/01/04 - Siggi - additional preprocessor directive for ibm included
58	# (-D$OMP=OMP) in order to avoid problems with
59	# OMP_NUM_THREADS
60	# 09/01/04 - Siggi - action above cancelled
61	# 28/01/04 - Siggi - action above re-cancelled
62	# 08/03/04 - Siggi - host scirocco admitted
63	# 26/03/04 - Siggi - .o and .mod files are also deleted in depository, if
64	# the respective .f90 file is not listed in the makefile
65	# and deletion is demanded by the user
66	# 12/04/04 - Siggi - scp2 instead of scp used for transfer from decalpha
67	# due to error in ssh installation (otherwise a prompt
68	# for the password appears)
69	# 23/07/04 - Siggi - changes due to the new berni configuration
70	# (federation switch)
71	# 08/09/04 - Siggi - hanni IP address changed to 130.75.4.10
72	# 23/09/04 - Joerg - correction of IP-Address for 'cross' (DKRZ)
73	# 09/03/05 - Siggi - on nech, mbuild does not tar the *.i files
74	# 31/03/05 - Siggi - mbuild does not tar *.i files any more
75	# 24/04/05 - Siggi - netcdf support on lcmuk
76	# 25/04/05 - Siggi - netcdf support on gfdl3 (decalpha)
77	# 12/05/05 - Siggi - netcdf support on ibm
78	# set OBJECT_MODE=64 for compiling on ibmb, ibmh
79	# 18/05/05 - Siggi - netcdf support on nec
80	# 19/05/05 - Siggi - IP addres 134.75.155.74 changed to 165.132.26.56
81	# 23/05/05 - Siggi - netcdf support on ibms
82	# 01/06/05 - Siggi - reset of cpp_options to "" on lcmuk
83	# 30/06/05 - Siggi - netcdf support on bora
84	# 20/10/05 - Siggi - update of netcdf-version on decalpha (gfdl3)
85	# 04/11/05 - Siggi - netcdf 3.6.0-p1 on ibmh/ibmb
86	# 30/12/05 - Siggi - change of IP adresses in subnet 130.75.105
87	# host gfdl5 (ibmy) admitted
88	# 10/01/06 - Siggi - cpp directive for NetCDF 64bit support
89	# 20/01/06 - Siggi - cpp directive for ibmy
90	# 09/02/06 - Marcus- compile only once on lcmuk (as on ibmh/ibmb)
91	# 10/02/06 - Siggi - modifications for scp on decalpha
92	# 13/04/06 - Siggi - ostria admitted
93	# 19/04/06 - Siggi - preprocessor directive -D$OMP=OMP for ibm removed
94	# 23/05/05 - Siggi - lctit (SUN Fire X4600) admitted
95	# 29/05/05 - Siggi - atmos (lcide) admitted
96	# 23/08/06 - Siggi - netcdf support for scirocco (notebook)
97	# 24/11/06 - Siggi - breva and levanto admitted
98	# 07/02/07 - Siggi - adapted for RIAM (neck)
99	# 10/02/07 - Siggi - all hpmuk-related code removed
100	# 02/03/07 - Siggi - compilation of utility programs and transfer of
101	# scripts to remote hosts added (option -u)
102	# 14/03/07 - Siggi - fimm admitted, revision number added to terminal
103	# output
104	# 16/03/07 - Siggi - adjustments (netcdf) for lctit
105	# adjustments for running under pdksh, local ip-addres
106	# is not determined any more
107	# 30/03/07 - Siggi - cpp-directives/options + netcdf-options are read
108	# from configuration file
109	# host identifier (local_host) is read from config file
110	# 10/10/07 - Siggi - bugfix: handling of comment lines
111	# 18/07/08 - Siggi - adapted for lcsgih
112	# 21/07/08 - Siggi - mainprog (executable) is added to the tar-file
113	# ({mainprog}_current_version)
114	# 02/10/08 - Siggi - adapted for lcxt4
115	# 14/11/08 - Siggi - update mechanism completely revised: source tarfile
116	# remains in source directory, one depository per block
117	# (given in the config-file) is created, allways all
118	# files from the source directory are copied to the
119	# respective depository, no additional file checks are
120	# done any more (version 2.1)
121	# 13/01/09 - Marcus- re-enable compilation more than once on lcmuk (as on
122	# other machines)
123	# 21/03/09 - Siggi - -u copies also copies process_dvr_output and
124	# .dvrserver.config
125	# 21/04/09 - Siggi - adjustments for new IBM at DKRZ, which is now ibmh
126	# 25/08/09 - BjornM- adapted for lck
127	# 01/12/09 - BjornM- re-adjustments for lcxt4
128	# 01/02/10 - Siggi - adjustments for lcxt5m
129	# 03/02/10 - Siggi - make options (mopts) to be set by configuration file
130	# implemented, remoted mode option -r completely
131	# removed, t3e related parts removed
132	# 26/02/10 - BjornM- re-adjustments for lcxt4 (new modules)
133	# 01/03/10 - Siggi - mpilib replaced by modules: explicit module settings
134	# removed; modules should now be given in the
135	# configuration file
136	# 02/03/10 - Siggi - utility programs are created separately for each
137	# block in the configuration file,
138	# parallel make for utility programs
139	# 12/03/10 - Siggi - bugfix: remode_md was given a wrong value
140	# 16/08/10 - BjornM- bugfix: call of modules on local host, new workaround
141	# for lcxt4
142	# 07/09/10 - Siggi - bugfix for wrong netcdf/3.6.3 module on lcsgi
143	# 08/12/10 - Siggi - initialization of the module command changed for
144	# SGI-ICE/lcsgi
145	# adjustments for Kyushu Univ. (lcrte, ibmku)
146	# 14/12/10 - Siggi - adjustments for new Tsubame system at Tokyo
147	# institute of technology (lctit)
148	# 04/03/11 - BjornM- re-adjustments for lcxt4
149	# 06/03/11 - Siggi - adjustments for ibmkisti
150	# 03/04/11 - Micha - added lckordi
151	# 17/08/11 - Siggi - HLRN access via hicegate0 (130.75.4.101)
152	# 27/11/11 - Siggi - Bugfix for make options setting (-j)
153	# 12/12/11 - BjornM- added mrun GUI to ulitity programs
154	# 25/01/12 - BjornM- compilation of check_namelist_files (namelist file
155	# check program) has been added to the utility branch),
156	# modfified the compilation of mrungui
157	# 31/01/12 - BjornM- bugfix for compilation of utility programs on
158	# multiple localhost branches
159	# 08/03/12 - BjornM- bugfix: cpp directive for namelist check program
160	# corrected
161	# 02/05/12 - Bjoern- lcxt4 is now lcxe6, adjustments for lcxe6,
162	# bugfixes for the parameter file check, initial
163	# commands on ssh calls sourced out to .mrun.config
164	# 05/06/12 - Bjoern- bugfixes for execution of login_init_cmd
165	# 18/06/12 - Siggi - option -v (silent mode) added
166	# 25/06/12 - Siggi - option -K (block conditions) added
167	# 27/09/12 - Siggi - compiler options (F90FLAGS) added for namelist check
168	# 02/10/12 - Siggi - added lcsb
169	# 02/11/12 - Siggi - added lckiaps
170
171
172	# VARIABLE DECLARATIONS + DEFAULT VALUES
173	block_conditions=none
174	block_conditions_found=false
175	compile_utility_programs=false
176	config_file=.mrun.config
177	fimm=false
178	host=all
179	host_found=false
180	locat=normal
181	makefile=""
182	module_calls=""
183	util_compiled_localhost=false
184	scirocco=false
185	silent=false
186	suf=f90
187	update=false
188	working_directory=`pwd`
189
190	typeset -i ih ihost=0
191
192	typeset -R30 calltime
193	typeset -L20 column1
194	typeset -L50 column2
195	typeset -L70 column3
196	typeset -L40 version="MBUILD 2.1 Rev$Rev: 1069 $"
197
198	# ERROR HANDLING
199	# IN CASE OF EXIT:
200	trap 'rm -rf $working_directory/tmp_mbuild
201	if [[ $locat != normal ]]
202	then
203	printf "\n\n +++ mbuild killed \n\n"
204	else
205	printf "\n\n *** mbuild finished \n\n"
206	fi' exit
207
208
209	# IN CASE OF TERMINAL-BREAK:
210	trap 'rm -rf $working_directory/tmp_mbuild
211	printf "\n\n +++ mbuild killed by \"^C\" \n\n"
212	exit
213	' 2
214
215
216	tmp_mbuild=${working_directory}/tmp_mbuild
217
218	# READ SHELLSCRIPT-OPTIONS
219	while getopts :c:h:K:m:s:uv option
220	do
221	case $option in
222	(c) config_file=$OPTARG;;
223	(h) host=$OPTARG;;
224	(K) block_conditions=$OPTARG;;
225	(m) makefile=$OPTARG;;
226	(s) suf=$OPTARG;;
227	(u) compile_utility_programs=true;;
228	(v) silent=true;;
229	(\?) printf "\n +++ unknown option $OPTARG \n";
230	locat=parameter; exit;;
231	esac
232	done
233
234
235
236	# CHECK, IF CONFIGURATION-FILE EXISTS
237	if [[ ! -f $config_file ]]
238	then
239	printf "\n +++ configuration file: "
240	printf "\n $config_file"
241	printf "\n does not exist"
242	locat=configuration; exit
243	fi
244
245
246
247	# DETERMINE THE LOCAL HOST
248	local_host_real_name=$(hostname)
249	# local_addres=$(nslookup `hostname` 2>&1 \| grep "Address:" \| tail -1 \| awk '{print $2}')
250
251
252
253	# DETERMINE HOST-IDENTIFIER (local_host) FROM THE CONFIG-FILE
254	line=""
255	grep "%host_identifier" $config_file > $tmp_mbuild
256	while read line
257	do
258	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
259	then
260	HOSTNAME=`echo $line \| cut -d" " -s -f2`
261	host_identifier=`echo $line \| cut -d" " -s -f3`
262	if [[ $local_host_real_name = $HOSTNAME ]]
263	then
264	local_host=$host_identifier
265	break
266	fi
267	fi
268	done < $tmp_mbuild
269
270	if [[ "$local_host" = "" ]]
271	then
272	printf "\n +++ no host identifier found in configuration file \"$config_file\""
273	printf "\n for local host \"$local_host_real_name\"."
274	printf "\n Please add line"
275	printf "\n \"\%host_identifier $local_host_real_name <identifier>\""
276	printf "\n to the configuration file."
277	locat=local_host; exit
278	fi
279
280
281
282	[[ $local_host_real_name = scirocco ]] && scirocco=true
283	[[ $local_host_real_name = fimm.bccs.uib.no ]] && fimm=true
284
285
286
287	if [[ $local_host != ibms ]]
288	then
289	config_file=$PWD/$config_file
290	else
291	config_file=`pwd`/$config_file
292	fi
293
294
295	# determine the block conditions
296	if [[ $block_conditions != none ]]
297	then
298	block_condition1=`echo $block_conditions \| cut -d" " -f1`
299	block_condition2=`echo $block_conditions \| cut -d" " -f2`
300	if [[ "$block_condition2" = "$block_condition1" ]]
301	then
302	block_condition2=""
303	fi
304	fi
305
306
307	# DETERMINE USER NAME ON LOCAL HOST FROM THE CONFIG-FILE
308	line=""
309	grep " $local_host" $config_file \| grep "%remote_username" > $tmp_mbuild
310	while read line
311	do
312	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
313	then
314	local_username=`echo $line \| cut -d" " -s -f2`
315	fi
316	done < $tmp_mbuild
317
318
319	if [[ "$local_username" = "" ]]
320	then
321	printf "\n +++ no user name found in configuration file"
322	printf "\n for local host \"$local_host\" "
323	locat=config_file; exit
324	fi
325
326
327	# DETERMINE LOCAL SOURCE-CODE PATH.
328	# FIRST CHECK, IF A GLOBAL SOURCE-CODE PATH HAS BEEN DECLARED FOR ALL HOSTS.
329	# THEREFORE, FIRST SET ALL GLOBAL VARIABLES DECLARED IN THE CONFIG-FILE,
330	# BECAUSE THEY MAY BE USED AS PART OF THE PATH NAME.
331	line=""
332	grep "%" $config_file > $tmp_mbuild
333	while read line
334	do
335	if [[ "$line" != "" && "$(echo $line \| cut -d" " -s -f3)" = "" && $(echo $line \| cut -c1) != "#" ]]
336	then
337	var=`echo $line \| cut -d" " -s -f1 \| cut -c2-`
338	value=`echo $line \| cut -d" " -s -f2`
339	eval export $var=\$value
340	fi
341	done < $tmp_mbuild
342
343	# NOW CHECK, IF A GLOBAL SOURCE-CODE-PATH HAS BEEN DECLARED
344	line=""
345	grep "%source_path" $config_file > $tmp_mbuild
346	while read line
347	do
348	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
349	then
350	if [[ "$(echo $line \| cut -d" " -s -f3)" = "" ]]
351	then
352	global_source_path=`echo $line \| cut -d" " -s -f2`
353	fi
354	fi
355	done < $tmp_mbuild
356
357	line=""
358	grep " $local_host" $config_file \| grep "%source_path" > $tmp_mbuild
359	while read line
360	do
361	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
362	then
363	local_source_path=`echo $line \| cut -d" " -s -f2`
364	fi
365	done < $tmp_mbuild
366
367	if [[ "$local_source_path" = "" ]]
368	then
369	if [[ "$global_source_path" != "" ]]
370	then
371	local_source_path=$global_source_path
372	else
373	printf "\n +++ no source path found in configuration file"
374	printf "\n for local host \"$local_host\" "
375	printf "\n please set \"\%source_path\" in configuration file"
376	locat=config_file; exit
377	fi
378	fi
379	eval local_source_path=$local_source_path
380	eval local_source_path=$local_source_path
381
382
383
384	# DETERMINE GLOBAL DEPOSITORY-PATH
385	line=""
386	grep "%depository_path" $config_file > $tmp_mbuild
387	while read line
388	do
389	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
390	then
391	if [[ "$(echo $line \| cut -d" " -s -f3)" = "" ]]
392	then
393	global_depository_path=`echo $line \| cut -d" " -s -f2`
394	fi
395	fi
396	done < $tmp_mbuild
397
398	if [[ $found = false ]]
399	then
400	printf "\n +++ no \%depository_path found in"
401	printf "\n $config_file"
402	locat=depository_path; exit
403	fi
404
405	# CHECK, IF A MAIN PROGRAM HAS BEEN DEFINED IN THE CONFIG-FILE
406	if [[ $(grep -c "%mainprog" $config_file) != 1 ]]
407	then
408	printf "\n +++ no main program or more than one main program defined"
409	printf "\n in configuration file"
410	locat=configuration; exit
411	else
412	line=`grep "%mainprog" $config_file`
413	if [[ "$line" = "" \|\| $(echo $line \| cut -c1) = "#" ]]
414	then
415	printf "\n +++ no main program defined in configuration file"
416	locat=configuration; exit
417	fi
418	mainprog=`echo $line \| cut -d" " -s -f2 \| cut -d"." -f1`
419	fi
420
421
422
423	# CHECK IF MAKEFILE EXITS
424	[[ "$makefile" = "" ]] && makefile=$local_source_path/Makefile
425	if [[ ! -f $makefile ]]
426	then
427	printf "\n +++ makefile: "
428	printf "\n $makefile"
429	printf "\n does not exist"
430	locat=makefile; exit
431	fi
432
433
434	# HEADER-OUTPUT (PART1: MESSAGES CONCERNING THE LOCAL HOST)
435	calltime=$(date)
436	printf "\n"
437	printf "#------------------------------------------------------------------------# \n"
438	printf "\| $version$calltime \| \n"
439	printf "\| \| \n"
440	column1="called on:"; column2=$local_host_real_name
441	printf "\| $column1$column2 \| \n"
442	column1="local username:"; column2=$local_username
443	printf "\| $column1$column2 \| \n"
444	column1="local IP-addres:"; column2=$local_addres
445	printf "\| $column1$column2 \| \n"
446	column1="config file:"; column2=$config_file
447	printf "\| $column1$column2 \| \n"
448	column1="makefile:"; column2=$makefile
449	printf "\| $column1$column2 \| \n"
450	column1="local source path:"; column2=$local_source_path
451	printf "\| $column1$column2 \| \n"
452	printf "#------------------------------------------------------------------------# \n"
453
454	# printf "\| \| \n"
455
456
457	if [[ $compile_utility_programs = false ]]
458	then
459
460	# IN ANY CASE, GIVE ALL FILES WRITE-PERMIT, IN ORDER TO AVOID PROBLEMS
461	# WITH OVERWRITING FILES ON THE REMOTE HOST
462	cd $local_source_path
463	printf "\n\n *** tar of makefile and source files in $local_source_path"
464	tar -cf ${mainprog}_sources.tar Makefile *.$suf
465	printf "\n"
466
467	else
468	cd $local_source_path
469	printf "\n\n *** tar of makefile and source files in $local_source_path"
470
471	cat Makefile_check\|while read line
472	do
473	line=$(echo $line\|grep RCS)
474	if [[ $line == "RCS" ]]
475	then
476	line=$(echo $line\|sed 's/RCS = //g')
477	break
478	fi
479	done
480
481	tar -cf ${mainprog}_sources_check.tar Makefile_check $line
482	printf "\n"
483	fi
484
485
486
487	# GET CONFIRMATION TO CONTINUE
488	if [[ $host = all ]]
489	then
490	printf "\n *** updates will be made for ALL hosts found in"
491	printf "\n the configuration file"
492	else
493	printf "\n *** update will be made for host \"$host\" "
494	fi
495
496	if [[ $silent = false ]]
497	then
498	answer=dummy
499	printf "\n\n"
500	while [[ "$answer" != y && "$answer" != Y && "$answer" != n && "$answer" != N ]]
501	do
502	printf " >>> continue (y/n) ? "
503	read answer
504	done
505	if [[ $answer = n \|\| $answer = N ]]
506	then
507	locat=user_abort; exit
508	fi
509	fi
510
511
512
513
514	# GENERIERUNG DER AKTUELLEN MODELLVERSION FUER ALLE RECHNER-/UEBERSETZUNGS-
515	# VERSIONEN, DIE IN DER KONFIGURATIONSDATEI GEFUNDEN WERDEN
516	printf "\n *** scanning configuration file for host(s) ..."
517
518	grep %fopts $config_file > $tmp_mbuild
519	while read line
520	do
521	# KOMMENTARZEILEN UEBERSPRINGEN
522	[[ $(echo $line \| cut -c1) = "#" ]] && continue
523	(( ihost = ihost + 1 ))
524	hostline[$ihost]="$line"
525	done < $tmp_mbuild
526
527
528	while (( ih < ihost ))
529	do
530
531	(( ih = ih + 1 ))
532
533	# determine remote host and conditions for the respective block
534	# continue, only if this host has been chosen via -h option and if
535	# conditions have been chosen via -K option
536	remote_host_string=`echo ${hostline[$ih]} \| cut -d" " -s -f3-`
537	remote_host=`echo $remote_host_string \| cut -d" " -f1`
538	if [[ $host != all ]]
539	then
540	[[ $remote_host != $host ]] && continue
541	fi
542	host_found=true
543	condition1=`echo $remote_host_string \| cut -d" " -s -f2`
544	if [[ $condition1 = $remote_host ]]
545	then
546	condition1=""
547	else
548	condition2=`echo $remote_host_string \| cut -d" " -s -f3`
549	fi
550
551	if [[ $block_conditions != none ]]
552	then
553	if [[ "$condition1" != "$block_condition1" \|\| "$condition2" != "$block_condition2" ]]
554	then
555	continue
556	fi
557	block_conditions_found=true
558	fi
559
560	modules=""
561	netcdf_inc=""
562	netcdf_lib=""
563	make_options=""
564
565	# IP-ADRESSE DES REMOTE-RECHNERS BESTIMMEN
566	case $remote_host in
567	(lckordi) remote_adress=210.219.61.8;;
568	(lcmuk) remote_addres=130.75.105.2;;
569	(lcrte) remote_addres=133.5.185.60;;
570	(lcsb) remote_adress=147.46.30.151;;
571	(lcsgib) remote_addres=130.73.232.102;;
572	(lcsgih) remote_addres=130.75.4.101;;
573	(lck) remote_addres=165.132.26.61;;
574	(lckiaps) remote_addres=118.128.66.223;;
575	(lctit) remote_addres=10.1.6.170;;
576	(lcxe6) remote_addres=129.177.20.113;;
577	(lcxt5m) remote_addres=193.166.211.144;;
578	(decalpha) remote_addres=165.132.26.56;;
579	(ibmh) remote_addres=136.172.40.15;;
580	(ibmkisti) remote_addres=150.183.146.24;;
581	(ibmku) remote_addres=133.5.4.129;;
582	(ibms) remote_addres=150.183.5.101;;
583	(ibmy) remote_addres=165.132.26.58;;
584	(nech) remote_addres=136.172.44.192;;
585	(neck) remote_addres=133.5.178.11;;
586	(ground.yonsei.ac.kr) remote_addres=134.75.155.33;;
587	(*) if [[ $local_host != $remote_host ]]
588	then
589	printf "\n +++ remote host \"$remote_host\" unknown";
590	printf "\n please inform PALM group support!"
591	locat=remote_host; exit
592	fi;;
593	esac
594
595
596	# REMOTE-USERNAMEN ERMITTELN
597	line=""
598	found=false
599	grep "$remote_host_string" $config_file \| grep "%remote_username" > $tmp_mbuild
600	while read line1
601	do
602
603	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
604	then
605	line="$line1"
606	fi
607
608	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
609	then
610	remote_username=`echo $line \| cut -d" " -s -f2`
611	found=true
612	fi
613
614	done < $tmp_mbuild
615
616	if [[ $found = false ]]
617	then
618	printf "\n +++ no remote username found in configuration file"
619	printf "\n for \"$remote_host_string\" "
620	locat=config_file; exit
621	fi
622
623
624	# REMOTE-QUELLTEXTPFAD ERMITTELN
625	line=""
626	remote_source_path=""
627	grep "$remote_host_string" $config_file \| grep "%source_path" > $tmp_mbuild
628	while read line1
629	do
630
631	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
632	then
633	line="$line1"
634	fi
635
636	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
637	then
638	remote_source_path=`echo $line \| cut -d" " -s -f2`
639	fi
640
641	done < $tmp_mbuild
642
643	if [[ "$remote_source_path" = "" ]]
644	then
645	if [[ "$global_source_path" != "" ]]
646	then
647	remote_source_path=$global_source_path
648	else
649	printf "\n +++ no source path found in configuration file"
650	printf "\n for \"$remote_host_string\" "
651	locat=config_file; exit
652	fi
653	fi
654
655	remote_ud=${remote_source_path}/../UTIL
656	remote_ud=$(eval echo $remote_ud)
657
658
659	# REMOTE-PFAD FUER MAKE-DEPOSITORY ERMITTELN
660	remote_md=""
661	line=""
662	grep "$remote_host_string" $config_file \| grep "%depository_path" > $tmp_mbuild
663	while read line1
664	do
665
666	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
667	then
668	line="$line1"
669	fi
670
671	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
672	then
673	remote_md=`echo $line \| cut -d" " -s -f2`
674	fi
675
676	done < $tmp_mbuild
677
678	if [[ "$remote_md" = "" ]]
679	then
680	if [[ "$global_depository_path" != "" ]]
681	then
682	remote_md=$global_depository_path
683	else
684	printf "\n +++ no depository path found in configuration file"
685	printf "\n for \"$remote_host_string\" "
686	printf "\n please set \"\%depository_path\" in configuration file"
687	locat=config_file; exit
688	fi
689	fi
690
691	remote_md=$(eval echo $remote_md)
692	block=""
693	[[ "$condition1" != "" ]] && block=_$condition1
694	[[ "$condition2" != "" ]] && block=${block}_$condition2
695	remote_md=${remote_md}$block
696
697
698	# COMPILERNAMEN ERMITTELN
699	line=""
700	found=false
701	grep "$remote_host_string" $config_file \| grep "%compiler_name " > $tmp_mbuild
702	while read line1
703	do
704
705	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
706	then
707	line="$line1"
708	fi
709
710	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
711	then
712	compiler_name=`echo $line \| cut -d" " -s -f2`
713	found=true
714	fi
715
716	done < $tmp_mbuild
717
718	if [[ $found = false ]]
719	then
720	printf "\n +++ no compiler name found in configuration file"
721	printf "\n for \"$remote_host_string\" "
722	locat=config_file; exit
723	fi
724
725
726	# BEI BENUTZUNG EINES PARALLELEN COMPILERS MUSS AUCH EIN
727	# SERIELLER COMPILERNAME ERMITTELT WERDEN
728	if [[ $(echo $remote_host_string \| grep -c parallel) = 1 ]]
729	then
730	line=""
731	found=false
732	grep "$remote_host_string" $config_file \| grep "%compiler_name_ser" > $tmp_mbuild
733	while read line1
734	do
735
736	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
737	then
738	line="$line1"
739	fi
740
741	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
742	then
743	compiler_name_ser=`echo $line \| cut -d" " -s -f2`
744	found=true
745	fi
746
747	done < $tmp_mbuild
748
749	if [[ $found = false ]]
750	then
751	printf "\n +++ no serial compiler name found in configuration file"
752	printf "\n for \"$remote_host_string\" "
753	locat=config_file; exit
754	fi
755	else
756	compiler_name_ser=$compiler_name
757	fi
758
759
760
761	# PRAEPROZESSOR-OPTIONEN/DIREKTIVEN ERMITTELN
762	line=""
763	found=false
764	grep "$remote_host_string" $config_file \| grep "%cpp_options" > $tmp_mbuild
765	while read line1
766	do
767
768	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
769	then
770	line="$line1"
771	fi
772
773	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
774	then
775	# EVENTUELLE DOPPELPUNKTE AUS OPTIONSSTRING ENTFERNEN
776	cpp_options=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
777	found=true
778	fi
779
780	done < $tmp_mbuild
781
782	if [[ $found = false ]]
783	then
784	printf "\n +++ no preprocessor options found in configuration file"
785	printf "\n for \"$remote_host_string\" "
786	locat=config_file; exit
787	fi
788
789
790	# RECHNERSPEZIFISCHE CPP-DIREKTIVEN HINZUFUEGEN
791	for string in $remote_host_string
792	do
793	if [[ $(echo $remote_host \| cut -c1-2) = lc && $(echo $string \| cut -c1-2) = lc ]]
794	then
795	cpp_options="$cpp_options -D__lc "
796	elif [[ $(echo $remote_host \| cut -c1-3) = ibm && $(echo $string \| cut -c1-3) = ibm ]]
797	then
798	cpp_options="${cpp_options},-D__ibm"
799	elif [[ $(echo $remote_host \| cut -c1-3) = nec && $(echo $string \| cut -c1-3) = nec ]]
800	then
801	cpp_options="${cpp_options} -D__nec"
802	else
803	if [[ $(echo $remote_host \| cut -c1-3) = ibm ]]
804	then
805	cpp_options="${cpp_options},-D__$string"
806	else
807	cpp_options="$cpp_options -D__$string "
808	fi
809	fi
810	done
811
812
813
814	# NETCDF-OPTIONEN ERMITTELN
815	line=""
816	grep "$remote_host_string" $config_file \| grep "%netcdf_inc" > $tmp_mbuild
817	while read line1
818	do
819
820	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
821	then
822	line="$line1"
823	fi
824
825	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
826	then
827	# EVENTUELLE DOPPELPUNKTE AUS OPTIONSSTRING ENTFERNEN
828	netcdf_inc=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
829	fi
830
831	done < $tmp_mbuild
832
833	line=""
834	grep "$remote_host_string" $config_file \| grep "%netcdf_lib" > $tmp_mbuild
835	while read line1
836	do
837
838	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
839	then
840	line="$line1"
841	fi
842
843	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
844	then
845	# EVENTUELLE DOPPELPUNKTE AUS OPTIONSSTRING ENTFERNEN
846	netcdf_lib=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
847	fi
848
849	done < $tmp_mbuild
850
851
852
853	# get make options
854	line=""
855	found=false
856	grep "$remote_host_string" $config_file \| grep "%mopts" > $tmp_mbuild
857	while read line1
858	do
859
860	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
861	then
862	line="$line1"
863	fi
864
865	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
866	then
867	# remove colons from directive string
868	make_options=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
869
870	fi
871
872	done < $tmp_mbuild
873
874
875
876	# COMPILEROPTIONEN ERMITTELN
877	line=""
878	found=false
879	grep "$remote_host_string" $config_file \| grep "%fopts" > $tmp_mbuild
880	while read line1
881	do
882
883	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
884	then
885	line="$line1"
886	fi
887
888	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
889	then
890	# EVENTUELLE DOPPELPUNKTE AUS DIREKTIVENSTRING ENTFERNEN
891	compiler_options=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
892	found=true
893
894	# NETCDF-INCLUDEVERZEICHNIS HINZUFUEGEN
895	compiler_options="$compiler_options $netcdf_inc"
896	fi
897
898	done < $tmp_mbuild
899
900	if [[ $found = false ]]
901	then
902	printf "\n +++ no compiler options found in configuration file"
903	printf "\n for \"$remote_host_string\" "
904	locat=config_file; exit
905	fi
906
907
908	# get login init commands, "::" is replacing a space
909	line=""
910	grep "$remote_host_string" $config_file \| grep "%login_init_cmd" > $tmp_mbuild
911	while read line1
912	do
913
914	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
915	then
916	line="$line1"
917	fi
918
919	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
920	then
921	# EVENTUELLE DOPPELPUNKTE AUS DIREKTIVENSTRING ENTFERNEN
922	init_cmds=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
923	fi
924	init_cmds="${init_cmds};"
925	done < $tmp_mbuild
926
927
928	# get modules to be loaded
929	line=""
930	grep "$remote_host_string" $config_file \| grep "%modules" > $tmp_mbuild
931	while read line1
932	do
933
934	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
935	then
936	line="$line1"
937	fi
938
939	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
940	then
941	# EVENTUELLE DOPPELPUNKTE AUS DIREKTIVENSTRING ENTFERNEN
942	modules=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
943	fi
944
945	done < $tmp_mbuild
946
947
948	# LADER-OPTIONEN ERMITTELN
949	line=""
950	found=false
951	grep "$remote_host_string" $config_file \| grep "%lopts" > $tmp_mbuild
952	while read line1
953	do
954
955	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
956	then
957	line="$line1"
958	fi
959
960	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
961	then
962	# EVENTUELLE DOPPELPUNKTE AUS DIREKTIVENSTRING ENTFERNEN
963	loader_options=`echo $line \| cut -d" " -s -f2 \| sed 's/::/%DUM%/g' \| sed 's/:/ /g' \| sed 's/%DUM%/:/g'`
964	found=true
965
966	# NETCDF-LIBRARY HINZUFUEGEN
967	loader_options="$loader_options $netcdf_lib"
968	fi
969
970	done < $tmp_mbuild
971
972	if [[ $found = false ]]
973	then
974	printf "\n +++ no loader options found in configuration file"
975	printf "\n for \"$remote_host_string\" "
976	locat=config_file; exit
977	fi
978
979
980	printf "\n\n#------------------------------------------------------------------------# \n"
981	if [[ $remote_host = $local_host ]]
982	then
983	column1="remote_host:"; column2="$remote_host (= local host!)"
984	else
985	column1="remote_host:"; column2=$remote_host
986	fi
987	printf "\| $column1$column2 \| \n"
988	printf "\| \| \n"
989	column1="conditions:"; column2="$condition1 $condition2"
990	printf "\| $column1$column2 \| \n"
991	column1="make depository:"; column2=$remote_md
992	printf "\| $column1$column2 \| \n"
993	line=$(echo "$remote_md" \| cut -c51-)
994	while [[ "$line" != "" ]]
995	do
996	column1=""
997	column2=$line
998	printf "\| $column1$column2 \| \n"
999	line=$(echo "$line" \| cut -c51-)
1000	done
1001	if [[ $compile_utility_programs = true ]]
1002	then
1003	column1="utility directory:"; column2=$remote_ud
1004	printf "\| $column1$column2 \| \n"
1005	fi
1006	column1="username:"; column2=$remote_username
1007	printf "\| $column1$column2 \| \n"
1008	column1="addres:"; column2=$remote_addres
1009	printf "\| $column1$column2 \| \n"
1010	column1="compiler:"; column2=$compiler_name
1011	printf "\| $column1$column2 \| \n"
1012	if [[ $compile_utility_programs = true ]]
1013	then
1014	column1="serial compiler:"; column2=$compiler_name_ser
1015	printf "\| $column1$column2 \| \n"
1016	fi
1017	if [[ "$make_options" != "" ]]
1018	then
1019	column1="make options:"; column2=$make_options
1020	printf "\| $column1$column2 \| \n"
1021	fi
1022	column1="cpp options:"; column2=$cpp_options
1023	printf "\| $column1$column2 \| \n"
1024	line=$(echo "$cpp_options" \| cut -c51-)
1025	while [[ "$line" != "" ]]
1026	do
1027	column1=""
1028	column2=$line
1029	printf "\| $column1$column2 \| \n"
1030	line=$(echo "$line" \| cut -c51-)
1031	done
1032	column1="compiler options:"; column2=$compiler_options
1033	printf "\| $column1$column2 \| \n"
1034	line=$(echo "$compiler_options" \| cut -c51-)
1035	while [[ "$line" != "" ]]
1036	do
1037	column1=""
1038	column2=$line
1039	printf "\| $column1$column2 \| \n"
1040	line=$(echo "$line" \| cut -c51-)
1041	done
1042	column1="loader options:"; column2=$loader_options
1043	printf "\| $column1$column2 \| \n"
1044	line=$(echo "$loader_options" \| cut -c51-)
1045	while [[ "$line" != "" ]]
1046	do
1047	column1=""
1048	column2=$line
1049	printf "\| $column1$column2 \| \n"
1050	line=$(echo "$line" \| cut -c51-)
1051	done
1052	if [[ $modules != "" ]]
1053	then
1054	column1="modules to be load:"; column2=$modules
1055	printf "\| $column1$column2 \| \n"
1056	line=$(echo "$modules" \| cut -c51-)
1057	while [[ "$line" != "" ]]
1058	do
1059	column1=""
1060	column2=$line
1061	printf "\| $column1$column2 \| \n"
1062	line=$(echo "$line" \| cut -c51-)
1063	done
1064	fi
1065	printf "#------------------------------------------------------------------------# \n"
1066
1067	if [[ $silent = false ]]
1068	then
1069	answer=dummy
1070	printf "\n\n"
1071	while [[ "$answer" != y && "$answer" != Y && "$answer" != c && "$answer" != C && "$answer" != s && "$answer" != S && "$answer" != a && "$answer" != A ]]
1072	do
1073	printf " >>> continue (y(es)/c(ontinue)/a(bort)/s(skip)) ? "
1074	read answer
1075	done
1076	if [[ $answer = a \|\| $answer = A ]]
1077	then
1078	locat=user_abort; exit
1079	fi
1080	if [[ $answer = c \|\| $answer = C ]]
1081	then
1082	silent=true
1083	fi
1084	if [[ $answer = s \|\| $answer = S ]]
1085	then
1086	continue
1087	fi
1088	fi
1089
1090
1091	# make on remote host
1092	if [[ $remote_host != $local_host ]]
1093	then
1094	if [[ $compile_utility_programs = false ]]
1095	then
1096
1097	# AKTUELLE QUELLTEXTVERSION INS REMOTE-QUELLTEXTVERZEICHNIS KOPIEREN
1098	# FALLS DIESES NOCH NICHT EXISTIERT, WIRD ES ERZEUGT
1099	echo " *** copying \"${mainprog}_sources.tar\" to \"${remote_addres}:${remote_md}/\" "
1100	if [[ $remote_host != lctit ]]
1101	then
1102	ssh ${remote_username}@${remote_addres} "[[ ! -d ${remote_md} ]] && (echo \" *** ${remote_md} will be created\"; mkdir -p ${remote_md})"
1103	else
1104	# TIT ERLAUBT NUR DIE AUSFï¿œHRUNG GANZ BESTIMMTER KOMMANDOS
1105	# MIT SSH, DESHALB AUFRUF PER PIPE
1106	print "[[ ! -d ${remote_md} ]] && (echo \" *** ${remote_md} will be created\"; mkdir -p ${remote_md})" \| ssh ${remote_username}@${remote_addres} 2>&1
1107	fi
1108	if [[ $local_host = decalpha ]]
1109	then
1110	# DECALPHA BENUTZT BEI NICHTANGABE DES VOLLSTï¿œNDIGEN PFADES
1111	# IRGENDEIN ANDERES SCP (WAS NICHT FUNKTIONIERT). AUSSERDEM
1112	# KOENNEN DOLLAR-ZEICHEN NICHT BENUTZT WERDEN
1113	remote_md=`echo $remote_md \| sed 's/\$HOME\///'`
1114	/bin/scp ${local_source_path}/${mainprog}_sources.tar ${remote_username}@${remote_addres}:${remote_md}/${mainprog}_sources.tar
1115	else
1116	scp ${local_source_path}/${mainprog}_sources.tar ${remote_username}@${remote_addres}:${remote_md}/${mainprog}_sources.tar
1117	fi
1118
1119
1120
1121	# FALLS VORHANDEN, LETZTE VERSION AUF DEM REMOTE-RECHNER AUSPACKEN
1122	echo " *** untar previous update on remote host, if existing"
1123	if [[ $remote_host != lctit ]]
1124	then
1125	ssh ${remote_username}@${remote_addres} "cd ${remote_md}; [[ -f ${mainprog}_current_version.tar ]] && tar -xf ${mainprog}_current_version.tar"
1126	else
1127	# TIT ERLAUBT NUR DIE AUSFï¿œHRUNG GANZ BESTIMMTER KOMMANDOS
1128	# MIT SSH, DESHALB AUFRUF PER PIPE
1129	print "cd ${remote_md}; [[ -f ${mainprog}_current_version.tar ]] && tar -xf ${mainprog}_current_version.tar" \| ssh ${remote_username}@${remote_addres} 2>&1
1130	fi
1131
1132
1133	# AKTUELLE QUELLTEXTVERSION AUF REMOTE-RECHNER AUSPACKEN
1134	echo " *** untar actual sources on remote host"
1135	if [[ $remote_host != lctit ]]
1136	then
1137	ssh ${remote_username}@${remote_addres} "cd ${remote_md}; tar -xf ${mainprog}_sources.tar"
1138	else
1139	# TIT ERLAUBT NUR DIE AUSFï¿œHRUNG GANZ BESTIMMTER KOMMANDOS
1140	# MIT SSH, DESHALB AUFRUF PER PIPE
1141	print "cd ${remote_md}; tar -xf ${mainprog}_sources.tar" \| ssh ${remote_username}@${remote_addres} 2>&1
1142	fi
1143
1144
1145	# MAKE MIT ZUVOR ERMITTELTEN OPTIONEN AUF REMOTE RECHNER AUSFUEHREN
1146	# KOMMANDOUEBERGABE AN SSH PER PIPE, DA SO DIE SYSTEM- UND
1147	# BENUTZERPROFILE VOLLSTAENDIG AUSGEFUEHRT WERDEN (SONST FEHLEN MAKE
1148	# Z.B. DIE PFADE ZUM COMPILER)
1149	echo " *** execute \"make\" on remote host"
1150
1151
1152	# generate make call with make options
1153	if [[ $remote_host = nech ]]
1154	then
1155	make_call_string="sxmake $make_options PROG=$mainprog F90=$compiler_name COPT=\"$cpp_options\" F90FLAGS=\"$compiler_options\" LDFLAGS=\"$loader_options\" "
1156	else
1157	make_call_string="make $make_options PROG=$mainprog F90=$compiler_name COPT=\"$cpp_options\" F90FLAGS=\"$compiler_options\" LDFLAGS=\"$loader_options\" "
1158	fi
1159
1160	# generate command to load modules, if modules are given
1161	if [[ "$modules" != "" ]]
1162	then
1163	if [[ $remote_host = lctit ]]
1164	then
1165	module_calls=". $modules"
1166	else
1167	module_calls="module load ${modules};"
1168	fi
1169
1170	# bugfix for wrong netcdf module
1171	if [[ $remote_host = lcsgib \|\| $remote_host = lcsgih ]]
1172	then
1173	if [[ $(echo $module_calls \| grep -c netcdf/3.6.3-intel) != 0 ]]
1174	then
1175	module_calls="$module_calls export LD_LIBRARY_PATH=/sw/dataformats/netcdf/3.6.3-intel/lib:\$LD_LIBRARY_PATH;"
1176	fi
1177	fi
1178	else
1179	module_calls=""
1180	fi
1181
1182	if [[ $remote_host = ibmkisti \|\| $remote_host = ibms \|\| $remote_host = ibmy ]]
1183	then
1184
1185	ssh ${remote_username}@${remote_addres} "$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
1186
1187	elif [[ $remote_host = ibmh ]]
1188	then
1189
1190	print "$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_addres} 2>&1 \| tee ${remote_host}_last_make_protokoll
1191
1192	elif [[ $remote_host = lcsgib \|\| $remote_host = lcsgih ]]
1193	then
1194	# print ". /usr/share/modules/init/bash; $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_addres} 2>&1 \| tee ${remote_host}_last_make_protokoll
1195	print "$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_addres} 2>&1 \| tee ${remote_host}_last_make_protokoll
1196
1197	elif [[ $remote_host = lctit ]]
1198	then
1199
1200	echo " " > ${remote_host}_last_make_protokoll
1201	while [[ $(cat ${remote_host}_last_make_protokoll \| grep -c "Forwarding to N1GE") = 0 ]]
1202	do
1203	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
1204	done
1205
1206	elif [[ $remote_host = lcxe6 ]]
1207	then
1208
1209	ssh ${remote_username}@${remote_addres} "$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
1210
1211	else
1212
1213	print "$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_addres} 2>&1 \| tee ${remote_host}_last_make_protokoll
1214
1215	fi
1216
1217	if [[ $(grep -c MAKE_ERROR ${remote_host}_last_make_protokoll) != 0 ]]
1218	then
1219	printf "\a\n +++ error(s) occurred during compiling or linking on host \"$remote_host\" "
1220	if [[ $silent = false ]]
1221	then
1222	answer=dummy
1223	printf "\n"
1224	while [[ "$answer" != c && "$answer" != k ]]
1225	do
1226	printf " >>> continue / list errors / kill mbuild (c/l/k) ? "
1227	read answer
1228	if [[ "$answer" = l ]]
1229	then
1230	more ${remote_host}_last_make_protokoll
1231	fi
1232	done
1233	if [[ $answer = k ]]
1234	then
1235	locat=user_abort; exit
1236	fi
1237	fi
1238	fi
1239
1240
1241
1242	# NEUE VERSION AUF REMOTE-RECHNER ZUSAMMENPACKEN
1243	printf "\n *** tar update on remote host ..."
1244	if [[ $remote_host != lctit ]]
1245	then
1246	ssh ${remote_username}@${remote_addres} "cd ${remote_md}; chmod u+w ; tar -cf ${mainprog}_current_version.tar ${mainprog} .f90 .o .mod"
1247	else
1248	# TIT ERLAUBT NUR DIE AUSFï¿œHRUNG GANZ BESTIMMTER KOMMANDOS
1249	# MIT SSH, DESHALB AUFRUF PER PIPE
1250	print "cd ${remote_md}; chmod u+w ; tar -cf ${mainprog}_current_version.tar ${mainprog} .f90 .o .mod" \| ssh ${remote_username}@${remote_addres} 2>&1
1251	fi
1252
1253
1254	# AKTUELLES VERSIONSVERZEICHNIS AUF REMOTE-RECHNER BEREINIGEN
1255	# printf "\n *** \"make clean\" on remote host ..."
1256	# ssh ${remote_username}@${remote_addres} "cd ${remote_md}; make clean; rm ${mainprog}_sources.tar; rm *.f90 Makefile"
1257	# printf "\n"
1258
1259
1260
1261
1262	# GLEICHE AKTIONEN FUER DIE UTILITY-PROGRAMME DURCHFUEHREN
1263	# AKTUELLE QUELLTEXTVERSION INS REMOTE-QUELLTEXTVERZEICHNIS KOPIEREN
1264	# FALLS DIESES NOCH NICHT EXISTIERT, WIRD ES ERZEUGT
1265	elif [[ $compile_utility_programs = true ]]
1266	then
1267
1268	printf "\n\n"
1269	echo " *** copying scripts and utility programs to \"${remote_addres}:${remote_ud}/\" "
1270	cd ${local_source_path}/../SCRIPTS
1271
1272	if [[ $remote_host != lctit ]]
1273	then
1274	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)"
1275	else
1276	# TIT ERLAUBT NUR DIE AUSFUEHRUNG GANZ BESTIMMTER KOMMANDOS
1277	# MIT SSH, DESHALB AUFRUF PER PIPE
1278	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
1279	fi
1280
1281	# KOPIEREN DER SCRIPTE
1282	if [[ $local_host = decalpha ]]
1283	then
1284	# DECALPHA BENUTZT BEI NICHTANGABE DES VOLLSTAENDIGEN PFADES
1285	# IRGENDEIN ANDERES SCP (WAS NICHT FUNKTIONIERT). AUSSERDEM
1286	# KOENNEN DOLLAR-ZEICHEN NICHT BENUTZT WERDEN
1287	remote_ud=`echo $remote_ud \| sed 's/\$HOME\///'`
1288	/bin/scp batch_scp mbuild mrun process_dvr_output .dvrserver.config subjob batch_nc2vdf nc2vdf nc2vdf.ncl nc2vdf.config ${remote_username}@${remote_addres}:${remote_ud}/../SCRIPTS > /dev/null
1289	else
1290	scp batch_scp mbuild mrun process_dvr_output .dvrserver.config subjob batch_nc2vdf nc2vdf nc2vdf.ncl nc2vdf.config ${remote_username}@${remote_addres}:${remote_ud}/../SCRIPTS > /dev/null
1291	fi
1292
1293	cd - > /dev/null
1294	cd ${local_source_path}/../UTIL
1295
1296
1297	# KOPIEREN DER UTILITY-PROGRAMME
1298	if [[ $local_host = decalpha ]]
1299	then
1300	# DECALPHA BENUTZT BEI NICHTANGABE DES VOLLSTï¿œNDIGEN PFADES
1301	# IRGENDEIN ANDERES SCP (WAS NICHT FUNKTIONIERT). AUSSERDEM
1302	# KOENNEN DOLLAR-ZEICHEN NICHT BENUTZT WERDEN
1303	remote_ud=`echo $remote_ud \| sed 's/\$HOME\///'`
1304	/bin/scp Makefile *.f90 ${remote_username}@${remote_addres}:${remote_ud} > /dev/null
1305	else
1306	scp Makefile *.f90 ${remote_username}@${remote_addres}:${remote_ud} > /dev/null
1307	fi
1308
1309
1310
1311	# MAKE MIT ZUVOR ERMITTELTEN OPTIONEN AUF REMOTE RECHNER AUSFUEHREN
1312	# KOMMANDOUEBERGABE AN SSH PER PIPE, DA SO DIE SYSTEM- UND
1313	# BENUTZERPROFILE VOLLSTAENDIG AUSGEFUEHRT WERDEN (SONST FEHLEN MAKE
1314	# Z.B. DIE PFADE ZUM COMPILER)
1315	echo " *** execute \"make\" on remote host"
1316
1317	if [[ $remote_host = nech ]]
1318	then
1319	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\" "
1320	else
1321	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\" "
1322	fi
1323
1324	# generate command to load modules, if modules are given
1325	if [[ "$modules" != "" ]]
1326	then
1327	if [[ $remote_host = lctit ]]
1328	then
1329	module_calls=". $modules"
1330	else
1331	module_calls="module load ${modules};"
1332	fi
1333
1334	# bugfix for wrong netcdf module
1335	if [[ $remote_host = lcsgib \|\| $remote_host = lcsgih ]]
1336	then
1337	if [[ $(echo $module_calls \| grep -c netcdf/3.6.3-intel) != 0 ]]
1338	then
1339	module_calls="$module_calls export LD_LIBRARY_PATH=/sw/dataformats/netcdf/3.6.3-intel/lib:\$LD_LIBRARY_PATH;"
1340	fi
1341	fi
1342	else
1343	module_calls=""
1344	fi
1345
1346
1347	if [[ $remote_host = ibms \|\| $remote_host = ibmy ]]
1348	then
1349
1350	ssh ${remote_username}@${remote_addres} "$init_cmds $module_calls cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR"
1351
1352	elif [[ $remote_host = ibmh ]]
1353	then
1354
1355	print "$init_cmds $module_calls export OBJECT_MODE=64; cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" \| ssh ${remote_username}@${remote_addres}
1356
1357	elif [[ $remote_host = lctit ]]
1358	then
1359
1360	echo " " > ${remote_host}_last_make_protokoll
1361	while [[ $(cat ${remote_host}_last_make_protokoll \| grep -c "Forwarding to N1GE") = 0 ]]
1362	do
1363	print "$init_cmds $module_calls cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" \| ssh ${remote_username}@${remote_addres} 2>&1 \| tee ${remote_host}_last_make_protokoll
1364	done
1365
1366	elif [[ $remote_host = lcxe6 ]]
1367	then
1368
1369	ssh ${remote_username}@${remote_addres} "$init_cmds $module_calls cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" 2>&1 \| tee ${remote_host}_last_make_protokoll
1370
1371	else
1372
1373	print "$init_cmds $module_calls cd ${remote_ud}; $make_call_string; [[ \$? != 0 ]] && echo MAKE_ERROR" \| ssh ${remote_username}@${remote_addres} 2>&1 \| tee ${remote_host}_last_make_protokoll
1374
1375	fi
1376
1377	fi # ENDE UEBERSETZUNG DER UTILITY-PROGRAMME
1378
1379	rm -rf ${remote_host}_last_make_protokoll
1380
1381	# make on local host
1382	else
1383
1384	# workaround for lcxe6
1385	if [[ $remote_host = lcxe6 ]]
1386	then
1387
1388	eval $init_cmds
1389
1390	fi
1391
1392	# first load modules, if given
1393	if [[ "$modules" != "" ]]
1394	then
1395	if [[ $remote_host = lctit ]]
1396	then
1397	. $modules
1398	else
1399	module load ${modules}
1400	fi
1401	fi
1402
1403
1404	if [[ $compile_utility_programs = false ]]
1405	then
1406
1407	# DEPOSITORY VERZEICHNIS ERZEUGEN, FALLS NOCH NICHT VORHANDEN
1408	eval remote_md=$remote_md
1409	if [[ ! -d $remote_md ]]
1410	then
1411	if mkdir $remote_md
1412	then
1413	printf "\n\n *** directory for make depository:"
1414	printf "\n $remote_md"
1415	printf "\n was created\n"
1416	else
1417	printf "\n +++ directory for make depository:"
1418	printf "\n $remote_md"
1419	printf "\n cannot be created"
1420	locat=local_depository_path; exit
1421	fi
1422	fi
1423
1424	# QUELLTEXT-DATEIEN AUS REPOSITORY INS DEPOSITORY KOPIEREN
1425	echo " "
1426	echo " *** updating sources in $remote_md"
1427	cd $remote_md
1428	cp $local_source_path/${mainprog}_sources.tar .
1429	tar xf ${mainprog}_sources.tar
1430
1431	# MAKE MIT ZUVOR ERMITTELTEN OPTIONEN AUF LOKALEM RECHNER AUSFUEHREN
1432	echo " "
1433	echo " *** execute \"make\" on local host"
1434
1435	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
1436
1437	if [[ $? != 0 ]]
1438	then
1439	printf "\a\n +++ error(s) occurred during compiling or linking on host \"$remote_host\" "
1440	if [[ $silent = false ]]
1441	then
1442	answer=dummy
1443	printf "\n"
1444	while [[ "$answer" != c && "$answer" != k ]]
1445	do
1446	printf " >>> continue / list errors / kill mbuild (c/l/k) ? "
1447	read answer
1448	if [[ "$answer" = l ]]
1449	then
1450	more ${remote_host}_last_make_protokoll
1451	fi
1452	done
1453	if [[ $answer = k ]]
1454	then
1455	locat=user_abort; exit
1456	fi
1457	fi
1458	fi
1459
1460
1461	# TAR NEW VERSION ON LOCAL HOST
1462	printf "\n *** tar update on local host ..."
1463	tar -cf ${mainprog}_current_version.tar .$suf .o *.mod
1464
1465
1466	# COMPILE THE UTILITY PROGRAMS
1467	elif [[ $compile_utility_programs = true ]]
1468	then
1469	printf "\n\n"
1470	echo " *** compiling the utility programs ..."
1471	cd ${local_source_path}/../UTIL
1472
1473	# TOUCH FILES IN ORDER TO FORCE COMPILATION FOR EVERY BLOCK
1474	touch *.f90
1475	make $make_options BLOCK=$block F90=$compiler_name F90_SER=$compiler_name_ser COPT="$cpp_options" F90FLAGS="$compiler_options" LDFLAGS="$loader_options"
1476
1477	# CHECK IF QMAKE IS AVAILABLE AND COMPILE MRUNGUI
1478	if [[ $util_compiled_localhost == false ]]
1479	then
1480	printf "\n\n"
1481	echo " *** compiling the mrun GUI"
1482	if which qmake >/dev/null; then
1483	cd mrungui
1484	touch *
1485	qmake
1486	make
1487	make clean
1488	rm Makefile
1489	cd ..
1490	else
1491	echo " +++ no qmake found. The (optional) GUI will not be compiled."
1492	fi
1493
1494	# COMPILE CHECK_NAMELIST_FILES (ONLY FOR ONE BRANCH on LOCALHOST NEEDED)
1495
1496	printf "\n\n"
1497	echo " *** compiling check_namelist_files ..."
1498
1499	# GET CHECK OPTIONS
1500	line=""
1501	found=false
1502	grep "$remote_host_string" $config_file \| grep "%cpp_options" > $tmp_mbuild
1503	while read line1
1504	do
1505
1506	if [[ $(echo $line1 \| cut -d" " -s -f3-) = "$remote_host_string" ]]
1507	then
1508	line="$line1"
1509	fi
1510
1511	if [[ "$line" != "" && $(echo $line \| cut -c1) != "#" ]]
1512	then
1513	# EVENTUELLE DOPPELPUNKTE AUS OPTIONSSTRING UND ALLE -D ENTFERNEN
1514	line="$line "
1515	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'`
1516	found=true
1517	fi
1518
1519	done < $tmp_mbuild
1520	copts_check="$copts_check -D__check -D__parallel"
1521
1522	check_depository_path=${local_source_path}/../UTIL
1523	cd $check_depository_path
1524	mkdir check_tmp
1525	cp ${local_source_path}/${mainprog}_sources_check.tar ./check_tmp
1526	cd check_tmp
1527	tar -xf ${mainprog}_sources_check.tar
1528	rm -rf ${mainprog}_sources_check.tar
1529
1530	make -f Makefile_check $make_options F90=$compiler_name_ser COPT="$copts_check" F90FLAGS="$compiler_options"
1531	tar -cf check_namelist_files.tar Makefile_check check_namelist_files.x .f90 .o *.mod
1532	mv check_namelist_files.tar $check_depository_path
1533	mv check_namelist_files.x $PALM_BIN
1534	cd $check_depository_path
1535	rm -rf check_tmp
1536	util_compiled_localhost=true
1537	else
1538	cd $check_depository_path
1539	printf "\n\n"
1540	echo " *** skipped compilation of mrun GUI."
1541	printf "\n\n"
1542	echo " *** skipped compilation of check_namelist_files."
1543	fi
1544
1545	fi
1546	fi
1547	done
1548
1549
1550	if [[ $host_found = false ]]
1551	then
1552	if [[ $host = all ]]
1553	then
1554	printf "\n +++ no hosts found in configuration file"
1555	else
1556	printf "\n +++ host \"$host\" not found in configuration file"
1557	fi
1558	locat=config_file; exit
1559	fi
1560
1561	if [[ "$block_conditions" != none && $block_conditions_found = false ]]
1562	then
1563	printf "\n +++ block conditions \"$block_conditions\" not found for host \"$host\""
1564	fi
1565
1566
1567	# FINAL WORK
1568	rm -f hosts_found_in_config_file
1569	rm -f ${local_source_path}/${mainprog}_sources_check.tar
1570

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

Download in other formats:

| Impressum | ©Leibniz Universität Hannover |