1 | #!/bin/bash |
---|
2 | |
---|
3 | |
---|
4 | ## Messenger filenames |
---|
5 | FILE_DATE=mesg_01_date_$PATTERNAME.txt ; FILE_STAT=mesg_02_status_$PATTERNAME.txt |
---|
6 | FILE_RESU=mesg_03_result_$PATTERNAME.txt ; FILE_NEMO=mesg_04_nemogcm_$PATTERNAME.txt |
---|
7 | FILE_XIOS=mesg_05_xios_$PATTERNAME.txt ; FILE_COMP=mesg_06_compiler_$PATTERNAME.txt |
---|
8 | FILE_MPIN=mesg_07_mpi_$PATTERNAME.txt ; FILE_NCDF=mesg_08_netcdf_$PATTERNAME.txt |
---|
9 | FILE_INPT=mesg_09_inputs_$PATTERNAME.txt ; FILE_CPUT=mesg_10_cputime_$PATTERNAME.txt |
---|
10 | FILE_COMM=mesg_11_comments_$PATTERNAME.txt; |
---|
11 | |
---|
12 | ## Timestamped outcome & archive filenames |
---|
13 | FILE_TRUS=trusting_${DATE}_$PATTERNAME.txt; FILE_ARCH=trusting_${DATE}_$PATTERNAME.tar.gz |
---|
14 | |
---|
15 | |
---|
16 | print_step() { printf "\nStep.....\n$1\n"; } |
---|
17 | |
---|
18 | |
---|
19 | init_files() { |
---|
20 | echo 'Date' > ${FILE_DATE}; echo 'Status' > ${FILE_STAT} |
---|
21 | echo 'Result' > ${FILE_RESU}; echo 'NEMOGCM rev.' > ${FILE_NEMO} |
---|
22 | echo 'XIOS rev.' > ${FILE_XIOS}; echo 'Fortran compiler' > ${FILE_COMP} |
---|
23 | echo 'MPI libs' > ${FILE_MPIN}; echo 'NetCDF libs' > ${FILE_NCDF} |
---|
24 | echo 'Input files' > ${FILE_INPT}; echo 'Real CPU time' > ${FILE_CPUT} |
---|
25 | echo 'Comments' > ${FILE_COMM} |
---|
26 | |
---|
27 | ## 'Failed' status with 'Unknown error' by default |
---|
28 | echo $ST \ |
---|
29 | >> ${FILE_STAT} |
---|
30 | echo 'Unknown error' \ |
---|
31 | >> ${FILE_RESU} |
---|
32 | } |
---|
33 | |
---|
34 | |
---|
35 | get_date() { |
---|
36 | ## UTC time zone for timestamping |
---|
37 | local dat=$( date -ud "${DATE}" +"%F %R %Z" ) |
---|
38 | |
---|
39 | echo $dat \ |
---|
40 | >> ${FILE_DATE} |
---|
41 | } |
---|
42 | |
---|
43 | |
---|
44 | get_nemo_rev() { |
---|
45 | local dir rev_loc |
---|
46 | local rev=0 |
---|
47 | |
---|
48 | ## Loop on essential directories |
---|
49 | for dir in ${NEMO_ARCH} ${NEMO_CONF} ${NEMO_ENGI} \ |
---|
50 | ${NEMO_EAGR} ${NEMO_EIOI} ${NEMO_EFCM} \ |
---|
51 | ${NEMO_TCMP} ${NEMO_TRBD} \ |
---|
52 | ${DIR_XIOS} ; do |
---|
53 | |
---|
54 | ## For time being, just get revision from XIOS with no action on directory |
---|
55 | if [ $dir == ${DIR_XIOS} ]; then |
---|
56 | rev_loc=$( svn info $dir | awk '(NR == 9) {print $NF}' ) |
---|
57 | echo 'XIOS '${rev_loc} \ |
---|
58 | >> model.log |
---|
59 | echo "<a href=\"https://forge.ipsl.jussieu.fr/ioserver/changeset/${rev_loc}\" target=\"_blank\">${rev_loc}</a>" \ |
---|
60 | >> ${FILE_XIOS} |
---|
61 | continue |
---|
62 | fi |
---|
63 | |
---|
64 | echo $dir && ${SVN_CMD} $dir |
---|
65 | rev_loc=$( svn info $dir | awk '(NR == 9) {print $NF}' ) |
---|
66 | |
---|
67 | ## Keep last rev. nb |
---|
68 | [ ${rev_loc} -gt $rev ] && rev=${rev_loc} |
---|
69 | done |
---|
70 | |
---|
71 | echo 'NEMOGCM '$rev \ |
---|
72 | >> model.log |
---|
73 | echo "<a href=\"https://forge.ipsl.jussieu.fr/nemo/changeset/$rev\" target=\"_blank\">$rev</a>" \ |
---|
74 | >> ${FILE_NEMO} |
---|
75 | } |
---|
76 | |
---|
77 | |
---|
78 | get_soft_rel() { |
---|
79 | local soft soft_rel |
---|
80 | |
---|
81 | for soft in $CDO $COMPILER $MPI $NETCDF; do |
---|
82 | soft_rel='' |
---|
83 | |
---|
84 | ## Software strings to identify depends on use (sed is case-insensitive) |
---|
85 | if [ $IMOD -eq 1 ]; then |
---|
86 | ## Modules system: next word after "$soft/" |
---|
87 | soft_rel=$( echo $LOADEDMODULES | sed "s#.*$soft/\([0-9.a-z_]*\).*#\1#i" ) |
---|
88 | ## LOADEDMODULES=netcdf/mpi/4.1.3:cdo/1.5.9:intel/2013.0 |
---|
89 | ## LOADEDMODULES=bullxmpi/1.2.8.2:netcdf/4.3.3.1_hdf5_parallel:cdo/1.6.7 |
---|
90 | else |
---|
91 | ## Hard-coded paths: next word after "$soft" |
---|
92 | soft_rel=$( echo $PATH | sed "s#.*$soft\([0-9.a-z_]*\).*#\1#i" ) |
---|
93 | ## PATH=/smplocal/intel/impi/4.1.0.024/intel64/bin:/smplocal/pub/cdo/1.5.9/bin:/smplocal/pub/NetCDF/4.1.3/mpi/bin |
---|
94 | ## PATH=/usr/local/netcdf-4.3.3.1_hdf5_parallel/bin:/opt/mpi/bullxmpi/1.2.8.2/bin:/usr/local/netcdf-utils-4.3.3.1_hdf5/bin |
---|
95 | fi |
---|
96 | |
---|
97 | ## option --version would work for main compilers (gfortran, intel, pgfortran, ...) |
---|
98 | [ $soft == $COMPILER ] && soft_rel=$( $soft --version | grep -m1 -oe '\<[0-9. ]*\>' ) |
---|
99 | |
---|
100 | ## Cleaning characters string to display proper soft name |
---|
101 | soft=$( echo $soft | sed 's#\\##g; s#[/-]$##' ) |
---|
102 | |
---|
103 | echo $soft ${soft_rel} \ |
---|
104 | >> model.log |
---|
105 | done |
---|
106 | |
---|
107 | sed -n 4p model.log \ |
---|
108 | >> ${FILE_COMP} |
---|
109 | sed -n 5p model.log \ |
---|
110 | >> ${FILE_MPIN} |
---|
111 | sed -n 6p model.log \ |
---|
112 | >> ${FILE_NCDF} |
---|
113 | } |
---|
114 | |
---|
115 | |
---|
116 | get_inputs() { |
---|
117 | # List archive content & extract it by default |
---|
118 | local cmd_iol="tar -tvf ${NEMO_FORC}/${NEMO_TARF}" cmd_iof="tar -vxf ${NEMO_FORC}/${NEMO_TARF}" |
---|
119 | |
---|
120 | ## List & copy files in case of personal inputs |
---|
121 | [ -z "${NEMO_TARF}" ] && cmd_iol="ls ${NEMO_FORC}/*" && cmd_iof="\cp ${NEMO_FORC}/* ." |
---|
122 | |
---|
123 | ${cmd_iol} > inputs_list.txt |
---|
124 | ${cmd_iof} > /dev/null |
---|
125 | } |
---|
126 | |
---|
127 | |
---|
128 | diff_inputs() { |
---|
129 | local dif file |
---|
130 | local files_list='' mesg='Same' |
---|
131 | |
---|
132 | ## Simple diff |
---|
133 | for file in 'inputs_list.txt' *namelist_* *.xml cpp_*; do |
---|
134 | dif='' |
---|
135 | |
---|
136 | ## Continue even if input file is not in here (see after) |
---|
137 | if [ -e ${REFE_DIR}/$file ]; then dif=$( diff -q $file ${REFE_DIR}/$file ); else dif=0; fi |
---|
138 | |
---|
139 | ## Pass over useless file omission in benckmark directory |
---|
140 | if [[ -n "$dif" && "$dif" != '0' ]]; then |
---|
141 | mesg='Different'; echo $dif; files_list+=$file' ' |
---|
142 | fi |
---|
143 | |
---|
144 | done |
---|
145 | |
---|
146 | [ $mesg == 'Same' ] && echo $mesg |
---|
147 | echo $mesg \ |
---|
148 | >> ${FILE_INPT} |
---|
149 | |
---|
150 | ## List different files for web comment |
---|
151 | [ -n "${files_list}" ] && echo 'Inputs : '${files_list}'differ<br>' \ |
---|
152 | >> temp_${FILE_COMM} |
---|
153 | } |
---|
154 | |
---|
155 | |
---|
156 | job_pending() { |
---|
157 | local outline=$( printf "%100s" ) time_elapsed=0 time_increment=30 |
---|
158 | |
---|
159 | sleep ${time_increment} |
---|
160 | |
---|
161 | ## Append a log file while pending |
---|
162 | while [[ $( ${JOB_LIST} | grep ${JOB_ID} ) && ${time_elapsed} -lt ${TIME_LIMI} ]]; do |
---|
163 | printf "\n%s\n" ${outline// /#} \ |
---|
164 | >> computation.log |
---|
165 | ${JOB_INFO} ${JOB_ID} \ |
---|
166 | >> computation.log |
---|
167 | sleep ${time_increment} |
---|
168 | time_elapsed=$(( ${time_elapsed} + ${time_increment} )) |
---|
169 | done |
---|
170 | |
---|
171 | sleep ${time_increment} |
---|
172 | |
---|
173 | ## Kill remaining job & stop the test if it's too long |
---|
174 | [ ${time_elapsed} -eq ${TIME_LIMI} ] && ${JOB_DELE} ${JOB_ID} &> /dev/null && get_out 6 |
---|
175 | } |
---|
176 | |
---|
177 | |
---|
178 | diff_results() { |
---|
179 | local file |
---|
180 | local files_list='' |
---|
181 | |
---|
182 | ## Simple diff |
---|
183 | for file in 'ocean.output' *.stat; do |
---|
184 | |
---|
185 | ## Stop if no benchmark files (ocean.output, eventual stat files) |
---|
186 | [ ! -e ${REFE_DIR}/$file ] && export ST='FAILED' && get_out 7 |
---|
187 | |
---|
188 | diff -q $file ${REFE_DIR}/$file |
---|
189 | |
---|
190 | ## Continue even if it differs |
---|
191 | [ $? -ne 0 ] && export ST='FAILED' && files_list+=$file' ' |
---|
192 | done |
---|
193 | |
---|
194 | ## List different files for web comment |
---|
195 | [ -n "${files_list}" ] && echo 'Results : '${files_list}'differ<br>' \ |
---|
196 | >> temp_${FILE_COMM} |
---|
197 | } |
---|
198 | |
---|
199 | |
---|
200 | diff_restart() { |
---|
201 | local base_name comp dif file list_comp list_tmsp nb_dom time_step tmsp |
---|
202 | local files_list='' dift=0 |
---|
203 | |
---|
204 | ## Stop if no benchmark files (ie time.step) |
---|
205 | [ ! -e ${REFE_DIR}/time.step ] && export ST='FAILED' && get_out 7 |
---|
206 | time_step=$( cat ${REFE_DIR}/time.step | tr -d [:space:] ) |
---|
207 | |
---|
208 | ## Find all restart files to rebuild |
---|
209 | if [ $( find -regex ".*_restart.*[0-9]\.nc" -print -quit ) ]; then |
---|
210 | base_name=$( find -regex ".*_restart.*[0-9]\.nc" \ |
---|
211 | | sed "s#^\./\(.*\)_[0-9]*_restart.*#\1#" | sort -u ) |
---|
212 | list_comp=$( find -regex ".*_restart.*[0-9]\.nc" \ |
---|
213 | | sed "s#^.*\(restart[a-z_]*\)_[0-9].*\.nc#\1#" | sort -u ) |
---|
214 | list_tmsp=$( find -regex ".*_restart.*[0-9]\.nc" \ |
---|
215 | | sed "s#^.*\([0-9]\{8\}\)_restart.*#\1#" | sort -u ) |
---|
216 | |
---|
217 | ## Loop on each time step |
---|
218 | for tmsp in ${list_tmsp}; do |
---|
219 | for comp in ${list_comp}; do |
---|
220 | file=${base_name}_${tmsp}_${comp} |
---|
221 | nb_dom=$( find -name "${file}_[0-9]*.nc" | wc -l | awk '{ print $1 }' ) |
---|
222 | |
---|
223 | if [ ${nb_dom} -gt 1 ]; then |
---|
224 | ${NEMO_TRBD}/rebuild_nemo -t $NPROC $file ${nb_dom} > /dev/null |
---|
225 | [ $? -eq 0 ] && rm -f ${file}_[0-9]*.nc > /dev/null |
---|
226 | elif [ ${nb_dom} -eq 0 ]; then |
---|
227 | export ST='FAILED' && get_out 8 |
---|
228 | fi |
---|
229 | |
---|
230 | ## Compare restart files at same time step |
---|
231 | if [ $tmsp -eq ${time_step} ]; then |
---|
232 | |
---|
233 | ## Stop if no benchmark files (restart file) |
---|
234 | if [ -e ${REFE_DIR}/$file.nc ]; then |
---|
235 | |
---|
236 | ## UNIX `cmp` not suitable (timestamp in .nc file) |
---|
237 | dif=$( $CDOD $file.nc ${REFE_DIR}/$file.nc 2> /dev/null \ |
---|
238 | | awk '/records/ {print $0}' | sed '2 s/^/,/' | tr -d '\n' ) |
---|
239 | |
---|
240 | ## CDO can return void stdout with no difference |
---|
241 | if [[ -n "$dif" && $( echo $dif | awk '{print $1}' ) -ne 0 ]]; then |
---|
242 | export ST='FAILED' && files_list+=$file' ' |
---|
243 | let dift+=$( echo $dif | awk '{print $1}' ) |
---|
244 | echo $file.nc': '$dif |
---|
245 | fi |
---|
246 | |
---|
247 | else |
---|
248 | export ST='FAILED' && get_out 7 |
---|
249 | fi |
---|
250 | |
---|
251 | else |
---|
252 | continue |
---|
253 | fi |
---|
254 | |
---|
255 | done |
---|
256 | done |
---|
257 | |
---|
258 | ## List different files for web comment with sum of different parameters |
---|
259 | if [ $dift -ne 0 ]; then |
---|
260 | echo 'Restarts: '${files_list}$dift' record(s) differ<br>' | tee -a temp_${FILE_COMM} |
---|
261 | fi |
---|
262 | |
---|
263 | else |
---|
264 | export ST='FAILED' |
---|
265 | fi |
---|
266 | |
---|
267 | } |
---|
268 | |
---|
269 | |
---|
270 | get_cpu_time() { |
---|
271 | ## Interest |
---|
272 | local real_cpu_time=$( eval ${JOB_TIME} ) |
---|
273 | |
---|
274 | echo ${real_cpu_time} | tee -a ${FILE_CPUT} |
---|
275 | } |
---|
276 | |
---|
277 | |
---|
278 | comments() { |
---|
279 | local opat |
---|
280 | local line='' state=$1 |
---|
281 | |
---|
282 | if [ -e ocean.output ]; then |
---|
283 | ## 'W A R N I N G' by default |
---|
284 | opat="-A2 '^ $state'" |
---|
285 | [ "$state" == 'E R R O R' ] && opat="-A4 '$state'" |
---|
286 | |
---|
287 | ## Select first occurence for web comment |
---|
288 | line=$( grep -m1 $opat ocean.output | tr -d '\n' ) |
---|
289 | echo $line |
---|
290 | fi |
---|
291 | |
---|
292 | printf "$line<br>" \ |
---|
293 | >> temp_${FILE_COMM} |
---|
294 | } |
---|
295 | |
---|
296 | |
---|
297 | mesg_make() { |
---|
298 | ## Format comments for web |
---|
299 | [ -e temp_${FILE_COMM} ] && cat temp_${FILE_COMM} | tr -d '\n' | sed 's/<br>$//' \ |
---|
300 | >> ${FILE_COMM} |
---|
301 | |
---|
302 | ## Construct txt file for web with all messenger files |
---|
303 | paste -d ';' mesg_*.txt | tee ${FILE_TRUS} |
---|
304 | } |
---|
305 | |
---|
306 | |
---|
307 | mesg_publish() { |
---|
308 | local cmd |
---|
309 | |
---|
310 | ## Production mode (-p|--publish) |
---|
311 | if [ $PUBLISH -eq 1 ]; then |
---|
312 | |
---|
313 | ## Create or append historical trusting file |
---|
314 | if [ -f ${REFE_DIR}/trusting_$PATTERNAME.txt ]; then cmd='tail -1'; else cmd='cat'; fi |
---|
315 | |
---|
316 | $cmd ${FILE_TRUS} \ |
---|
317 | >> ${REFE_DIR}/trusting_$PATTERNAME.txt |
---|
318 | |
---|
319 | ## Send mail only when FAILED |
---|
320 | if [[ ! -z "$EMAIL" && $ST == 'FAILED' ]]; then |
---|
321 | |
---|
322 | ## Content |
---|
323 | cat <<END_MAIL \ |
---|
324 | > trusting.mail |
---|
325 | XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX |
---|
326 | |
---|
327 | Dear $USER, |
---|
328 | |
---|
329 | The trusting sequence for ${REFE_CONF} has failed. |
---|
330 | Directory: ${TEST_DIR} |
---|
331 | Archive created: ${FILE_ARCH} in ${REFE_DIR} |
---|
332 | |
---|
333 | XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX |
---|
334 | |
---|
335 | `cat ${TEST_DIR}/${FILE_TRUS}` |
---|
336 | END_MAIL |
---|
337 | |
---|
338 | ## Send with detailed subject |
---|
339 | mail -s "[NEMO Trusting ${NEMO_HPCC} ${REFE_CONF} ${NEMO_BRAN}] $ST $ERR" $EMAIL \ |
---|
340 | < trusting.mail |
---|
341 | fi |
---|
342 | |
---|
343 | fi |
---|
344 | } |
---|
345 | |
---|
346 | |
---|
347 | get_out() { |
---|
348 | local time_step=0 |
---|
349 | |
---|
350 | ERR=$1 |
---|
351 | cd ${TEST_DIR} ## In case of compilation error |
---|
352 | |
---|
353 | if [ $ST == 'FAILED' ]; then |
---|
354 | echo 'Failure' |
---|
355 | |
---|
356 | ## Error identification |
---|
357 | case $ERR in |
---|
358 | ## Compilation |
---|
359 | '1') ERR='XIOS compilation failed' ;; '2') ERR='NEMO compilation failed';; |
---|
360 | ## Submission |
---|
361 | '3') ERR='Missing input files' ;; '4') ERR='Job submission error' ;; |
---|
362 | ## Running |
---|
363 | '5') ERR='Crashed at time step' ;; '6') ERR='Exceeded time limit' ;; |
---|
364 | ## Results |
---|
365 | '7') ERR='Missing previous outputs';; '8') ERR='New outputs differ' ;; |
---|
366 | ## Undefined |
---|
367 | "*") ERR='Unknown error' ;; |
---|
368 | esac |
---|
369 | |
---|
370 | else |
---|
371 | ERR='Code is reliable' |
---|
372 | fi |
---|
373 | |
---|
374 | print_step '' |
---|
375 | |
---|
376 | ## Eventual comments from ocean.output |
---|
377 | if [ "$ERR" == 'Crashed at time step' ]; then |
---|
378 | comments 'E R R O R' |
---|
379 | [ -e time.step ] && time_step=$( cat time.step | tr -d ' ' ) |
---|
380 | ERR+=' '$time_step |
---|
381 | else |
---|
382 | comments 'W A R N I N G' |
---|
383 | [ "$ERR" == 'Exceeded time limit' ] && ERR+=' '$(( ${TIME_LIMIT}/3600 ))'h' |
---|
384 | fi |
---|
385 | |
---|
386 | export ERR |
---|
387 | sed -i "2 s/.*/$ST/" ${FILE_STAT}; sed -i "2 s/.*/$ERR/" ${FILE_RESU} |
---|
388 | |
---|
389 | ## Save tested configuration if trusting failed in production mode (-p|--publish) |
---|
390 | if [[ $ST == 'FAILED' && $PUBLISH -eq 1 ]]; then |
---|
391 | echo 'Creating archive '${FILE_ARCH}' under '${REFE_DIR} |
---|
392 | tar -czf ${REFE_DIR}/${FILE_ARCH} * ${NEMO_HOME}/CONFIG/${TEST_CONF}/MY_SRC \ |
---|
393 | ${NEMO_HOME}/CONFIG/${TEST_CONF}/WORK |
---|
394 | fi |
---|
395 | |
---|
396 | ## Share trusting result (.txt file/mail) |
---|
397 | mesg_make |
---|
398 | mesg_publish |
---|
399 | |
---|
400 | exit 0 |
---|
401 | } |
---|