- Timestamp:
- 2018-10-29T11:44:36+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_AMM15_package/NEMOGCM/SETTE/sette_rpt
r4991 r10248 440 440 endif 441 441 442 443 if ( -d ./WORCA2AGUL_LONG ) then 444 set dorv = `ls -1rtd ./WORCA2AGUL_LONG/{$mach}/* | tail -1l ` 445 set dorv = $dorv:t 446 set f1o = ./WORCA2AGUL_LONG/{$mach}/{$dorv}/LONG/ocean.output 447 set f1s = ./WORCA2AGUL_LONG/{$mach}/{$dorv}/LONG/solver.stat 448 set f2o = ./WORCA2AGUL_LONG/{$mach}/{$dorv}/SHORT/ocean.output 449 set f2s = ./WORCA2AGUL_LONG/{$mach}/{$dorv}/SHORT/solver.stat 450 451 set nl = `wc -l $f2s` 452 tail -$nl[1] $f1s > f1.tmp$$ 453 cmp -s f1.tmp$$ $f2s 454 if ( $status == 0 ) then 455 echo "ORCA2_LIM_AGRIF restartability passed" 456 else 457 echo "ORCA2_LIM_AGRIF restartability FAILED" 458 if ( $pass == 1 ) then 459 echo "<return> to view solver.stat differences" 460 set y = $< 461 sdiff f1.tmp$$ $f2s 462 echo "<return> to view ocean.output differences" 463 set y = $< 464 sdiff $f1o $f2o | grep "|" 465 echo "<return> to continue" 466 set y = $< 467 endif 468 endif 469 rm f1.tmp$$ 470 endif 471 472 if ( -d ./WORCA2AGUL_16 ) then 473 set dorv = `ls -1rtd ./WORCA2AGUL_16/{$mach}/* | tail -1l ` 474 set dorv = $dorv:t 475 set f1o = ./WORCA2AGUL_16/{$mach}/{$dorv}/REPRO_2_8/ocean.output 476 set f1s = ./WORCA2AGUL_16/{$mach}/{$dorv}/REPRO_2_8/solver.stat 477 set f2o = ./WORCA2AGUL_16/{$mach}/{$dorv}/REPRO_4_4/ocean.output 478 set f2s = ./WORCA2AGUL_16/{$mach}/{$dorv}/REPRO_4_4/solver.stat 479 480 cmp -s $f1s $f2s 481 if ( $status == 0 ) then 482 echo "ORCA2_LIM_AGRIF reproducibility passed" 483 else 484 echo "ORCA2_LIM_AGRIF reproducibility FAILED" 485 if ( $pass == 1 ) then 486 echo "<return> to view solver.stat differences" 487 set y = $< 488 sdiff $f1s $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 endif 497 498 if ( -d ./WORCA2AGUL_2_2_NAG ) then 499 set dorv = `ls -1rtd ./WORCA2AGUL_2_2_NAG/{$mach}/* | tail -1l ` 500 set dorv = $dorv:t 501 set f1o = ./WORCA2AGUL_2_2_NAG/{$mach}/{$dorv}/SHORT_NOAGRIF/ocean.output 502 set f1s = ./WORCA2AGUL_2_2_NAG/{$mach}/{$dorv}/SHORT_NOAGRIF/solver.stat 503 set dorv = `ls -1rtd ./WORCA2AGUL_2_2/{$mach}/* | tail -1l ` 504 set dorv = $dorv:t 505 set f2o = ./WORCA2AGUL_2_2/{$mach}/{$dorv}/SHORT_NOZOOM/ocean.output 506 set f2s = ./WORCA2AGUL_2_2/{$mach}/{$dorv}/SHORT_NOZOOM/solver.stat 507 508 cmp -s $f1s $f2s 509 if ( $status == 0 ) then 510 echo "ORCA2_LIM_AGRIF code corruption test passed" 511 else 512 echo "ORCA2_LIM_AGRIF code corruption test FAILED" 513 if ( $pass == 1 ) then 514 echo "<return> to view solver.stat differences" 515 set y = $< 516 sdiff $f1s $f2s 517 echo "<return> to view ocean.output differences" 518 set y = $< 519 sdiff $f1o $f2o | grep "|" 520 echo "<return> to continue" 521 set y = $< 522 endif 523 endif 524 endif 525 442 526 echo "<return> for second (more detailed) pass (y/n)" 443 527 set y = $<
Note: See TracChangeset
for help on using the changeset viewer.