|
<br />
<br />.(
<br />f
<br />
<br />.1
<br />.~"'f'
<br />1,1
<br />I'!
<br />.1"1
<br />'I
<br />\6:
<br />.r1i.f
<br />1:1
<br />.1'"
<br />1,,1
<br />. I
<br />illt
<br />I.
<br />.1131
<br />f f
<br />j14i
<br />1,,1
<br />, f
<br />ellS!
<br />Inl
<br />f f
<br />1,,1
<br />.'''0
<br />!'"
<br />! ,
<br />)211
<br />_iZ2!
<br />I...,,)
<br />["1
<br />:2ijL_~_____..~_________,_
<br />.1'20:
<br />. i ~
<br />12m
<br />1 f
<br />!27i
<br />
<br />UNIVERSITY CO~PUTING CENTER
<br />COLORADO STATE UNIV.
<br />
<br />,.
<br />
<br />80/01/24.
<br />
<br />15.35.00.
<br />
<br />1
<br />
<br />PAGE
<br />
<br />.
<br />
<br />SPS S---;;--;:''''''s'tTl'TsTlCAL PACKAGE' FORT8T--SoCI"AL SC.IENCES
<br />
<br />VERSION 8..o--JUNE 18.1979
<br />
<br />--.--------. -,-"._._-- . -,.._-'----,~----,--_._-----~~~"--~-_.
<br />." -::.,. ,._, --::, :-- _,::':.:'" '.'.: "-,--; _ ,'" '--:.'.:'.:':-:- ,u__:::_,:""',' '-':,,-~",':::i::':,:':'--::::::';,:u:,::,:::;:,:::;-:,:"":;,.::::',:,.::::-:-::,:_'.':;:'::::::::::::::::::::'.';'-:::::::__::\::::"::::::-;:::::'::}:::;__:;?;;;::':';::u.':-.':::;:::\::::::;:;:::::.__::':-:,:.;i:;__;:\_:"-:::':<::,:-::::,:':::;;,:::::::::::::'-:'__
<br />.JOHN....MARTIN. .RESE RllOIH............f-HL.sTQR~C:fRELf;~.sg"S:.QF..\!IIN:rE~.
<br />STORAGE' "'WA'TER.' ..... .....1952'-i9fs........iY:E1I'RS..WflEN.iiii!@.....RESERVOIR...
<br />--..-.---..---.-..-...----.-.DRA"j'NED-HAVE BEEN EXCLUDED FROM THIS ANALYSIS.
<br />FILE NAME JMRDRAIN
<br />VARIABLE LIST DELETEC.COLOD.DELETEK.KANSASD,DELETEB.
<br />__'m - -.. .. ....-.....-. -....-C[jMBOD.(j"E"[n.ETC~QUTrI..DW..Pst:EJ;E~I.,.."$TLRI.,..Ow;f<Jv....... y~ LL..........s.....
<br />INPUT MEDIUM OTHER '. ..' '. . ....... '.' ......>i<
<br />SUBFILE LIST W52(6.0l. W53 (21.) .W54 (14) .W55{.1.1J.W56f34J.WS7.JlSl,!,JS9(17'OJ.
<br />--.----..----W60 (4Tr-;W61 (3())-.-w6"2(271 .W63 (15) .W64 (9) .W65 (6) .W68 (25) .W69 (82) .
<br />w70 (47) . Wn (23) . W72 ( 18) . W73 (54) . W7 4 (21) . W75 ( 10) . W76 ( 10) . W77 ( 10)
<br />W78(9)
<br />-- -.- .--. rNPOTHlR~fAT---FTx'EO---Cf4 X .5"(A2;F"if~'0);Tfo.Jl)
<br />
<br />AccbR[Y!NG"TO--YOUR-INpDfToRMA T;"VARTABIES ARE TO BE READ AS FOLLOWS
<br />
<br />.::'rREINP~~~~~~A T PROV IDES FOR 11 V ~R ~A~:~~-.--~~-~~~-~8~--~~A~~-----------------
<br />,,'JTPROVIDES FOR 1 RECORDS (*CARDS*) PER CASE.
<br />..,,-AMAYfMLJM --OF- -- --74 * Cb"LU f.1NS* ARE' U'SED-ON-jn~ECoRIY~'---"'-'----'-'-------'-----"
<br />;~1,
<br />i:
<br />i"\
<br />ei43i
<br />IJ
<br />If
<br />:~5;
<br />
<br />RUN. NA M.E
<br />
<br />
<br />VARIABLE
<br />
<br />DELtTEC
<br />COLOO
<br />DETEfEK
<br />KANSASD
<br />DELETEB
<br />COMBOO
<br />DELETEFL
<br />OUTFLOW
<br />DELETESC
<br />STLFLOW
<br />RIVCALLS
<br />
<br />ejZE::
<br />129:
<br />
<br />, .
<br />:3,,:
<br />I ~_~__.""~__~._"
<br />.~31!
<br />. ,
<br />!3~i
<br />i33L~__,____.___________.___ __
<br />
<br />.."i
<br />[35;
<br />
<br />:3'0'
<br />
<br />COMPUTE
<br />-toMPUTE
<br />COMPUTE
<br />COMPUTE
<br />
<br />.'"
<br />:4,:
<br />, ,
<br />, ,
<br /><"I
<br />.i4Si
<br />. ,
<br />i50:
<br />io:!
<br />
<br />- - -
<br />
<br />FORMAT
<br />
<br />RECORD
<br />
<br />
<br />I: ·
<br />
<br />. ..11,[:
<br />
<br />, '.'\,,:::"-:"11
<br />
<br />'1::.
<br />f:~I.
<br />II~~ .
<br />"
<br />,,'
<br />l~: e
<br />~::I
<br />- -- - - ----- ~l:
<br />1,,1
<br />~:I.
<br />e:1
<br />~;I.
<br />"'
<br />
<br />F.
<br />r,
<br />-i.
<br />'1"1
<br />:52-
<br />1"1.
<br />~~ .
<br />
<br />f'!
<br />'601
<br />~;i.
<br />~'I
<br />F
<br />~i .
<br />1"
<br />'"
<br />I".
<br />~,
<br />p,
<br />
<br />A 2
<br />F 8. 0
<br />....1\2
<br />F 8. 0
<br />A 2
<br />F 8.0
<br />A 2
<br />F 8. 0
<br />"---i\-"2-H
<br />F 8. 0
<br />FlO. 0
<br />
<br />1
<br />1
<br />-T
<br />1
<br />1
<br />--- --1
<br />1
<br />1
<br />"--'-1
<br />1
<br />1
<br />
<br />- ,-;;,:-,:",':-""'.'--'-;'-,:,,""-'
<br />~~$}~ii{ .'.
<br />
<br />
<br />
<br />COLUMNS
<br />
<br />
<br />15- 16
<br />17- 24
<br />'--25':-'-26-"-"--
<br />27- 34
<br />35- 36
<br />j":1'= -----44- -~,,~"----'"--
<br />45- 46
<br />47-'" 54
<br />..55:..--5-6-...--~---"
<br />57- 64
<br />65- 74
<br />
<br />
<br />
<br />COMBOD = COLOO+KANSASQ+RIVCALLS
<br />. ...-- .C'OLO-=---CoC6IT-------.---~._-
<br />KANSAS = KANSASD
<br />COMBO. =' COMBOD
<br />
<br />
<br />- - - - - - - - -
<br />
<br />- - - -
<br />
<br />JOHN MARTIN RESERVOIR
<br />
<br />HISTORIC RELEASES OF wINTER
<br />
<br />
<br />80/01/24.
<br />
<br />2
<br />
<br />."~
<br />I.
<br />, ,
<br />]52'
<br />'<J
<br />1-,
<br />!sr--'---~-- "--.---
<br />, '
<br />, ,
<br />[S"t
<br />id
<br />.
<br />
<br />15.35.00.
<br />
<br />PAGE
<br />
<br />CO~PUTE JMFLOW = OUTFLOW
<br />ASSIGN MISSING COLO TO JMFLOW(O)
<br />"'RE COlJE- .---._.--~U["\:F;K.A"/if5A5fCQf'fJ:fO-.J"'FLOWrU .lliRV99;,;...llTIOOTHRU 199. = ..... .'" I
<br />(200 THRU 299= 3) (:300 THRU 39'$=4! f400 THRU 4.99=S!1 $0 OTHRU
<br />599 :: ...6)(600. THRU699;:;Y1C7001'l'IRlf799. ""Jl)(BOO 'THRU899<,\= 91
<br />..... .........---H------r9011-TRRU~9-.=--T(JrCTlllfOTFfR1Tl'ITGBE"S T ::: 111---~---.----------.--------~._-----
<br />(DELETEC EQ 'D')COLOO = 0
<br />
<br />IF
<br />
<br />t"
<br />'-:-,;1-
<br />,,I
<br />. ,
<br />py
<br />
<br />.
<br />
|