/[MITgcm]/MITgcm/verification/testreport
ViewVC logotype

Diff of /MITgcm/verification/testreport

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.158 by jmc, Thu Jan 27 18:20:38 2011 UTC revision 1.163 by jmc, Wed May 18 22:03:57 2011 UTC
# Line 424  run_clean() Line 424  run_clean()
424              find . -name "*.data" -exec rm {} \;              find . -name "*.data" -exec rm {} \;
425              find . -name "fort.*" -exec rm {} \;              find . -name "fort.*" -exec rm {} \;
426              find . -type l -exec rm {} \;              find . -type l -exec rm {} \;
427              rm -f $EXECUTABLE $RUNLOG *.txt STD* *diagnostics.log datetime              #- should remove executable only if sym-link (alredy done above)
428                rm -f $RUNLOG *.txt STD* *diagnostics.log datetime
429              rm -rf mnc_test_*              rm -rf mnc_test_*
430              rm -f *_MIT_CE_000.opt0000 costfunction*0000              rm -f *_MIT_CE_000.opt0000 costfunction*0000
431              echo successful              echo successful
# Line 460  makemodel() Line 461  makemodel()
461  {  {
462      # makemodel directory      # makemodel directory
463      (      (
464        mk_fail=0
465      if test "x$NOMAKE" = xt ; then      if test "x$NOMAKE" = xt ; then
466          cd $1;          cd $1;
467          if test -x $EXECUTABLE ; then          if test -x $EXECUTABLE ; then
468              echo "make skipped!"              echo "make skipped!"
469          else          else
470              echo "no executable!"              echo "no executable!"
471              return 2              mk_fail=3
472          fi          fi
473      else      else
474          cd $1;          cd $1;
# Line 487  makemodel() Line 489  makemodel()
489              if test "x$RETVAL" != x0 ; then              if test "x$RETVAL" != x0 ; then
490                  tail make.tr_log                  tail make.tr_log
491                  echo failed                  echo failed
492                  cp make.tr_log genmake.log genmake.tr_log $CDIR                  cp genmake.log genmake.tr_log $CDIR
493                    tail -$NBLINES_MKLOG make.tr_log > $CDIR"/make.tr_log_tail"
494                  rm -f $EXECUTABLE                  rm -f $EXECUTABLE
495                  return 1                  mk_fail=1
496              else              else
497                  echo successful                  echo successful
498              fi              fi
499            else
500                echo "no Makefile !"
501                mk_fail=2
502          fi          fi
503      fi      fi
504      if test "x$ADM" = xt -a -f taf_ad.log ; then      if test "x$ADM" = xt -a -f taf_ad.log ; then
# Line 502  makemodel() Line 508  makemodel()
508              echo " TAF reports $nerr Errors and $nwar Recomputation Warnings" \              echo " TAF reports $nerr Errors and $nwar Recomputation Warnings" \
509                                  >> $CDIR"/summary.txt"                                  >> $CDIR"/summary.txt"
510      fi      fi
511        if test $mk_fail != 0 ; then return $mk_fail ; fi
512      )      )
513  }  }
514    
515  mk_mpi_size()  mk_mpi_size()
516  {  {
517      # mk_mpi_size input_file output_file proc_Nb      # mk_mpi_size input_file output_file proc_Nb prefer_to_split_X
518      #      #
519      # make new SIZE.h (=output_file) from SIZE.h_mpi (=input_file)      # make new SIZE.h (=output_file) from SIZE.h_mpi (=input_file)
520      #     for an MPI build with no more than proc_Nb processors ;      #     for an MPI build with no more than proc_Nb processors ;
# Line 516  mk_mpi_size() Line 523  mk_mpi_size()
523      inp=$1      inp=$1
524      out=$2      out=$2
525      np=$3      np=$3
526        dirX=$4
527      tmp=TTT.$$      tmp=TTT.$$
528    
529      px=`grep "^     & *nPx *=" $inp | sed "s/^     & *nPx *= *//" | sed 's/, *$//'`      px=`grep "^     & *nPx *=" $inp | sed "s/^     & *nPx *= *//" | sed 's/, *$//'`
# Line 533  mk_mpi_size() Line 541  mk_mpi_size()
541            if [ `expr $py % $j` -eq 0 ] ; then            if [ `expr $py % $j` -eq 0 ] ; then
542              ij=`expr $i \* $j`              ij=`expr $i \* $j`
543              if [ $ij -gt $pp ] ; then              if [ $ij -gt $pp ] ; then
544                    flag=1
545                elif [ $ij -eq $pp ] ; then
546                    flag=$dirX
547                else
548                    flag=0
549                fi
550                if test $flag = 1 ; then
551                if [ $ij -le $np ] ; then                if [ $ij -le $np ] ; then
552                  ix=$i ; jy=$j ; pp=$ij                  ix=$i ; jy=$j ; pp=$ij
553                  #echo "  ix,jy= $ix,$jy"                  #echo "  ix,jy= $ix,$jy"
# Line 712  runmodel() Line 727  runmodel()
727          else          else
728            if test ! -f $OUTPUTFILE -o $OUTPUTFILE -ot $EXECUTABLE ; then            if test ! -f $OUTPUTFILE -o $OUTPUTFILE -ot $EXECUTABLE ; then
729              # output do not exist or is older than executable:              # output do not exist or is older than executable:
730              rm -f $RUNLOG ; touch $RUNLOG              rm -f $OUTPUTFILE $RUNLOG ; touch $RUNLOG
731              if test -f run.log_tmp ; then cat run.log_tmp >> $RUNLOG ; fi              if test -f run.log_tmp ; then cat run.log_tmp >> $RUNLOG ; fi
732              ( eval $COMMAND ) >> $RUNLOG 2>&1              ( eval $COMMAND ) >> $RUNLOG 2>&1
733              RETVAL=$?              RETVAL=$?
# Line 857  scandirs() Line 872  scandirs()
872    
873  check_eedata()  check_eedata()
874  {  {
875      # check_eedata size.h eedata      # check_eedata eedata size.h
876      if [ $# -eq 2 ] ; then      if [ $# -eq 2 ] ; then
877        if test -f $1 -a -f $2 ; then       if test -f $1 -a -f $2 ; then
878        sx=`grep "^     & *nSx *=" $1 | sed "s/^     & *nSx *=//" | sed 's/, *$//'`        nx=`grep "^ *nTx *=" $1 | tail -1 | sed 's/^ *nTx *= *//' | sed "s/, *$//"`
879        nx=`grep "^ *nTx *=" $2 | tail -1 | sed 's/^ *nTx *= *//' | sed "s/, *$//"`        sx=`grep "^     & *nSx *=" $2 | sed "s/^     & *nSx *=//" | sed 's/, *$//'`
880        if test "x$nx" = x ; then        if test "x$nx" = x ; then
881          rx=10          rx=10
882        else        else
883          rx=`expr $sx % $nx`          rx=`expr $sx % $nx`
884        fi        fi
885        sy=`grep "^     & *nSy *=" $1 | sed "s/^     & *nSy *=//" | sed 's/, *$//'`        ny=`grep "^ *nTy *=" $1 | tail -1 | sed 's/^ *nTy *= *//' | sed "s/, *$//"`
886        ny=`grep "^ *nTy *=" $2 | tail -1 | sed 's/^ *nTy *= *//' | sed "s/, *$//"`        sy=`grep "^     & *nSy *=" $2 | sed "s/^     & *nSy *=//" | sed 's/, *$//'`
887        if test "x$ny" = x ; then        if test "x$ny" = x ; then
888          ry=20          ry=20
889        else        else
890          ry=`expr $sy % $ny`          ry=`expr $sy % $ny`
891        fi        fi
892        echo `expr $rx + $ry`        echo `expr $rx + $ry`
893      else       else
894        echo '-1'        echo '-1'
895        fi       fi
896        elif [ $# -eq 1 ] ; then
897         if test -f $1 ; then
898          nx=`grep "^ *nTx *=" $1 | tail -1 | sed 's/^ *nTx *= *//' | sed "s/, *$//"`
899          if test "x$nx" = x ; then nx=1 ; fi
900          ny=`grep "^ *nTy *=" $1 | tail -1 | sed 's/^ *nTy *= *//' | sed "s/, *$//"`
901          if test "x$ny" = x ; then ny=1 ; fi
902         #echo $nx $ny
903          echo $nx
904         else
905          echo '-1'
906         fi
907      else      else
908        echo '-2'        echo '-2'
909      fi      fi
# Line 890  check_eedata() Line 916  check_eedata()
916  #  Default properties  #  Default properties
917  debug=0  debug=0
918  verbose=1  verbose=1
919    NBLINES_MKLOG=16000
920    
921  IEEE=true  IEEE=true
922  if test "x$MITGCM_IEEE" != x ; then  if test "x$MITGCM_IEEE" != x ; then
# Line 1321  for dir in $TESTDIRS ; do Line 1348  for dir in $TESTDIRS ; do
1348    
1349      # Check for specific files for particular type of run      # Check for specific files for particular type of run
1350    
1351        if test ! -r $CODE_DIR"/SIZE.h_mpi"  -a "x$MPI" != "x0" ; then
1352            echo "can't find \"$CODE_DIR/SIZE.h_mpi\" -- skipping $dir"
1353            continue
1354        fi
1355        if test ! -r $dir"/input/eedata.mth" -a "x$MULTI_THREAD" = "xt" ; then
1356            echo "can't find \"$dir/input/eedata.mth\" -- skipping $dir"
1357            continue
1358        fi
1359    
1360      if test "x$MPI" != "x0" ; then      if test "x$MPI" != "x0" ; then
1361          if test -r $CODE_DIR"/SIZE.h_mpi" ; then          prefer_X=0
1362              #- create new SIZE.h with no more than '$MPI' Procs          if test "x$MULTI_THREAD" = "xt" ; then
1363              mk_mpi_size $CODE_DIR"/SIZE.h_mpi" $BUILD_DIR"/tr_size.mpi" $MPI              retv=`check_eedata $dir"/input/eedata.mth"`
1364              LOC_NPROC=$?              if test $retv = 1 ; then prefer_X=1 ; fi
1365              (   cd $BUILD_DIR          fi
1366                  if test -r SIZE.h.mpi ; then          #- create new SIZE.h with no more than '$MPI' Procs
1367                      cmp tr_size.mpi SIZE.h.mpi > /dev/null 2>&1 ; RETVAL=$?          mk_mpi_size $CODE_DIR"/SIZE.h_mpi" $BUILD_DIR"/tr_size.mpi" $MPI $prefer_X
1368                  else RETVAL=1          LOC_NPROC=$?
1369                  fi          (   cd $BUILD_DIR
1370                  if test "x$RETVAL" = x0 ; then              if test -r SIZE.h.mpi ; then
1371                      rm -f tr_size.mpi                  cmp tr_size.mpi SIZE.h.mpi > /dev/null 2>&1 ; RETVAL=$?
1372                  else              else RETVAL=1
1373                      rm -f SIZE.h.mpi ; mv tr_size.mpi SIZE.h.mpi              fi
1374                  fi              if test "x$RETVAL" = x0 ; then
1375              )                  rm -f tr_size.mpi
1376          else              else
1377              echo "can't find \"$CODE_DIR/SIZE.h_mpi\" -- skipping $dir"                  rm -f SIZE.h.mpi ; mv tr_size.mpi SIZE.h.mpi
1378              continue              fi
1379          fi          )
1380          if test "x$MPI_MFILE" != x ; then          if test "x$MPI_MFILE" != x ; then
1381              #- create new MPI machine-file with the right number of Procs              #- create new MPI machine-file with the right number of Procs
1382              rm -f $LOC_MFILE              rm -f $LOC_MFILE
# Line 1356  for dir in $TESTDIRS ; do Line 1392  for dir in $TESTDIRS ; do
1392                  echo " new LOC_MFILE=$LOC_MFILE : $nl procs for LOC_NPROC=$LOC_NPROC"                  echo " new LOC_MFILE=$LOC_MFILE : $nl procs for LOC_NPROC=$LOC_NPROC"
1393              fi              fi
1394          fi          fi
1395      fi          if test "x$MULTI_THREAD" = "xt" ; then
1396      if test ! -r $dir"/input/eedata.mth" -a "x$MULTI_THREAD" = "xt" ; then              retv=`check_eedata $dir"/input/eedata.mth" $BUILD_DIR"/SIZE.h.mpi"`
1397          echo "can't find \"$dir/input/eedata.mth\" -- skipping $dir"              if test $retv != 0 ; then
1398          continue                  echo "input/eedata.mth tiling misfit -- skipping $dir"
1399      fi                  continue
1400      if test "x$MPI" != "x0" -a "x$MULTI_THREAD" = "xt" ; then              fi
         retv=`check_eedata $BUILD_DIR"/SIZE.h.mpi" $dir"/input/eedata.mth"`  
         if test $retv != 0 ; then  
             echo "input/eedata.mth tiling misfit -- skipping $dir"  
             continue  
1401          fi          fi
1402      fi      fi
1403    
# Line 1385  for dir in $TESTDIRS ; do Line 1417  for dir in $TESTDIRS ; do
1417                if test "x$MPI" = "x0" ; then                if test "x$MPI" = "x0" ; then
1418                  extra_runs="$extra_runs $name"                  extra_runs="$extra_runs $name"
1419                else                else
1420                  retv=`check_eedata $BUILD_DIR"/SIZE.h.mpi" $dir"/"$exd"/eedata.mth"`                  retv=`check_eedata $dir"/"$exd"/eedata.mth" $BUILD_DIR"/SIZE.h.mpi"`
1421                  if test $retv = 0 ; then                  if test $retv = 0 ; then
1422                      extra_runs="$extra_runs $name"                      extra_runs="$extra_runs $name"
1423                  else                  else
Legend:
Removed from v.1.158  
changed lines
  Added in v.1.163
  ViewVC Help
Powered by ViewVC 1.1.22