procedure;

/*

this procedure takes a previously run convective dispersive model and then attempts to

develop an equivalent model assuming no dispersion

*/

disp = 0.0;

call setcell("parameter",3,1,disp);

call setcell("parameter",3,2,disp);

call setcell("parameter",3,3,disp);

call setcell("parameter",11,1,1);

call setcell("parameter",11,2,.1);

call setcell("parameter",11,3,10);

layers = 50;

call setcell("parameter",10,1,layers);

call setcell("parameter",10,2,layers);

call setcell("parameter",10,3,layers);

lsf('xy',2,3,5000,1000,'parameter',0,11);

end;