1 %======================================================================

     2 %                    E N D _ P R O C E S S I N G _ S T E P . M 

     3 %                    doc: Fri Jun 25 16:17:17 2004

     4 %                    dlm: Fri Jul 23 19:49:17 2004

     5 %                    (c) 2004 ladcp@

     6 %                    uE-Info: 25 46 NIL 0 0 72 2 2 8 NIL ofnI

     7 %======================================================================

     8 

     9 % finish processing step (in [process_cast.m])

    10 

    11 if pcs.cur_step > 0

    12   disp(sprintf('==> STEP %d TOOK %.1f seconds',pcs.cur_step,toc-last_toc));

    13 end

    14 last_toc = toc;

    15 if pcs.stop > 0 & pcs.cur_step >= pcs.target_begin_step

    16   if pcs.stop == 1, pcs.stop = 0; end

    17   disp(sprintf('entering DEBUG mode AFTER step %d (%s)',pcs.cur_step,pcs.step_name));

    18   disp(sprintf('(next stop = %d; type "return" to continue, "dbquit" to abort)',pcs.stop));

    19   keyboard;

    20   more off; % just in case...

    21 end

    22 

    23 if any(ismember(pcs.cur_step,p.checkpoints))

    24   disp(sprintf('SAVING CHECKPOINT %s_%d',f.checkpoints,pcs.cur_step));

    25   eval(sprintf('save %s_%d',f.checkpoints,pcs.cur_step));

    26 end

    27