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.
sette_rpt in trunk/NEMOGCM/SETTE – NEMO

source: trunk/NEMOGCM/SETTE/sette_rpt @ 7715

Last change on this file since 7715 was 7715, checked in by flavoni, 6 years ago

#1850 commit new list of REFERENCE CONFIGURATIONS, and SETTE tests

  • Property svn:executable set to *
File size: 17.4 KB
Line 
1#!/bin/csh -f
2#
3# simple SETTE report generator.
4#
5# This version should be run in the SETTE directory.
6# The machine name will be picked up from the sette.sh script but the location of the
7# validation directory needs to be set here (currently assumed to reside in the ../CONFIG directory)
8#
9  set mach = `grep "COMPILER=" ./sette.sh | sed -e 's/COMPILER=//'`
10  set NEMO_VALID = `grep "NEMO_VALIDATION_DIR=" ./param.cfg | sed -e 's/NEMO_VALIDATION_DIR=//'`
11#
12  if ( ! -d $NEMO_VALID ) then
13    echo "$NEMO_VALID validation directory not found"
14  endif
15#
16  set basedir = `pwd`
17  cd $NEMO_VALID
18#
19# The script also needs the date or revision tag. Currently this is taken from the latest sub-directory found in each directory
20#
21#
22# Now loop through all the test directories. On the second pass the user can optionally examine any mismatched
23# outputs
24#
25# This is crude but readable and easily extended for new test configurations
26
27foreach pass (0 1 )
28  if ( -d ./WGYREPIS_LONG ) then
29    set dorv = `ls -1rtd ./WGYREPIS_LONG/{$mach}/* | tail -1l `
30    set dorv = $dorv:t
31    set f1o = ./WGYREPIS_LONG/{$mach}/{$dorv}/LONG/ocean.output
32    set f1s = ./WGYREPIS_LONG/{$mach}/{$dorv}/LONG/solver.stat
33    set f2o = ./WGYREPIS_LONG/{$mach}/{$dorv}/SHORT/ocean.output
34    set f2s = ./WGYREPIS_LONG/{$mach}/{$dorv}/SHORT/solver.stat
35 
36    set nl = `wc -l $f2s`
37    tail -$nl[1] $f1s > f1.tmp$$
38    cmp -s f1.tmp$$ $f2s
39    if ( $status == 0 ) then
40      echo "GYRE_PISCES        restartability  passed"
41    else
42      echo "GYRE_PISCES        restartability  FAILED"
43      if ( $pass == 1 ) then
44        echo "<return> to view solver.stat differences"
45        set y = $<
46        sdiff f1.tmp$$ $f2s
47        echo "<return> to view ocean.output differences"
48        set y = $<
49        sdiff $f1o $f2o | grep "|"
50        echo "<return> to continue"
51        set y = $<
52      endif
53    endif
54    rm f1.tmp$$
55  endif
56
57  if ( -d ./WISOMIP_LONG ) then
58    set dorv = `ls -1rtd ./WISOMIP_LONG/{$mach}/* | tail -1l `
59    set dorv = $dorv:t
60    set f1o = ./WISOMIP_LONG/{$mach}/{$dorv}/LONG/ocean.output
61    set f1s = ./WISOMIP_LONG/{$mach}/{$dorv}/LONG/solver.stat
62    set f2o = ./WISOMIP_LONG/{$mach}/{$dorv}/SHORT/ocean.output
63    set f2s = ./WISOMIP_LONG/{$mach}/{$dorv}/SHORT/solver.stat
64
65    set nl = `wc -l $f2s`
66    tail -$nl[1] $f1s > f1.tmp$$
67    cmp -s f1.tmp$$ $f2s
68    if ( $status == 0 ) then
69      echo "ISOMIP      restartability  passed"
70    else
71      echo "ISOMIP      restartability  FAILED"
72      if ( $pass == 1 ) then
73        echo "<return> to view solver.stat differences"
74        set y = $<
75        sdiff f1.tmp$$ $f2s
76        echo "<return> to view ocean.output differences"
77        set y = $<
78        sdiff $f1o $f2o | grep "|"
79        echo "<return> to continue"
80        set y = $<
81      endif
82    endif
83    rm f1.tmp$$
84  endif
85
86 
87  if ( -d ./WORCA2LIM3PIS_LONG ) then
88    set dorv = `ls -1rtd ./WORCA2LIM3PIS_LONG/{$mach}/* | tail -1l `
89    set dorv = $dorv:t
90    set f1o = ./WORCA2LIM3PIS_LONG/{$mach}/{$dorv}/LONG/ocean.output
91    set f1s = ./WORCA2LIM3PIS_LONG/{$mach}/{$dorv}/LONG/solver.stat
92    set f1t = ./WORCA2LIM3PIS_LONG/{$mach}/{$dorv}/LONG/tracer.stat
93    set f2o = ./WORCA2LIM3PIS_LONG/{$mach}/{$dorv}/SHORT/ocean.output
94    set f2s = ./WORCA2LIM3PIS_LONG/{$mach}/{$dorv}/SHORT/solver.stat
95    set f2t = ./WORCA2LIM3PIS_LONG/{$mach}/{$dorv}/SHORT/tracer.stat
96
97    set stato = 0
98    set nl = `wc -l $f2s`
99    tail -$nl[1] $f1s > f1.tmp$$
100    cmp -s f1.tmp$$ $f2s
101    if ( $status == 0 ) then
102      echo "ORCA2LIM3PIS solver.stat restartability  passed"
103    else
104      set stato = 1
105      echo "ORCA2LIM3PIS solver.stat restartability  FAILED"
106      if ( $pass == 1 ) then
107        echo "<return> to view solver.stat differences"
108        set y = $<
109        sdiff f1.tmp$$ $f2s
110      endif
111    endif
112
113    set nl = `wc -l $f2t`
114    tail -$nl[1] $f1t > f1.tmp$$
115    cmp -s f1.tmp$$ $f2t
116    if ( $status == 0 ) then
117      echo "ORCA2LIM3PIS tracer.stat restartability  passed"
118    else
119      set stato = 1
120      echo "ORCA2LIM3PIS tracer.stat restartability  FAILED"
121      if ( $pass == 1 ) then
122        echo "<return> to view tracer.stat differences"
123        set y = $<
124        sdiff f1.tmp$$ $f2t
125      endif
126    endif
127    if ( $stato == 1 ) then
128      if ( $pass == 1 ) then
129        echo "<return> to view ocean.output differences"
130        set y = $<
131        sdiff $f1o $f2o | grep "|"
132        echo "<return> to continue"
133        set y = $<
134      endif
135      set stato = 0
136    endif
137    rm f1.tmp$$
138  endif
139
140  if ( -d ./WORCA2OFFPIS_LONG ) then
141    set dorv = `ls -1rtd ./WORCA2OFFPIS_LONG/{$mach}/* | tail -1l `
142    set dorv = $dorv:t
143    set f1o = ./WORCA2OFFPIS_LONG/{$mach}/{$dorv}/LONG/ocean.output
144    set f1s = ./WORCA2OFFPIS_LONG/{$mach}/{$dorv}/LONG/tracer.stat
145    set f2o = ./WORCA2OFFPIS_LONG/{$mach}/{$dorv}/SHORT/ocean.output
146    set f2s = ./WORCA2OFFPIS_LONG/{$mach}/{$dorv}/SHORT/tracer.stat
147
148    set nl = `wc -l $f2s`
149    tail -$nl[1] $f1s > f1.tmp$$
150    cmp -s f1.tmp$$ $f2s
151    if ( $status == 0 ) then
152      echo "ORCA2OFFPIS restartability  passed"
153    else
154      echo "ORCA2OFFPIS restartability  FAILED"
155      if ( $pass == 1 ) then
156        echo "<return> to view tracer.stat differences"
157        set y = $<
158        sdiff f1.tmp$$ $f2s
159        echo "<return> to view ocean.output differences"
160        set y = $<
161        sdiff $f1o $f2o | grep "|"
162        echo "<return> to continue"
163        set y = $<
164      endif
165    endif
166    rm f1.tmp$$
167  endif
168 
169  if ( -d ./WAMM12_LONG ) then
170    set dorv = `ls -1rtd ./WAMM12_LONG/{$mach}/* | tail -1l `
171    set dorv = $dorv:t
172    set f1o = ./WAMM12_LONG/{$mach}/{$dorv}/LONG/ocean.output
173    set f1s = ./WAMM12_LONG/{$mach}/{$dorv}/LONG/solver.stat
174    set f2o = ./WAMM12_LONG/{$mach}/{$dorv}/SHORT/ocean.output
175    set f2s = ./WAMM12_LONG/{$mach}/{$dorv}/SHORT/solver.stat
176
177    set nl = `wc -l $f2s`
178    tail -$nl[1] $f1s > f1.tmp$$
179    cmp -s f1.tmp$$ $f2s
180    if ( $status == 0 ) then
181      echo "AMM12       restartability  passed"
182    else
183      echo "AMM12       restartability  FAILED"
184      if ( $pass == 1 ) then
185        echo "<return> to view solver.stat differences"
186        set y = $<
187        sdiff f1.tmp$$ $f2s
188        echo "<return> to view ocean.output differences"
189        set y = $<
190        sdiff $f1o $f2o | grep "|"
191        echo "<return> to continue"
192        set y = $<
193      endif
194    endif
195    rm f1.tmp$$
196  endif
197
198  if ( -d ./WSAS_LONG ) then
199    set dorv = `ls -1rtd ./WSAS_LONG/{$mach}/* | tail -1l `
200    set dorv = $dorv:t
201    set f1o = ./WSAS_LONG/{$mach}/{$dorv}/LONG/ocean.output
202    set f1s = ./WSAS_LONG/{$mach}/{$dorv}/LONG/solver.stat
203    set f2o = ./WSAS_LONG/{$mach}/{$dorv}/SHORT/ocean.output
204    set f2s = ./WSAS_LONG/{$mach}/{$dorv}/SHORT/solver.stat
205    foreach f ( $f1o $f1s $f2o $f2s )
206     if ( ! -f $f ) then
207      echo 'SAS         restartability  inconclusive ( ' $f:t ' not found )'
208      goto NEXT1
209     endif
210    end
211
212    set nl = `wc -l $f2s`
213    tail -$nl[1] $f1s > f1.tmp$$
214    cmp -s f1.tmp$$ $f2s
215    if ( $status == 0 ) then
216      echo "SAS         restartability  passed"
217    else
218      echo "SAS         restartability  FAILED"
219      if ( $pass == 1 ) then
220        echo "<return> to view solver.stat differences"
221        set y = $<
222        sdiff f1.tmp$$ $f2s
223        echo "<return> to view ocean.output differences"
224        set y = $<
225        sdiff $f1o $f2o | grep "|"
226        echo "<return> to continue"
227        set y = $<
228      endif
229    endif
230    rm f1.tmp$$
231  endif
232
233NEXT1:
234 
235  if ( -d ./WGYREPIS_32 ) then
236    set dorv = `ls -1rtd ./WGYREPIS_32/{$mach}/* | tail -1l `
237    set dorv = $dorv:t
238    set f1o = ./WGYREPIS_32/{$mach}/{$dorv}/REPRO_4_8/ocean.output
239    set f1s = ./WGYREPIS_32/{$mach}/{$dorv}/REPRO_4_8/solver.stat
240    set f2o = ./WGYREPIS_32/{$mach}/{$dorv}/REPRO_8_4/ocean.output
241    set f2s = ./WGYREPIS_32/{$mach}/{$dorv}/REPRO_8_4/solver.stat
242 
243    cmp -s $f1s $f2s
244    if ( $status == 0 ) then
245      echo "GYRE_PISCES        reproducibility passed"
246    else
247      echo "GYRE_PISCES        reproducibility FAILED"
248      if ( $pass == 1 ) then
249        echo "<return> to view solver.stat differences"
250        set y = $<
251        sdiff $f1s $f2s
252        echo "<return> to view ocean.output differences"
253        set y = $<
254        sdiff $f1o $f2o | grep "|"
255        echo "<return> to continue"
256        set y = $<
257      endif
258    endif
259  endif
260
261  if ( -d ./WISOMIP_32 ) then
262    set dorv = `ls -1rtd ./WISOMIP_32/{$mach}/* | tail -1l `
263    set dorv = $dorv:t
264    set f1o = ./WISOMIP_32/{$mach}/{$dorv}/REPRO_4_8/ocean.output
265    set f1s = ./WISOMIP_32/{$mach}/{$dorv}/REPRO_4_8/solver.stat
266    set f2o = ./WISOMIP_32/{$mach}/{$dorv}/REPRO_8_4/ocean.output
267    set f2s = ./WISOMIP_32/{$mach}/{$dorv}/REPRO_8_4/solver.stat
268
269    cmp -s $f1s $f2s
270    if ( $status == 0 ) then
271      echo "ISOMIP      reproducibility passed"
272    else
273      echo "ISOMIP      reproducibility FAILED"
274      if ( $pass == 1 ) then
275        echo "<return> to view solver.stat differences"
276        set y = $<
277        sdiff $f1s $f2s
278        echo "<return> to view ocean.output differences"
279        set y = $<
280        sdiff $f1o $f2o | grep "|"
281        echo "<return> to continue"
282        set y = $<
283      endif
284    endif
285  endif
286 
287  if ( -d ./WORCA2LIM3PIS_32 ) then
288    set dorv = `ls -1rtd ./WORCA2LIM3PIS_32/{$mach}/* | tail -1l `
289    set dorv = $dorv:t
290    set f1o = ./WORCA2LIM3PIS_32/{$mach}/{$dorv}/REPRO_4_8/ocean.output
291    set f1s = ./WORCA2LIM3PIS_32/{$mach}/{$dorv}/REPRO_4_8/solver.stat
292    set f1t = ./WORCA2LIM3PIS_32/{$mach}/{$dorv}/REPRO_4_8/tracer.stat
293    set f2o = ./WORCA2LIM3PIS_32/{$mach}/{$dorv}/REPRO_8_4/ocean.output
294    set f2s = ./WORCA2LIM3PIS_32/{$mach}/{$dorv}/REPRO_8_4/solver.stat
295    set f2t = ./WORCA2LIM3PIS_32/{$mach}/{$dorv}/REPRO_8_4/tracer.stat
296
297    set stato = 0
298    cmp -s $f1s $f2s
299    if ( $status == 0 ) then
300      echo "ORCA2LIM3PIS solver.stat reproducibility  passed"
301    else
302      set stato = 1
303      echo "ORCA2LIM3PIS solver.stat reproducibility  FAILED"
304      if ( $pass == 1 ) then
305        echo "<return> to view solver.stat differences"
306        set y = $<
307        sdiff $f1s $f2s
308      endif
309    endif
310
311    cmp -s $f1t $f2t
312    if ( $status == 0 ) then
313      echo "ORCA2LIM3PIS tracer.stat reproducibility  passed"
314    else
315      set stato = 1
316      echo "ORCA2LIM3PIS tracer.stat reproducibility  FAILED"
317      if ( $pass == 1 ) then
318        echo "<return> to view tracer.stat differences"
319        set y = $<
320        sdiff $f1t $f2t
321      endif
322    endif
323    if ( $stato == 1 ) then
324      if ( $pass == 1 ) then
325        echo "<return> to view ocean.output differences"
326        set y = $<
327        sdiff $f1o $f2o | grep "|"
328        echo "<return> to continue"
329        set y = $<
330      endif
331      set stato = 0
332    endif
333  endif
334
335  if ( -d ./WORCA2OFFPIS_32 ) then
336    set dorv = `ls -1rtd ./WORCA2OFFPIS_32/{$mach}/* | tail -1l `
337    set dorv = $dorv:t
338    set f1o = ./WORCA2OFFPIS_32/{$mach}/{$dorv}/REPRO_4_8/ocean.output
339    set f1s = ./WORCA2OFFPIS_32/{$mach}/{$dorv}/REPRO_4_8/tracer.stat
340    set f2o = ./WORCA2OFFPIS_32/{$mach}/{$dorv}/REPRO_8_4/ocean.output
341    set f2s = ./WORCA2OFFPIS_32/{$mach}/{$dorv}/REPRO_8_4/tracer.stat
342
343    cmp -s $f1s $f2s
344    if ( $status == 0 ) then
345      echo "ORCA2OFFPIS reproducibility passed"
346    else
347      echo "ORCA2OFFPIS reproducibility FAILED"
348      if ( $pass == 1 ) then
349        echo "<return> to view tracer.stat differences"
350        set y = $<
351        sdiff $f1s $f2s
352        echo "<return> to view ocean.output differences"
353        set y = $<
354        sdiff $f1o $f2o | grep "|"
355        echo "<return> to continue"
356        set y = $<
357      endif
358    endif
359  endif
360 
361  if ( -d ./WAMM12_32 ) then
362    set dorv = `ls -1rtd ./WAMM12_32/{$mach}/* | tail -1l `
363    set dorv = $dorv:t
364    set f1o = ./WAMM12_32/{$mach}/{$dorv}/REPRO_4_8/ocean.output
365    set f1s = ./WAMM12_32/{$mach}/{$dorv}/REPRO_4_8/solver.stat
366    set f2o = ./WAMM12_32/{$mach}/{$dorv}/REPRO_8_4/ocean.output
367    set f2s = ./WAMM12_32/{$mach}/{$dorv}/REPRO_8_4/solver.stat
368
369    cmp -s $f1s $f2s
370    if ( $status == 0 ) then
371      echo "AMM12       reproducibility passed"
372    else
373      echo "AMM12       reproducibility FAILED"
374      if ( $pass == 1 ) then
375        echo "<return> to view solver.stat differences"
376        set y = $<
377        sdiff $f1s $f2s
378        echo "<return> to view ocean.output differences"
379        set y = $<
380        sdiff $f1o $f2o | grep "|"
381        echo "<return> to continue"
382        set y = $<
383      endif
384    endif
385  endif
386
387  if ( -d ./WORCA2_LIM3_OBS ) then
388    set dorv = `ls -1rtd ./WORCA2_LIM3_OBS/{$mach}/* | tail -1l `
389    set dorv = $dorv:t
390    set f1o = ./WORCA2_LIM3_OBS/{$mach}/{$dorv}/REPRO_4_8/ocean.output
391    set f1s = ./WORCA2_LIM3_OBS/{$mach}/{$dorv}/REPRO_4_8/solver.stat
392    set f2o = ./WORCA2_LIM3_OBS/{$mach}/{$dorv}/REPRO_8_4/ocean.output
393    set f2s = ./WORCA2_LIM3_OBS/{$mach}/{$dorv}/REPRO_8_4/solver.stat
394
395    cmp -s $f1s $f2s
396    if ( $status == 0 ) then
397      echo "ORCA2_LIM3_OBS   reproducibility passed"
398    else
399      echo "ORCA2_LIM3_OBS   reproducibility FAILED"
400      if ( $pass == 1 ) then
401        echo "<return> to view solver.stat differences"
402        set y = $<
403        sdiff $f1s $f2s
404        echo "<return> to view ocean.output differences"
405        set y = $<
406        sdiff $f1o $f2o | grep "|"
407        echo "<return> to continue"
408        set y = $<
409      endif
410    endif
411  endif
412
413
414  if ( -d ./WSAS_32 ) then
415    set dorv = `ls -1rtd ./WSAS_32/{$mach}/* | tail -1l `
416    set dorv = $dorv:t
417    set f1o = ./WSAS_32/{$mach}/{$dorv}/REPRO_4_8/ocean.output
418    set f1s = ./WSAS_32/{$mach}/{$dorv}/REPRO_4_8/solver.stat
419    set f2o = ./WSAS_32/{$mach}/{$dorv}/REPRO_8_4/ocean.output
420    set f2s = ./WSAS_32/{$mach}/{$dorv}/REPRO_8_4/solver.stat
421
422    foreach f ( $f1o $f1s $f2o $f2s )
423     if ( ! -f $f ) then
424      echo 'SAS         reproducibility inconclusive ( ' $f:t ' not found )'
425      goto NEXT2
426     endif
427    end
428
429    cmp -s $f1s $f2s
430    if ( $status == 0 ) then
431      echo "SAS reproducibility passed"
432    else
433      echo "SAS reproducibility FAILED"
434      if ( $pass == 1 ) then
435        echo "<return> to view solver.stat differences"
436        set y = $<
437        sdiff $f1s $f2s
438        echo "<return> to view ocean.output differences"
439        set y = $<
440        sdiff $f1o $f2o | grep "|"
441        echo "<return> to continue"
442        set y = $<
443      endif
444    endif
445  endif
446NEXT2:
447
448  if ( -d ./WORCA2AGUL_1_2 ) then
449    set dorv = `ls -1rtd ./WORCA2AGUL_1_2/{$mach}/* | tail -1l `
450    set dorv = $dorv:t
451    set f1o = ./WORCA2AGUL_1_2/{$mach}/{$dorv}/SHORT/ocean.output
452    set f1s = ./WORCA2AGUL_1_2/{$mach}/{$dorv}/SHORT/solver.stat
453
454    if ( -f $f1o && -f  $f1s ) then
455      echo "ORCA2_LIM_AGRIF runability passed"
456    else
457      echo "ORCA2_LIM_AGRIF runability FAILED"
458    endif
459  endif
460
461
462  if ( -d ./WORCA2AGUL_LONG ) then
463    set dorv = `ls -1rtd ./WORCA2AGUL_LONG/{$mach}/* | tail -1l `
464    set dorv = $dorv:t
465    set f1o = ./WORCA2AGUL_LONG/{$mach}/{$dorv}/LONG/ocean.output
466    set f1s = ./WORCA2AGUL_LONG/{$mach}/{$dorv}/LONG/solver.stat
467    set f2o = ./WORCA2AGUL_LONG/{$mach}/{$dorv}/SHORT/ocean.output
468    set f2s = ./WORCA2AGUL_LONG/{$mach}/{$dorv}/SHORT/solver.stat
469 
470    set nl = `wc -l $f2s`
471    tail -$nl[1] $f1s > f1.tmp$$
472    cmp -s f1.tmp$$ $f2s
473    if ( $status == 0 ) then
474      echo "ORCA2_LIM_AGRIF restartability  passed"
475    else
476      echo "ORCA2_LIM_AGRIF restartability  FAILED"
477      if ( $pass == 1 ) then
478        echo "<return> to view solver.stat differences"
479        set y = $<
480        sdiff f1.tmp$$ $f2s
481        echo "<return> to view ocean.output differences"
482        set y = $<
483        sdiff $f1o $f2o | grep "|"
484        echo "<return> to continue"
485        set y = $<
486      endif
487    endif
488    rm f1.tmp$$
489  endif
490
491  if ( -d ./WORCA2AGUL_16 ) then
492    set dorv = `ls -1rtd ./WORCA2AGUL_16/{$mach}/* | tail -1l `
493    set dorv = $dorv:t
494    set f1o = ./WORCA2AGUL_16/{$mach}/{$dorv}/REPRO_2_8/ocean.output
495    set f1s = ./WORCA2AGUL_16/{$mach}/{$dorv}/REPRO_2_8/solver.stat
496    set f2o = ./WORCA2AGUL_16/{$mach}/{$dorv}/REPRO_4_4/ocean.output
497    set f2s = ./WORCA2AGUL_16/{$mach}/{$dorv}/REPRO_4_4/solver.stat
498 
499    cmp -s $f1s $f2s
500    if ( $status == 0 ) then
501      echo "ORCA2_LIM_AGRIF reproducibility passed"
502    else
503      echo "ORCA2_LIM_AGRIF reproducibility FAILED"
504      if ( $pass == 1 ) then
505        echo "<return> to view solver.stat differences"
506        set y = $<
507        sdiff $f1s $f2s
508        echo "<return> to view ocean.output differences"
509        set y = $<
510        sdiff $f1o $f2o | grep "|"
511        echo "<return> to continue"
512        set y = $<
513      endif
514    endif
515  endif
516
517  if ( -d ./WORCA2AGUL_2_2_NAG ) then
518    set dorv = `ls -1rtd ./WORCA2AGUL_2_2_NAG/{$mach}/* | tail -1l `
519    set dorv = $dorv:t
520    set f1o = ./WORCA2AGUL_2_2_NAG/{$mach}/{$dorv}/SHORT_NOAGRIF/ocean.output
521    set f1s = ./WORCA2AGUL_2_2_NAG/{$mach}/{$dorv}/SHORT_NOAGRIF/solver.stat
522    set dorv = `ls -1rtd ./WORCA2AGUL_2_2/{$mach}/* | tail -1l `
523    set dorv = $dorv:t
524    set f2o = ./WORCA2AGUL_2_2/{$mach}/{$dorv}/SHORT_NOZOOM/ocean.output
525    set f2s = ./WORCA2AGUL_2_2/{$mach}/{$dorv}/SHORT_NOZOOM/solver.stat
526 
527    cmp -s $f1s $f2s
528    if ( $status == 0 ) then
529      echo "ORCA2_LIM_AGRIF code corruption test passed"
530    else
531      echo "ORCA2_LIM_AGRIF code corruption test FAILED"
532      if ( $pass == 1 ) then
533        echo "<return> to view solver.stat differences"
534        set y = $<
535        sdiff $f1s $f2s
536        echo "<return> to view ocean.output differences"
537        set y = $<
538        sdiff $f1o $f2o | grep "|"
539        echo "<return> to continue"
540        set y = $<
541      endif
542    endif
543  endif
544
545  echo "<return> for second (more detailed) pass (y/n)"
546  set y = $<
547  if ( $y != "y" ) exit
548end
549cd $basedir
550exit
Note: See TracBrowser for help on using the repository browser.