/* dump sub-basin grids
/* based on dump_ascii.aml but just doing the new landcover
&amlpath z:/www/areas/hood_canal/newscripts
&amlpath z:/www/areas/hood_canal/newest/programs
/* &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
  setwindow dem
  setcell dem
  landcover = con(isnull(mask),0,..\..\land_cover_2007\landcover)
  QUIT
  &do grd &list landcover
    &if [exist %grd%.asc -file] &then ; &s devnull [delete %grd%.asc -file]
    gridascii %grd% %grd%.asc
  &end
  &workspace ..
&end