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.
Changeset 6020 for branches/UKMO/icebergs_restart_single_file/NEMOGCM/SETTE/sette_rpt – NEMO

Ignore:
Timestamp:
2015-12-08T12:39:53+01:00 (8 years ago)
Author:
timgraham
Message:

Merged with head of trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/icebergs_restart_single_file/NEMOGCM/SETTE/sette_rpt

    r6019 r6020  
    393393 
    394394 
     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 
    395422  if ( -d ./WSAS_32 ) then 
    396423    set dorv = `ls -1rtd ./WSAS_32/{$mach}/* | tail -1l ` 
     
    440467  endif 
    441468 
     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 
    442553  echo "<return> for second (more detailed) pass (y/n)" 
    443554  set y = $< 
Note: See TracChangeset for help on using the changeset viewer.