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 branches/2015/dev_r5803_NOC_WAD/NEMOGCM/SETTE – NEMO

source: branches/2015/dev_r5803_NOC_WAD/NEMOGCM/SETTE/sette_rpt @ 5870

Last change on this file since 5870 was 5870, checked in by acc, 8 years ago

Branch 2015/dev_r5803_NOC_WAD. Merge in trunk changes from 5803 to 5869 in preparation for merge. Also tidied and reorganised some wetting and drying code. Renamed wadlmt.F90 to wetdry.F90. Wetting drying code changes restricted to domzgr.F90, domvvl.F90 nemogcm.F90 sshwzv.F90, dynspg_ts.F90, wetdry.F90 and dynhpg.F90. Code passes full SETTE tests with ln_wd=.false.. Still awaiting test case for checking with ln_wd=.false.
  • Property svn:executable set to *
File size: 17.8 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 ./WGYRE_LONG ) then
29    set dorv = `ls -1rtd ./WGYRE_LONG/{$mach}/* | tail -1l `
30    set dorv = $dorv:t
31    set f1o = ./WGYRE_LONG/{$mach}/{$dorv}/LONG/ocean.output
32    set f1s = ./WGYRE_LONG/{$mach}/{$dorv}/LONG/solver.stat
33    set f2o = ./WGYRE_LONG/{$mach}/{$dorv}/SHORT/ocean.output
34    set f2s = ./WGYRE_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        restartability  passed"
41    else
42      echo "GYRE        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 ./WORCA2LIMPIS_LONG ) then
88    set dorv = `ls -1rtd ./WORCA2LIMPIS_LONG/{$mach}/* | tail -1l `
89    set dorv = $dorv:t
90    set f1o = ./WORCA2LIMPIS_LONG/{$mach}/{$dorv}/LONG/ocean.output
91    set f1s = ./WORCA2LIMPIS_LONG/{$mach}/{$dorv}/LONG/solver.stat
92    set f2o = ./WORCA2LIMPIS_LONG/{$mach}/{$dorv}/SHORT/ocean.output
93    set f2s = ./WORCA2LIMPIS_LONG/{$mach}/{$dorv}/SHORT/solver.stat
94 
95    set nl = `wc -l $f2s`
96    tail -$nl[1] $f1s > f1.tmp$$
97    cmp -s f1.tmp$$ $f2s
98    if ( $status == 0 ) then
99      echo "ORCA2LIMPIS restartability  passed"
100    else
101      echo "ORCA2LIMPIS restartability  FAILED"
102      if ( $pass == 1 ) then
103        echo "<return> to view solver.stat differences"
104        set y = $<
105        sdiff f1.tmp$$ $f2s
106        echo "<return> to view ocean.output differences"
107        set y = $<
108        sdiff $f1o $f2o | grep "|"
109        echo "<return> to continue"
110        set y = $<
111      endif
112    endif
113    rm f1.tmp$$
114  endif
115
116  if ( -d ./WORCA2OFFPIS_LONG ) then
117    set dorv = `ls -1rtd ./WORCA2OFFPIS_LONG/{$mach}/* | tail -1l `
118    set dorv = $dorv:t
119    set f1o = ./WORCA2OFFPIS_LONG/{$mach}/{$dorv}/LONG/ocean.output
120    set f1s = ./WORCA2OFFPIS_LONG/{$mach}/{$dorv}/LONG/tracer.stat
121    set f2o = ./WORCA2OFFPIS_LONG/{$mach}/{$dorv}/SHORT/ocean.output
122    set f2s = ./WORCA2OFFPIS_LONG/{$mach}/{$dorv}/SHORT/tracer.stat
123
124    set nl = `wc -l $f2s`
125    tail -$nl[1] $f1s > f1.tmp$$
126    cmp -s f1.tmp$$ $f2s
127    if ( $status == 0 ) then
128      echo "ORCA2OFFPIS restartability  passed"
129    else
130      echo "ORCA2OFFPIS restartability  FAILED"
131      if ( $pass == 1 ) then
132        echo "<return> to view tracer.stat differences"
133        set y = $<
134        sdiff f1.tmp$$ $f2s
135        echo "<return> to view ocean.output differences"
136        set y = $<
137        sdiff $f1o $f2o | grep "|"
138        echo "<return> to continue"
139        set y = $<
140      endif
141    endif
142    rm f1.tmp$$
143  endif
144 
145  if ( -d ./WAMM12_LONG ) then
146    set dorv = `ls -1rtd ./WAMM12_LONG/{$mach}/* | tail -1l `
147    set dorv = $dorv:t
148    set f1o = ./WAMM12_LONG/{$mach}/{$dorv}/LONG/ocean.output
149    set f1s = ./WAMM12_LONG/{$mach}/{$dorv}/LONG/solver.stat
150    set f2o = ./WAMM12_LONG/{$mach}/{$dorv}/SHORT/ocean.output
151    set f2s = ./WAMM12_LONG/{$mach}/{$dorv}/SHORT/solver.stat
152
153    set nl = `wc -l $f2s`
154    tail -$nl[1] $f1s > f1.tmp$$
155    cmp -s f1.tmp$$ $f2s
156    if ( $status == 0 ) then
157      echo "AMM12       restartability  passed"
158    else
159      echo "AMM12       restartability  FAILED"
160      if ( $pass == 1 ) then
161        echo "<return> to view solver.stat differences"
162        set y = $<
163        sdiff f1.tmp$$ $f2s
164        echo "<return> to view ocean.output differences"
165        set y = $<
166        sdiff $f1o $f2o | grep "|"
167        echo "<return> to continue"
168        set y = $<
169      endif
170    endif
171    rm f1.tmp$$
172  endif
173  if ( -d ./WORCA2LIM3_LONG ) then
174    set dorv = `ls -1rtd ./WORCA2LIM3_LONG/{$mach}/* | tail -1l `
175    set dorv = $dorv:t
176    set f1o = ./WORCA2LIM3_LONG/{$mach}/{$dorv}/LONG/ocean.output
177    set f1s = ./WORCA2LIM3_LONG/{$mach}/{$dorv}/LONG/solver.stat
178    set f2o = ./WORCA2LIM3_LONG/{$mach}/{$dorv}/SHORT/ocean.output
179    set f2s = ./WORCA2LIM3_LONG/{$mach}/{$dorv}/SHORT/solver.stat
180    set nl = `wc -l $f2s`
181    tail -$nl[1] $f1s > f1.tmp$$
182    cmp -s f1.tmp$$ $f2s
183    if ( $status == 0 ) then
184      echo "ORCA2LIM3   restartability  passed"
185    else
186      echo "ORCA2LIM3   restartability  FAILED"
187      if ( $pass == 1 ) then
188        echo "<return> to view solver.stat differences"
189        set y = $<
190        sdiff f1.tmp$$ $f2s
191        echo "<return> to view ocean.output differences"
192        set y = $<
193        sdiff $f1o $f2o | grep "|"
194        echo "<return> to continue"
195        set y = $<
196      endif
197    endif
198    rm f1.tmp$$
199  endif
200
201  if ( -d ./WSAS_LONG ) then
202    set dorv = `ls -1rtd ./WSAS_LONG/{$mach}/* | tail -1l `
203    set dorv = $dorv:t
204    set f1o = ./WSAS_LONG/{$mach}/{$dorv}/LONG/ocean.output
205    set f1s = ./WSAS_LONG/{$mach}/{$dorv}/LONG/solver.stat
206    set f2o = ./WSAS_LONG/{$mach}/{$dorv}/SHORT/ocean.output
207    set f2s = ./WSAS_LONG/{$mach}/{$dorv}/SHORT/solver.stat
208    foreach f ( $f1o $f1s $f2o $f2s )
209     if ( ! -f $f ) then
210      echo 'SAS         restartability  inconclusive ( ' $f:t ' not found )'
211      goto NEXT1
212     endif
213    end
214
215    set nl = `wc -l $f2s`
216    tail -$nl[1] $f1s > f1.tmp$$
217    cmp -s f1.tmp$$ $f2s
218    if ( $status == 0 ) then
219      echo "SAS         restartability  passed"
220    else
221      echo "SAS         restartability  FAILED"
222      if ( $pass == 1 ) then
223        echo "<return> to view solver.stat differences"
224        set y = $<
225        sdiff f1.tmp$$ $f2s
226        echo "<return> to view ocean.output differences"
227        set y = $<
228        sdiff $f1o $f2o | grep "|"
229        echo "<return> to continue"
230        set y = $<
231      endif
232    endif
233    rm f1.tmp$$
234  endif
235
236NEXT1:
237 
238  if ( -d ./WGYRE_4 ) then
239    set dorv = `ls -1rtd ./WGYRE_4/{$mach}/* | tail -1l `
240    set dorv = $dorv:t
241    set f1o = ./WGYRE_4/{$mach}/{$dorv}/REPRO_1_4/ocean.output
242    set f1s = ./WGYRE_4/{$mach}/{$dorv}/REPRO_1_4/solver.stat
243    set f2o = ./WGYRE_4/{$mach}/{$dorv}/REPRO_2_2/ocean.output
244    set f2s = ./WGYRE_4/{$mach}/{$dorv}/REPRO_2_2/solver.stat
245 
246    cmp -s $f1s $f2s
247    if ( $status == 0 ) then
248      echo "GYRE        reproducibility passed"
249    else
250      echo "GYRE        reproducibility FAILED"
251      if ( $pass == 1 ) then
252        echo "<return> to view solver.stat differences"
253        set y = $<
254        sdiff $f1s $f2s
255        echo "<return> to view ocean.output differences"
256        set y = $<
257        sdiff $f1o $f2o | grep "|"
258        echo "<return> to continue"
259        set y = $<
260      endif
261    endif
262  endif
263
264  if ( -d ./WISOMIP_4 ) then
265    set dorv = `ls -1rtd ./WISOMIP_4/{$mach}/* | tail -1l `
266    set dorv = $dorv:t
267    set f1o = ./WISOMIP_4/{$mach}/{$dorv}/REPRO_1_4/ocean.output
268    set f1s = ./WISOMIP_4/{$mach}/{$dorv}/REPRO_1_4/solver.stat
269    set f2o = ./WISOMIP_4/{$mach}/{$dorv}/REPRO_2_2/ocean.output
270    set f2s = ./WISOMIP_4/{$mach}/{$dorv}/REPRO_2_2/solver.stat
271
272    cmp -s $f1s $f2s
273    if ( $status == 0 ) then
274      echo "ISOMIP      reproducibility passed"
275    else
276      echo "ISOMIP      reproducibility FAILED"
277      if ( $pass == 1 ) then
278        echo "<return> to view solver.stat differences"
279        set y = $<
280        sdiff $f1s $f2s
281        echo "<return> to view ocean.output differences"
282        set y = $<
283        sdiff $f1o $f2o | grep "|"
284        echo "<return> to continue"
285        set y = $<
286      endif
287    endif
288  endif
289 
290  if ( -d ./WORCA2LIMPIS_16 ) then
291    set dorv = `ls -1rtd ./WORCA2LIMPIS_16/{$mach}/* | tail -1l `
292    set dorv = $dorv:t
293    set f1o = ./WORCA2LIMPIS_16/{$mach}/{$dorv}/REPRO_2_8/ocean.output
294    set f1s = ./WORCA2LIMPIS_16/{$mach}/{$dorv}/REPRO_2_8/solver.stat
295    set f2o = ./WORCA2LIMPIS_16/{$mach}/{$dorv}/REPRO_4_4/ocean.output
296    set f2s = ./WORCA2LIMPIS_16/{$mach}/{$dorv}/REPRO_4_4/solver.stat
297 
298    cmp -s $f1s $f2s
299    if ( $status == 0 ) then
300      echo "ORCA2LIMPIS reproducibility passed"
301    else
302      echo "ORCA2LIMPIS reproducibility FAILED"
303      if ( $pass == 1 ) then
304        echo "<return> to view solver.stat differences"
305        set y = $<
306        sdiff $f1s $f2s
307        echo "<return> to view ocean.output differences"
308        set y = $<
309        sdiff $f1o $f2o | grep "|"
310        echo "<return> to continue"
311        set y = $<
312      endif
313    endif
314  endif
315
316  if ( -d ./WORCA2OFFPIS_16 ) then
317    set dorv = `ls -1rtd ./WORCA2OFFPIS_16/{$mach}/* | tail -1l `
318    set dorv = $dorv:t
319    set f1o = ./WORCA2OFFPIS_16/{$mach}/{$dorv}/REPRO_2_8/ocean.output
320    set f1s = ./WORCA2OFFPIS_16/{$mach}/{$dorv}/REPRO_2_8/tracer.stat
321    set f2o = ./WORCA2OFFPIS_16/{$mach}/{$dorv}/REPRO_4_4/ocean.output
322    set f2s = ./WORCA2OFFPIS_16/{$mach}/{$dorv}/REPRO_4_4/tracer.stat
323
324    cmp -s $f1s $f2s
325    if ( $status == 0 ) then
326      echo "ORCA2OFFPIS reproducibility passed"
327    else
328      echo "ORCA2OFFPIS reproducibility FAILED"
329      if ( $pass == 1 ) then
330        echo "<return> to view tracer.stat differences"
331        set y = $<
332        sdiff $f1s $f2s
333        echo "<return> to view ocean.output differences"
334        set y = $<
335        sdiff $f1o $f2o | grep "|"
336        echo "<return> to continue"
337        set y = $<
338      endif
339    endif
340  endif
341 
342  if ( -d ./WAMM12_32 ) then
343    set dorv = `ls -1rtd ./WAMM12_32/{$mach}/* | tail -1l `
344    set dorv = $dorv:t
345    set f1o = ./WAMM12_32/{$mach}/{$dorv}/REPRO_4_8/ocean.output
346    set f1s = ./WAMM12_32/{$mach}/{$dorv}/REPRO_4_8/solver.stat
347    set f2o = ./WAMM12_32/{$mach}/{$dorv}/REPRO_8_4/ocean.output
348    set f2s = ./WAMM12_32/{$mach}/{$dorv}/REPRO_8_4/solver.stat
349
350    cmp -s $f1s $f2s
351    if ( $status == 0 ) then
352      echo "AMM12       reproducibility passed"
353    else
354      echo "AMM12       reproducibility FAILED"
355      if ( $pass == 1 ) then
356        echo "<return> to view solver.stat differences"
357        set y = $<
358        sdiff $f1s $f2s
359        echo "<return> to view ocean.output differences"
360        set y = $<
361        sdiff $f1o $f2o | grep "|"
362        echo "<return> to continue"
363        set y = $<
364      endif
365    endif
366  endif
367
368  if ( -d ./WORCA2LIM3_16 ) then
369    set dorv = `ls -1rtd ./WORCA2LIM3_16/{$mach}/* | tail -1l `
370    set dorv = $dorv:t
371    set f1o = ./WORCA2LIM3_16/{$mach}/{$dorv}/REPRO_2_8/ocean.output
372    set f1s = ./WORCA2LIM3_16/{$mach}/{$dorv}/REPRO_2_8/solver.stat
373    set f2o = ./WORCA2LIM3_16/{$mach}/{$dorv}/REPRO_4_4/ocean.output
374    set f2s = ./WORCA2LIM3_16/{$mach}/{$dorv}/REPRO_4_4/solver.stat
375
376    cmp -s $f1s $f2s
377    if ( $status == 0 ) then
378      echo "ORCA2LIM3   reproducibility passed"
379    else
380      echo "ORCA2LIM3   reproducibility FAILED"
381      if ( $pass == 1 ) then
382        echo "<return> to view solver.stat differences"
383        set y = $<
384        sdiff $f1s $f2s
385        echo "<return> to view ocean.output differences"
386        set y = $<
387        sdiff $f1o $f2o | grep "|"
388        echo "<return> to continue"
389        set y = $<
390      endif
391    endif
392  endif
393
394
395  if ( -d ./WORCA2_LIM_OBS ) then
396    set dorv = `ls -1rtd ./WORCA2_LIM_OBS/{$mach}/* | tail -1l `
397    set dorv = $dorv:t
398    set f1o = ./WORCA2_LIM_OBS/{$mach}/{$dorv}/REPRO_2_8/ocean.output
399    set f1s = ./WORCA2_LIM_OBS/{$mach}/{$dorv}/REPRO_2_8/solver.stat
400    set f2o = ./WORCA2_LIM_OBS/{$mach}/{$dorv}/REPRO_4_4/ocean.output
401    set f2s = ./WORCA2_LIM_OBS/{$mach}/{$dorv}/REPRO_4_4/solver.stat
402
403    cmp -s $f1s $f2s
404    if ( $status == 0 ) then
405      echo "ORCA2_LIM_OBS   reproducibility passed"
406    else
407      echo "ORCA2_LIM_OBS   reproducibility FAILED"
408      if ( $pass == 1 ) then
409        echo "<return> to view solver.stat differences"
410        set y = $<
411        sdiff $f1s $f2s
412        echo "<return> to view ocean.output differences"
413        set y = $<
414        sdiff $f1o $f2o | grep "|"
415        echo "<return> to continue"
416        set y = $<
417      endif
418    endif
419  endif
420
421
422  if ( -d ./WSAS_32 ) then
423    set dorv = `ls -1rtd ./WSAS_32/{$mach}/* | tail -1l `
424    set dorv = $dorv:t
425    set f1o = ./WSAS_32/{$mach}/{$dorv}/REPRO_4_8/ocean.output
426    set f1s = ./WSAS_32/{$mach}/{$dorv}/REPRO_4_8/solver.stat
427    set f2o = ./WSAS_32/{$mach}/{$dorv}/REPRO_8_4/ocean.output
428    set f2s = ./WSAS_32/{$mach}/{$dorv}/REPRO_8_4/solver.stat
429
430    foreach f ( $f1o $f1s $f2o $f2s )
431     if ( ! -f $f ) then
432      echo 'SAS         reproducibility inconclusive ( ' $f:t ' not found )'
433      goto NEXT2
434     endif
435    end
436
437    cmp -s $f1s $f2s
438    if ( $status == 0 ) then
439      echo "SAS reproducibility passed"
440    else
441      echo "SAS reproducibility FAILED"
442      if ( $pass == 1 ) then
443        echo "<return> to view solver.stat differences"
444        set y = $<
445        sdiff $f1s $f2s
446        echo "<return> to view ocean.output differences"
447        set y = $<
448        sdiff $f1o $f2o | grep "|"
449        echo "<return> to continue"
450        set y = $<
451      endif
452    endif
453  endif
454NEXT2:
455
456  if ( -d ./WORCA2AGUL_1_2 ) then
457    set dorv = `ls -1rtd ./WORCA2AGUL_1_2/{$mach}/* | tail -1l `
458    set dorv = $dorv:t
459    set f1o = ./WORCA2AGUL_1_2/{$mach}/{$dorv}/SHORT/ocean.output
460    set f1s = ./WORCA2AGUL_1_2/{$mach}/{$dorv}/SHORT/solver.stat
461
462    if ( -f $f1o && -f  $f1s ) then
463      echo "ORCA2_LIM_AGRIF runability passed"
464    else
465      echo "ORCA2_LIM_AGRIF runability FAILED"
466    endif
467  endif
468
469
470  if ( -d ./WORCA2AGUL_LONG ) then
471    set dorv = `ls -1rtd ./WORCA2AGUL_LONG/{$mach}/* | tail -1l `
472    set dorv = $dorv:t
473    set f1o = ./WORCA2AGUL_LONG/{$mach}/{$dorv}/LONG/ocean.output
474    set f1s = ./WORCA2AGUL_LONG/{$mach}/{$dorv}/LONG/solver.stat
475    set f2o = ./WORCA2AGUL_LONG/{$mach}/{$dorv}/SHORT/ocean.output
476    set f2s = ./WORCA2AGUL_LONG/{$mach}/{$dorv}/SHORT/solver.stat
477 
478    set nl = `wc -l $f2s`
479    tail -$nl[1] $f1s > f1.tmp$$
480    cmp -s f1.tmp$$ $f2s
481    if ( $status == 0 ) then
482      echo "ORCA2_LIM_AGRIF restartability  passed"
483    else
484      echo "ORCA2_LIM_AGRIF restartability  FAILED"
485      if ( $pass == 1 ) then
486        echo "<return> to view solver.stat differences"
487        set y = $<
488        sdiff f1.tmp$$ $f2s
489        echo "<return> to view ocean.output differences"
490        set y = $<
491        sdiff $f1o $f2o | grep "|"
492        echo "<return> to continue"
493        set y = $<
494      endif
495    endif
496    rm f1.tmp$$
497  endif
498
499  if ( -d ./WORCA2AGUL_16 ) then
500    set dorv = `ls -1rtd ./WORCA2AGUL_16/{$mach}/* | tail -1l `
501    set dorv = $dorv:t
502    set f1o = ./WORCA2AGUL_16/{$mach}/{$dorv}/REPRO_2_8/ocean.output
503    set f1s = ./WORCA2AGUL_16/{$mach}/{$dorv}/REPRO_2_8/solver.stat
504    set f2o = ./WORCA2AGUL_16/{$mach}/{$dorv}/REPRO_4_4/ocean.output
505    set f2s = ./WORCA2AGUL_16/{$mach}/{$dorv}/REPRO_4_4/solver.stat
506 
507    cmp -s $f1s $f2s
508    if ( $status == 0 ) then
509      echo "ORCA2_LIM_AGRIF reproducibility passed"
510    else
511      echo "ORCA2_LIM_AGRIF reproducibility FAILED"
512      if ( $pass == 1 ) then
513        echo "<return> to view solver.stat differences"
514        set y = $<
515        sdiff $f1s $f2s
516        echo "<return> to view ocean.output differences"
517        set y = $<
518        sdiff $f1o $f2o | grep "|"
519        echo "<return> to continue"
520        set y = $<
521      endif
522    endif
523  endif
524
525  if ( -d ./WORCA2AGUL_2_2_NAG ) then
526    set dorv = `ls -1rtd ./WORCA2AGUL_2_2_NAG/{$mach}/* | tail -1l `
527    set dorv = $dorv:t
528    set f1o = ./WORCA2AGUL_2_2_NAG/{$mach}/{$dorv}/SHORT_NOAGRIF/ocean.output
529    set f1s = ./WORCA2AGUL_2_2_NAG/{$mach}/{$dorv}/SHORT_NOAGRIF/solver.stat
530    set dorv = `ls -1rtd ./WORCA2AGUL_2_2/{$mach}/* | tail -1l `
531    set dorv = $dorv:t
532    set f2o = ./WORCA2AGUL_2_2/{$mach}/{$dorv}/SHORT_NOZOOM/ocean.output
533    set f2s = ./WORCA2AGUL_2_2/{$mach}/{$dorv}/SHORT_NOZOOM/solver.stat
534 
535    cmp -s $f1s $f2s
536    if ( $status == 0 ) then
537      echo "ORCA2_LIM_AGRIF code corruption test passed"
538    else
539      echo "ORCA2_LIM_AGRIF code corruption test FAILED"
540      if ( $pass == 1 ) then
541        echo "<return> to view solver.stat differences"
542        set y = $<
543        sdiff $f1s $f2s
544        echo "<return> to view ocean.output differences"
545        set y = $<
546        sdiff $f1o $f2o | grep "|"
547        echo "<return> to continue"
548        set y = $<
549      endif
550    endif
551  endif
552
553  echo "<return> for second (more detailed) pass (y/n)"
554  set y = $<
555  if ( $y != "y" ) exit
556end
557cd $basedir
558exit
Note: See TracBrowser for help on using the repository browser.