/******************************************************************************
/*** PROGRAM RUNTRANS.CPL
/*** executes a transient state version of the modular model
/* CPL program is executed by typing CPL RUNTRANS P1 ... Pn where Pn is
/* the name of the program which is desired to be executed.  To skip a choice
/* simply replace the name with S1, S2, etc. The choices are:
/* 1 CONSTFLUX -- CONSTANT FLUXES (INCLUDING WELLS, STREAMS, AND BOUNDARIES)
/* 2 PRECIPET  -- NEW NET INFILTRATION FROM FIXED PRECIP AND ET BY ZONE
/* 3 TKS       -- NEW TRANSMISSIVITY, VERTICAL CONDUCTANCE, AND STORAGE BY ZONE
/* 4 MODEL     -- NEW MODEL RUN
/* 5 MAPLP     -- CREATE LINE PRINTER MAPS OF OUTPUT
/* 6 HYDRO     -- CREATE HYDROGRAPHS
/* 7 METAZ1    -- CREATE CONTOUR MAPS FROM MODEL OUTPUT--UPPER LAYER
/* 8 METAZ2    -- CREATE CONTOUR MAPS FROM MODEL OUTPUT--LOWER LAYER
/* END       -- GOTO END OF PROGRAM
/******************************************************************************
&ARGS place1;place2;place3;place4;place5;place6;place7;place8
COMO zlog.[DATE -FTAG]
TYPE Beginning runtrans
DATE
TIME
/*****************************************************************************
/* Initial setup of files to record errors
&IF [EXISTS pre.errors] &THEN DELETE pre.errors
COPY wrdanskin>empty pre.errors
&IF [EXISTS model.errors] &THEN DELETE model.errors
COPY wrdanskin>empty model.errors
&IF [EXISTS post.errors] &THEN DELETE post.errors
COPY wrdanskin>empty post.errors
/* cpl program looping control statements
&GOTO %place1%
&LABEL s1
&GOTO %place2%
&LABEL s2
&GOTO %place3%
&LABEL s3
&GOTO %place4%
&LABEL s4
&GOTO %place5%
&LABEL s5
&GOTO %place6%
&LABEL s6
&GOTO %place7%
&LABEL s7
&GOTO %place8%
&LABEL s8
&GOTO end
/*****************************************************************************
/*  CONSTFLUX -- Create new constant fluxes for wells, streams, and boundaries
/*****************************************************************************
&LABEL CONSTFLUX
TYPE Beginning pre.constflux program
DATE
TIME
/* Delete old files to get ready for new ones
&IF [EXISTS model.well] &THEN DELETE model.well
COPY wrdanskin>empty model.well
&IF [EXISTS pre.constflux.check] &THEN DELETE pre.constflux.check
COPY wrdanskin>empty pre.constflux.check
&IF [EXISTS pre.constflux.totals] &THEN DELETE pre.constflux.totals
COPY wrdanskin>empty pre.constflux.totals
/* Open files
FOPEN pre.constflux.in 5 1
FOPEN pre.constflux.check 6 2
FOPEN transient.basic.pack 30 1
FOPEN model.well 32 2
FOPEN model.ibound.lay1 51 1
FOPEN model.ibound.lay2 52 1
/*FOPEN wrdanskin>owens>data>pumpage>pumpage.array.lay1.1963wy 71 1
/*FOPEN wrdanskin>owens>data>pumpage>pumpage.array.lay2.1963wy 72 1
/*FOPEN wrdanskin>owens>data>pumpage>pumpage.array.lay1.1984wy 71 1
/*FOPEN wrdanskin>owens>data>pumpage>pumpage.array.lay2.1984wy 72 1
FOPEN wrdanskin>owens>data>pumpage>pumpage.array.lay1.1963-88wy 71 1
FOPEN wrdanskin>owens>data>pumpage>pumpage.array.lay2.1963-88wy 72 1
/*FOPEN wrdanskin>owens>data>streams>stream.recharge.array.1963wy 73 1
/*FOPEN wrdanskin>owens>data>streams>stream.recharge.array.1984wy 73 1
FOPEN wrdanskin>owens>data>streams>stream.recharge.array.1963-88wy 73 1
/*FOPEN wrdanskin>owens>data>streams>ungaged.recharge.array.1963wy 74 1
/*FOPEN wrdanskin>owens>data>streams>ungaged.recharge.array.1984wy 74 1
FOPEN wrdanskin>owens>data>streams>ungaged.recharge.array.1963-88wy 74 1
/*FOPEN wrdanskin>owens>data>streams>canal.recharge.array.1963wy 75 1
/*FOPEN wrdanskin>owens>data>streams>canal.recharge.array.1984wy 75 1
FOPEN wrdanskin>owens>data>streams>canal.recharge.array.1963-88wy 75 1
/*FOPEN wrdanskin>owens>data>recharge>gw.recharge.array.1963wy 76 1
/*FOPEN wrdanskin>owens>data>recharge>gw.recharge.array.1984wy 76 1
FOPEN wrdanskin>owens>data>recharge>gw.recharge.array.1963-88wy 76 1
/*FOPEN wrdanskin>owens>data>recharge>ag.recharge.array.1963wy 77 1
/*FOPEN wrdanskin>owens>data>recharge>ag.recharge.array.1984wy 77 1
FOPEN wrdanskin>owens>data>recharge>ag.recharge.array.1963-88wy 77 1
FOPEN model.boundary.flux 80 1
FOPEN pre.constflux.totals 94 2
FOPEN pre.errors 95 2
/* Execute program
RESUME wrdanskin>owens>valleywide>model>pre.constflux
/* Close all files and delete some
CLOSE pre.constflux.in
CLOSE pre.constflux.check
DELETE pre.constflux.check
CLOSE transient.basic.pack
CLOSE model.well
CLOSE model.ibound.lay1
CLOSE model.ibound.lay2
/*CLOSE wrdanskin>owens>data>pumpage>pumpage.array.lay1.1963wy
/*CLOSE wrdanskin>owens>data>pumpage>pumpage.array.lay2.1963wy
/*CLOSE wrdanskin>owens>data>pumpage>pumpage.array.lay1.1984wy
/*CLOSE wrdanskin>owens>data>pumpage>pumpage.array.lay2.1984wy
CLOSE wrdanskin>owens>data>pumpage>pumpage.array.lay1.1963-88wy
CLOSE wrdanskin>owens>data>pumpage>pumpage.array.lay2.1963-88wy
/*CLOSE wrdanskin>owens>data>streams>stream.recharge.array.1963wy
/*CLOSE wrdanskin>owens>data>streams>stream.recharge.array.1984wy
CLOSE wrdanskin>owens>data>streams>stream.recharge.array.1963-88wy
/*CLOSE wrdanskin>owens>data>streams>ungaged.recharge.array.1963wy
/*CLOSE wrdanskin>owens>data>streams>ungaged.recharge.array.1984wy
CLOSE wrdanskin>owens>data>streams>ungaged.recharge.array.1963-88wy
/*CLOSE wrdanskin>owens>data>streams>canal.recharge.array.1963wy
/*CLOSE wrdanskin>owens>data>streams>canal.recharge.array.1984wy
CLOSE wrdanskin>owens>data>streams>canal.recharge.array.1963-88wy
/*CLOSE wrdanskin>owens>data>recharge>gw.recharge.array.1963wy
/*CLOSE wrdanskin>owens>data>recharge>gw.recharge.array.1984wy
CLOSE wrdanskin>owens>data>recharge>gw.recharge.array.1963-88wy
/*CLOSE wrdanskin>owens>data>recharge>ag.recharge.array.1963wy
/*CLOSE wrdanskin>owens>data>recharge>ag.recharge.array.1984wy
CLOSE wrdanskin>owens>data>recharge>ag.recharge.array.1963-88wy
CLOSE pre.constflux.totals
CLOSE pre.errors
/* Type finished message
TYPE  Done with pre.constflux program
/* goto the next program
&GOTO S1
/*****************************************************************************
/*  PRECIPET -- Create new constant fluxes for precip and fan et
/*****************************************************************************
&LABEL PRECIPET
TYPE Beginning pre.precipet program
DATE
TIME
/* Delete old files to get ready for new ones
&IF [EXISTS pre.precipet.check] &THEN DELETE pre.precipet.check
COPY wrdanskin>empty pre.precipet.check
&IF [EXISTS model.recharge.precip.rates] &THEN DELETE model.recharge.precip.rates
COPY wrdanskin>empty model.recharge.precip.rates
&IF [EXISTS model.et.max] &THEN DELETE model.et.max
COPY wrdanskin>empty model.et.max
&IF [EXISTS pre.precipet.totals] &THEN DELETE pre.precipet.totals
COPY wrdanskin>empty pre.precipet.totals
/* Open files
FOPEN model.zone.parameters 5 1
FOPEN pre.precipet.check 6 2
FOPEN transient.basic.pack 30 1
FOPEN model.ibound.lay1 51 1
FOPEN model.recharge.precip.rates 59 2
FOPEN model.et.max 61 2
FOPEN wrdanskin>owens>data>precip>precip.array.longterm.average 66 1
/*FOPEN wrdanskin>owens>data>precip>precip.array.1963wy 67 1
/*FOPEN wrdanskin>owens>data>precip>precip.array.1984wy 67 1
FOPEN wrdanskin>owens>data>precip>precip.array.1963-88wy 67 1
FOPEN pre.precipet.totals 94 2
FOPEN pre.errors 95 2
/* Execute program
RESUME wrdanskin>owens>valleywide>model>pre.precipet
/* Close all files and delete some
CLOSE model.zone.parameters
CLOSE pre.precipet.check
DELETE pre.precipet.check
CLOSE transient.basic.pack
CLOSE model.ibound.lay1
CLOSE model.recharge.precip.rates
CLOSE model.et.max
CLOSE wrdanskin>owens>data>precip>precip.array.longterm.average
/*CLOSE wrdanskin>owens>data>precip>precip.array.1963wy
/*CLOSE wrdanskin>owens>data>precip>precip.array.1984wy
CLOSE wrdanskin>owens>data>precip>precip.array.1963-88wy
CLOSE pre.precipet.totals
CLOSE pre.errors
/* Type finished message
TYPE  Done with pre.precipet program
/* goto the next program
&GOTO S2
/*****************************************************************************
/*  TKS -- Create new transmissivity and vcont for modular model
/*****************************************************************************
&LABEL TKS
TYPE Beginning pre.tks program
DATE
TIME
/* Delete old files to get ready for new ones
&IF [EXISTS pre.tks.check] &THEN DELETE pre.tks.check
COPY wrdanskin>empty pre.tks.check
&IF [EXISTS model.transmissivity.lay1] &THEN DELETE model.transmissivity.lay1
COPY wrdanskin>empty model.transmissivity.lay1
&IF [EXISTS model.vcont.lay1-2] &THEN DELETE model.vcont.lay1-2
COPY wrdanskin>empty model.vcont.lay1-2
&IF [EXISTS model.transmissivity.lay2] &THEN DELETE model.transmissivity.lay2
COPY wrdanskin>empty model.transmissivity.lay2
&IF [EXISTS model.storage.lay1] &THEN DELETE model.storage.lay1
COPY wrdanskin>empty model.storage.lay1
&IF [EXISTS model.storage.lay2] &THEN DELETE model.storage.lay2
COPY wrdanskin>empty model.storage.lay2
/* Open files
FOPEN model.zone.parameters 5 1
FOPEN pre.tks.check 6 2
FOPEN transient.basic.pack 30 1
FOPEN model.ibound.lay1 51 1
FOPEN model.ibound.lay2 52 1
FOPEN model.transmissivity.lay1 56 2
FOPEN model.vcont.lay1-2 57 2
FOPEN model.transmissivity.lay2 58 2
FOPEN model.storage.lay1 59 2
FOPEN model.storage.lay2 60 2
FOPEN pre.errors 95 2
/* Execute program
RESUME wrdanskin>owens>valleywide>model>pre.tks
/* Close all files and delete some
CLOSE model.zone.parameters
CLOSE pre.tks.check
DELETE pre.tks.check
CLOSE transient.basic.pack
CLOSE model.ibound.lay1
CLOSE model.ibound.lay2
CLOSE model.transmissivity.lay1
CLOSE model.vcont.lay1-2
CLOSE model.transmissivity.lay2
CLOSE model.storage.lay1
CLOSE model.storage.lay2
CLOSE pre.errors
/* Type finished message
TYPE  Done with pre.tks program
/* goto the next program
&GOTO S3
/*****************************************************************************
/*  FLOW MODEL -- Execute modular model for transient state
/*****************************************************************************
&LABEL MODEL
TYPE Beginning Modular Model
DATE
TIME
/* Delete old files to get ready for new ones
&IF [EXISTS model.out] &THEN DELETE model.out
COPY WRDANSKIN>EMPTY model.out
&IF [EXISTS model.head.out] &THEN DELETE model.head.out
COPY WRDANSKIN>EMPTY model.head.out
&IF [EXISTS model.draw.out] &THEN DELETE model.draw.out
COPY WRDANSKIN>EMPTY model.draw.out
&IF [EXISTS model.budget.out] &THEN DELETE model.budget.out
COPY WRDANSKIN>EMPTY model.budget.out
&IF [EXISTS model.et.budget] &THEN DELETE model.et.budget
COPY WRDANSKIN>EMPTY model.et.budget
&IF [EXISTS model.well.budget] &THEN DELETE model.well.budget
COPY WRDANSKIN>EMPTY model.well.budget
&IF [EXISTS model.recharge.budget] &THEN DELETE model.recharge.budget
COPY WRDANSKIN>EMPTY model.recharge.budget
&IF [EXISTS model.river.budget] &THEN DELETE model.river.budget
COPY WRDANSKIN>EMPTY model.river.budget
&IF [EXISTS model.drain.budget] &THEN DELETE model.drain.budget
COPY WRDANSKIN>EMPTY model.drain.budget
&IF [EXISTS model.totals] &THEN DELETE model.totals
COPY WRDANSKIN>EMPTY model.totals
/* Open files
FOPEN transient.basic.pack 5 1
FOPEN model.out 6 2
FOPEN transient.bcf 31 1
FOPEN model.well 32 1
FOPEN model.drain 33 1
FOPEN model.river 34 1
FOPEN model.et 35 1
/*FOPEN model.et.pred 35 1
FOPEN model.genhead 37 1
FOPEN model.recharge 38 1
FOPEN model.sip 39 1
FOPEN model.conjgrad 40 1
FOPEN model.ssor 41 1
FOPEN model.outop 42 1
FOPEN model.head.out 49 2
FOPEN model.draw.out 50 2
FOPEN model.ibound.lay1 51 1
FOPEN model.ibound.lay2 52 1
FOPEN model.stheads.1963wy.lay1 53 1
FOPEN model.stheads.1963wy.lay2 54 1
/*FOPEN model.stheads.pred.lay1 53 1
/*FOPEN model.stheads.pred.lay2 54 1
FOPEN model.budget.out 55 2
FOPEN model.transmissivity.lay1 56 1
FOPEN model.vcont.lay1-2 57 1
FOPEN model.transmissivity.lay2 58 1
/* Precipitation recharge is from pre.precipet.f77 program
FOPEN model.recharge.precip.rates 59 1
/* Precipitation recharge (which includes et flux) is from make.et.f77 program
/* If petbox file is used, do not use model.recharge.precip.rates
/* or model.et option
/*FOPEN wrdanskin>owens>data>et>model.petbox.array.1963-88wy 59 1
FOPEN wrdanskin>owens>data>lsd>lsd.array.62500 60 1
FOPEN model.et.max 61 1
FOPEN model.et.budget 62 2
FOPEN model.well.budget 63 2
FOPEN model.recharge.budget 64 2
FOPEN model.river.budget 65 2
FOPEN model.drain.budget 66 2
FOPEN model.storage.lay1 67 1
FOPEN model.storage.lay2 68 1
FOPEN wrdanskin>owens>data>et>model.etmax.array.1963wy 69 1
FOPEN wrdanskin>owens>data>et>model.etmax.array.1984wy 70 1
FOPEN model.totals 90 2
FOPEN model.errors 96 2
/* Execute program
/* most current vanilla version of the model 5/11/87 with
/* maw and conj gradient
RESUME wrdanskin>codes>modular>modular.owens
/* Close all files and delete some
CLOSE transient.basic.pack
CLOSE model.out
CLOSE transient.bcf
CLOSE model.well
CLOSE model.drain
CLOSE model.river
CLOSE model.et
CLOSE model.et.pred
CLOSE model.genhead
CLOSE model.recharge
CLOSE model.sip
CLOSE model.conjgrad
CLOSE model.ssor
CLOSE model.outop
CLOSE model.head.out
CLOSE model.draw.out
CLOSE model.ibound.lay1
CLOSE model.ibound.lay2
CLOSE model.stheads.1963wy.lay1
CLOSE model.stheads.1963wy.lay2
CLOSE model.stheads.pred.lay1
CLOSE model.stheads.pred.lay2
CLOSE model.budget.out
CLOSE model.transmissivity.lay1
CLOSE model.vcont.lay1-2
CLOSE model.transmissivity.lay2
CLOSE model.recharge.precip.rates
CLOSE wrdanskin>owens>data>et>model.petbox.array.1963-88wy
CLOSE wrdanskin>owens>data>lsd>lsd.array.62500
CLOSE model.et.max
CLOSE model.et.budget
CLOSE model.well.budget
CLOSE model.recharge.budget
CLOSE model.river.budget
CLOSE model.drain.budget
CLOSE model.storage.lay1
CLOSE model.storage.lay2
CLOSE wrdanskin>owens>data>et>model.etmax.array.1963wy
CLOSE wrdanskin>owens>data>et>model.etmax.array.1984wy
CLOSE model.totals
CLOSE model.errors
/* Type finished message
TYPE  Done with transient state modular model program
/* goto the next program
TYPE  Creating new starting heads
DATE
TIME
/******************************************************************************
/*** PROGRAM POST.NEW.STHEADS.CPL
/* creates new starting head matrix for the modular model from previous model
/* output, typically steady state.
/******************************************************************************
/* Delete old files to get ready for new ones
&IF [EXISTS post.new.stheads.check] &THEN DELETE post.new.stheads.check
COPY WRDANSKIN>EMPTY post.new.stheads.check
&IF [EXISTS model.stheads.lay1.new] &THEN DELETE model.stheads.lay1.new
COPY WRDANSKIN>EMPTY model.stheads.lay1.new
&IF [EXISTS model.stheads.lay2.new] &THEN DELETE model.stheads.lay2.new
COPY WRDANSKIN>EMPTY model.stheads.lay2.new
/* Open files
FOPEN post.new.stheads.in 5 1
FOPEN post.new.stheads.check 6 2
FOPEN transient.basic.pack 30 1
FOPEN model.head.out 49 1
FOPEN model.stheads.lay1.new 68 2
FOPEN model.stheads.lay2.new 69 2
/* Execute program
RESUME wrdanskin>owens>valleywide>model>post.new.stheads
/* Close all files and delete some
CLOSE post.new.stheads.in
CLOSE post.new.stheads.check
DELETE post.new.stheads.check
CLOSE transient.basic.pack
CLOSE model.head.out
CLOSE model.stheads.lay1.new
CLOSE model.stheads.lay2.new
TYPE  Done creating new starting heads -- ready for copying files
/* goto the next program
/******************************************************************************
/* Program creates a file of date and total flux for specified areas of the model
/* each of the types of fluxes--river, drain, etc.
/******************************************************************************
TYPE  Begin processing model cell-by-cell budget information
DATE
TIME
/* Delete old files to get ready for new ones
&IF [EXISTS post.budget.check] &THEN DELETE post.budget.check
COPY WRDANSKIN>EMPTY post.budget.check
&IF [EXISTS post.budget.storage.out] &THEN DELETE post.budget.storage.out
COPY WRDANSKIN>EMPTY post.budget.storage.out
&IF [EXISTS post.budget.constanthead.out] &THEN DELETE post.budget.constanthead.out
COPY WRDANSKIN>EMPTY post.budget.constanthead.out
&IF [EXISTS post.budget.rightface.out] &THEN DELETE post.budget.rightface.out
COPY WRDANSKIN>EMPTY post.budget.rightface.out
&IF [EXISTS post.budget.frontface.out] &THEN DELETE post.budget.frontface.out
COPY WRDANSKIN>EMPTY post.budget.frontface.out
&IF [EXISTS post.budget.bottomface.out] &THEN DELETE post.budget.bottomface.out
COPY WRDANSKIN>EMPTY post.budget.bottomface.out
&IF [EXISTS post.budget.well.out] &THEN DELETE post.budget.well.out
COPY WRDANSKIN>EMPTY post.budget.well.out
&IF [EXISTS post.budget.drain.out] &THEN DELETE post.budget.drain.out
COPY WRDANSKIN>EMPTY post.budget.drain.out
&IF [EXISTS post.budget.recharge.out] &THEN DELETE post.budget.recharge.out
COPY WRDANSKIN>EMPTY post.budget.recharge.out
&IF [EXISTS post.budget.et.out] &THEN DELETE post.budget.et.out
COPY WRDANSKIN>EMPTY post.budget.et.out
&IF [EXISTS post.budget.river.out] &THEN DELETE post.budget.river.out
COPY WRDANSKIN>EMPTY post.budget.river.out
/* Open files
FOPEN transient.basic.pack 30 1
FOPEN post.budget.check 6 2
FOPEN model.budget.out 55 1
FOPEN model.well.budget 65 1
FOPEN model.drain.budget 66 1
FOPEN model.recharge.budget 67 1
FOPEN model.et.budget 68 1
FOPEN model.river.budget 69 1
/*
FOPEN post.budget.storage.in 70 1
FOPEN post.budget.constanthead.in 71 1
FOPEN post.budget.rightface.in 72 1
FOPEN post.budget.frontface.in 73 1
FOPEN post.budget.bottomface.in 74 1
FOPEN post.budget.well.in 75 1
FOPEN post.budget.drain.in 76 1
FOPEN post.budget.recharge.in 77 1
FOPEN post.budget.et.in 78 1
FOPEN post.budget.river.in 79 1
/*
FOPEN post.budget.storage.out 80 2
FOPEN post.budget.constanthead.out 81 2
FOPEN post.budget.rightface.out 82 2
FOPEN post.budget.frontface.out 83 2
FOPEN post.budget.bottomface.out 84 2
FOPEN post.budget.well.out 85 2
FOPEN post.budget.drain.out 86 2
FOPEN post.budget.recharge.out 87 2
FOPEN post.budget.et.out 88 2
FOPEN post.budget.river.out 89 2
/* Execute program
RESUME wrdanskin>owens>valleywide>model>post.budget
/* Close all files and delete some
CLOSE transient.basic.pack
CLOSE post.budget.check
DELETE post.budget.check
CLOSE model.budget.out
CLOSE model.et.budget
CLOSE model.well.budget
CLOSE model.recharge.budget
CLOSE model.river.budget
CLOSE model.drain.budget
/*
CLOSE post.budget.storage.in
CLOSE post.budget.constanthead.in
CLOSE post.budget.rightface.in
CLOSE post.budget.frontface.in
CLOSE post.budget.bottomface.in
CLOSE post.budget.well.in
CLOSE post.budget.drain.in
CLOSE post.budget.recharge.in
CLOSE post.budget.et.in
CLOSE post.budget.river.in
/*
CLOSE post.budget.storage.out
CLOSE post.budget.constanthead.out
CLOSE post.budget.rightface.out
CLOSE post.budget.frontface.out
CLOSE post.budget.bottomface.out
CLOSE post.budget.well.out
CLOSE post.budget.drain.out
CLOSE post.budget.recharge.out
CLOSE post.budget.et.out
CLOSE post.budget.river.out
/* Type finished message
TYPE  Done processing cell-by-cell budget information
/* goto the next program
&GOTO S4
/*****************************************************************************
/*  POST --  Process data from model
/*****************************************************************************
&LABEL MAPLP
TYPE Beginning line printer maps
DATE
TIME
/* Delete old files to get ready for new ones
&IF [EXISTS post.maplp.out] &THEN DELETE post.maplp.out
COPY WRDANSKIN>EMPTY post.maplp.out
&IF [EXISTS post.maplp.map1] &THEN DELETE post.maplp.map1
COPY WRDANSKIN>EMPTY post.maplp.map1
&IF [EXISTS post.maplp.map2] &THEN DELETE post.maplp.map2
COPY WRDANSKIN>EMPTY post.maplp.map2
&IF [EXISTS post.maplp.map3] &THEN DELETE post.maplp.map3
COPY WRDANSKIN>EMPTY post.maplp.map3
&IF [EXISTS post.maplp.surf2] &THEN DELETE post.maplp.surf2
COPY WRDANSKIN>EMPTY post.maplp.surf2
&IF [EXISTS post.errors] &THEN DELETE post.errors
COPY WRDANSKIN>EMPTY post.errors
/* Open files
FOPEN post.maplp.in 5 1
FOPEN post.maplp.out 6 2
FOPEN transient.basic.pack 30 1
FOPEN post.maplp.map1 31 2
FOPEN post.maplp.map2 32 2
FOPEN post.maplp.map3 33 2
FOPEN post.maplp.surf2 34 2
FOPEN model.head.out 49 1
FOPEN model.draw.out 50 1
FOPEN model.ibound.lay1 51 1
/*FOPEN work>danskin>model>model.head.out.cal 52 1
/*FOPEN work>danskin>model>model.head.out.pred 53 1
FOPEN model.budget.out 55 1
FOPEN wrdanskin>owens>data>et>model.et.array.1984wy 59 1
FOPEN wrdanskin>owens>data>lsd>lsd.array.62500 60 1
FOPEN model.et.budget 62 1
FOPEN model.well.budget 63 1
FOPEN model.recharge.budget 64 1
FOPEN model.river.budget 65 1
FOPEN model.drain.budget 66 1
FOPEN post.maplp.row128R 91 2
FOPEN post.maplp.row128F 92 2
FOPEN post.maplp.row128B 93 2
FOPEN post.maplp.row128ET 94 2
FOPEN post.errors 97 2
/* Execute program
RESUME wrdanskin>owens>valleywide>model>post.maplp
/* Close all files and delete some
CLOSE post.maplp.in
CLOSE post.maplp.out
CLOSE transient.basic.pack
CLOSE post.maplp.map1
CLOSE post.maplp.map2
CLOSE post.maplp.map3
CLOSE post.maplp.surf2
CLOSE model.head.out
CLOSE model.draw.out
/*CLOSE work>danskin>model>model.head.out.cal
/*CLOSE work>danskin>model>model.head.out.pred
CLOSE model.ibound.lay1
CLOSE model.budget.out
CLOSE wrdanskin>owens>data>et>model.et.array.1984wy
CLOSE wrdanskin>owens>data>lsd>lsd.array.62500
CLOSE model.et.budget
CLOSE model.well.budget
CLOSE model.recharge.budget
CLOSE model.river.budget
CLOSE model.drain.budget
CLOSE post.errors
/* Type finished message
TYPE  Done with line printer maps for transient state modular model program
/* goto the next program
&GOTO S5
/******************************************************************************
&LABEL HYDRO
/* Create meta file of water level hydrographs
TYPE Beginning hydrographs
DATE
TIME
/* Delete old files to get ready for new ones
&IF [EXISTS post.hydrograph.check] &THEN DELETE post.hydrograph.check
COPY WRDANSKIN>EMPTY post.hydrograph.check
&IF [EXISTS post.hydrograph.list] &THEN DELETE post.hydrograph.list
COPY WRDANSKIN>EMPTY post.hydrograph.list
&IF [EXISTS meta.hydrograph] &THEN DELETE meta.hydrograph
&IF [EXISTS popfil] &THEN DELETE popfil
&IF [EXISTS meta] &THEN DELETE meta
/* Open files
/*FOPEN post.hydrograph.in 5 1
FOPEN post.hydrograph.wsp 5 1
/*FOPEN post.hydrograph.temp 5 1
/*FOPEN post.hydrograph.temp2 5 1
FOPEN post.hydrograph.check 20 2
FOPEN post.hydrograph.list 33 2
FOPEN model.head.out 49 1
/*POPFIL opened automatically on Unit32
/* Execute program
/*RESUME wrdanskin>owens>valleywide>model>post.hydrograph
RESUME wrdanskin>owens>valleywide>model>post.hydrograph.wsp
/*RESUME wrdanskin>owens>valleywide>model>post.hydrograph.calcomp
/* Close all files and delete some
CLOSE post.hydrograph.in
CLOSE post.hydrograph.wsp
CLOSE post.hydrograph.temp
CLOSE post.hydrograph.check
DELETE post.hydrograph.check
CLOSE post.hydrograph.list
DELETE post.hydrograph.list
CLOSE model.head.out
COPY popfil meta.hydrograph
/* Need to change name for printronix program to work
CNAME popfil meta
TYPE  Done creating hydrographs for transient state modular model
/*******************************************************************************
/* Format meta file for output to the printronix printer
TYPE Begin printing hydrographs
DATE
TIME
/* Delete old files to get ready for new ones
&IF [EXISTS post.hydrograph.out] &THEN DELETE post.hydrograph.out
/* Open files
/* Looks for input file called meta
FOPEN post.hydrograph.out 32 2
/* Execute program
&data resume  wrdanskin>codes>graphics>pntrnx

&end
/* Close all files and delete some
CLOSE post.hydrograph.out
/* Spool hydrographs to the printronix printer
/*SPOOL post.hydrograph.out -AT LN -NOF
/* Type finished message
TYPE  Done printing hydrographs for transient state modular model
/* goto the next program
&GOTO S6
/******************************************************************************
&LABEL METAZ1
/* Create meta file of contour plots of model output
TYPE Beginning metaz contour plots for upper layer
DATE
TIME
/* Execute metaz program for upper heads
/* Delete old files to get ready for new ones
&IF [EXISTS disspla.out] &THEN DELETE disspla.out
&IF [EXISTS popfil] &THEN DELETE popfil
&IF [EXISTS metaz.heads.up] &THEN DELETE metaz.heads.up
/* Open files
FOPEN model.ibound.lay1 51 1
FOPEN model.ibound.lay2 52 1
/* Execute program
&data SEG wrdanskin>codes>metaz>metaz.big
metaz.transient.spec.up
co

&END
/* Close all files and delete some
CLOSE model.ibound.lay1
CLOSE model.ibound.lay2
CLOSE popfil
CNAME popfil metaz.heads.up
/*******************************************************************************
/* Format meta file for output to the printronix printer
/* Delete old files to get ready for new ones
&IF [EXISTS metaz.heads.up.out] &THEN DELETE metaz.heads.up.out
&IF [EXISTS meta] &THEN DELETE meta
/* Copy meta file
COPY metaz.heads.up meta
/* Open files
FOPEN metaz.heads.up.out 32 2
/* Execute program
&data resume  wrdanskin>codes>graphics>pntrnx

&end
/* Close all files and delete some
CLOSE metaz.heads.up.out
/* Spool metaz output to the printronix printer
/*SPOOL metaz.heads.up.out -AT LN -NOF
/* Type finished message
TYPE  Done printing metaz upper head maps for transient state modular model
&GOTO S7
/********************************************************************************
&LABEL METAZ2
/* Execute metaz program for lower heads
TYPE Beginning metaz contour plots for lower layer
DATE
TIME
/* Delete old files to get ready for new ones
&IF [EXISTS disspla.out] &THEN DELETE disspla.out
&IF [EXISTS popfil] &THEN DELETE popfil
&IF [EXISTS metaz.heads.lo] &THEN DELETE metaz.heads.lo
/* Open files
FOPEN model.ibound.lay1 51 1
FOPEN model.ibound.lay2 52 1
/* Execute program
&data SEG wrdanskin>codes>metaz>metaz.big
metaz.transient.spec.lo
co

&END
/* Close all files and delete some
CLOSE model.ibound.lay1
CLOSE model.ibound.lay2
CLOSE popfil
CNAME popfil metaz.heads.lo
/*******************************************************************************
/* Format meta file for output to the printronix printer
/* Delete old files to get ready for new ones
&IF [EXISTS metaz.heads.lo.out] &THEN DELETE metaz.heads.lo.out
&IF [EXISTS meta] &THEN DELETE meta
/* Copy meta file
COPY metaz.heads.lo meta
/* Open files
FOPEN metaz.heads.lo.out 32 2
/* Execute program
&data resume  wrdanskin>codes>graphics>pntrnx

&end
/* Close all files and delete some
CLOSE metaz.heads.lo.out
/* Spool metaz output to the printronix printer
/*SPOOL metaz.heads.lo.out -AT LN -NOF
/* Type finished message
TYPE  Done printing metaz lower head maps for transient state modular model
/*******************************************************************************
/* Type finished message
TYPE  Done creating contour plots for transient state modular model
&GOTO S8
/******************************************************************************
&LABEL END
/* List error files
TYPE Listing of pre-processing errors
SLIST pre.errors
TYPE Listing of model-processing errors
SLIST model.errors
TYPE Listing of post-processing errors
SLIST post.errors
/* Type finished message
TYPE Finished with runtrans
DATE
TIME
COMO -END
&RETURN