/******************************************************************************
/*** PROGRAM MAKE.AG.RECHARGE.CPL ***
/* PROGRAM COMPUTES RECHARGE AT EACH NODE FOR 1963-1984 WY USING ANNUAL
/* VALUES OF ESTIMATED RECHARGE FOR EACH MAJOR AGRICULTURAL AREA.
/* OUTPUT IS IN ARRAY FORMAT WITH TOTAL VALUES AT EACH NODE IN CFS
/*
/* UTM VERSION USES UTM ET DESIGNATION TO DETERMINE IRRIGATED AREAS AND THEN
/* USES INFORMATION ABOUT PERCOLATION RATE FOR EACH YEAR AND INCREASES RATE IN
/* VOLCANIC AREAS.  USES FILE MAKE.AG.RECHARGE.IN
/*
/* NODE VERSION IS USES DEFINED NODES TO PUT IN A PERCOLATION RATE IN THOSE
/* AREAS.  USES FILE AG.RECHARGE.NODES. NODE VERSION IS NO LONGER USED.
/*****************************************************************************
/*COMO zlog.[DATE -FTAG]
DATE
TIME
/* Initial setup of files to record errors
&IF [EXISTS make.ag.recharge.check] &THEN DELETE make.ag.recharge.check
COPY wrdanskin>empty make.ag.recharge.check
&IF [EXISTS ag.recharge.array.1963-88wy] &THEN DELETE ag.recharge.array.1963-88wy
COPY wrdanskin>empty ag.recharge.array.1963-88wy
&IF [EXISTS ag.recharge.array.1963wy] &THEN DELETE ag.recharge.array.1963wy
COPY wrdanskin>empty ag.recharge.array.1963wy
&IF [EXISTS ag.recharge.array.1984wy] &THEN DELETE ag.recharge.array.1984wy
COPY wrdanskin>empty ag.recharge.array.1984wy
&IF [EXISTS make.ag.recharge.totals] &THEN DELETE make.ag.recharge.totals
COPY wrdanskin>empty make.ag.recharge.totals
&IF [EXISTS make.ag.recharge.errors] &THEN DELETE make.ag.recharge.errors
COPY wrdanskin>empty make.ag.recharge.errors
/*FOPEN ag.recharge.nodes 5 1
FOPEN make.ag.recharge.check 6 2
FOPEN wrdanskin>owens>data>et>utm.et.irrigated 8 1
FOPEN make.ag.recharge.utm.in 9 1
/*FOPEN make.ag.recharge.pred.in 9 1
FOPEN wrdanskin>owens>valleywide>model>transient.basic.pack 29 1
FOPEN ag.recharge.array.1963-88wy 30 2
FOPEN ag.recharge.array.1963wy 31 2
FOPEN ag.recharge.array.1984wy 32 2
FOPEN wrdanskin>owens>valleywide>model>model.ibound.lay1 51 1
FOPEN make.ag.recharge.totals 90 2
FOPEN make.ag.recharge.errors 95 2
/* Execute program using irrigated areas by model "node", or
/* Execute program using irrigated utm values "utm"
/*RESUME wrdanskin>owens>data>recharge>make.ag.recharge.node
RESUME wrdanskin>owens>data>recharge>make.ag.recharge.utm
/* Close all files, delete some
CLOSE ag.recharge.nodes
CLOSE make.ag.recharge.check
DELETE make.ag.recharge.check
CLOSE wrdanskin>owens>valleywide>model>transient.basic.pack
CLOSE wrdanskin>owens>data>et>utm.et.irrigated
CLOSE make.ag.recharge.utm.in
CLOSE make.ag.recharge.pred.in
CLOSE ag.recharge.array.1963-88wy
CLOSE ag.recharge.array.1963wy
DELETE ag.recharge.array.1963wy
CLOSE ag.recharge.array.1984wy
DELETE ag.recharge.array.1984wy
CLOSE wrdanskin>owens>valleywide>model>model.ibound.lay1
CLOSE make.ag.recharge.totals
CLOSE make.ag.recharge.errors
/********************************************************************************
/* List errors
TYPE The following errors were found
SLIST make.ag.recharge.errors
/* Type finished message
TYPE Finished with make.ag.recharge
DATE
TIME
/*COMO -END
&RETURN