/******************************************************************************
/*** PROGRAM MAKE.PRECIP.CPL ***
/*****************************************************************************
/*COMO zlog.[DATE -FTAG]
DATE
TIME
/* Initial setup of files
&IF [EXISTS make.precip.check] &THEN DELETE make.precip.check
COPY wrdanskin>empty make.precip.check
&IF [EXISTS precip.array.longterm.average] &THEN DELETE precip.array.longterm.average
COPY wrdanskin>empty precip.array.longterm.average
&IF [EXISTS precip.array.1963-88wy] &THEN DELETE precip.array.1963-88wy
COPY wrdanskin>empty precip.array.1963-88wy
&IF [EXISTS precip.array.1963wy] &THEN DELETE precip.array.1963wy
COPY wrdanskin>empty precip.array.1963wy
&IF [EXISTS precip.array.1984wy] &THEN DELETE precip.array.1984wy
COPY wrdanskin>empty precip.array.1984wy
&IF [EXISTS make.precip.totals] &THEN DELETE make.precip.totals
COPY wrdanskin>empty make.precip.totals
&IF [EXISTS make.precip.errors] &THEN DELETE make.precip.errors
COPY wrdanskin>empty make.precip.errors
FOPEN make.precip.check 6 2
FOPEN precip.array.longterm.average 7 2
FOPEN indep.1963-88wy 40 1
FOPEN wrdanskin>owens>valleywide>model>transient.basic.pack 29 1
FOPEN precip.array.1963-88wy 30 2
FOPEN precip.array.1963wy 31 2
FOPEN precip.array.1984wy 32 2
FOPEN wrdanskin>owens>valleywide>model>model.ibound.lay1 51 1
FOPEN wrdanskin>owens>data>lsd>lsd.array.62500 60 1
FOPEN make.precip.totals 90 2
FOPEN make.precip.errors 95 2
/* Execute program
RESUME wrdanskin>owens>data>precip>make.precip
/* Close all files, delete some
CLOSE make.precip.check
DELETE make.precip.check
CLOSE wrdanskin>owens>valleywide>model>transient.basic.pack
CLOSE precip.array.longterm.average
CLOSE indep.1963-88wy
CLOSE precip.array.1963-88wy
CLOSE precip.array.1963wy
DELETE precip.array.1963wy
CLOSE precip.array.1984wy
DELETE precip.array.1984wy
CLOSE wrdanskin>owens>valleywide>model>model.ibound.lay1
CLOSE wrdanskin>owens>data>lsd>lsd.array.62500
CLOSE make.precip.totals
CLOSE make.precip.errors
/* List errors
TYPE The following errors were found
SLIST make.precip.errors
/* Type finished message
TYPE Finished with make.precip
DATE
TIME
/*COMO -END
&RETURN