New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
new_sette_rpt.sh in branches/2017/dev_merge_2017/NEMOGCM/SETTE – NEMO

source: branches/2017/dev_merge_2017/NEMOGCM/SETTE/new_sette_rpt.sh @ 9223

Last change on this file since 9223 was 9223, checked in by mathiot, 6 years ago

add function to detect not-succesfull runs (E R R O R in ocean.output) in sette_rpt

  • Property svn:executable set to *
File size: 13.2 KB
Line 
1#!/bin/bash -f
2#set -vx
3#
4# simple SETTE report generator.
5#
6# This version should be run in the SETTE directory.
7# The machine name will be picked up from the sette.sh script but the location of the
8# validation directory needs to be set here (currently assumed to reside in the ../CONFIG directory)
9#
10#########################################################################################
11######################### Start of function definitions #################################
12##
13
14function restfile() {
15# Rebuild ice restart for SAS CONFIG, and restartability checks. Expects LONG and SHORT run directories.
16# For Stand Alone Surface configuration ocean is not running, just run ice model; so no outputs ocean files.
17# Compares LONG rebuild restart ice file with equivalent entry from the SHORT rebuild restart ice file.
18#
19# check nco module loaded, and load it if not
20if [ ! $( echo $LOADEDMODULES | grep cdo ) ]; then module load cdo >& /dev/null ; fi
21#
22  vdir=$1
23  nam=$2
24  pass=$3
25#
26  if [ -d $vdir/$nam ]; then
27    dorv=`ls -1rt $vdir/$nam/$mach/ | tail -1l `
28    dorv=`echo $dorv | sed -e 's:.*/::'`
29    rep1=`ls -1rt $vdir/$nam/$mach/$dorv/ | tail -2l | head -1 `
30    rep2=`ls -1rt $vdir/$nam/$mach/$dorv/ | tail -1l`
31    cd ${SAS_RESTART_DIR}/LONG
32#SF add here compilation of rebuild_tools to rebuild restart files, and add comparison of restart files
33    cd ${TOOLS_DIR}
34    ./maketools -n REBUILD_NEMO -m ${mach} > /dev/null 2>&1
35    cd ${TOOLS_DIR}/REBUILD_NEMO
36#SF echo "REBUILD LONG restart SAS files, without standard output"
37    ./rebuild_nemo -t 4 ../../CONFIG/SAS_ST/LONG/SAS_00000240_restart_ice  $NPROC > /dev/null 2>&1
38#SF echo "REBUILD SHORT restart SAS files, without standard output"
39    ./rebuild_nemo -t 4 ../../CONFIG/SAS_ST/SHORT/SAS_00000240_restart_ice $NPROC >&-
40    cd ${SAS_RESTART_DIR}/LONG
41#SF echo "COPY rebuild restart files"
42    cp SAS_00000240_restart_ice.nc $vdir/$nam/$mach/$dorv/LONG/.
43    cp ../SHORT/SAS_00000240_restart_ice.nc $vdir/$nam/$mach/$dorv/SHORT/.
44    f1o=$vdir/$nam/$mach/$dorv/LONG/SAS_00000240_restart_ice.nc
45    f2o=$vdir/$nam/$mach/$dorv/SHORT/SAS_00000240_restart_ice.nc
46    if  [ ! -f $f1o ] &&  [ ! -f $f2o ] ; then
47      printf "%-20s %s\n" $nam " REBUILD SAS restart ice DOES NOT exists; incomplete test";
48      return;
49  fi
50    #
51  done_oce=0
52    #
53  if  [  -f $f1o ] && [  -f $f2o ]; then
54## Compare the two netcdf files
55    cdo diffn $f1o $f2o > cdo_diff.out 2> /dev/null
56## Identical if cdo_diff.out exists but has zero size
57    if [ ! -s cdo_diff.out ]; then
58       difi=0
59    else
60## Identical if first character of $dif ==0
61       dif=$( grep -om1 '[0-9]* of [0-9]* records differ' cdo_diff.out )
62# difi contains the first character of summary of cdo dif. if = 0, then 0 record differ between the 2 files   
63       if [ -n "$dif" ]; then
64           difi=`echo $dif | cut -c -1`
65       fi
66    fi
67    \rm cdo_diff.out
68
69    if [ $difi == 0 ]; then   
70       if [ $pass == 0 ]; then
71         printf "%-20s %s %s\n" $nam  " ice restarts are IDENTICAL  passed : " $dorv
72       fi
73    else
74       printf "%-20s %s %s\n" $nam  " ice restarts are DIFFERENT  FAILED : " $dorv 
75        #
76   # Offer view of differences on the second pass
77   #
78        if [ $pass == 1 ]; then
79          echo "<return> to view restart_ice.nc differences"
80          read y
81          cdo -diffv $f1o $f2o
82          done_oce=1
83          #echo "<return> to continue"
84          #read y
85        fi
86    fi
87  else
88      printf "%-20s %s\n" $nam " incomplete test";
89      return;
90  fi
91#
92fi
93}
94
95function resttest() { 
96#
97# Restartability checks. Expects LONG and SHORT run directories
98# Compares end of LONG stat files with equivalent entries from the SHORT stat files.
99#
100  vdir=$1
101  nam=$2
102  pass=$3
103#
104  if [ -d $vdir/$nam ]; then
105    dorv=`ls -1rt $vdir/$nam/$mach/ | tail -1l `
106    dorv=`echo $dorv | sed -e 's:.*/::'`
107    f1o=$vdir/$nam/$mach/$dorv/LONG/ocean.output
108    f1s=$vdir/$nam/$mach/$dorv/LONG/run.stat
109    f1t=$vdir/$nam/$mach/$dorv/LONG/tracer.stat
110    f2o=$vdir/$nam/$mach/$dorv/SHORT/ocean.output
111    f2s=$vdir/$nam/$mach/$dorv/SHORT/run.stat
112    f2t=$vdir/$nam/$mach/$dorv/SHORT/tracer.stat
113
114    if  [ ! -f $f1s ] &&  [ ! -f $f1t ] ; then
115      printf "%-20s %s\n" $nam " incomplete test";
116      return;
117    fi
118    if  [ ! -f $f2s ] &&  [ ! -f $f2t ] ; then
119      printf "%-20s %s\n" $nam " incomplete test";
120      return;
121    fi
122#
123    done_oce=0
124
125    if  [  -f $f1s ] && [  -f $f2s ]; then
126      nl=(`wc -l $f2s`)
127      tail -${nl[0]} $f1s > f1.tmp$$
128      cmp -s f1.tmp$$ $f2s
129      if [ $? == 0 ]; then
130        if [ $pass == 0 ]; then
131          printf "%-20s %s %s\n" $nam  " run.stat restartability  passed : " $dorv
132        fi
133      else
134        printf "%-20s %s %s\n" $nam  " run.stat restartability  FAILED : " $dorv 
135#
136# Offer view of differences on the second pass
137#
138        if [ $pass == 1 ]; then
139          echo "<return> to view run.stat differences"
140          read y
141          sdiff f1.tmp$$ $f2s
142          echo "<return> to view ocean.output differences"
143          read y
144          sdiff $f1o $f2o | grep "|"
145          done_oce=1
146          echo "<return> to continue"
147          read y
148        fi
149      fi
150    fi
151#
152# Check tracer.stat files (if they exist)
153#
154    if  [  -f $f1t ] && [  -f $f2t ]; then
155      nl=(`wc -l $f2t`)
156      tail -${nl[0]} $f1t > f1.tmp$$
157      cmp -s f1.tmp$$ $f2t
158      if [ $? == 0 ]; then
159        if [ $pass == 0 ]; then
160          printf "%-20s %s %s\n" $nam  " tracer.stat restartability  passed : " $dorv
161        fi
162      else
163        printf "%-20s %s %s\n" $nam  " tracer.stat restartability  FAILED : " $dorv 
164#
165# Offer view of differences on the second pass
166#
167        if [ $pass == 1 ]; then
168          echo "<return> to view tracer.stat differences"
169          read y
170          sdiff f1.tmp$$ $f2t
171#
172# Only offer ocean.output view if it has not been viewed previously
173#
174          if [ $done_oce == 0 ]; then
175            echo "<return> to view ocean.output differences"
176            read y
177            sdiff $f1o $f2o | grep "|"
178          fi
179          echo "<return> to continue"
180          read y
181        fi
182      fi
183    fi
184    rm f1.tmp$$
185  fi
186}
187function reprotest(){
188#
189# Reproducibility checks. Expects REPRO_N_M and REPRO_I_J run directories
190# Compares end of stat files from each
191#
192  vdir=$1
193  nam=$2
194  pass=$3
195#
196  if [ -d $vdir/$nam ]; then
197    dorv=`ls -1rt $vdir/$nam/$mach/ | tail -1l `
198    dorv=`echo $dorv | sed -e 's:.*/::'`
199    rep1=`ls -1rt $vdir/$nam/$mach/$dorv/ | grep REPRO | tail -2l | head -1 `
200    rep2=`ls -1rt $vdir/$nam/$mach/$dorv/ | grep REPRO | tail -1l`
201    f1o=$vdir/$nam/$mach/$dorv/$rep1/ocean.output
202    f1s=$vdir/$nam/$mach/$dorv/$rep1/run.stat
203    f1t=$vdir/$nam/$mach/$dorv/$rep1/tracer.stat
204    f2o=$vdir/$nam/$mach/$dorv/$rep2/ocean.output
205    f2s=$vdir/$nam/$mach/$dorv/$rep2/run.stat
206    f2t=$vdir/$nam/$mach/$dorv/$rep2/tracer.stat
207
208    if  [ ! -f $f1s ] && [ ! -f $f1t ] ; then
209      printf "%-20s %s\n" $nam " incomplete test";
210      return;
211    fi
212    if  [ ! -f $f2s ] && [ ! -f $f2t ] ; then
213      printf "%-20s %s\n" $nam " incomplete test";
214      return;
215    fi
216#
217    done_oce=0
218
219    if  [ -f $f1s ] && [ -f $f2s ] ; then
220      cmp -s $f1s $f2s
221      if [ $? == 0 ]; then
222        if [ $pass == 0 ]; then 
223          printf "%-20s %s %s\n" $nam  " run.stat reproducibility passed : " $dorv
224        fi
225      else
226        printf "%-20s %s %s\n" $nam  " run.stat reproducibility FAILED : " $dorv
227#
228# Offer view of differences on the second pass
229#
230        if [ $pass == 1 ]; then
231          echo "<return> to view run.stat differences"
232          read y
233          sdiff f1.tmp$$ $f2s
234          echo "<return> to view ocean.output differences"
235          read y
236          sdiff $f1o $f2o | grep "|"
237          done_oce=1
238          echo "<return> to continue"
239          read y
240        fi
241      fi
242    fi
243#
244# Check tracer.stat files (if they exist)
245#
246    if  [ -f $f1t ] && [ -f $f2t ] ; then
247      cmp -s $f1t $f2t
248      if [ $? == 0 ]; then
249        if [ $pass == 0 ]; then           printf "%-20s %s %s\n" $nam  " tracer.stat reproducibility passed : " $dorv
250        fi
251      else
252        printf "%-20s %s %s\n" $nam  " tracer.stat reproducibility  FAILED : " $dorv
253#
254# Offer view of differences on the second pass
255#
256        if [ $pass == 1 ]; then
257          echo "<return> to view tracer.stat differences"
258          read y
259          sdiff $f1t $f2t
260#
261# Only offer ocean.output view if it has not been viewed previously
262#
263          if [ $done_oce == 0 ]; then
264            echo "<return> to view ocean.output differences"
265            read y
266            sdiff $f1o $f2o | grep "|"
267          fi
268          echo "<return> to continue"
269          read y
270        fi
271      fi
272    fi
273  fi
274}
275
276function runtest(){
277#
278# Run checks.
279# Check presence of E R R O R in ocean.output from each
280#
281  vdir=$1
282  nam=$2
283  pass=$3
284#
285  if [ -d $vdir/$nam ]; then
286    dorv=`ls -1rt $vdir/$nam/$mach/ | tail -1l `
287    dorv=`echo $dorv | sed -e 's:.*/::'`
288    rep1=`ls -1rt $vdir/$nam/$mach/$dorv/ | grep REPRO | tail -2l | head -1 `
289    f1o=$vdir/$nam/$mach/$dorv/$rep1/ocean.output
290    if  [ ! -f $f1o ] ; then
291      printf "%-20s %s\n" $nam " ocean.output is MISSING : " $dorv
292      return;
293    else
294      nerr=`grep 'E R R O R' $f1o | wc -l`
295      if [[ $nerr > 0 ]]; then
296        printf "%-20s %s %s\n" $nam " run FAILED : " $dorv
297        if [ $pass == 1 ]; then
298          echo "<return> to view end of ocean.output"
299          read y
300          tail -100 $f1o
301          echo ''
302          echo "full ocean.output available here: $f1o"
303        fi
304      fi
305    fi
306  else
307    printf "%-20s %s %s\n" $nam  " directory is MISSING : " $dorv
308  fi
309}
310
311function identictest(){
312#
313#  checks AGRIF does not corrupe results with no AGRIF zoom. Expects ORCA2AGUL/AGRIFNOZ and ORCA2AGUL_NAGR/AGRIFNO  run directories
314# Compares run.stat files for each
315#
316  vdir=$1
317  dir1=$2
318  dir2=$3
319  pass=$4
320#
321  if [ -d $vdir/$dir1 ] && [ -d $vdir/$dir2 ]; then
322    dorv1=`ls -1rt $vdir/$dir1/$mach/ | tail -1l `
323    dorv1=`echo $dorv1 | sed -e 's:.*/::'`
324    dorv2=`ls -1rt $vdir/$dir2/$mach/ | tail -1l `
325    dorv2=`echo $dorv2 | sed -e 's:.*/::'`
326
327    rep1=`ls -1rt $vdir/$dir1/$mach/$dorv1/ |  tail -2l | head -1 `
328    rep2=`ls -1rt $vdir/$dir2/$mach/$dorv2/ |  tail -1l`
329    f1s=$vdir/$dir1/$mach/$dorv1/$rep1/run.stat
330    f2s=$vdir/$dir2/$mach/$dorv2/$rep2/run.stat
331
332    if  [ ! -f $f1s ] && [ ! -f $f2s ] ; then
333      printf "%-20s %s\n" $dir1 $dir2 " incomplete test";
334      return;
335    fi
336#
337    done_oce=0
338
339    if  [ -f $f1s ] && [ -f $f2s ] ; then
340      cmp -s $f1s $f2s
341      if [ $? == 0 ]; then
342        if [ $pass == 0 ]; then
343          printf "%-20s %s %s %s %s\n" $rep1 $rep2  " AGRIF: run.stat unchanged - test  passed : " $dorv1 $dorv2
344        fi
345      else
346        printf "%-20s %s %s %s %s\n" $rep1 $rep2  " for AGRIF, run.stat test FAILED : " $dorv1 $dorv2
347#
348# Offer view of differences on the second pass
349#
350        if [ $pass == 1 ]; then
351          echo "<return> to view run.stat differences"
352          read y
353          sdiff $f1s $f2s
354          done_oce=1
355          echo "<return> to continue"
356          read y
357        fi
358      fi
359    fi
360  else
361    printf "%-20s %s\n" $dir1 $dir2 " incomplete test";
362  fi
363}
364########################### END of function definitions #################################
365##                                                                                     ##
366##    Main script                                                                      ##
367##                                                                                     ##
368#########################################################################################
369#
370  mach=`grep "COMPILER=" ./new_sette.sh | sed -e 's/COMPILER=//'`
371  NEMO_VALID=`grep "NEMO_VALIDATION_DIR=" ./param.cfg | sed -e 's/NEMO_VALIDATION_DIR=//'`
372# Directory to run the tests
373 SETTE_DIR=$(cd $(dirname "$0"); pwd)
374 MAIN_DIR=$(dirname $SETTE_DIR)
375 CONFIG_DIR0=${MAIN_DIR}/CONFIG
376 TOOLS_DIR=${MAIN_DIR}/TOOLS
377 COMPIL_DIR=${TOOLS_DIR}/COMPILE
378 NPROC=32
379
380  SAS_RESTART_DIR=${CONFIG_DIR0}/SAS_ST
381#
382  if [ ! -d $NEMO_VALID ]; then
383    echo "$NEMO_VALID validation directory not found"
384    exit
385  fi
386#
387# Show current revision tag and branch name
388#
389cmd="svn"
390[ ! -d "$SETTE_DIR/.svn" ] && cmd="git $cmd"
391revision=`$cmd info | grep Revision | cut -d ":" -f 2 | tr -d ' '`
392branchname=`$cmd info | grep URL | rev | cut -d "/" -f 3 | rev`
393echo "SETTE validation report : $branchname @ r$revision"
394#
395# The script also needs the date or revision tag. Currently this is taken from the latest sub-directory found in each directory
396
397for pass in  0 1
398do
399#
400 if [ $pass == 1 ]; then echo "---------------2nd pass------------------";fi
401#
402
403# Rebuild and restartability test for SAS
404#
405 for restart_file in WSAS_ST
406 do
407   restfile $NEMO_VALID $restart_file $pass
408 done
409#
410# Restartability test
411#
412 for restart_test in WGYREPIS_ST WORCA2LIM3PIS_ST WORCA2OFFPIS_ST WAMM12_ST WISOMIP_ST WORCA2AGR_ST
413 do
414   resttest $NEMO_VALID $restart_test $pass
415 done
416#
417# Reproducibility tests
418#
419 for repro_test in WGYREPIS_ST WORCA2LIM3PIS_ST WORCA2OFFPIS_ST WAMM12_ST WISOMIP_ST WORCA2_LIM3_OBS_ST WORCA2AGR_ST
420 do
421   reprotest $NEMO_VALID $repro_test $pass
422   runtest $NEMO_VALID $repro_test $pass
423 done
424
425
426
427# AGRIF special check
428 dir1=WORCA2AGUL_NOZOOM_ST
429 dir2=WORCA2AGUL_NOAGR_ST
430 identictest $NEMO_VALID $dir1 $dir2 $pass 
431
432
433done
434#
435## Additional checks for ORCA2AGUL/FIRST standalone AGRIF test
436## still to be added
437
438
439
440exit
Note: See TracBrowser for help on using the repository browser.