Context Navigation

makelmdz_fcm @ 3599

Last change on this file since 3599 was 3598, checked in by jbclement, 16 hours ago
PEM: Correction of typos and minor bugs. JBC
File size: 28.4 KB

Line
1	#!/bin/bash
2	# $Id: makelmdz_fcm 1615 2012-02-10 15:42:26Z emillour $
3	# This is a script in Bash to compile the GCM and related tools
4	#
5	##set -x
6	set -e
7	########################################################################
8	# options par defaut pour la commande make
9	########################################################################
10
11	dim="96x72x19"
12	physique=lmd
13	filtre=filtrez
14	grille=reg
15	couple=false
16	veget=false
17	sisvat=false
18	rrtm=false
19	dust=false
20	strataer=false
21	chimie=false
22	chemistry=false
23	parallel=none
24	paramem="par"
25	compil_mod=prod
26	io=ioipsl
27	LIBPREFIX=""
28	cosp=false
29	bands=""
30	scatterers=""
31	job=1
32	full=''
33	libphy=false
34
35	arch_defined="FALSE"
36	arch_path="arch"
37	arch_default_path="arch"
38
39	LMDGCM=`/bin/pwd`
40	LIBOGCM=$LMDGCM/libo
41	LIBFGCM=$LMDGCM/libf
42	DYN_COMMON_PATH=$LIBFGCM/dyn3d_common
43	# path for optional packages, but default set to ".void_dir"
44	FILTRE_PATH=$LMDGCM/.void_dir
45	DYN_PHYS_PATH=$LMDGCM/.void_dir
46	DYN_PHYS_SUB_PATH=$LMDGCM/.void_dir
47	PHY_COMMON_PATH=$LMDGCM/.void_dir
48	RRTM_PATH=$LMDGCM/.void_dir
49	DUST_PATH=$LMDGCM/.void_dir
50	STRATAER_PATH=$LMDGCM/.void_dir
51	SISVAT_PATH=$LMDGCM/.void_dir
52	COSP_PATH=$LMDGCM/.void_dir
53	CHEM_PATH=$LMDGCM/.void_dir
54	CLOUD_PATH=$LMDGCM/.void_dir
55	MUPHY_PATH=$LMDGCM/.void_dir
56	AERONO_PATH=$LMDGCM/.void_dir
57	EVOLUTION_PATH=$LMDGCM/.void_dir
58	# Path to fcm utility:
59	##fcm_path=$LMDGCM/tools/fcm/bin
60	##fcm_path=/planeto/mturbet/planeto2-mturbet/FCM_V1.2/bin
61	fcm_path=$(dirname $(which fcm))
62
63	########################################################################
64	# Quelques initialisations de variables du shell.
65	########################################################################
66
67	CPP_KEY=""
68	INCLUDE_DIR=""
69	LIB=""
70	adjnt=""
71	COMPIL_FFLAGS="%PROD_FFLAGS"
72	PARA_FFLAGS=""
73	PARA_LD=""
74	EXT_SRC=""
75
76	########################################################################
77	# lecture des options de mymake
78	########################################################################
79
80	# Get the compilation command
81	compilation_command="$(basename $0) $@"
82
83	# Parse arguments and capture options
84	while (($# > 0))
85	do
86	case $1 in
87	"-h") cat <<fin
88	Usage :
89	makelmdz_fcm [options] -arch arch_name exec
90	[-h] : brief help
91	[-d [[IMx]JMx]LM] : IM, JM, LM are the dimensions in x, y, z (default: $dim)
92	[-s nscat] : (Generic) Number of radiatively active scatterers
93	[-b IRxVIS] : (Generic) Number of infrared (IR) and visible (VIS) bands for radiative transfer
94	[-p PHYS] : set of physical parametrizations (in libf/phyPHYS), (default: lmd)
95	[-prod / -dev / -debug] : compilation mode production (default) / developement / debug .
96	[-c false/MPI1/OMCT] : (Earth) coupling with ocean model : MPI1/OMCT/false (default: false)
97	[-v false/orchidee2.0/orchidee1.9/true] : (Earth) version of the vegetation model to include (default: false)
98	false : no vegetation model
99	orchidee2.0 : compile using ORCHIDEE 2.0 (or more recent version)
100	orchidee1.9 : compile using ORCHIDEE up to the version including OpenMP in ORCHIDEE : tag 1.9-1.9.5(version AR5)-1.9.6
101	true : (obsolete; for backward compatibility) use ORCHIDEE tag 1.9-1.9.6
102	[-chimie INCA/false] : (Earth) with INCA chemistry model or without (default: false)
103	[-cosp true/false] : (Earth) add the cosp model (default: false)
104	[-sisvat true/false] : (Earth) compile with/without sisvat package (default: false)
105	[-rrtm true/false] : (Earth) compile with/without rrtm package (default: false)
106	[-dust true/false] : (Earth) compile with/without the dust package by Boucher and co (default: false)
107	[-strataer true/false] : (Earth) compile with/without the strat aer package by Boucher and co (default: false)
108	[-parallel none/mpi/omp/mpi_omp] : parallelism (default: none) : mpi, openmp or mixted mpi_openmp
109	[-g GRI] : grid configuration in dyn3d/GRI_xy.h (default: reg, inclues a zoom)
110	[-io ioipsl/mix/xios] : Input/Output library (default: ioipsl)
111	[-include INCLUDES] : extra include path to add
112	[-cpp CPP_KEY] : additional preprocessing definitions
113	[-adjnt] : adjoint model, not operational ...
114	[-mem] : reduced memory dynamics (if in parallel mode)
115	[-filtre NOMFILTRE] : use filtre from libf/NOMFILTRE (default: filtrez)
116	[-link LINKS] : additional links with other libraries
117	[-j n] : active parallel compiling on ntask
118	[-full] : full (re-)compilation (from scratch)
119	[-libphy] : only compile physics package (no dynamics or main program)
120	[-fcm_path path] : path to the fcm tool (default: tools/fcm/bin)
121	[-ext_src path] : path to an additional set of routines to compile with the model
122	[-arch_path path] : path to architecture files (default: $arch_default_path)
123	-arch arch : target architecture
124	exec : executable to build
125	fin
126	exit;;
127
128	"-d")
129	dim=$2 ; shift ; shift ;;
130
131	"-p")
132	physique="$2" ; shift ; shift ;;
133
134	"-s")
135	scatterers=$2 ; shift ; shift ;;
136
137	"-b")
138	bands=$2 ; shift ; shift ;;
139
140	"-g")
141	grille="$2" ; shift ; shift ;;
142
143	"-c")
144	couple="$2" ; shift ; shift ;;
145
146	"-prod")
147	compil_mod="prod" ; shift ;;
148
149	"-dev")
150	compil_mod="dev" ; shift ;;
151
152	"-debug")
153	compil_mod="debug" ; shift ;;
154
155	"-io")
156	io="$2" ; shift ; shift ;;
157
158	"-v")
159	veget="$2" ; shift ; shift ;;
160
161	"-sisvat")
162	sisvat="$2" ; shift ; shift ;;
163
164	"-rrtm")
165	rrtm="$2" ; shift ; shift ;;
166
167	"-dust")
168	dust="$2" ; shift ; shift ;;
169
170	"-strataer")
171	strataer="$2" ; shift ; shift ;;
172
173	"-chimie")
174	chimie="$2" ; shift ; shift ;;
175
176	"-parallel")
177	parallel="$2" ; shift ; shift ;;
178
179	"-include")
180	INCLUDE_DIR="$INCLUDE_DIR -I$2" ; shift ; shift ;;
181
182	"-cpp")
183	CPP_KEY="$CPP_KEY $2" ; shift ; shift ;;
184
185	"-adjnt")
186	echo "not operational ... work to be done here ";exit 1
187	opt_dep="$opt_dep adjnt" ; adjnt="-ladjnt -ldyn3d "
188	optim="$optim -Dadj" ; shift ;;
189
190	"-cosp")
191	cosp="$2" ; shift ; shift ;;
192
193	"-mem")
194	paramem="mem" ; shift ;;
195
196	"-filtre")
197	filtre=$2 ; shift ; shift ;;
198
199	"-link")
200	LIB="$LIB $2" ; shift ; shift ;;
201
202	"-fcm_path")
203	fcm_path=$2 ; shift ; shift ;;
204
205	"-ext_src")
206	EXT_SRC=$2 ; shift ; shift ;;
207
208	"-j")
209	job=$2 ; shift ; shift ;;
210
211	"-full")
212	full="-full" ; shift ;;
213
214	"-libphy")
215	libphy="true" ; shift ;;
216
217	"-arch")
218	arch=$2 ; arch_defined="TRUE" ; shift ; shift ;;
219
220	"-arch_path")
221	arch_path=$2 ; arch_path_defined="TRUE"; shift ; shift ;;
222
223	*)
224	code="$1" ; shift ;;
225	esac
226	done
227
228	###############################################################
229	# path to fcm
230	###############################################################
231	# handle case when provided path to fcm was given as a relative
232	# path (from makelmdz_fcm script directory) and not an absolute path
233	if [[ ${fcm_path:0:1} != "/" ]] ; then
234	# prepend with makelmdz_fcm location
235	fcm_path=$(cd $(dirname $0) ; pwd)"/"${fcm_path}
236	fi
237
238	# add fcm_path to PATH
239	export PATH=${fcm_path}:${PATH}
240
241	echo "Path to fcm:"
242	echo ${fcm_path}
243
244	#################################
245	# setup arch.env and arch.path #
246	#################################
247	rm -f .void_file
248	echo > .void_file
249	rm -rf .void_dir
250	mkdir .void_dir
251
252	if [[ "$arch_defined" == "TRUE" ]]
253	then
254	rm -f arch.path
255	rm -f arch.env
256
257	if test -f $arch_path/arch-${arch}.path
258	then
259	ln -s $arch_path/arch-${arch}.path arch.path
260	elif test -f $arch_default_path/arch-${arch}.path
261	then
262	ln -s $arch_default_path/arch-${arch}.path arch.path
263	fi
264
265	if test -f $arch_path/arch-${arch}.env
266	then
267	ln -s $arch_path/arch-${arch}.env arch.env
268	elif test -f $arch_default_path/arch-${arch}.env
269	then
270	ln -s $arch_default_path/arch-${arch}.env arch.env
271	else
272	ln -s .void_file arch.env
273	fi
274	# source architecture PATH and ENV files
275	source arch.env
276	source arch.path
277	else
278	echo "You must define a target architecture"
279	exit 1
280	fi
281
282	########################################################################
283	# Definition des clefs CPP, des chemins des includes et modules
284	# et des libraries
285	########################################################################
286
287	if [[ "$compil_mod" == "prod" ]]
288	then
289	COMPIL_FFLAGS="%PROD_FFLAGS"
290	elif [[ "$compil_mod" == "dev" ]]
291	then
292	COMPIL_FFLAGS="%DEV_FFLAGS"
293	elif [[ "$compil_mod" == "debug" ]]
294	then
295	COMPIL_FFLAGS="%DEBUG_FFLAGS"
296	fi
297
298	phys_root=$physique
299	if [[ "${physique:0:3}" == "lmd" ]] ; then phys_root=lmd ; fi
300	if [[ "${physique:0:3}" == "mar" ]] ; then phys_root=mar ; fi
301	if [[ "${physique:0:4}" == "mars" ]] ; then phys_root=mars ; fi
302	if [[ "${physique:0:3}" == "std" ]] ; then phys_root=std ; fi
303	if [[ "${physique:0:5}" == "venus" ]] ; then phys_root=venus ; fi
304	if [[ "${physique:0:5}" == "titan" ]] ; then phys_root=titan ; fi
305	if [[ "${physique:0:3}" == "dev" ]] ; then phys_root=dev ; fi
306
307	if [[ "$physique" != "nophys" ]]
308	then
309	#We'll use some physics
310	CPP_KEY="$CPP_KEY CPP_PHYS"
311	if [[ "${phys_root}" == "lmd" ]]
312	then
313	#For lmd physics, default planet type is Earth
314	CPP_KEY="$CPP_KEY CPP_EARTH"
315	fi
316	# set physics common utilities path
317	PHY_COMMON_PATH="${LIBFGCM}/phy_common"
318	# set the dyn/phys interface path
319	DYN_PHYS_PATH="${LIBFGCM}/dynphy_lonlat"
320	DYN_PHYS_SUB_PATH="${LIBFGCM}/dynphy_lonlat/phy${phys_root}"
321	fi
322
323	if [[ "$filtre" == "filtrez" ]]
324	then
325	FILTRE_PATH=${LIBFGCM}/$filtre
326	fi
327
328	if [[ "$chimie" == "INCA" ]]
329	then
330	CPP_KEY="$CPP_KEY INCA"
331	INCLUDE_DIR="$INCLUDE_DIR -I${INCA_INCDIR}"
332	LIB="$LIB -L${INCA_LIBDIR} ${INCA_LIB}"
333	fi
334
335	if [[ "$couple" != "false" ]]
336	then
337	if [[ "$couple" == "MPI1" ]]
338	then
339	CPP_KEY="$CPP_KEY CPP_COUPLE"
340	export OASIS_INCDIR=$LMDGCM/../../prism/X64/build/lib/psmile.MPI1
341	export OASIS_LIBDIR=$LMDGCM/../../prism/X64/lib
342	INCLUDE_DIR="$INCLUDE_DIR -I${OASIS_INCDIR}"
343	LIB="$LIB -L${OASIS_LIBDIR} ${OASIS_LIB}"
344	else
345	CPP_KEY="$CPP_KEY CPP_COUPLE CPP_OMCT"
346	INCLUDE_DIR="$INCLUDE_DIR -I${OASIS_INCDIR}"
347	LIB="$LIB -L${OASIS_LIBDIR} ${OASIS_LIB}"
348	fi
349	fi
350
351	if [[ "$parallel" != "none" && \
352	( "$code" == "newstart" \|\| "$code" == "start2archive" ) ]]
353	then
354	echo "newstart or start2archive utilities should be run in serial!"
355	echo " Compile without -parallel [mpi\|omp\|mpi_omp] option!"
356	exit 1
357	fi
358
359	if [[ "$parallel" == "mpi" ]]
360	then
361	CPP_KEY="$CPP_KEY CPP_PARA CPP_MPI"
362	PARA_FFLAGS="%MPI_FFLAGS"
363	PARA_LD="%MPI_LD"
364	elif [[ "$parallel" == "omp" ]]
365	then
366	CPP_KEY="$CPP_KEY CPP_PARA CPP_OMP"
367	PARA_FFLAGS="%OMP_FFLAGS"
368	PARA_LD="%OMP_LD"
369	elif [[ "$parallel" == "mpi_omp" ]]
370	then
371	CPP_KEY="$CPP_KEY CPP_PARA CPP_MPI CPP_OMP"
372	PARA_FFLAGS="%MPI_FFLAGS %OMP_FFLAGS"
373	PARA_LD="%MPI_LD %OMP_LD"
374	fi
375
376	if [[ ( "$parallel" == "omp" \|\| "$parallel" == "mpi_omp" ) \
377	&& "$compil_mod" == "debug" ]]
378	then
379	echo "Usually, parallelization with OpenMP requires some optimization."
380	echo "We suggest switching to \"-dev\"."
381	fi
382
383	if [ "$veget" = "true" -o "$veget" = "orchidee1.9" -o "$veget" = "orchidee2.0" ]
384	then
385	#NB: option 'true': for backward compatibility. To be used with ORCHIDEE tag 1.9-1.9.6
386	# For this case, cpp flag ORCHIDEE_NOOPENMP must be added to the makelmdz_fcm arguments
387	# option orchidee1.9 : Compile with ORCHIDEE version up to the inclusion of OpenMP in ORCHIDEE : tag 1.9-1.9.5(version AR5)-1.9.6
388	INCLUDE_DIR="${INCLUDE_DIR} ${ORCHIDEE_INCDIR}"
389	CPP_KEY="$CPP_KEY CPP_VEGET"
390	# temporary, for Orchidee versions 1.9.* (before openmp activation)
391	if [[ "$veget" == "orchidee1.9" ]] ; then
392	CPP_KEY="$CPP_KEY ORCHIDEE_NOOPENMP"
393	fi
394	if [[ "$veget" == "orchidee2.0" ]] ; then
395	orch_libs="sechiba parameters stomate parallel orglob orchidee"
396	else
397	orch_libs="sechiba parameters stomate parallel orglob"
398	fi
399	LIB="${LIB} -L${ORCHIDEE_LIBDIR} ${ORCHIDEE_LIB}"
400	elif [[ "$veget" != "false" ]] ; then
401	echo "Option -v $veget does not exist"
402	echo "Use ./makelmdz_fcm -h for more information"
403	exit 1
404	fi
405
406	if [[ "$sisvat" == "true" ]]
407	then
408	CPP_KEY="$CPP_KEY CPP_SISVAT"
409	SISVAT_PATH="$LIBFGCM/%PHYS/sisvat"
410	fi
411
412	if [[ "$rrtm" == "true" ]]
413	then
414	CPP_KEY="$CPP_KEY CPP_RRTM"
415	RRTM_PATH="$LIBFGCM/%PHYS/rrtm"
416	fi
417
418	if [[ "$dust" == "true" ]]
419	then
420	CPP_KEY="$CPP_KEY CPP_Dust"
421	DUST_PATH="$LIBFGCM/%PHYS/Dust"
422	fi
423
424	if [[ "$strataer" == "true" ]]
425	then
426	CPP_KEY="$CPP_KEY CPP_StratAer"
427	STRATAER_PATH="$LIBFGCM/%PHYS/StratAer"
428	fi
429
430	if [[ $io == ioipsl ]]
431	then
432	CPP_KEY="$CPP_KEY CPP_IOIPSL"
433	INCLUDE_DIR="$INCLUDE_DIR ${IOIPSL_INCDIR}"
434	LIB="$LIB ${IOIPSL_LIBDIR} ${IOIPSL_LIB}"
435	elif [[ $io == mix ]]
436	then
437	# For now, xios implies also using ioipsl
438	CPP_KEY="$CPP_KEY CPP_IOIPSL CPP_XIOS"
439	INCLUDE_DIR="$INCLUDE_DIR ${IOIPSL_INCDIR} ${XIOS_INCDIR}"
440	LIB="$LIB ${IOIPSL_LIBDIR} ${IOIPSL_LIB} ${XIOS_LIBDIR} ${XIOS_LIB}"
441	elif [[ $io == xios ]]
442	then
443	# For now, xios implies also using ioipsl
444	CPP_KEY="$CPP_KEY CPP_IOIPSL CPP_XIOS CPP_IOIPSL_NO_OUTPUT"
445	INCLUDE_DIR="$INCLUDE_DIR ${IOIPSL_INCDIR} ${XIOS_INCDIR}"
446	LIB="$LIB ${IOIPSL_LIBDIR} ${IOIPSL_LIB} ${XIOS_LIBDIR} ${XIOS_LIB}"
447	fi
448
449	if [[ "$cosp" == "true" ]]
450	then
451	CPP_KEY="$CPP_KEY CPP_COSP"
452	COSP_PATH="$LIBFGCM/cosp"
453	# LIB="${LIB} -l${LIBPREFIX}cosp"
454	fi
455
456	# for Titan (but could be used by others as well), there is also "chimtitan"
457	if [[ -d ${LIBFGCM}/chim${physique} ]]
458	then
459	CHEM_PATH="${LIBFGCM}/chim${physique}"
460	INCLUDE_DIR="$INCLUDE_DIR -I${LIBFGCM}/chim${physique}"
461	fi
462
463	# for Titan add microphysics dependencies
464	if [[ -d ${LIBFGCM}/muphy${physique} ]] ; then
465	if ! [ `echo $CPP_KEY \| grep -c "OLD_COMPILO"` -gt 0 ] ; then
466	# add muphy{physique} to the list of files to compile.
467	MUPHY_PATH="${LIBFGCM}/muphy${physique}"
468	# For Titan as we embbed some libraries with CPP keys, we define them:
469	# -DPREC={32\|64\|80} real kind precision (32: simple, 64: double, 80: extended double)
470	# -DHAVE_NC_FTN=1 (mandatory: for support of NetCDF in lintnd).
471	CPP_KEY="$CPP_KEY PREC=64 HAVE_NC_FTN=1"
472	if [[ "${physique}" == "titan" ]] ; then
473	echo "Yaahh you're about to use YAMMS in a GCM..."
474	fi
475	fi
476	fi
477
478	# for Venus (but could be used by others as well), there is also "phyvenus/cloudvenus"
479	if [[ -d ${LIBFGCM}/phy${physique}/cloud${physique} ]]
480	then
481	CLOUD_PATH="${LIBFGCM}/phy${physique}/cloud${physique}"
482	INCLUDE_DIR="$INCLUDE_DIR -I${LIBFGCM}/phy${physique}/cloud${physique}"
483	fi
484
485	# for Mars (but could be used by others as well), there is also "aeronomars"
486	if [[ -d ${LIBFGCM}/aerono${physique} ]]
487	then
488	AERONO_PATH="${LIBFGCM}/aerono${physique}"
489	INCLUDE_DIR="$INCLUDE_DIR -I${LIBFGCM}/aerono${physique}"
490	fi
491
492	if [[ -d ${LIBFGCM}/evolution && "$code" == "pem" ]]
493	then
494	if [[ "$physique" == "std" ]]
495	then
496	CPP_KEY="$CPP_KEY CPP_STD"
497	fi
498	EVOLUTION_PATH="${LIBFGCM}/evolution"
499	INCLUDE="$INCLUDE -I${LIBFGCM}/evolution"
500	fi
501
502	if [[ -d ${LIBFGCM}/evolution && "$code" == "reshape_XIOS_output" ]]
503	then
504	if [[ "$physique" == "std" ]]
505	then
506	CPP_KEY="$CPP_KEY CPP_STD"
507	fi
508	EVOLUTION_PATH="${LIBFGCM}/evolution"
509	INCLUDE="$INCLUDE -I${LIBFGCM}/evolution"
510	fi
511
512
513	# NETCDF library include/library paths
514	INCLUDE_DIR="$INCLUDE_DIR ${NETCDF_INCDIR}"
515	LIB="$LIB ${NETCDF_LIBDIR} ${NETCDF_LIB}"
516
517	########################################################################
518	# calcul du nombre de dimensions
519	########################################################################
520
521
522	dim_full=$dim
523	dim=`echo $dim \| sed -e 's/[^0-9]/ /g'`
524	set $dim
525	dimc=$#
526	echo calcul de la dimension
527	echo dim $dim
528	echo dimc $dimc
529
530
531	########################################################################
532	# Gestion des dimensions du modele.
533	# on cree ou remplace le fichier des dimensions
534	########################################################################
535
536	cd $LIBFGCM/grid
537	if [[ -f dimensions.h ]]
538	then
539	echo 'ATTENTION: vous etes sans doute en train de compiler le modele par ailleurs'
540	echo "Attendez que la premiere compilation soit terminee pour relancer la suivante."
541	echo "Si vous etes sur que vous ne compilez pas le modele par ailleurs,"
542	echo vous pouvez continuer en repondant oui.
543	echo "Voulez-vous vraiment continuer?"
544	echo ""
545	echo "WARNING: you are probably already compiling the model somewhere else."
546	echo "Wait until the first compilation is finished before launching this one."
547	echo "If you are sure that you are not compiling elsewhere, just answer "
548	echo "yes (or 'oui') to the question below to proceed."
549	echo "Do you wish to continue?"
550	read reponse
551	if [[ $reponse == "oui" \|\| $reponse == "yes" ]]
552	then
553	\rm -f $LIBFGCM/grid/dimensions.h
554	else
555	exit 1
556	fi
557	fi
558
559
560	cd $LIBFGCM/grid/dimension
561	./makdim $dim
562	if (($? != 0))
563	then
564	exit 1
565	fi
566
567	cat $LIBFGCM/grid/dimensions.h
568	cd $LMDGCM
569
570	if [[ "$bands" != "" ]]
571	then
572	# Generic model, recreate bands.h (IR & VIS bands for radiative transfer)
573	makbandsarg=$(echo $bands \| sed -e 's/[^0-9]/ /g')
574	cd $LIBFGCM/phy$physique/bands
575	./makbands $makbandsarg
576	cat $LIBFGCM/phy$physique/bands.h
577	cd $LMDGCM
578	fi
579
580	if [[ "$scatterers" != "" ]]
581	then
582	if [[ -f $LIBFGCM/phy$physique/scatterers/make_scatterers ]]
583	then
584	# Generic model, recreate scatterers.h
585	cd $LIBFGCM/phy$physique/scatterers
586	./make_scatterers $scatterers
587	cat $LIBFGCM/phy$physique/scatterers.h
588	cd $LMDGCM
589	else
590	echo "Error: you should not use the -s # option with -p $physique"
591	exit 1
592	fi
593	fi
594
595
596	########################################################################
597	# Generation of a Fortran subroutine to track compilation and version
598	# details through the executable file
599	########################################################################
600
601	# Path and name of the generated file
602	info_file="$LIBFGCM/misc/version_info.F90"
603
604	# Path and name of the file containing the difference result
605	res_file="version_stat-diff.txt"
606
607	# Get the current date
608	current_date=$(date)
609
610	# Function to process problematic characters
611	# Delete invalid character due to encoding format
612	# Escape backslashes and single quotes
613	clean_output() {
614	iconv -f "$(locale charmap)" -t UTF-8//IGNORE \
615	\| sed 's/\\/\\\\/g; s/'\''/'\'\''/g'
616	}
617
618	# Iterate through subdirectories in $LMDGCM/../ to determine version control system
619	vcs_info=""
620	vcs_diff=""
621	vcs_stat=""
622	for dir in "$LMDGCM/.."/*; do
623	# Skip if it is not a directory or the name contains "git" or "svn"
624	[ -d "$dir" ] \|\| continue
625	[[ "$dir" == git \|\| "$dir" == svn ]] && continue
626
627	# Determine the version control system for each subdirectory
628	if command -v svn > /dev/null && svn info "$dir" > /dev/null 2>&1; then # SVN
629	vcs_info+="\n-> SVN Information for \"$(basename "$dir")\"\n$(svn info "$dir" \| clean_output)\n"
630	vcs_diff+="\n-> SVN Diff for \"$(basename "$dir")\"\n$(svn diff "$dir" \| clean_output)\n"
631	vcs_stat+="\n-> SVN Status for \"$(basename "$dir")\"\n$(svn status "$dir" \| clean_output)\n"
632	elif command -v git > /dev/null && git -C "$dir" rev-parse --is-inside-work-tree > /dev/null 2>&1; then # Git
633	vcs_info+="-> Git Information for \"$(basename "$dir")\"\n$(git -C "$dir" log -1 --pretty=format:"%H%n%an%n%ad%n%s" \| clean_output)\n"
634	vcs_diff+="\n-> Git Diff for \"$(basename "$dir")\"\n$(git -C "$dir" diff \| clean_output)\n"
635	vcs_stat+="\n-> Git Status for \"$(basename "$dir")\"\n$(git -C "$dir" status --short \| clean_output)\n"
636	else # None
637	vcs_info+="\n-> No version control system for \"$(basename "$dir")\"\n"
638	fi
639	done
640
641	# Generate the Fortran subroutine
642	cat << EOF > "$info_file"
643	!***********************************************************************
644	! File generated automatically at compilation
645	!
646	! DESCRIPTION:
647	! The subroutine 'print_version_info' prints compilation details, the
648	! version control information (SVN or Git), the status and the diff
649	! result if applicable.
650	!
651	! PARAMETERS:
652	! None.
653	!
654	! USAGE:
655	! Put the argument 'version' as an option when executing the code to
656	! display compilation and version details. It is useful for tracking
657	! code builds through the executable file.
658	!***********************************************************************
659
660	MODULE version_info_mod
661
662	!=======================================================================
663	contains
664	!=======================================================================
665
666	SUBROUTINE print_version_info()
667
668	write(*,'(a)') '======= Compilation details ======='
669	write(*,'(a)') '-> Date: ${current_date}'
670	write(*,'(a)') '-> Command: ${compilation_command}'
671	write(,)
672	EOF
673
674	if [ -n "$vcs_info" ]; then
675	echo "write(*,'(a)') '=== Version Control Information ==='" >> "$info_file"
676	while IFS= read -r line; do
677	echo "write(*,'(a)') '${line}'" >> "$info_file"
678	done <<< "$(echo -e "$vcs_info")"
679	else
680	echo "write(*,'(a)') '==== No version control system ===='" >> "$info_file"
681	fi
682
683	if [ -n "$vcs_stat" ]; then
684	echo "write(,)" >> "$info_file"
685	echo "write(*,'(a)') '====== Version Control Status ====='" >> "$info_file"
686	echo "write(*,'(a)') '-> Writing status result to the file \"${res_file}\".'" >> "$info_file"
687	echo "open(unit = 1, file = \"${res_file}\",status = 'replace',action = 'write')" >> "$info_file"
688	while IFS= read -r line; do
689	echo "write(1,'(a)') '${line}'" >> "$info_file"
690	done <<< "$(echo -e "$vcs_stat")"
691	echo "close(1)" >> "$info_file"
692	fi
693
694	if [ -n "$vcs_diff" ]; then
695	echo "write(,)" >> "$info_file"
696	echo "write(*,'(a)') '====== Version Control Diff ======='" >> "$info_file"
697	echo "write(*,'(a)') '-> Writing diff result to the file \"${res_file}\".'" >> "$info_file"
698	echo "open(unit = 1, file = \"${res_file}\",status = 'unknown',position = 'append',action = 'write')" >> "$info_file"
699	while IFS= read -r line; do
700	echo "write(1,'(a)') '${line}'" >> "$info_file"
701	done <<< "$(echo -e "$vcs_diff")"
702	echo "close(1)" >> "$info_file"
703	fi
704
705	cat << EOF >> "$info_file"
706	write(*,'(a)') '==================================='
707
708	END SUBROUTINE print_version_info
709
710	END MODULE version_info_mod
711	EOF
712
713	# Termination message
714	echo "'$info_file' has been generated successfully."
715
716
717	########################################################################
718	# Differentes dynamiques (3d, 2d, 1d)
719	########################################################################
720
721	dimension=`echo $dim \| wc -w`
722	echo dimension $dimension
723
724	if (( $dimension == 3 ))
725	then
726	cd $LIBFGCM/grid
727	\rm fxyprim.h
728	cp -p fxy_${grille}.h fxyprim.h
729	#else
730	# echo "Probleme dans les dimensions de la dynamique !!"
731	# echo "Non reactive pour l'instant !!!"
732	fi
733
734	if (( $dimension == 1 ))
735	then
736	## Sanity check: 1D models should be used in serial
737	## unless compiled with xios and then it should be in mpi only
738	if [[ $io == xios ]]
739	then
740	echo "OK io xios"
741	if [[ $parallel != "mpi" ]]
742	then
743	echo "Error: a 1D model compiled with xios should also be compiled with "
744	echo " -parallel mpi option!"
745	exit 1
746	fi
747	else
748	# no xios, check that it is in serial only
749	if [[ $parallel != "none" ]]
750	then
751	echo "Error: a 1D model should not be compiled with "
752	echo " -parallel [mpi\|omp\|mpi_omp] option!"
753	exit 1
754	fi
755	fi # of if [[ $io == "xios" ]]
756	CPP_KEY="$CPP_KEY CPP_1D"
757	##in 1D, add dyn3d to include path (because main prog is in physics)
758	INCLUDE_DIR="$INCLUDE_DIR -Ilibf/dyn3d -Ilibf/dyn3d_common"
759	## no filtre in 1d:
760	FILTRE_PATH=$LMDGCM/.void_dir
761	## no need to compile all routines in dyn3d_common either:
762	DYN_COMMON_PATH=$LMDGCM/.void_dir
763	## no need to compile all routines in dynlmdz_phy... ;
764	## (because key ones are included in 1D main program)
765	DYN_PHYS_PATH=$LMDGCM/.void_dir
766	DYN_PHYS_SUB_PATH=$LMDGCM/.void_dir
767	fi
768
769	######################################################################
770	# Traitement special pour le nouveau rayonnement de Laurent Li.
771	# ---> YM desactive pour le traitemement en parallele
772	######################################################################
773
774	#if [[ -f $libf/phy$physique/raddim.h ]]
775	#then
776	# if [[ -f $libf/phy$physique/raddim.$dimh.h ]]
777	#then
778	# \rm -f $libf/phy$physique/raddim.h
779	# cp -p $libf/phy$physique/raddim.$dimh.h $libf/phy$physique/raddim.h
780	# echo $libf/phy$physique/raddim.$dimh.h
781	# cat $libf/phy$physique/raddim.h
782	# else
783	# echo On peut diminuer la taille de l executable en creant
784	# echo le fichier $libf/phy$physique/raddim.$dimh.h
785	# \cp -p $libf/phy$physique/raddim.defaut.h $libf/phy$physique/raddim.h
786	# fi
787	#fi
788
789	######################################################################
790	# Gestion du filtre qui n'existe qu'en 3d.
791	######################################################################
792
793	if (( `expr $dimc \> 2` == 1 ))
794	then
795	filtre="FILTRE=$filtre"
796	else
797	filtre="FILTRE= L_FILTRE= "
798	fi
799	echo MACRO FILTRE $filtre
800
801	echo $dimc
802
803
804
805	######################################################################
806	# Creation du suffixe de la configuration
807	######################################################################
808
809	if [[ $libphy != "true" ]];then
810	SUFF_NAME=_${dim_full}
811	fi
812	SUFF_NAME=${SUFF_NAME}_phy${physique}
813
814	if [[ "$bands" != "" ]]
815	then
816	#if bands option -b VISxIR is used, add "_bVISxIR" to executable name
817	SUFF_NAME=${SUFF_NAME}_b$bands
818	fi
819
820	if [[ "$parallel" != "none" ]]
821	then
822	SUFF_NAME=${SUFF_NAME}_para
823	if (( $dimension == 1 ))
824	then
825	# dynamics-related routines in"dyn1d" subdirectory of phy${physique}
826	DYN=phy${physique}/dyn1d
827	else
828	DYN=dyn${dimc}d${paramem}
829	fi
830	if [[ "$paramem" == "mem" ]]
831	then
832	SUFF_NAME=${SUFF_NAME}_${paramem}
833	fi
834	else
835	SUFF_NAME=${SUFF_NAME}_seq
836	if (( $dimension == 1 ))
837	then
838	# dynamics-related routines in"dyn1d" subdirectory of phy${physique}
839	DYN=phy${physique}/dyn1d
840	else
841	DYN=dyn${dimc}d
842	fi
843	fi
844
845	if [[ $veget != "false" ]]
846	then
847	SUFF_NAME=${SUFF_NAME}_orch
848	fi
849
850	if [[ $couple != "false" ]]
851	then
852	SUFF_NAME=${SUFF_NAME}_couple
853	fi
854
855	if [[ $chimie == "INCA" ]]
856	then
857	SUFF_NAME=${SUFF_NAME}_inca
858	fi
859	SUFF_DEBUG=
860	if [[ "$compil_mod" == "debug" ]]
861	then
862	SUFF_DEBUG=_debug
863	fi
864	SUFF_DIR=${SUFF_NAME}${SUFF_DEBUG}
865
866	if [[ $libphy == "true" ]]
867	then
868	# special case where we compile only the physics
869	DYN=$LMDGCM/.void_dir
870	DYN_COMMON_PATH=$LMDGCM/.void_dir
871	FILTRE_PATH=$LMDGCM/.void_dir
872	DYN_PHYS_PATH=$LMDGCM/.void_dir
873	DYN_PHYS_SUB_PATH=$LMDGCM/.void_dir
874	#and there is no main program to generate
875	code=""
876	SUFF_NAME=""
877	# SUFF_DIR=
878	else
879	SUFF_NAME=${SUFF_NAME}.e
880	fi
881
882	cd $LMDGCM
883	config_fcm="config.fcm"
884	rm -f $config_fcm
885	touch $config_fcm
886
887	echo "%ARCH $arch" >> $config_fcm
888	echo "%INCDIR $INCLUDE_DIR" >> $config_fcm
889	echo "%LIB $LIB" >> $config_fcm
890	echo "%ROOT_PATH $PWD" >> $config_fcm
891	echo "%LIBF $LIBFGCM" >> $config_fcm
892	echo "%LIBO $LIBOGCM" >> $config_fcm
893	echo "%DYN $DYN" >> $config_fcm
894	echo "%DYN_COMMON $DYN_COMMON_PATH" >> $config_fcm
895	echo "%PHY_COMMON $PHY_COMMON_PATH" >> $config_fcm
896	echo "%FILTRE $FILTRE_PATH" >> $config_fcm
897	echo "%PHYS phy${physique}" >> $config_fcm
898	echo "%DYN_PHYS $DYN_PHYS_PATH" >> $config_fcm
899	echo "%DYN_PHYS_SUB $DYN_PHYS_SUB_PATH" >> $config_fcm
900	echo "%RRTM $RRTM_PATH" >> $config_fcm
901	echo "%DUST $DUST_PATH" >> $config_fcm
902	echo "%STRATAER $STRATAER_PATH" >> $config_fcm
903	echo "%SISVAT $SISVAT_PATH" >> $config_fcm
904	echo "%COSP $COSP_PATH" >> $config_fcm
905	echo "%CHEM $CHEM_PATH" >> $config_fcm
906	echo "%CLOUD $CLOUD_PATH" >> $config_fcm
907	echo "%MUPHY $MUPHY_PATH" >> $config_fcm
908	echo "%AERONO $AERONO_PATH" >> $config_fcm
909	echo "%EVOLUTION $EVOLUTION_PATH" >> $config_fcm
910	echo "%CPP_KEY $CPP_KEY" >> $config_fcm
911	echo "%EXEC $code" >> $config_fcm
912	echo "%SUFF_NAME $SUFF_NAME" >> $config_fcm
913	echo "%SUFF_DIR $SUFF_DIR" >> $config_fcm
914	echo "%COMPIL_FFLAGS $COMPIL_FFLAGS" >> $config_fcm
915	echo "%PARA_FFLAGS $PARA_FFLAGS" >> $config_fcm
916	echo "%PARA_LD $PARA_LD" >> $config_fcm
917	echo "%EXT_SRC $EXT_SRC" >> $config_fcm
918
919	# setup arch.fcm and arch.opt
920	rm -f arch.fcm
921	rm -f arch.opt
922	ln -s arch/arch-${arch}.fcm arch.fcm
923	if test -f arch/arch-${arch}.opt && [ $compil_mod = "prod" ]
924	then
925	ln -s arch/arch-${arch}.opt arch.opt
926	else
927	ln -s .void_file arch.opt
928	fi
929
930	# cleanup before compiling
931	if [[ $libphy != "true" ]]; then
932	rm -f bin/${code}${SUFF_NAME}
933	fi
934	rm -f $LIBOGCM/${arch}${SUFF_DIR}/.config/fcm.bld.lock
935
936	function delete_dim_h {
937	if [[ -r $LIBFGCM/grid/dimensions.h ]];then
938	echo "Removing dimensions.h"
939	\rm -f $LIBFGCM/grid/dimensions.h
940	fi
941	}
942
943	./build_gcm ${fcm_path} -j $job $full \|\| (echo "Build gcm failed."; delete_dim_h; exit 1)
944
945	rm -rf tmp_src
946	rm -rf config
947	ln -s $LIBOGCM/${arch}${SUFF_DIR}/.config config
948	ln -s $LIBOGCM/${arch}${SUFF_DIR}/.config/ppsrc tmp_src
949
950	delete_dim_h

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

Context Navigation

source: trunk/LMDZ.COMMON/makelmdz_fcm @ 3599

Download in other formats: