/******************************************************************************
/*** PROGRAM RUNSS.CPL
/*** executes a steady 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 (NOT USED FOR STEADY STATE)
/* 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 runss
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
/* 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 steady.basic.pack 30 1
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, delete some
CLOSE pre.constflux.in
CLOSE pre.constflux.check
DELETE pre.constflux.check
CLOSE steady.basic.pack
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
/* 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 steady.basic.pack 30 1
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 steady.basic.pack
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 steady.basic.pack 30 1
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 steady.basic.pack
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
/*****************************************************************************
/*  MODEL -- Execute modular model for steady 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 steady.basic.pack 5 1
FOPEN model.out 6 2
FOPEN steady.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 steady.basic.pack
CLOSE model.out
CLOSE steady.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 steady state modular model program
/* goto the next program
TYPE  Creating new starting heads
/******************************************************************************
/*** 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 steady.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 steady.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 steady.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 steady.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.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 steady.basic.pack 30 1
FOPEN post.maplp.map1 31 2
FOPEN post.maplp.map2 32 2
FOPEN post.maplp.map3 33 2
FOPEN model.head.out 49 1
FOPEN model.draw.out 50 1
FOPEN model.ibound.lay1 51 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.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 steady.basic.pack
CLOSE post.maplp.map1
CLOSE post.maplp.map2
CLOSE post.maplp.map3
CLOSE model.head.out
CLOSE model.draw.out
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 steady state modular model program
/* goto the next program
&GOTO S5
/******************************************************************************
&LABEL HYDRO
/* This program is not used for steady state analysis
/* goto the next program
&GOTO S6
/******************************************************************************
&LABEL METAZ1
/* Create meta file of contour plots of model output
TYPE Beginning metaz contour plots
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.steady.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
TIME
DATE
********************************************************************************
/* 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
TYPE OPEN FILES 2
FOPEN metaz.heads.up.out 32 2
TYPE EXECUTE
/* 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 steady state modular model
&GOTO S7
/********************************************************************************
&LABEL METAZ2
/* Execute metaz program for lower 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.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.steady.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 steady state modular model
/*******************************************************************************
/* Type finished message
TYPE  Done creating contour plots for steady 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 runss
DATE
TIME
COMO -END
&RETURN