Context Navigation

source: trunk/LMDZ.COMMON/makelmdz_fcm @ 3594

Last change on this file since 3594 was 3586, checked in by jbclement, 3 days ago

Mars PCM:

Albedo is now set properly in every situation given the presence of CO2/H2O ice and frost + water albedo is done solely in "physiq".
Small update to make the display of code version status/diff clearer.

JBC

File size: 28.1 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	# Iterate through subdirectories in $LMDGCM/../ to determine version control system
611	vcs_info=""
612	vcs_diff=""
613	vcs_stat=""
614	for dir in "$LMDGCM/.."/*; do
615	# Skip if it is not a directory or the name contains "git" or "svn"
616	[ -d "$dir" ] \|\| continue
617	[[ "$dir" == git \|\| "$dir" == svn ]] && continue
618
619	# Determine the version control system for each subdirectory
620	if command -v svn > /dev/null && svn info "$dir" > /dev/null 2>&1; then # SVN
621	vcs_info+="\n-> SVN Information for \"$(basename "$dir")\"\n$(svn info "$dir")\n"
622	vcs_diff+="\n-> SVN Diff for \"$(basename "$dir")\"\n$(svn diff "$dir")\n"
623	vcs_stat+="\n-> SVN Status for \"$(basename "$dir")\"\n$(svn status "$dir")\n"
624	elif command -v git > /dev/null && git -C "$dir" rev-parse --is-inside-work-tree > /dev/null 2>&1; then # Git
625	vcs_info+="-> Git Information for \"$(basename "$dir")\"\n$(git -C "$dir" log -1 --pretty=format:"%H%n%an%n%ad%n%s")\n"
626	vcs_diff+="\n-> Git Diff for \"$(basename "$dir")\"\n$(git -C "$dir" diff)\n"
627	vcs_stat+="\n-> Git Status for \"$(basename "$dir")\"\n$(git -C "$dir" status --short)\n"
628	else # None
629	vcs_info+="\n-> No version control system for \"$(basename "$dir")\"\n"
630	fi
631	done
632
633	# Generate the Fortran subroutine
634	cat << EOF > "$info_file"
635	!***********************************************************************
636	! File generated automatically at compilation
637	!
638	! DESCRIPTION:
639	! The subroutine 'print_version_info' prints compilation details, the
640	! version control information (SVN or Git), the status and the diff
641	! result if applicable.
642	!
643	! PARAMETERS:
644	! None.
645	!
646	! USAGE:
647	! Put the argument 'version' as an option when executing the code to
648	! display compilation and version details. It is useful for tracking
649	! code builds through the executable file.
650	!***********************************************************************
651
652	MODULE version_info_mod
653
654	!=======================================================================
655	contains
656	!=======================================================================
657
658	SUBROUTINE print_version_info()
659
660	write(*,'(a)') '======= Compilation details ======='
661	write(*,'(a)') '-> Date: ${current_date}'
662	write(*,'(a)') '-> Command: ${compilation_command}'
663	write(,)
664	EOF
665
666	if [ -n "$vcs_info" ]; then
667	echo "write(*,'(a)') '=== Version Control Information ==='" >> "$info_file"
668	while IFS= read -r line; do
669	echo "write(*,'(a)') '${line//\'/\'\'}'" >> "$info_file"
670	done <<< "$(echo -e "$vcs_info")"
671	else
672	echo "write(*,'(a)') '==== No version control system ===='" >> "$info_file"
673	fi
674
675	if [ -n "$vcs_stat" ]; then
676	echo "write(,)" >> "$info_file"
677	echo "write(*,'(a)') '====== Version Control Status ====='" >> "$info_file"
678	echo "write(*,'(a)') '-> Writing status result to the file \"${res_file}\".'" >> "$info_file"
679	echo "open(unit = 1, file = \"${res_file}\",status = 'replace',action = 'write')" >> "$info_file"
680	while IFS= read -r line; do
681	echo "write(1,'(a)') '${line//\'/\'\'}'" >> "$info_file"
682	done <<< "$(echo -e "$vcs_stat")"
683	echo "close(1)" >> "$info_file"
684	fi
685
686	if [ -n "$vcs_diff" ]; then
687	echo "write(,)" >> "$info_file"
688	echo "write(*,'(a)') '====== Version Control Diff ======='" >> "$info_file"
689	echo "write(*,'(a)') '-> Writing diff result to the file \"${res_file}\".'" >> "$info_file"
690	echo "open(unit = 1, file = \"${res_file}\",status = 'unknown',position = 'append',action = 'write')" >> "$info_file"
691	while IFS= read -r line; do
692	echo "write(1,'(a)') '${line//\'/\'\'}'" >> "$info_file"
693	done <<< "$(echo -e "$vcs_diff")"
694	echo "close(1)" >> "$info_file"
695	fi
696
697	cat << EOF >> "$info_file"
698	write(*,'(a)') '==================================='
699
700	END SUBROUTINE print_version_info
701
702	END MODULE version_info_mod
703	EOF
704
705	# Termination message
706	echo "'$info_file' has been generated successfully."
707
708
709	########################################################################
710	# Differentes dynamiques (3d, 2d, 1d)
711	########################################################################
712
713	dimension=`echo $dim \| wc -w`
714	echo dimension $dimension
715
716	if (( $dimension == 3 ))
717	then
718	cd $LIBFGCM/grid
719	\rm fxyprim.h
720	cp -p fxy_${grille}.h fxyprim.h
721	#else
722	# echo "Probleme dans les dimensions de la dynamique !!"
723	# echo "Non reactive pour l'instant !!!"
724	fi
725
726	if (( $dimension == 1 ))
727	then
728	## Sanity check: 1D models should be used in serial
729	## unless compiled with xios and then it should be in mpi only
730	if [[ $io == xios ]]
731	then
732	echo "OK io xios"
733	if [[ $parallel != "mpi" ]]
734	then
735	echo "Error: a 1D model compiled with xios should also be compiled with "
736	echo " -parallel mpi option!"
737	exit 1
738	fi
739	else
740	# no xios, check that it is in serial only
741	if [[ $parallel != "none" ]]
742	then
743	echo "Error: a 1D model should not be compiled with "
744	echo " -parallel [mpi\|omp\|mpi_omp] option!"
745	exit 1
746	fi
747	fi # of if [[ $io == "xios" ]]
748	CPP_KEY="$CPP_KEY CPP_1D"
749	##in 1D, add dyn3d to include path (because main prog is in physics)
750	INCLUDE_DIR="$INCLUDE_DIR -Ilibf/dyn3d -Ilibf/dyn3d_common"
751	## no filtre in 1d:
752	FILTRE_PATH=$LMDGCM/.void_dir
753	## no need to compile all routines in dyn3d_common either:
754	DYN_COMMON_PATH=$LMDGCM/.void_dir
755	## no need to compile all routines in dynlmdz_phy... ;
756	## (because key ones are included in 1D main program)
757	DYN_PHYS_PATH=$LMDGCM/.void_dir
758	DYN_PHYS_SUB_PATH=$LMDGCM/.void_dir
759	fi
760
761	######################################################################
762	# Traitement special pour le nouveau rayonnement de Laurent Li.
763	# ---> YM desactive pour le traitemement en parallele
764	######################################################################
765
766	#if [[ -f $libf/phy$physique/raddim.h ]]
767	#then
768	# if [[ -f $libf/phy$physique/raddim.$dimh.h ]]
769	#then
770	# \rm -f $libf/phy$physique/raddim.h
771	# cp -p $libf/phy$physique/raddim.$dimh.h $libf/phy$physique/raddim.h
772	# echo $libf/phy$physique/raddim.$dimh.h
773	# cat $libf/phy$physique/raddim.h
774	# else
775	# echo On peut diminuer la taille de l executable en creant
776	# echo le fichier $libf/phy$physique/raddim.$dimh.h
777	# \cp -p $libf/phy$physique/raddim.defaut.h $libf/phy$physique/raddim.h
778	# fi
779	#fi
780
781	######################################################################
782	# Gestion du filtre qui n'existe qu'en 3d.
783	######################################################################
784
785	if (( `expr $dimc \> 2` == 1 ))
786	then
787	filtre="FILTRE=$filtre"
788	else
789	filtre="FILTRE= L_FILTRE= "
790	fi
791	echo MACRO FILTRE $filtre
792
793	echo $dimc
794
795
796
797	######################################################################
798	# Creation du suffixe de la configuration
799	######################################################################
800
801	if [[ $libphy != "true" ]];then
802	SUFF_NAME=_${dim_full}
803	fi
804	SUFF_NAME=${SUFF_NAME}_phy${physique}
805
806	if [[ "$bands" != "" ]]
807	then
808	#if bands option -b VISxIR is used, add "_bVISxIR" to executable name
809	SUFF_NAME=${SUFF_NAME}_b$bands
810	fi
811
812	if [[ "$parallel" != "none" ]]
813	then
814	SUFF_NAME=${SUFF_NAME}_para
815	if (( $dimension == 1 ))
816	then
817	# dynamics-related routines in"dyn1d" subdirectory of phy${physique}
818	DYN=phy${physique}/dyn1d
819	else
820	DYN=dyn${dimc}d${paramem}
821	fi
822	if [[ "$paramem" == "mem" ]]
823	then
824	SUFF_NAME=${SUFF_NAME}_${paramem}
825	fi
826	else
827	SUFF_NAME=${SUFF_NAME}_seq
828	if (( $dimension == 1 ))
829	then
830	# dynamics-related routines in"dyn1d" subdirectory of phy${physique}
831	DYN=phy${physique}/dyn1d
832	else
833	DYN=dyn${dimc}d
834	fi
835	fi
836
837	if [[ $veget != "false" ]]
838	then
839	SUFF_NAME=${SUFF_NAME}_orch
840	fi
841
842	if [[ $couple != "false" ]]
843	then
844	SUFF_NAME=${SUFF_NAME}_couple
845	fi
846
847	if [[ $chimie == "INCA" ]]
848	then
849	SUFF_NAME=${SUFF_NAME}_inca
850	fi
851	SUFF_DEBUG=
852	if [[ "$compil_mod" == "debug" ]]
853	then
854	SUFF_DEBUG=_debug
855	fi
856	SUFF_DIR=${SUFF_NAME}${SUFF_DEBUG}
857
858	if [[ $libphy == "true" ]]
859	then
860	# special case where we compile only the physics
861	DYN=$LMDGCM/.void_dir
862	DYN_COMMON_PATH=$LMDGCM/.void_dir
863	FILTRE_PATH=$LMDGCM/.void_dir
864	DYN_PHYS_PATH=$LMDGCM/.void_dir
865	DYN_PHYS_SUB_PATH=$LMDGCM/.void_dir
866	#and there is no main program to generate
867	code=""
868	SUFF_NAME=""
869	# SUFF_DIR=
870	else
871	SUFF_NAME=${SUFF_NAME}.e
872	fi
873
874	cd $LMDGCM
875	config_fcm="config.fcm"
876	rm -f $config_fcm
877	touch $config_fcm
878
879	echo "%ARCH $arch" >> $config_fcm
880	echo "%INCDIR $INCLUDE_DIR" >> $config_fcm
881	echo "%LIB $LIB" >> $config_fcm
882	echo "%ROOT_PATH $PWD" >> $config_fcm
883	echo "%LIBF $LIBFGCM" >> $config_fcm
884	echo "%LIBO $LIBOGCM" >> $config_fcm
885	echo "%DYN $DYN" >> $config_fcm
886	echo "%DYN_COMMON $DYN_COMMON_PATH" >> $config_fcm
887	echo "%PHY_COMMON $PHY_COMMON_PATH" >> $config_fcm
888	echo "%FILTRE $FILTRE_PATH" >> $config_fcm
889	echo "%PHYS phy${physique}" >> $config_fcm
890	echo "%DYN_PHYS $DYN_PHYS_PATH" >> $config_fcm
891	echo "%DYN_PHYS_SUB $DYN_PHYS_SUB_PATH" >> $config_fcm
892	echo "%RRTM $RRTM_PATH" >> $config_fcm
893	echo "%DUST $DUST_PATH" >> $config_fcm
894	echo "%STRATAER $STRATAER_PATH" >> $config_fcm
895	echo "%SISVAT $SISVAT_PATH" >> $config_fcm
896	echo "%COSP $COSP_PATH" >> $config_fcm
897	echo "%CHEM $CHEM_PATH" >> $config_fcm
898	echo "%CLOUD $CLOUD_PATH" >> $config_fcm
899	echo "%MUPHY $MUPHY_PATH" >> $config_fcm
900	echo "%AERONO $AERONO_PATH" >> $config_fcm
901	echo "%EVOLUTION $EVOLUTION_PATH" >> $config_fcm
902	echo "%CPP_KEY $CPP_KEY" >> $config_fcm
903	echo "%EXEC $code" >> $config_fcm
904	echo "%SUFF_NAME $SUFF_NAME" >> $config_fcm
905	echo "%SUFF_DIR $SUFF_DIR" >> $config_fcm
906	echo "%COMPIL_FFLAGS $COMPIL_FFLAGS" >> $config_fcm
907	echo "%PARA_FFLAGS $PARA_FFLAGS" >> $config_fcm
908	echo "%PARA_LD $PARA_LD" >> $config_fcm
909	echo "%EXT_SRC $EXT_SRC" >> $config_fcm
910
911	# setup arch.fcm and arch.opt
912	rm -f arch.fcm
913	rm -f arch.opt
914	ln -s arch/arch-${arch}.fcm arch.fcm
915	if test -f arch/arch-${arch}.opt && [ $compil_mod = "prod" ]
916	then
917	ln -s arch/arch-${arch}.opt arch.opt
918	else
919	ln -s .void_file arch.opt
920	fi
921
922	# cleanup before compiling
923	if [[ $libphy != "true" ]]; then
924	rm -f bin/${code}${SUFF_NAME}
925	fi
926	rm -f $LIBOGCM/${arch}${SUFF_DIR}/.config/fcm.bld.lock
927
928	function delete_dim_h {
929	if [[ -r $LIBFGCM/grid/dimensions.h ]];then
930	echo "Removing dimensions.h"
931	\rm -f $LIBFGCM/grid/dimensions.h
932	fi
933	}
934
935	./build_gcm ${fcm_path} -j $job $full \|\| (echo "Build gcm failed."; delete_dim_h; exit 1)
936
937	rm -rf tmp_src
938	rm -rf config
939	ln -s $LIBOGCM/${arch}${SUFF_DIR}/.config config
940	ln -s $LIBOGCM/${arch}${SUFF_DIR}/.config/ppsrc tmp_src
941
942	delete_dim_h

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

Download in other formats: