/* A student interface for running the slope stability model.
/* harvey greeenberg 5/9/96
/* modified 5/3/00 do_model.aml and show_model.aml for unix independence,
/*    also added clipmapex off to plotset_model.aml
/* 2/26/2003: version for seattle prepared for ess590h

/* This package contains:
/* model.aml         this is it
/* model.menu        sets paramters
/* do_model.aml      runs the model
/* show_model.aml    display
/* show_runs.aml    display runs in this session
/* unstord.reclass   reclass table for stability categories
/* aobs              precalculated contributing area / (base length * in(slope))
/* tanslope          tangent of slopea

&if [show program] eq 'ARC' &then; GRID
&if [show program] ne 'GRID' &then
  &return This must be started from ARC or GRID
&term 9999
/* obsolete &s .grd elv
/* &if ^ [exist %.grd% -grid] &then; &return The grid %.grd% does not exist here.
&setvar .stag [substr [after [date -ftag] .] 1 2] /* so we can make unique file names
&s .T = 65
&s .bd = 1.6
&s .depth 1
&s .phi = 33
&s .coh 2
&s .count 0
&s .cur 1
&s .X  545400; &s .Y 5280400 /* for scalebar in Seattle example
&s .source ../shalstab/   /* or ''
/* setmask shedg
setcell maxof
setwindow maxof
mappos cen cen
&r plotset_model.aml
&menu model.menu &stripe stability &position &ur