/* 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 wacketickeh
&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 groundwater lulc mask soiltexture
    &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 groundwater lulc mask soiltexture soildepth
    &if [exist %grd%.asc -file] &then ; &s devnull [delete %grd%.asc -file]
    gridascii %grd%0 %grd%.asc
    kill %grd%0
  &end
  &do grd &list tmpr tmpr2
    &if [exist %grd% -grid] &then ; kill %grd%
  &end
  &do i = 1 &to 12
    &sys cp ../../pop_prism_new/population/[translate %bas%]/pop_[value m%i%].asc pop.%i%.asc
    &if %i% lt 10 &then
      &s num 0%i%
    &else
      &s num %i%
    &sys cp ../../pop_prism_new/prism_maps/[translate %bas%]/prism%num%f.asc prism.%i%.asc
  &end
  &workspace ..
&end