FLOOD03818

• 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

e

.

.

seareh$(Sl '" "EVENmJM'"
WHILE ~NSTR(3entS, search$(S)) '" 0 AND NOT EOF(])' LINE INPUT .3, sentS. WEND
sents.. ...
NEXT X
INPUT 43. ::.xteventnum

'FOR X .. 1 ~ :eventnum - 1) .. 15 . numhydrographsl, INPUT '3, junk, NEXT x
'INPUT 43. junk. txteventnUM
PRIm' "eventnum."; txtevenl:num
'WHILE INXEY$ .. ~.: wEND
WHILE ti~step c. numtimesteps
INPUT .3. eimeSl:ep
INPUT 43. hr, min
'PRINT eimestep, hr. min
PRINT 42, LTRIM$:STRS(nr)); mini
'PRINT ~TRIMS(STRS(hr)); m~n
hydrograpMUlll " 1
WHILE hydrographnum u numhydrographs AND NOT EOF(ll
FOR hydrographnum .. 1 TO numhydrographs
INPtJ'I'I$3. hg
PRINT .2. hg;
hydrographnum .. hydrographnum . 1
WEHO
NEXT hydrographnum
PRINT 1/2, USING' lflllt U hr. min / 60
timest!!p .. timest!!p 1
WEND "ti:nestep
CLOSE "3

PRINT .2. "Peak icf!ll';
FOR hydrographnum .. 1 70
PRINT 112,
PRINTlt2, "Peak :hrSJ";
FOR hydrographnum .. 1 70
PRINT 11:2,
PRINT .2, 'Peak ,mini".
FOR hydrographnum ~ .:. 1'0
t'RINT ~2.
PRINT #2. "Peak
FOR :"ydrographnum
t'RINT '*2.
PRINT 1t2. "C:ase
FOR hydrographnurn
PRINT 1t2.
PRINT "2. "Area ,lei";

numhydr09raph.s, PRINT 1J2. peakq (eventnum, hydrog:r:aph.num); , NEXT hydrog:r:aph.num

numhydrographs: PRINT 112. pe<lkhr(eventnum, hydrographnumJ; , NEXT hydrograph.num

numhydrographs, PRINT 42, peakminleventnum, hydrog:r:aphnum);

NEXT hydrographnum

cfs_::>r_,,"c.ft.
,0 numhydrograpns, PRINT 1J2, storatpk(eventnum. hydr09raph.nurn);

NEXT hydr09raphnum

':.5.:.J.0\ ";
70 numhydrographs, PRINT .2. " "; caseatpkieventnum. hydrograph.numJ:

NEXT hydrographnum

FOR hydrographnum ~ .:. :0 numhydrographs
element:'lum z 0
WHILE :J.ydrographidlhydrographnuml <:> elementidlelementnum) AND element:'lUlll <* numelements
. PRINT hydrographnum, hydrographid(hydrographnuml. elementnum. elementidielementnum)
elementnum z elementnum . 1
WEND
IP elementnum <_ numelements THEN
PRINT '*2. :;SING ""####." area(elementnum);

ELSE

PRINT .2, " nil.
PRINT 'WARNING: REQUESTED HYDROGRAPH.
?RDrr "PRESS :.NY KEY ':'0 CONTINUE"
'.oHILE :NKEY$ " "". "'END

hydrographid(hydrographnumJ; " IS NOT A DEPINEC E:LEMENT"

s:ND :F
lIEXT hydrograpnnum
PRINT "2.
;:ORINT "'2. "Peak/Area cfs/ac)";

FOR hydrographnum ~ 1 1'0 numhydrographs
elemencnurn ~ 'J
WHILE hydrographid(hydrographnumJ <> elementidielementnum.) AND elementnum <_ numelements
'PRINT hydrographnum. hydrographid(hydrographnuml, elementnum, elementid(elementnum)
elementnum .. elementnum . 1
WEND
IF elementnum u numelements ':'HEN
'PRINT hydrographnum; "hydroid_"; hydrographid(hydrographnuml, peakq(eventnum, hydrographnum), elementnum; "elemid-"; elementid(elementnuml.
area (elementnuml
'WHILE: :NKEY$ " "": "'END
PRINT '2. USING IJ...... peakq(eventnum, hydrographnumJ / arealelementnuml:

ELSE

PRINT ~2, n/a"'
END "
NEXT hydrographnum
PRINT _2.
PRINT "2. DATE$;" TIME':;
PRINT ~2. "Summary File, "; $umnameleventnum)

CLOSE 112
N'EXT event:l.um

. ---MODEL 5UMMAAY fILE:

SELECT CASE ~inbas~:'l
=E

filename2S ~ "P, \coweldOl \qbasic\gh.exsta. tXt.
SELE~ CASE condition
::ASE: L
filenameS. "Po \coweldOl\existi-l \Goddin-l\ghexswm.txt"
fllenameJ$ " "r>, \coweldOl \ex~sC~-l \Goddin-l \shexprot. t:;xc~

=E

filenameS . "P, \coweldOl \future-l \Goddin_l \ght'us_.txt:;"
filename3S ~ "P, \cololeldOl \future.l \Goddin-l \ghfuprof. txt"
="

Page 5 of 7