1 | #!/bin/bash |
---|
2 | # $Id: check_version.sh 4580 2023-06-20 14:09:25Z dcugnet $ |
---|
3 | |
---|
4 | #set -vx |
---|
5 | |
---|
6 | # AFAIRE |
---|
7 | # On pourrait gerer le justcheck en creant un repertoire |
---|
8 | # avec |
---|
9 | # if recheck |
---|
10 | # resubench=./RESUBENCH$$ |
---|
11 | # else |
---|
12 | # resubench=$RESU_D/$datelmdz$rel_svn |
---|
13 | #On pourrait ainsi utiliser une fonction independante qui genere les messages |
---|
14 | # comme check_version_message |
---|
15 | |
---|
16 | |
---|
17 | |
---|
18 | ######################################################################### |
---|
19 | # Verification de a convergence du modele par rapport aux versions |
---|
20 | # precedentes |
---|
21 | # + 1+1=2 |
---|
22 | ######################################################################### |
---|
23 | |
---|
24 | version_ref=latest |
---|
25 | resolution=48x36x39 |
---|
26 | compilo=gfortran |
---|
27 | parallel=mpi_omp |
---|
28 | # Option pour le debug du script check_version lui meme qui consiste a ne |
---|
29 | # pars reexecuter l'installation et les simulations mais a simplement |
---|
30 | # refaire les diff sur des simulations existantes. |
---|
31 | justcheck=0 # just compare results not writing of results in RESUBENCH |
---|
32 | tmpdir=/tmp/`whoami` ; mkdir -p $tmpdir |
---|
33 | tmpdir=/home/lmdz/tmp |
---|
34 | rel_svn="" |
---|
35 | local_d=`pwd` |
---|
36 | |
---|
37 | install=1 |
---|
38 | rad=rrtm |
---|
39 | check_1D=1 |
---|
40 | check_SP=1 |
---|
41 | check_1p1=1 |
---|
42 | check_Debug=1 |
---|
43 | check_isotopes=1 |
---|
44 | check_parallel=1 |
---|
45 | check_compile=1 |
---|
46 | check_ini=1 |
---|
47 | mail_address=lmdz-commit@listes.lmd.ipsl.fr |
---|
48 | MODEL="" |
---|
49 | branche=trunk |
---|
50 | |
---|
51 | ######################################################################### |
---|
52 | # Pour aller chercher des fichiers par wget si pas sur le cpte lmdz |
---|
53 | ######################################################################### |
---|
54 | |
---|
55 | if [ `whoami` = lmdz ] ; then |
---|
56 | get="ln -sf /u/lmdz/WWW" |
---|
57 | else |
---|
58 | get="wget https://www.lmd.jussieu.fr/~lmdz" |
---|
59 | fi |
---|
60 | |
---|
61 | ######################################################################### |
---|
62 | # Options du script |
---|
63 | ######################################################################### |
---|
64 | |
---|
65 | while (($# > 0)) |
---|
66 | do |
---|
67 | case $1 in |
---|
68 | "-h") cat <<fin |
---|
69 | check_version.sh [-h] version [-latest version_ref] |
---|
70 | version is the name of the version of LMDZ to be checked modipsl.version.tar.gz |
---|
71 | version_ref is the version to be compared with. |
---|
72 | Default "latest". |
---|
73 | options: |
---|
74 | -c compiler : sets the compiler to use |
---|
75 | -justcheck : just check results, do not overwrite anything |
---|
76 | -r svn : revision |
---|
77 | -latest latest : latest is the date of the last version tested |
---|
78 | -model_dir : directory where tun run the bench if LMDZ is already installed |
---|
79 | fin |
---|
80 | exit;; |
---|
81 | |
---|
82 | "-c") compilo="$2" ; shift ; shift ;; |
---|
83 | "-justcheck") justcheck=1 ; shift ;; |
---|
84 | "-r") rel_svn="$2" ; shift ; shift ;; |
---|
85 | "-latest") version_ref="$2" ; shift ; shift ;; |
---|
86 | "-model_dir") MODEL="$2" ; shift ; shift ;; |
---|
87 | *) version="$1" ; shift ;; |
---|
88 | esac |
---|
89 | done |
---|
90 | |
---|
91 | ################################################################################ |
---|
92 | # Definition des noms des repertoires à comparer |
---|
93 | ################################################################################ |
---|
94 | |
---|
95 | # branche=`echo $version | cut -d. -f2` |
---|
96 | if [ "$MODEL" = "" ] ; then |
---|
97 | MODEL=$tmpdir/LMDZ$version$rel_svn |
---|
98 | branche=`echo $version |cut -c 10-` |
---|
99 | datelmdz=`echo $version | cut -d. -f1` |
---|
100 | else |
---|
101 | #if [ $install = 1 ] ; then echo Use model_dir only if the model is already installed ; exit ; fi |
---|
102 | install=0 |
---|
103 | if [ "`echo $MODEL | cut -c1`" != "/" ] ; then MODEL=`pwd`/$MODEL ; fi # MODEL transformed in absolute path if not |
---|
104 | datelmdz=`date +%Y%m%d`$$ |
---|
105 | fi |
---|
106 | |
---|
107 | echo version $version $branche $datelmdz |
---|
108 | RESU_D=~/WWW/RESUBENCH/$branche/$compilo |
---|
109 | if [ $justcheck = 0 ] ; then |
---|
110 | resubench=$RESU_D/$datelmdz$rel_svn |
---|
111 | if [ -d $resubench ] ; then mv $resubench $resubench$$ ; fi |
---|
112 | mkdir -p $resubench |
---|
113 | fi |
---|
114 | latest=$RESU_D/$version_ref |
---|
115 | echo $latest |
---|
116 | |
---|
117 | # recuperation de la version a laquelle on compare pour le message final : |
---|
118 | comparea=`ls -ld $RESU_D/$version_ref | awk -F/ ' { print $NF } '` |
---|
119 | echo comparea $comparea |
---|
120 | |
---|
121 | ################################################################################ |
---|
122 | echo 0. Installation du modele |
---|
123 | ################################################################################ |
---|
124 | |
---|
125 | # Edition de install.sh, install.sh avec bench 48x36x19 |
---|
126 | if [ $install = 1 ] ; then |
---|
127 | cd $tmpdir |
---|
128 | if [ "$rel_svn" = "" ] ; then opt_svn="" ; else opt_svn="-r $rel_svn" ; fi |
---|
129 | \rm -f install_lmdz.sh ; $get/pub/install_lmdz.sh ; chmod +x install_lmdz.sh |
---|
130 | # On install sans les bench pour que les benchs soient faits à la main |
---|
131 | # ./install_lmdz.sh -v $version $opt_svn -d $resolution -SCM -parallel $parallel -veget CMIP6 |
---|
132 | ./install_lmdz.sh -unstable -v $version $opt_svn -d $resolution -parallel $parallel -veget CMIP6 -bench 0 |
---|
133 | fi |
---|
134 | |
---|
135 | ################################################################################ |
---|
136 | echo 1. Sauvegarde du 1D execute automatiquement a l installation |
---|
137 | ################################################################################ |
---|
138 | |
---|
139 | if [ $check_1D = 1 ] ; then |
---|
140 | cd $MODEL |
---|
141 | if [ ! -d 1D ] ; then $get/pub/1D/1D.tar.gz ; tar xvf 1D.tar.gz ; fi # get 1D model |
---|
142 | if [ ! -d 1D/EXEC ] ; then mv 1D/EXEC 1D/SAVE_EXEC$$ ; fi |
---|
143 | cd 1D ; sed -e "s:^listecas=.*$:listecas=ARMCU/REF:" run.sh ; ./run.sh # run 1D model |
---|
144 | # Controling outputs for the ARMCU/REF test case |
---|
145 | outf=$MODEL/1D/EXEC/6AL79/ARMCU/REF/restartphy.nc |
---|
146 | if [ -f $outf ] ; then |
---|
147 | if [ $justcheck = 0 ] ; then |
---|
148 | mkdir -p $resubench/ARMCU/REF |
---|
149 | cp $outf $resubench/ARMCU/REF/ |
---|
150 | fi |
---|
151 | cmp -s $outf $latest/ARMCU/REF/restartphy.nc |
---|
152 | if [ $? = 0 ] ; then converge1D=U ; else converge1D=u ; fi |
---|
153 | else |
---|
154 | converge1D=- |
---|
155 | fi |
---|
156 | fi |
---|
157 | |
---|
158 | |
---|
159 | ################################################################################ |
---|
160 | echo DEBUT DES TESTS 3D |
---|
161 | ################################################################################ |
---|
162 | BENCH=BENCH$resolution |
---|
163 | cd $MODEL/modipsl/mod*/LMD* |
---|
164 | LMDZdir=`pwd` |
---|
165 | echo LMDZdir $LMDZdir |
---|
166 | if [ -d $BENCH ] ; then mkdir -p SAVE$$ ; mv BENCH$resolution SAVE$$ ; fi |
---|
167 | $get/pub/3DBenchs/bench_lmdz_$resolution.tar.gz ; tar xvf bench_lmdz_$resolution.tar.gz |
---|
168 | cd $BENCH ; $get/pub/3DBenchs/BENCHCMIP6.tar.gz . ; tar xvf BENCHCMIP6.tar.gz |
---|
169 | sed -i'' -e "s:VEGET=n:VEGET=y:" config.def |
---|
170 | ./compilegcm_fcm.sh ; ./bench.sh > out.bench 2>&1 |
---|
171 | |
---|
172 | |
---|
173 | if [ -f restartphy.nc ] ; then |
---|
174 | if [ ! -f gcm.install ] ; then \cp -f gcm.e gcm.install ; fi |
---|
175 | |
---|
176 | ######################################################################### |
---|
177 | echo 3. Verification de la convergence avec la version precedente |
---|
178 | echo Physique Standard |
---|
179 | ######################################################################### |
---|
180 | |
---|
181 | # Faite soit sur les restart.nc soit sur une exctraction de ps.nc |
---|
182 | # Il est arrive qu'on ait convergence meteo sans identite des restart |
---|
183 | # (pb d'entete, de traceurs ...) |
---|
184 | # Aide a l'interpretation de resultats problematiques |
---|
185 | # Les resultats de la simu ancienne physique sont directement |
---|
186 | # dans BENC* |
---|
187 | # Les resultats de la nouvelle physique sont dans SIM1 utilise |
---|
188 | # pour 1+1=2 |
---|
189 | # Les resultats de la simulation debug sont dans SIMD |
---|
190 | |
---|
191 | # Ici on se contente d'analyser le bench automatique qui vient de tourner |
---|
192 | if [ $justcheck = 0 ] ; then mkdir -p $resubench/$BENCH; fi |
---|
193 | if [ -f restartphy.nc ] ; then |
---|
194 | if [ $justcheck = 0 ] ; then |
---|
195 | ncks -M -m -h -v ps -O restart.nc $resubench/$BENCH/ps.nc |
---|
196 | cp restart.nc $resubench/$BENCH/restart.nc |
---|
197 | fi |
---|
198 | cmp -s ./restart.nc $latest/$BENCH/restart.nc |
---|
199 | if [ $? = 0 ] ; then converge=S ; else converge=s ; fi |
---|
200 | else |
---|
201 | converge=- |
---|
202 | fi |
---|
203 | |
---|
204 | ######################################################################### |
---|
205 | echo 4. Verification de 1+1=2 |
---|
206 | echo Avec la nouvelle physique |
---|
207 | ######################################################################### |
---|
208 | # On utilse l'executable du bench de base |
---|
209 | |
---|
210 | if [ $check_1p1 = 1 ] ; then |
---|
211 | \cp -f gcm.install gcm.e |
---|
212 | suf=NPv6.0.14splith |
---|
213 | sed -e 's/VEGET=y/VEGET=n/' config.def_oraer > config.def |
---|
214 | if [ -f physiq.def_$suf ] ; then \cp -f physiq.def_$suf physiq.def ; fi |
---|
215 | $get/Distrib/unpun.sh |
---|
216 | chmod +x unpun.sh ; ./unpun.sh -parallel $parallel |
---|
217 | cmp -s SIM2/ps_end.nc SIM1+1/ps_end.nc |
---|
218 | if [ $? = 0 ] ; then |
---|
219 | unpun=OK |
---|
220 | else |
---|
221 | unpun=- |
---|
222 | fi |
---|
223 | fi |
---|
224 | |
---|
225 | ######################################################################### |
---|
226 | echo 5. Test en fonction du nombre de processeurs |
---|
227 | ######################################################################### |
---|
228 | |
---|
229 | echo CHECK $parallel $check_parallel |
---|
230 | if [ "$parallel" = "mpi_omp" -a $check_parallel = 1 ] ; then |
---|
231 | mkdir -p $LMDZdir/$BENCH/SIM1_41 |
---|
232 | cd $LMDZdir/$BENCH/SIM1_41 |
---|
233 | ln -s ../SIM1/start* ../SIM1/limit* ../SIM1/sechiba_rest_in.nc ../SIM1/aer*nc ../SIM1/*def . |
---|
234 | ../run_local.sh 4 1 ../gcm.install > listing |
---|
235 | cd .. |
---|
236 | echo ON EST AVANT LE CMP |
---|
237 | cmp -s SIM1/restart.nc SIM1_41/restart.nc |
---|
238 | if [ $? = 0 ] ; then |
---|
239 | if [ "$unpun" = "OK" ] ; then |
---|
240 | unpun=OK2 |
---|
241 | else |
---|
242 | unpun=-OK |
---|
243 | fi |
---|
244 | else |
---|
245 | unpun=${unpun}- |
---|
246 | fi |
---|
247 | fi |
---|
248 | |
---|
249 | # 2016/06/21 : comparaison des versions nouvelles physique (dans SIM1) |
---|
250 | cd $LMDZdir/$BENCH |
---|
251 | if [ -f SIM1/restartphy.nc ] ; then |
---|
252 | if [ $justcheck = 0 ] ; then |
---|
253 | ncks -M -m -h -v ps -O SIM1/restart.nc $resubench/$BENCH/ps$suf.nc |
---|
254 | cp SIM1/restart.nc $resubench/$BENCH/restart$suf.nc |
---|
255 | fi |
---|
256 | \rm sechiba_out_2.nc sechiba_history.nc sechiba_rest_out.nc |
---|
257 | cmp -s SIM1/restart.nc $latest/$BENCH/restart$suf.nc |
---|
258 | if [ $? = 0 ] ; then convergeNP=N ; else convergeNP=n ; fi |
---|
259 | else |
---|
260 | convergeNP=- |
---|
261 | fi |
---|
262 | |
---|
263 | ######################################################################### |
---|
264 | echo Verification en mode debug + parallele, compile avec makelmdz |
---|
265 | ######################################################################### |
---|
266 | |
---|
267 | cd $LMDZdir/$BENCH |
---|
268 | if [ -f compilegcm.sh -a $check_compile = 1 ] ; then |
---|
269 | \rm -f gcm.e |
---|
270 | ./compilegcm.sh -debug |
---|
271 | mkdir SIMD |
---|
272 | cd SIMD |
---|
273 | ln -s ../SIM1/start* ../SIM1/limit* ../SIM1/sechiba_rest_in.nc ../SIM1/aer*nc ../SIM1/*def . |
---|
274 | ../run_local.sh 2 2 ../gcm.e > listing 2>&1 |
---|
275 | cd ../ |
---|
276 | suf=D |
---|
277 | if [ -f SIMD/restartphy.nc ] ; then |
---|
278 | if [ $justcheck = 0 ] ; then |
---|
279 | ncks -M -m -h -v ps -O SIMD/restart.nc $resubench/$BENCH/ps$suf.nc |
---|
280 | cp SIMD/restart.nc $resubench/$BENCH/restart$suf.nc |
---|
281 | fi |
---|
282 | cmp -s SIMD/restart.nc $latest/$BENCH/restart$suf.nc |
---|
283 | if [ $? = 0 ] ; then convergeD=D ; else convergeD=d ; fi |
---|
284 | else |
---|
285 | convergeD=- |
---|
286 | fi |
---|
287 | fi |
---|
288 | |
---|
289 | ######################################################################### |
---|
290 | echo Verification des isotopes |
---|
291 | ######################################################################### |
---|
292 | |
---|
293 | if [ $check_isotopes = 1 ] ; then |
---|
294 | cd $LMDZdir |
---|
295 | pwd |
---|
296 | $get/pub/3DBenchs/bench_lmdz_iso_48x36x39.tar.gz |
---|
297 | tar xvf bench_lmdz_iso_48x36x39.tar.gz |
---|
298 | cd BENCHiso48x36x39 |
---|
299 | ./compile.sh |
---|
300 | exec=../bin/gcm_48x36x39_phylmdiso_${rad}_seq_iso_isoverif.e |
---|
301 | if [ -f $exec ] ; then |
---|
302 | $exec > listing 2>&1 |
---|
303 | suf=I |
---|
304 | if [ -f restartphy.nc ] ; then |
---|
305 | if [ $justcheck = 0 ] ; then |
---|
306 | cp restart.nc $resubench/$BENCH/restart$suf.nc |
---|
307 | fi |
---|
308 | cmp -s restart.nc $latest/$BENCH/restart$suf.nc |
---|
309 | if [ $? = 0 ] ; then convergeI=I ; else convergeI=i ; fi |
---|
310 | else |
---|
311 | # compiled but failed the isoverif test |
---|
312 | convergeI=x |
---|
313 | fi |
---|
314 | else |
---|
315 | # compilation failed; cleaning up for next compilation |
---|
316 | convergeI=- |
---|
317 | \rm -f libf/grid/dimensions.h |
---|
318 | \rm -f .lock |
---|
319 | fi |
---|
320 | fi |
---|
321 | |
---|
322 | ######################################################################### |
---|
323 | echo Verification de initialisation |
---|
324 | ######################################################################### |
---|
325 | |
---|
326 | if [ $check_ini = 1 ] ; then |
---|
327 | cd $LMDZdir |
---|
328 | rm -rf INIT |
---|
329 | mkdir INIT |
---|
330 | cp $BENCH/*def INIT |
---|
331 | cd INIT |
---|
332 | pwd |
---|
333 | $get/Distrib/initialisation.sh |
---|
334 | sed -e 's/grid_resolution=48x36x39/grid_resolution='$resolution'/' initialisation.sh > ini.sh |
---|
335 | chmod +x ini.sh ; ./ini.sh |
---|
336 | if [ -f limit.nc ] ; then |
---|
337 | var=Tsoil01srf01 |
---|
338 | if [ $justcheck = 0 ] ; then |
---|
339 | mkdir -p $resubench/START$resolution |
---|
340 | ncks -M -m -h -v $var startphy.nc -O $resubench/START$resolution/$var.nc |
---|
341 | cp startphy.nc $resubench/START$resolution/ |
---|
342 | fi |
---|
343 | cmp -s startphy.nc $latest/START$resolution/startphy.nc |
---|
344 | if [ $? = 0 ] ; then |
---|
345 | init=OK |
---|
346 | else |
---|
347 | init=noc |
---|
348 | fi |
---|
349 | else |
---|
350 | init=- |
---|
351 | fi |
---|
352 | fi |
---|
353 | |
---|
354 | ######################################################################## |
---|
355 | echo end of test cases |
---|
356 | ######################################################################## |
---|
357 | bench=OK |
---|
358 | else |
---|
359 | echo PROBLEME : LE BENCH N EST PAS ALLE AU BOUT |
---|
360 | bench=- |
---|
361 | fi |
---|
362 | |
---|
363 | if [ $justcheck = 0 ] ; then |
---|
364 | latest=$RESU_D/latest |
---|
365 | \rm -f $latest |
---|
366 | ln -sf $resubench $latest |
---|
367 | fi |
---|
368 | |
---|
369 | |
---|
370 | cd $LMDZdir/.. |
---|
371 | LMDZ=`\ls -d LMD*` #Nom du modele LMDZ sur modeles/ : LMDZ4, LMDZ5, LMDZ |
---|
372 | |
---|
373 | svn upgrade # Il faut mettre à jour le svn si la version sur |
---|
374 | # laquelle le checkout a ete fait est plus ancienne |
---|
375 | # ce qu'on souhaite par ailleurs pour pouvoir ensuite |
---|
376 | # commettre depuis une version ancienne de svn (comme celles |
---|
377 | # des SL du réseau local |
---|
378 | svnrel=`svn info $LMDZ | grep 'Changed Rev' | head -1 | awk ' { print $4 } '` |
---|
379 | #FH 20160822 |
---|
380 | if [ "$svnrel" = "" ] ; then |
---|
381 | svnrel=`svn info $LMDZ | grep vision | head -1 | awk ' { print $2 } '` |
---|
382 | fi |
---|
383 | |
---|
384 | ccc=$converge$convergeNP$convergeD$converge1D$convergeI |
---|
385 | if [ "$ccc" = "SNDUI" ] ; then ccc="OK " ; fi |
---|
386 | |
---|
387 | |
---|
388 | |
---|
389 | ######################################################################## |
---|
390 | # Ectiture du message de bilan |
---|
391 | ######################################################################## |
---|
392 | |
---|
393 | cd $local_d |
---|
394 | |
---|
395 | echo $version' '$svnrel' '$bench' '$ccc ' '$unpun' '$init' (ref:' $comparea ')' > tmp.resu |
---|
396 | cat > tmp.message <<eod |
---|
397 | disponible sur |
---|
398 | https://www.lmd.jussieu.fr/~lmdz/Distrib/modipsl.$version.tar.gz |
---|
399 | |
---|
400 | Test local LMD network, gfortran, 48x36x19 |
---|
401 | ========================================== |
---|
402 | |
---|
403 | install version SVN Bench Conv. 1+1=2 Init |
---|
404 | run Nnum. & |
---|
405 | /prev. mpiXomp |
---|
406 | |
---|
407 | eod |
---|
408 | cat tmp.resu >> tmp.message |
---|
409 | cat >> tmp.message <<eod |
---|
410 | |
---|
411 | |
---|
412 | || |
---|
413 | \/ |
---|
414 | |
---|
415 | S/s/-: 3D standard physics Converging/runing/not runing |
---|
416 | N/n/-: - new - - |
---|
417 | D/d/-: new with debug - |
---|
418 | U/u/-: unicolonne - |
---|
419 | I/i/x/-: isotope Converging/runing/run failed /compiled failed |
---|
420 | noc: runs but no convergence |
---|
421 | OK <=> SNDUI |
---|
422 | eod |
---|
423 | |
---|
424 | cat tmp.message |
---|
425 | |
---|
426 | if [ $mail_address != "" ] ; then |
---|
427 | ssh lmdz@django "mail -s 'Nouvelle version pour install_lmdz.sh' $mail_address < "$local_d"/tmp.message" |
---|
428 | # ssh lmdz@lmdz-forge "mail -s 'Nouvelle version pour install_lmdz.sh' $mail_address < "$local_d"/tmp.message" |
---|
429 | fi |
---|
430 | |
---|
431 | # |
---|
432 | # clean up of /tmp/lmdz if everything went smoothly |
---|
433 | # |
---|
434 | grep -q 'OK OK OK2 OK' tmp.resu |
---|
435 | RET=$? |
---|
436 | if [ ${RET} -eq 0 ] ; then |
---|
437 | echo "Quality control checks out for version $version" |
---|
438 | echo "We cleanup $tmpdir/LMDZ$version" |
---|
439 | echo "\rm -rf $tmpdir/LMDZ$version" |
---|
440 | \rm -rf $tmpdir/LMDZ$version |
---|
441 | fi |
---|
442 | |
---|