/******************************************************************************
/*** PROGRAM MAKE.GW.RECHARGE.CPL ***
/* PROGRAM COMPUTES RECHARGE AT EACH NODE FOR 1963-1984 WY USING ANNUAL
/* VALUES OF ESTIMATED RECHARGE FOR EACH MAJOR RECHARGE AREA.
/* OUTPUT IS IN ARRAY FORMAT WITH TOTAL VALUES AT EACH NODE IN CFS
/*
/*****************************************************************************
/*COMO zlog.[DATE -FTAG]
DATE
TIME
/* Initial setup of files to record errors
&IF [EXISTS make.gw.recharge.check] &THEN DELETE make.gw.recharge.check
COPY wrdanskin>empty make.gw.recharge.check
&IF [EXISTS gw.recharge.array.1963-88wy] &THEN DELETE gw.recharge.array.1963-88wy
COPY wrdanskin>empty gw.recharge.array.1963-88wy
&IF [EXISTS gw.recharge.array.1963wy] &THEN DELETE gw.recharge.array.1963wy
COPY wrdanskin>empty gw.recharge.array.1963wy
&IF [EXISTS gw.recharge.array.1984wy] &THEN DELETE gw.recharge.array.1984wy
COPY wrdanskin>empty gw.recharge.array.1984wy
&IF [EXISTS gw.recharge.array.1985wy] &THEN DELETE gw.recharge.array.1985wy
COPY wrdanskin>empty gw.recharge.array.1985wy
&IF [EXISTS make.gw.recharge.totals] &THEN DELETE make.gw.recharge.totals
COPY wrdanskin>empty make.gw.recharge.totals
&IF [EXISTS make.gw.recharge.errors] &THEN DELETE make.gw.recharge.errors
COPY wrdanskin>empty make.gw.recharge.errors
FOPEN gw.recharge.nodes 5 1
/*FOPEN gw.recharge.nodes.pred 5 1
FOPEN make.gw.recharge.check 6 2
FOPEN wrdanskin>owens>data>streams>runoff.percent.normal.1963-88wy 7 1
/*FOPEN wrdanskin>owens>data>streams>runoff.percent.normal.pred 7 1
FOPEN wrdanskin>owens>valleywide>model>transient.basic.pack 29 1
FOPEN gw.recharge.array.1963-88wy 30 2
FOPEN gw.recharge.array.1963wy 31 2
FOPEN gw.recharge.array.1984wy 32 2
FOPEN gw.recharge.array.1985wy 33 2
FOPEN wrdanskin>owens>valleywide>model>model.ibound.lay1 51 1
FOPEN make.gw.recharge.totals 90 2
FOPEN make.gw.recharge.errors 95 2
/* Execute program
RESUME wrdanskin>owens>data>recharge>make.gw.recharge
/* Close all files, delete some
CLOSE gw.recharge.nodes
CLOSE gw.recharge.nodes.pred
CLOSE make.gw.recharge.check
DELETE make.gw.recharge.check
CLOSE wrdanskin>owens>valleywide>model>transient.basic.pack
CLOSE wrdanskin>owens>data>streams>runoff.percent.normal.1963-88wy
CLOSE wrdanskin>owens>data>streams>runoff.percent.normal.pred
CLOSE gw.recharge.array.1963-88wy
CLOSE gw.recharge.array.1963wy
DELETE gw.recharge.array.1963wy
CLOSE gw.recharge.array.1984wy
DELETE gw.recharge.array.1984wy
CLOSE gw.recharge.array.1985wy
DELETE gw.recharge.array.1985wy
CLOSE wrdanskin>owens>valleywide>model>model.ibound.lay1
CLOSE make.gw.recharge.totals
CLOSE make.gw.recharge.errors
/* List errors
TYPE The following errors were found
SLIST make.gw.recharge.errors
/* Type finished message
TYPE Finished with make.gw.recharge
DATE
TIME
/*COMO -END
&RETURN