/* dump sub-basin grids
/* Recreating  Jan 28  2009
&amlpath z:/www/areas/hood_canal/newscripts
&amlpath z:/www/areas/hood_canal/newest/programs
&s m1 jan
&s m2 feb
&s m3 mar
&s m4 apr
&s m5 may
&s m6 jun
&s m7 jul
&s m8 aug
&s m9 sep
&s m10 oct
&s m11 nov
&s m12 dec
&do bas &list alderbrook
/***&do bas &list big_anderson big_beef big_bend big_quilcene devereaux dewatto dosewallips duckabush eagle enati finch fulton hamma_hamma happy_hollow hill holyoke jorsted lilliwaup little_mission little_quilcene miller mission mulberg seabeck skokomish stavis stimson tahuya tarboo thorndyke trails_end twanoh twanoh_falls union union_store unnamed wacketickeh /* alderbrook
  &workspace %bas%
  GRID
  &do grd &list dem flowd 
    &if ^ [exist %grd%0] &then
      %grd%0 = con(isnull(mask),0,%grd%)
  &end
  setwindow dem
  setcell dem
  soildepth0 = con(isnull(mask),0,..\..\mission\master\soild)
  QUIT
  &do grd &list dem flowd soildepth
    &if [exist %grd%.asc -file] &then ; &s devnull [delete %grd%.asc -file]
    gridascii %grd%0 %grd%.asc
    kill %grd%0
  &end
  &workspace ..
&end