|
<br /> "'l
<br /> f
<br /> ...
<br /> ...
<br /> ~
<br /> a
<br /> ...
<br /> li'
<br /> It
<br /> a
<br /> ..
<br /> ~
<br /> Cl
<br /> ..
<br /> :c
<br /> "
<br /> ...
<br /> !
<br /> ..
<br /> J
<br />..
<br />'"
<br />
<br />i
<br />
<br /> Program No. , ~
<br />Read temp. .od ~a.turati"n vapor pre..ure "due. (from meteorLogkal table.)
<br />'0' nnge encountec,"d '0 re.'"r"o,r.. Plot tIT".. dlBtnhution cfthe rolLo""in~ parameter. .od from them determIne
<br /> average monthly valuea '0' each: ide.Hull. BUppre..."n, natural lurb.cc temp.
<br /> natural bottom Il!'mp. ,od dr..wdown.
<br /> prt.>gr! No. S
<br />Can Poly
<br />U,. orthogo,,;ol polynomIal luhrauhne '0 camput.. belt fit coefic,ent. fo, linear Read O1"g. monthly value. ofiduli""d lupp."'lion, lurlae," temp.. drawdown,
<br />,. "" ord.., function. robtiDi temp. .od y.por pre"uTe (qu.draH~ fUncllon normal ",vap. .od r<'lervolrlbape.
<br />w", ...Ieet.d bu:auu, of nee".,It)" '0 lolve '". equation f., ,h. dep"nd.nt var_
<br />'able '0 Program ..
<br /> Compute '". ,net"..." '" monthly mlll..d relerva;T t..mp. \f,d.."l,z..d ftuppr..ft.lOn
<br /> , "alue~ ....er.. Ilch,..,...d.
<br /> Prosrllm No. ,
<br />U.e ,h. temp/vapor P,. !UfICtiOn '0 compute "vllpoelltiOn change .. . function
<br />v.'/ller tempeeatuee change "' temp. and L temp. vary OVer rang" of in/..r".(. Compute and write mClmh\v .urbce ae..a compuled va\u..ft Co, ch",k.,naeu/d..pth
<br /> functtOn.
<br /> I ~
<br />Plot f/lnlilV of Cun,el rel/ltln~ temp. andt..J.temp. '0 evaporation .uppeel.,on. l
<br /> Pr,)~r"m Ne. "
<br /> ~nputD"la:
<br /> Monlhlv av..ra{!.... ,,' normlll evaponln)". t..mper..ture and .hap... stora~.. .od out.
<br /> , fluw, par3m"tee~ ;,nd ;d~..ll~ed .uppress\<ln '00 ,elated h..at \'...a-Jas con1pu'erl '0
<br /> pro~ram. , .oe ;.
<br /> PcoBrllnl No. \
<br /> Read depth .00 r..lat..d waue storage dala '0' e.ch eeleno;r. l
<br /> Opera", rTl"del '0 an,f"';31 mi~ln~ mode l"r .ele't..d portion ,,' ,,, ,'eae.
<br /> l. Comput<. ld..al"e" ,r1Clr,lhlv paeam..ur \a\ues (I.t il..r""0n].
<br /> _. AU)ll", ,,,' inlt,al \al".. 0' ,"cc.ndaey ..Jtecls. ladd..d heal (r"nl .UpfH....;On
<br /> 'od heat II'" feom nullell.
<br /> L ....dlu.t [,H [;nal...lLmal" 0' ,,'cc,ndar)' elkcl" Uh,rd u..rall",n).
<br /> - ,. Iltlt.. m"nt~lv and "c,c."",:all'e para,""'..I..", ,,,' ] ~: y....r '" 5~a.nn.
<br />Call Polv
<br />Ll... orlho)i!onal polynomial lubrolll',," W compute but fil coefLClenl. '0' 1",....r
<br />'" ," ord..r lunction. relat,nf!. d..pth '" volum.. 0' ....'atee Ilo,..d.
<br /> . '0 . caetyo\'''' otae3lt..a lat!:e pOctlOn "f
<br /> n.."t ~'''/l t' 5 re...rva;r ftlarll~" (lO e....dual
<br /> h..at 51~nHlcant '0 leem. 0' .UppT....,"n
<br />Compute: .od .....nt.. ,". follo.....'ng paramet..r ~a.lu'" .. e;lch depth f", '0' e"tse....on'
<br />.elected ord..r 0' p.,lynomial '" oed~r '0 v""fV 3c,Uea~v 0' [uncllon lelect..d:
<br />dep,h. 'npllt ,'o]um.., comput..d volu",... dtfl"r..nce.
<br /> YES
<br /> Ope,at" mod.. 1 '0 ne.colec".a, m'x1~ d"r:,~;; ~"Yc?,~.7 '.....r .',7" ...."...'C.,..I _'))J~jI'l!!
<br /> l. A.5um.. carr\"oveth.....l ITSl'MBI ;. luper,mpr,...d .. .11 d..pth. 00 natutal
<br /> lempet.HUt.. !:e...d'''''l.
<br />"" Pro~rarn No. . ,. C"mput.. rnonthl~ deer...... '0 e...,du31h..at 0"" '0 n~~...tL\... .uppr~~.,,,n .od
<br /> 'ncreased h"at (roTr, (Iutlel.
<br /> l L Welte (inal ..",'m3t~ 0' suppr".s;on.
<br />Re...d inpuI data: All ......ailable .pot mealurem..nt. 0' lempeeatur.. profile.
<br />rel"ted tIme. dra",'down, .od depth/volum.. (I.lflC'Lon.
<br /> Proseam Nn. ,
<br />Comput.. ,h. con'pl..te1V ml"..d r..lerVOlT temp..r...tu.e (TM1Xl f", ...en dUe 0'
<br />we'!thtln~ ,h. aver~ge lemperature betw..en <:.ch p.,r ",fd..p<hl fo, which dat" Com'''' ,,,,,'''''00 wn" "o~oof, ,m'.o" ,mm.."" '.",h .. d.,,". 1I0w/ I
<br />" a~ll;lable ac<:"'rd\ng '" '"" r..la.t..d vol urn.. ofw.'e... ,'olum... elevallon) ,n ord..r to p.ovid.. e..t....a for .,,,and;ng re.ulll t,., other
<br /> re.ervo,r. for whIch temperatur.. profile data '" not ava,\ab\~.
<br />l'.... tempJvapoe prel.Ue.. !unc\1on from Prall ram No. J '0 compute evap'lra-
<br />"on .'Hosal... fo, bOlh n"cural (E:MODl .od m,,,ed (EMlXl .urlace t..mperatur...
<br />.od '.. ea.tio '0 det..rmine idealued .uppr.....on " ...ch dat.. Co, wh,cn data " Prog:rllm No. ,
<br />a....a'13ble.
<br /> Opent.. Tegre...or.moQeltodet..rmine IUp_ 1
<br /> pr....'on potrntilll of other Utah relervmr..
<br />Compu<.. "" {ractiorT "' ......r..OU. d..pth and volLlT.ll" "" " above ". thermo-
<br />cl1ne.....h..re ,h. divhion " de(ineQ .. thllt depth 00 '". NaturiI.l pro/lie ....h.r.. END
<br />". ml"..d (weLijhted averasel ternperatur" occur..
<br /> y
<br /> ~
<br />
<br />, I
<br />
|