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 5208 for branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/SETTE/sette_rpt – NEMO

Ignore:
Timestamp:
2015-04-13T15:08:59+02:00 (9 years ago)
Author:
davestorkey
Message:

Merge in changes from trunk up to 5021.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/SETTE/sette_rpt

    r4687 r5208  
    88# 
    99  set mach = `grep "COMPILER=" ./sette.sh | sed -e 's/COMPILER=//'` 
    10   set NEMO_VALID = ../CONFIG/NEMO_VALIDATION 
     10  set NEMO_VALID = `grep "NEMO_VALIDATION_DIR=" ./param.cfg | sed -e 's/NEMO_VALIDATION_DIR=//'` 
    1111# 
    1212  if ( ! -d $NEMO_VALID ) then 
    … …  
    5454    rm f1.tmp$$ 
    5555  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 
    5686   
    5787  if ( -d ./WORCA2LIMPIS_LONG ) then 
    … …  
    141171    rm f1.tmp$$ 
    142172  endif 
    143 NEXT0: 
     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 
    144201  if ( -d ./WSAS_LONG ) then 
    145202    set dorv = `ls -1rtd ./WSAS_LONG/{$mach}/* | tail -1l ` 
    … …  
    149206    set f2o = ./WSAS_LONG/{$mach}/{$dorv}/SHORT/ocean.output 
    150207    set f2s = ./WSAS_LONG/{$mach}/{$dorv}/SHORT/solver.stat 
    151  
    152208    foreach f ( $f1o $f1s $f2o $f2s ) 
    153209     if ( ! -f $f ) then 
    154210      echo 'SAS         restartability  inconclusive ( ' $f:t ' not found )' 
    155       goto NEXT 
     211      goto NEXT1 
    156212     endif 
    157213    end 
    … …  
    178234  endif 
    179235 
    180 NEXT: 
    181 echo 
     236NEXT1: 
    182237   
    183238  if ( -d ./WGYRE_4 ) then 
    … …  
    206261    endif 
    207262  endif 
    208    
     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  
    209290  if ( -d ./WORCA2LIMPIS_16 ) then 
    210291    set dorv = `ls -1rtd ./WORCA2LIMPIS_16/{$mach}/* | tail -1l ` 
    … …  
    285366  endif 
    286367 
     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 
    287395  if ( -d ./WSAS_32 ) then 
    288396    set dorv = `ls -1rtd ./WSAS_32/{$mach}/* | tail -1l ` 
    … …  
    296404     if ( ! -f $f ) then 
    297405      echo 'SAS         reproducibility inconclusive ( ' $f:t ' not found )' 
    298       goto NEXT1 
     406      goto NEXT2 
    299407     endif 
    300408    end 
    … …  
    317425    endif 
    318426  endif 
    319 NEXT1: 
     427NEXT2: 
    320428 
    321429  if ( -d ./WORCA2AGUL_1_2 ) then 
Note: See TracChangeset for help on using the changeset viewer.