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 7731 for branches/UKMO/dev_r5518_v3.6_asm_nemovar_community/NEMOGCM/SETTE/sette_rpt – NEMO

Ignore:
Timestamp:
2017-02-23T14:23:32+01:00 (7 years ago)
Author:
dford
Message:

Merge in revisions 6625:7726 of dev_r5518_v3.4_asm_nemovar_community, so this branch will be identical to revison 7726 of dev_r5518_v3.6_asm_nemovar_community.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_v3.6_asm_nemovar_community/NEMOGCM/SETTE/sette_rpt

    r4991 r7731  
    440440  endif 
    441441 
     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 
    442526  echo "<return> for second (more detailed) pass (y/n)" 
    443527  set y = $< 
Note: See TracChangeset for help on using the changeset viewer.