|
<br />
<br />e
<br />
<br />e
<br />
<br />.
<br />
<br />s~(3) 'P'\coweldOl\existi-l\T~iTOw-l\lO_Ye.r\udswmm\t~clOyr.cxt'
<br />outname (of.) . p, \coweldOl \exillti-l \ TriTow-l \~S _ Year\uds_\ttxc:J:.5yr. swo"
<br />sumnallll!! ("') . P: \cow.IdOl \elCi5ti-1 \ T1:"i Tow-l \.15 _ Year\uds_\r;txc.1Syr. txt.
<br />outname(Sl 'P:\coweldOl\existi-l\TriTOW-l\SO_Ye&r\ud~\ttxc50yr.swo'
<br />.umname(Sl 'P,\coweldOl\existi-l\TriTOw-l\SO_Year\u~\ttxc50yr.CXt'
<br />outname (Ii) 'p, \coweldOl \existi-l \ Tri Tow-l \100 _Year\udswnwa\ttxclOOy. swo.
<br />lIumname (Ii) . p, \coweldO 1 \exillti-l \ Tri Tow-l \100 _ Year\uasWllIII.\etxclOOy. txt'
<br />numevents .. Ii
<br />CloSE ,
<br />outname(l) 'P,\coweldOl\future-3\TriTOW-l\l_Year\udswmm\tttcJ:yr.SWO'
<br />~me(ll 'P,\coweldOl\future-3\TriTow-l\2_Year\udswmm\ttfc2yr.txt"
<br />outname(21 'P:\coweldOl\future_3\TriTOW_l\S_Year\udswmm\t.tfcSyr.swo'
<br />sumname(21 'P'\coweldOl\future_]\Tri~oW_1\S_Ye&r\ud8wmm\ttfcSyr_~.
<br />outname 1 J) .51, \coweldO 1 \future- J \ Tri 1'ow-1 \10 _ Year\ucawmm\ttfc10yr. SWO.
<br />SlJ1l\tWlle 1 J) ~ 51, \coweldO 1 \future-] \ 1'ri ~ow-1 \10 _ Year\u.a-\ttfc1Qyr. t~t-
<br />outnamei') "P,\coweld01\future-]\1'ri1'ow-1\~S_Year\ucawmm\ttfC~5yr.swo-
<br />sumnamei41 .P,\coweldOl\future-J\1'ri1'OW-l\~S_Year\udswmm\ttfc~5yr.txt.
<br />outnamelS) "P,\coweld01\future-J\1'r~~OW-1\50_Year\udswmm\ttfc50yr.swo.
<br />sunmame 1 5) '51, \coweldO 1 \future-] \ ~ri~ow-l \50_ Year\udswml\ ttfc50yr. txt.
<br />outname\61 .P,\coweldOl\future-]\~riTow-l\100_Year\udawmm\ttfC100y.swo.
<br />1I1ll1l1l.&me (6) .51, \coweldOl \future-] \ ~ri 1'ow-l \ 100_ Year\uds1o/lllD.\ ttfclOOy. txt"
<br />numevents '" 6
<br />CloSE )
<br />outnamell) 'P'\coweld01\future-~\~ri~ow-l\~_Year\udswmm\ttodJyr.swo.
<br />sumname(l) "P'\coweld01\future-2\~riTow-l\~_Ye&r\udawmm\ttodJyr.~.
<br />outname(2) .P,\co...eldOl\future-2\Tri1'o...-l\S_Year\udswmm\ttodSyr.lIwo"
<br />sWlIname (~) "P, \coweldOl \future-2\1'ri 1'0..._1 \S_Year\uds_\ttodSyr. txt"
<br />Outnarne(3) 'P,\coweld01\future_2\TriTow_1\10_Year\uds_\ttodloyr.lIwo.
<br />sumname(J) 'P,\coweldOl\future-2\TriTow-l\10_Year\uds_\ttodloyr.txt.
<br />outname(') "P,\co...eldOl\future-2\TriTow-1\25_Year\uds_\ttodJ5yr.swo.
<br />sUll\name \4) "51, \coweld01 \future-2 \Tri~ow-l \25_'fear\ud.swnm\tt0d25yr. txt"
<br />outnamelS) "P,\coweld01\future_2\~riTo"'_1\50_Year\uds_\ttodSoyr.swo.
<br />sumname (5) "51, \ coweld01 \ t:uture-2 \ 'rri 1'0...-1 \ 50_ Year\uds_\ttodSOyr. txt.
<br />outname(6) "P,\coweld01\future-2\1'ri1'o...-1\100_Year\udswmm\ttod100y.swoo
<br />sumname (6) "51, \coweld01 \future-~\Tr~ Tow_1 \100 Year\uds_\ttod100y. txt"
<br />numevents '" 6 . -
<br />CloSE .
<br />
<br />ouenarnell}
<br />5umname ~ l:-
<br />outnarnell)
<br />sumnarne III
<br />outname (31
<br />sumname ( ] )
<br />outname(4)
<br />sumname { 4 )
<br />ouenamelS)
<br />sumname { 5 )
<br />outnarnei61
<br />sumname (6)
<br />
<br />-51 \coweldOl\fueure_l\Tri~ow_l\2_'fear\udswmm\t.trd2yr.swo.
<br />"P,\coweld01\future-l\Tri~0"'-l\2_Year\udswmm\ttrd2yr.txt"
<br />"51 \ coweld01 \ future-1 \ Tn:!'ow_l \S _ Year\udswmm\ eerdSyr. s...o.
<br />"51 \coweldO 1 \ future-l \ Tri 1'0"'-1 \S _ Year\udswmm\ ttrdSyr. txt"
<br />"51: \coweld01 \fut:<.re-l \Tri1'ow-1 \lO_Year\uds_\ttrdloyr .swo.
<br />"P:\coweldOl\future_l\1'r~Tow_l\lO_'fear\udswmm\ttrdlOyr.txt"
<br />"51: \coweldOl \ fueure-l \ ~ri Tow-1 \ 2S _ Year\udsWltlll\ttrd.25yr. swo"
<br />"51, \coweldOl \ future_l \ ~ri Tow-1 \:l:S _Year\udswmm\ttrd25yr, txt.
<br />"51. \coweldOl \ future-l \ ~ri 1'ow-l \ 5 0_ Year\uds_\ ttrdSOyr, swo.
<br />"51 \coweldOl\future-l\TriTow-l\SO_Year\udsWltlll\eerdSOyr.txt-
<br />"P \coweldOl \future-1 \Tri~ow-l \100 Year\fredse-2\ttrdlOOy. swo"
<br />"51 \coweldO 1 \ future-l \ Tri TOW-1 \lOa = Year\ fredst-:l: \ ttrdlOOy. txt"
<br />
<br />numeven t S '" 6
<br />END SELECT 'condition
<br />CloSE )
<br />
<br />outname(l) "C:\CJPSTUFF\ghrdlOOy swo"
<br />sumname: 1) "C: \CJPSTUFF\ghrdtest. txt.
<br />out~ametll "A,\udswmm\ghxclOyr.swo.
<br />sumnarnell:' . "A,\udsWlml\ghxclOyr.txt"
<br />numeventll . 1
<br />END SELEC':' 'rnalnbasin
<br />
<br />FOR eventnurn '" 1 '!'O numevents
<br />
<br />PRINT "NO\ot Workl.ng On,"
<br />pRINT outnameieventnurn); Event: eventnUlll
<br />OPEN outnameleventnum) FOR INPUT AS _1
<br />
<br />numhydrographs . 0, hydrographnulll . 0
<br />FOR)t '" 1 '!'O rnaxelements, hydrographid(x) . .., NEXT X
<br />'try eliminating this :OQP
<br />
<br />WHILE SOT EOPI1)
<br />
<br />search$ (3) '" "NUMBER Of' TIME STEPS~
<br />~ILE INS'l'R.isent$, search$(J)) .0 AND NOT EOP(l): LINE INPUT .1, sentS, WEND
<br />numtimesteps . VAL,MID$(sent$, INSTRisent$. search$(3l) + ~EN(search$lJ)), 6)1
<br />PRINT "Numtimesteps " "; numtlmesteps
<br />
<br />'..-SEARCH AND LOAD GUTTERS/PIPES INFORMATION"..
<br />
<br />search$(4) . "TOTAL NUMBER OF GVTTERs/PIPeS,~
<br />WHILE INSTR(sentS, searchS(4)) '" 0 AND NOT EOF(ll, LINE INPUT ~l, sentS, WENO
<br />TIlOdelements. VALiMIDSlsentS, INSTR(senes, search$(41) + LENlsearch$(')), 5))
<br />PRINT "Model Elements '" .: rnodelements
<br />searchS1S) . "TRIBUTAR'f GUTTER/PIPE"
<br />WHILS INSTR i lIent$, searchS (5)) '" 0 AND NOT EOP (1), LINE tNP1J'I' _1, sentS, WEND
<br />t.INE INPUT U, sentS
<br />numelementll " 0
<br />FOR elementx '" 1 TO modelernentos
<br />INPUT $1, junk
<br />numelements . ~urnelements . 1
<br />elementld(numelementsj '" RTRIMS (LTRIMS (STRS (junk) ) )
<br />FOR x '" 1 '!'O 21: INPUT ~1, area(numelernents), NEXT x
<br />INPIJT #1, sentS
<br />!-lEXT etementx
<br />PRINT "number Elements Saved.." numelements
<br />
<br />'''.SEARCH AND :"OAD LISTED CONVEYANCE ELEMENT HYDROGIlAPRS."
<br />
<br />searchS(l) . "RYDROGRAPRS ARE LISTED FOR ~E FOLLOWING"
<br />
<br />Page 2 of 7
<br />
|