FLOOD08496

• County: Weld
• Basin: South Platte
• Title: Project Notebook for I-25 Corridor Master Drainage Plan South Weld County: Volume 1 of 2
• Date: 12/6/1999
• Prepared For: Weld County Public Works
• Prepared By: Anderson Consulting Engineers, Inc.
• Floodplain - Doc Type: Floodplain Report/Masterplan

'Oace ~.e Updaee4
CUHP INPU'l' .. otrrPUT DATA STR.IPPU"

upde.e.s _ .06/01/99-
eicleS . -CUJlPSUM.aAS
CONST ~e. _ Ii
CONST maxba. ina . SO
DIM id.(maxbu:l.nll1 AS STUNG
DIM al:"ea(llI&Xb..icllIl
DIM basinlangtbllll&Xbuins)
DIM d:l.aeance(maxbasinaJ
DIM illlpuv(maxballinsJ
DIM slop.(~.lIin.l
DIM dul:"acion(maxba.insl
OUI runoff (maxeventa, maxl:Ia.insl
DIM coealvollmaxevental
DIM pe&kq(lIl&Xevencs. maxbaainsl
DIM ~.&kei~(maxevents, maxbaainal
DIM outnaJlle(lII&Xevencs) AS STRING
DIM sumname(lII&Xeventsl AS STRING
DIM searchS(,,)
search$(l) "BASIN 10:"
seal:"ch$(21 "VOLUME OF SXCESS PRECIP ."
searchS()) "(MIN)"

e

CLS
PRIm' tit.leS
PRINT "PROGRAM LAST UPDATED ON: "; updat.eS
PRINT
erl:"l:
INPUT .Ent.er 1 for Godding or 2 for Tri-To~ or ) for Other.; mainbasin
INPUT "Ent.er ::. for Historic, 2 for Existing or ) for ?ut.ure"; condition
SELECT CAS! mainbasin
CASE 1
SELECT CASE condit.ion
CASE 1
PRINT "No Histor~c Condition Available"
GOTO err1:
CAS' ,
outname( 1) "P: \cowe1dOl \exisei-1 \Goddin-1 \2_year\cuhp\ghxc2yr cho"
sumname 111 'p. \coweldOl \existi-l \Goddin-1 \; Year\cuhp\ghxc2YJ; ~xt.
ouename (2) "p \coweldOl \existi-1 \Goddin-l \5 -Year\cuhp\ghxcSyr cho.
sumname (2) 'P: \coweldOl \existi-1 \Goddin-1 \5 - Year\cuhp\ghxcSyr. txt"
outname 131 "1' \coweld01 \exist~-l \Goddin-1 \lO_Year\cuhp\ghxclOYJ; cho.
sumname () I "p \cowe1dOl \exl5ti-1 \Goddin-1 \lO_Year\cuhp\ghxclOyr :Xt"
outnarne (4) "P: \coweldOl \exist::.-1\Goddin-1 \~5_Year\CUhp\ghxc2syt: cho"
sumname I'" 1 "P: \cowe1d01 \existi-1 \Goddin-l \25_Year\cuhp\ghxC25yt: ,:xt"
outname 151 "P \cowe1dOl \exisei-1 \Goddin-l \50_Year\cuhp\ghxc50yt:. cho"
sl1dlname -: S) "P \coweldOl \existi-1 \Goddin-1 \SO Year\cuhp\gh.xc:50yt:. txt"
outname (6) "I' \coweldOl \existi-1 \Goddin-1 \lOO_year\CUhp\ghxc10Cy .c:Jo"
sumname (6) "I' \c:oweldOl \existi-1 \Goddin-l \lOO_year\cuhp\ghxc:100y. txt"
nUlllevents " 6
CAS! ]

e

outna.me(ll
sumname(ll
oucname(2)
sumname (2)
oUl:name \))
sumname ( J )
outname (4)
sumname (4 1
oul:name(S)
sum.name\5)
outname (6)
.!IUlM.ame (61
numevent.s ~

"p,\coweldOl\future_1\Goddin_1\2_Year\cuhp\ghfc2yr.Cho~
"I', \coweldol \future-1 \Goddin-l \2 Yeat:\cuhp\ghfc2yr. txt"
"P, \cowe1dOl \fueure-l \Goddin-1 \5 - Year\cuhp\ghfc5yr .cho"
'P. \eoweldOl \ future-l \Goddin-1 \5 = Year\cuhp\ghfcSyt:. txt ~
'P:\eoweldOl\future_1\Goddin_l\lO_year\cuhp\ghfc10yr.cho'
. p. \coweldOl \ future-1 \Goddin-1 \10 _ Year\cuhp\ghtc1oyr. txt ~
"P \coweldOl\future-1\Goddin-1\2S_Year\cuhp\ghfc25yr.cho"
'p \coweldOl\future-1\Goddin-1\25 Year\cuhp\ghtc2Syr.:xc.
"P. \coweldo 1 \ future-l \Goddin-1 \ SO = Year\cuhp\ghfC50Y"r. eho"
. p, \coweldOl \ future-l \Goddin-1 \5 0_ Year\cuhp\ghfc50Y"r. txt"
"P, \coweldol \future~1 \Goddin-l \100_Year\CUhp\ghfC100y .cho.
"P: \eowe1d01 \future-1 \Goddin-1 \100_Year\cubp\ghfc100Y ,:xt"
6

~ SELECT . condition
CAS' 2
SELEC':' CASE condition
CASE 1
outna~(ll " "p:\coveIdol\hisl:or-l\TriTow-1\2 Year\cuhp\t.the2yr cho'
sumnAme(l) . "p,\coveldOl\histor-1\TriTov-1\2=year\cuhp\tl:hc2yr ext"
n\1lllevent.s " 1
CASK ,
outname(1) 'p,\coweldol\exi.ti~1\TriTow-l\2 Year\cuhp\tl:Xc2yr cho~
SUlJll'lame I 1) "p, \co_1dOl \exi.sci-1 \TriTow-1 \2:year\cuhp\ttxc:zyr txt"
outname( 2) "P: \coweId01 \exisei-1 \'1'riToW"-l \S_Year\cuhp\ttxc5yr c!'\a"
sUll:ll1ame(21 "P, \coweld01 \existi-1 \TriTow-1 \5 'fear\cuhp\ttxcSyr. txt"
outnall'le (J I "P, \cowe1dOl \exisei-l \TriT01oI-l \10' Year\C\il1p\etxc~Oyr .cho.
sumname (3) "p, \coweldOl \exi5ti-l \TriTow-1 \10 - Year\cub.p\ttxC10yr. ::xt~
outname("') "PI\coweldOl\existi-1\Tl:"iTOW-1\2S-Ye.r\cuhp\ttxc2Syr.cho-
sumname(4} 'p,\cowe1dOl\existi~1\TriTow.1\2S-Year\CUhp\ttxC2syr.txe"
out:name (5) "p, \cowe140l \exiaci-l \TriTow-l \50- Year\CUhp\ttxcSOyr .cha"
sumame (5) "p, \coweId01 \existi-1 \TriTow-l \50- Year\cuhp\ttxcSOyr. txt"
out.name (Ii 1 . 1': \cowe140l \exisei-l \ Tri T~w_l \ 1 00_ Year\cuhp\ t.txc1QOy. eho'
sUlllr\ame IS) "P: \cowe1dOl \existi-l \Tri'1'ow-l \100_year\cuhp\ttXCl00y. tXt"
nUlllevenes _ Ii

.

CAS' ]
outname (1)
sumame (l)
OUtname (21
sumname ( 21
outname I) 1
sumname(JI
outname ("')
sumname (41
out.namelSj
sumnamel51
outname (6)
sumname I. 6 }
numevents .
ZND SELECT
]

CASE

"p, \cowe1dOl \future-l \TriTOw-1 \2 Year\cuhp\ttfc2yr ,cho'
"P: \cowe1401 \future-1 \TriTow-l \2 - Year\cuhp\tetc2YJ;. ext"
"p,\coweldOl\future_1\TriTow_1\S-Year\cuhp\ttfc5yr.cho.
"I': \cowe1401 \ future-1 \Tri'1'ow-1 \5 - Year\cuhp\et.fc5yr. txt"
"P, \cowe1dOl \future-1 \TriTow-l \10 Year\cunp\ttfC10yr .cha"
"p,\coweldOl\future_1\TriTow_1\lO-Year\cuhp\ttfC10yr ext"
"P: \coweldOl \future~l \Tri'1'ow-l \25 - Year\CUhp\ttfc:lSyr cho~
"p:\cowe1dOl\future_l\Tr~Tow_l\25-Year\Cuhp\tttc25yr txt"
. p, \cowe1dOl \future~1 \ Tn":'ow.1 \50- Year\CUhD\ttfcSoyr cha.
"P: \cowelc:10l \future~l \ TriToW"-1 \50 - Year\CUhp\~ttcsoyr .txt"
"p I \coweld01 \future_l \Tri1'ow-1 \100 Year\cuhp\ttfC100y.ChO'
"P: \coweld01 \ future_l \ Tr ~ Tow-1 \ 100:: Year\cuhp\ t.ttel00y. txt.
,

, condit.ion

"--- ~ -~