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 6808 for branches/NERC/dev_r5549_BDY_ZEROGRAD/NEMOGCM/SETTE/sette_rpt – NEMO

Ignore:
Timestamp:
2016-07-19T10:38:35+02:00 (8 years ago)
Author:
jamesharle
Message:

merge with trunk@6232 for consistency with SSB code

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/NERC/dev_r5549_BDY_ZEROGRAD/NEMOGCM/SETTE/sette_rpt

    r4991 r6808  
    9090    set f1o = ./WORCA2LIMPIS_LONG/{$mach}/{$dorv}/LONG/ocean.output 
    9191    set f1s = ./WORCA2LIMPIS_LONG/{$mach}/{$dorv}/LONG/solver.stat 
     92    set f1t = ./WORCA2LIMPIS_LONG/{$mach}/{$dorv}/LONG/tracer.stat 
    9293    set f2o = ./WORCA2LIMPIS_LONG/{$mach}/{$dorv}/SHORT/ocean.output 
    9394    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 
     95    set f2t = ./WORCA2LIMPIS_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 "ORCA2LIMPIS solver.stat restartability  passed" 
     103    else 
     104      set stato = 1 
     105      echo "ORCA2LIMPIS 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 "ORCA2LIMPIS tracer.stat restartability  passed" 
     118    else 
     119      set stato = 1 
     120      echo "ORCA2LIMPIS 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 
    112136    endif 
    113137    rm f1.tmp$$ 
    … …  
    293317    set f1o = ./WORCA2LIMPIS_16/{$mach}/{$dorv}/REPRO_2_8/ocean.output 
    294318    set f1s = ./WORCA2LIMPIS_16/{$mach}/{$dorv}/REPRO_2_8/solver.stat 
     319    set f1t = ./WORCA2LIMPIS_16/{$mach}/{$dorv}/REPRO_2_8/tracer.stat 
    295320    set f2o = ./WORCA2LIMPIS_16/{$mach}/{$dorv}/REPRO_4_4/ocean.output 
    296321    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 
     322    set f2t = ./WORCA2LIMPIS_16/{$mach}/{$dorv}/REPRO_4_4/tracer.stat 
     323 
     324    set stato = 0 
     325    cmp -s $f1s $f2s 
     326    if ( $status == 0 ) then 
     327      echo "ORCA2LIMPIS solver.stat reproducibility  passed" 
     328    else 
     329      set stato = 1 
     330      echo "ORCA2LIMPIS solver.stat reproducibility  FAILED" 
     331      if ( $pass == 1 ) then 
     332        echo "<return> to view solver.stat differences" 
     333        set y = $< 
     334        sdiff $f1s $f2s 
     335      endif 
     336    endif 
     337 
     338    cmp -s $f1t $f2t 
     339    if ( $status == 0 ) then 
     340      echo "ORCA2LIMPIS tracer.stat reproducibility  passed" 
     341    else 
     342      set stato = 1 
     343      echo "ORCA2LIMPIS tracer.stat reproducibility  FAILED" 
     344      if ( $pass == 1 ) then 
     345        echo "<return> to view tracer.stat differences" 
     346        set y = $< 
     347        sdiff $f1t $f2t 
     348      endif 
     349    endif 
     350    if ( $stato == 1 ) then 
     351      if ( $pass == 1 ) then 
     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      set stato = 0 
    313359    endif 
    314360  endif 
    … …  
    379425    else 
    380426      echo "ORCA2LIM3   reproducibility FAILED" 
     427      if ( $pass == 1 ) then 
     428        echo "<return> to view solver.stat differences" 
     429        set y = $< 
     430        sdiff $f1s $f2s 
     431        echo "<return> to view ocean.output differences" 
     432        set y = $< 
     433        sdiff $f1o $f2o | grep "|" 
     434        echo "<return> to continue" 
     435        set y = $< 
     436      endif 
     437    endif 
     438  endif 
     439 
     440 
     441  if ( -d ./WORCA2_LIM_OBS ) then 
     442    set dorv = `ls -1rtd ./WORCA2_LIM_OBS/{$mach}/* | tail -1l ` 
     443    set dorv = $dorv:t 
     444    set f1o = ./WORCA2_LIM_OBS/{$mach}/{$dorv}/REPRO_2_8/ocean.output 
     445    set f1s = ./WORCA2_LIM_OBS/{$mach}/{$dorv}/REPRO_2_8/solver.stat 
     446    set f2o = ./WORCA2_LIM_OBS/{$mach}/{$dorv}/REPRO_4_4/ocean.output 
     447    set f2s = ./WORCA2_LIM_OBS/{$mach}/{$dorv}/REPRO_4_4/solver.stat 
     448 
     449    cmp -s $f1s $f2s 
     450    if ( $status == 0 ) then 
     451      echo "ORCA2_LIM_OBS   reproducibility passed" 
     452    else 
     453      echo "ORCA2_LIM_OBS   reproducibility FAILED" 
    381454      if ( $pass == 1 ) then 
    382455        echo "<return> to view solver.stat differences" 
    … …  
    440513  endif 
    441514 
     515 
     516  if ( -d ./WORCA2AGUL_LONG ) then 
     517    set dorv = `ls -1rtd ./WORCA2AGUL_LONG/{$mach}/* | tail -1l ` 
     518    set dorv = $dorv:t 
     519    set f1o = ./WORCA2AGUL_LONG/{$mach}/{$dorv}/LONG/ocean.output 
     520    set f1s = ./WORCA2AGUL_LONG/{$mach}/{$dorv}/LONG/solver.stat 
     521    set f2o = ./WORCA2AGUL_LONG/{$mach}/{$dorv}/SHORT/ocean.output 
     522    set f2s = ./WORCA2AGUL_LONG/{$mach}/{$dorv}/SHORT/solver.stat 
     523   
     524    set nl = `wc -l $f2s` 
     525    tail -$nl[1] $f1s > f1.tmp$$ 
     526    cmp -s f1.tmp$$ $f2s 
     527    if ( $status == 0 ) then 
     528      echo "ORCA2_LIM_AGRIF restartability  passed" 
     529    else 
     530      echo "ORCA2_LIM_AGRIF restartability  FAILED" 
     531      if ( $pass == 1 ) then 
     532        echo "<return> to view solver.stat differences" 
     533        set y = $< 
     534        sdiff f1.tmp$$ $f2s 
     535        echo "<return> to view ocean.output differences" 
     536        set y = $< 
     537        sdiff $f1o $f2o | grep "|" 
     538        echo "<return> to continue" 
     539        set y = $< 
     540      endif 
     541    endif 
     542    rm f1.tmp$$ 
     543  endif 
     544 
     545  if ( -d ./WORCA2AGUL_16 ) then 
     546    set dorv = `ls -1rtd ./WORCA2AGUL_16/{$mach}/* | tail -1l ` 
     547    set dorv = $dorv:t 
     548    set f1o = ./WORCA2AGUL_16/{$mach}/{$dorv}/REPRO_2_8/ocean.output 
     549    set f1s = ./WORCA2AGUL_16/{$mach}/{$dorv}/REPRO_2_8/solver.stat 
     550    set f2o = ./WORCA2AGUL_16/{$mach}/{$dorv}/REPRO_4_4/ocean.output 
     551    set f2s = ./WORCA2AGUL_16/{$mach}/{$dorv}/REPRO_4_4/solver.stat 
     552   
     553    cmp -s $f1s $f2s 
     554    if ( $status == 0 ) then 
     555      echo "ORCA2_LIM_AGRIF reproducibility passed" 
     556    else 
     557      echo "ORCA2_LIM_AGRIF reproducibility FAILED" 
     558      if ( $pass == 1 ) then 
     559        echo "<return> to view solver.stat differences" 
     560        set y = $< 
     561        sdiff $f1s $f2s 
     562        echo "<return> to view ocean.output differences" 
     563        set y = $< 
     564        sdiff $f1o $f2o | grep "|" 
     565        echo "<return> to continue" 
     566        set y = $< 
     567      endif 
     568    endif 
     569  endif 
     570 
     571  if ( -d ./WORCA2AGUL_2_2_NAG ) then 
     572    set dorv = `ls -1rtd ./WORCA2AGUL_2_2_NAG/{$mach}/* | tail -1l ` 
     573    set dorv = $dorv:t 
     574    set f1o = ./WORCA2AGUL_2_2_NAG/{$mach}/{$dorv}/SHORT_NOAGRIF/ocean.output 
     575    set f1s = ./WORCA2AGUL_2_2_NAG/{$mach}/{$dorv}/SHORT_NOAGRIF/solver.stat 
     576    set dorv = `ls -1rtd ./WORCA2AGUL_2_2/{$mach}/* | tail -1l ` 
     577    set dorv = $dorv:t 
     578    set f2o = ./WORCA2AGUL_2_2/{$mach}/{$dorv}/SHORT_NOZOOM/ocean.output 
     579    set f2s = ./WORCA2AGUL_2_2/{$mach}/{$dorv}/SHORT_NOZOOM/solver.stat 
     580   
     581    cmp -s $f1s $f2s 
     582    if ( $status == 0 ) then 
     583      echo "ORCA2_LIM_AGRIF code corruption test passed" 
     584    else 
     585      echo "ORCA2_LIM_AGRIF code corruption test FAILED" 
     586      if ( $pass == 1 ) then 
     587        echo "<return> to view solver.stat differences" 
     588        set y = $< 
     589        sdiff $f1s $f2s 
     590        echo "<return> to view ocean.output differences" 
     591        set y = $< 
     592        sdiff $f1o $f2o | grep "|" 
     593        echo "<return> to continue" 
     594        set y = $< 
     595      endif 
     596    endif 
     597  endif 
     598 
    442599  echo "<return> for second (more detailed) pass (y/n)" 
    443600  set y = $< 
Note: See TracChangeset for help on using the changeset viewer.