/******************************************************************************
/*** PROGRAM MAKE.CANAL.RECHARGE.CPL ***
/* PROGRAM COMPUTES RECHARGE AT EACH NODE FOR 1963-1984 WY USING ANNUAL
/* MULTIPLIERS OF RUNOFF AND AVERAGE ESTIMATED RECHARGE FOR EACH CANAL.
/* EACH INDIVIDUAL NODE OF A CANAL IS ASSIGNED A FIXED PERCENTAGE OF THE
/* TOTAL RECHARGE FOR THE CANAL.  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.canal.recharge.check] &THEN DELETE make.canal.recharge.check
COPY wrdanskin>empty make.canal.recharge.check
&IF [EXISTS canal.recharge.array.1963-88wy] &THEN DELETE canal.recharge.array.1963-88wy
COPY wrdanskin>empty canal.recharge.array.1963-88wy
&IF [EXISTS canal.recharge.array.1963wy] &THEN DELETE canal.recharge.array.1963wy
COPY wrdanskin>empty canal.recharge.array.1963wy
&IF [EXISTS canal.recharge.array.1984wy] &THEN DELETE canal.recharge.array.1984wy
COPY wrdanskin>empty canal.recharge.array.1984wy
&IF [EXISTS make.canal.recharge.totals] &THEN DELETE make.canal.recharge.totals
COPY wrdanskin>empty make.canal.recharge.totals
&IF [EXISTS make.canal.recharge.errors] &THEN DELETE make.canal.recharge.errors
COPY wrdanskin>empty make.canal.recharge.errors
FOPEN canal.recharge.nodes 5 1
/*FOPEN canal.recharge.nodes.pred 5 1
FOPEN make.canal.recharge.check 6 2
FOPEN runoff.percent.normal.1963-88wy 7 1
/*FOPEN runoff.percent.normal.pred 7 1
FOPEN wrdanskin>owens>valleywide>model>transient.basic.pack 29 1
FOPEN canal.recharge.array.1963-88wy 30 2
FOPEN canal.recharge.array.1963wy 31 2
FOPEN canal.recharge.array.1984wy 32 2
FOPEN wrdanskin>owens>valleywide>model>model.ibound.lay1 51 1
FOPEN make.canal.recharge.totals 90 2
FOPEN make.canal.recharge.errors 95 2
/* Execute program
RESUME wrdanskin>owens>data>streams>make.canal.recharge
/* Close all files, delete some
CLOSE canal.recharge.nodes
CLOSE canal.recharge.nodes.pred
CLOSE make.canal.recharge.check
DELETE make.canal.recharge.check
CLOSE wrdanskin>owens>valleywide>model>transient.basic.pack
CLOSE runoff.percent.normal.1963-88wy
CLOSE runoff.percent.normal.pred
CLOSE canal.recharge.array.1963-88wy
CLOSE canal.recharge.array.1963wy
DELETE canal.recharge.array.1963wy
CLOSE canal.recharge.array.1984wy
DELETE canal.recharge.array.1984wy
CLOSE wrdanskin>owens>valleywide>model>model.ibound.lay1
CLOSE make.canal.recharge.totals
CLOSE make.canal.recharge.errors
/* List errors
TYPE The following errors were found
SLIST make.canal.recharge.errors
/* Type finished message
TYPE Finished with make.canal.recharge
DATE
TIME
/*COMO -END
&RETURN