/***********************************

/* Program: storage_area.aml

/*

/* Function: Determines the area of a subwatershed behind surface storage.

/*

/* History: Created 1999 by Jill Heller, the Advanced Resource Technology

/* Group, the University of Arizona, Tucson, AZ 85721.

/* ph: 520-621-3045. jheller@nexus.srnr.arizona.edu

/***********************************

/* Routines called: None.

/*

/* Requirements: Subwatershed GRIDS; ponds point coverage; flowdirection

/* GRID.

/*

/* Results: Polygonal coverage of the storage areas behind stock ponds

/* in a given subwatershed.

/*

/* Usage: &run storage_area

/*

/* Arguments: None

/******************************************************************

&if %:PROGRAM% ne ARC &then &do

&if %:PROGRAM% eq GRID &then quit

&end

&do cov &list <subws1> <subws2> <subws3> <subws4>

grid

pnd_%cov% = pointgrid (pnds_%cov%, #, #, #, 30)

storage_%cov% = watershed (dem6_dir, pnd_%cov%)

stor_%cov% = gridpoly (storage_%cov%)

q

&run area_conver

&end

&return