SUHHOUTTNf Rt4C)IN (XtV.VKACXFiC.XO.XF-.INOCiKK.LNlIUNIT) 

 SUbROUTINt TO RfAO SOLUTION TABULATION FHOM FILE 



DIMENSION y(9), rFAC[9) 

 OTb=,5»l./bO. 

 RFAD (IllNTT) X. r 

 IFCx.LT.-l.E+lO) KK.i 



iNDr " n 



IF IKK. , 1) 10, IC, 50 



IF (xn . X - OTS) ao, 50f 



50 



IF fx - XF . DT5) 30i 25i 



25 



KK n 2 





CO TO 50 





INDc = 1 





X a XFAC*(X • Xn) 





yCLN) a yFAC(LN)»Y(UN) 





HFTlJHN 





fNU 





INLET 



713 



INLET 



71U 



INLET 



715 



Inlet 



71(, 



INLET 



717 



INLET 



718 



INLET 



719 



INLET 



7,;o 



INLET 



721 



INLET 



722 



INLET 



72J 



INLET 



72U 



INLET 



725 



INLET 



726 



INLET 



727 



INLET 



728 



INLET 



729 



INLET 



7J0 



SUBHOUTlNt GRPHC(ALAHLltALARL2,DtLT.iUNIT,NI) 

 C 



C SUPBOUTINf GKPHi: WRITES CLUTTtR TAPE FOR GRAPHICAL 

 C OUTPUT OF SOLUTION 



c 



OI''F''iSIiiN BL(2) , ISyM(S) 



r>T"FNSlON VLiHLI. (3).ALtCN(i,6).ALABLl('O.ALABL2(«)iSyM(5)»Y(9)iYFA 

 lC(9),xxc2"oO)tyyC2pno)iTTC9,2) 

 DAT* YLSHLL/lOHHElRHTS. V i 1 ohELOCI T I ES- , BH-FT , FPS/ 

 DATA ALFGN/IOHFLOrt (KCFSilOH) ,'JH ilOHINLET VFLO.IOHCITY 



1 (FT/SilHtc) > lOHBAy lEVELCmuhfT) iJh ilOHINfLOW ilOH 



2 .IH ,ioH(icEAN LEVEi lOHL(FT) iJM .lOHLEGEND ,10H 

 5 ,in / 



DATA ML/lOHOhSEBVED H.IOHAY TIDE / 



DATA ISyH/5'UtJ.2il / 



DATA TT (6, 1 )/10HTF'"PORAL A/ 



DA14 TT(6t2)/10HCCtL / 



DATA TT(7. I )/l(lHCnivJvFCTlVE/ 



PAl A TT(7«2)/1 OH ACC / 



DATA TT(8, 1 )/10HPRESSURE H/ 



DATA TTtBl2) /lOHf.AD / 



DATA TTfi 1 ) /lOHBOTTOM STH/ 



DATA TTf9.2)/l0HtSS / 

 C 



C READ INFORf'ATInN To OIRfCT PLOTTING 

 C 



C FIRST CA''D 



C XO - STARTING TIMf OF PLOT (MRS) 

 C XF . ENDING TIME OF PLOT (HhS) 

 C SCALX - Time AXIS SCALE TN mOUrS PER INCH 

 C YLO - MINIMUM VALUE OF TIDAL HflGHTS (FT) 



C YL - OVERALL HEIGHT UF PLOT (INCHES) / 



C YLSCAL - SCALE OF TIDaL HEIGHTS (FT/Incm) 



C YRO - mIMmUm VALUF of FlO"S (thousands of cubic feet per SECOND) 

 C YRSCAL » SCALE OF FLOW ( THOUSANDS OF CUBIC FEET PER SECOND/InCH) 

 C 



C CAPO 2 



C YVO - MINIMUM VELOCITY (FT/SEC) 



C YVSCAL - SCALE OF VELOCITY (FLeT PER SEC OND/ I NcH) 

 C SCAL • SCALE FACTOR FOR TOTaL PLOT SIZE 

 C IQ . NpT EQUAL TO ZERO FOR A PLOT OF INLET DISCHARGE 



INLtT 



731 



INLET 



732 



INLET 



7iJ 



INLET 



73U 



INLFT 



735 



Inlet 



736 



INLET 



737 



INLET 



738 



INLET 



739 



INLET 



7U0 



INLET 



7m1 



INLET 



7^2 



INLET 



7«3 



INLET 



7iiu 



INLET 



7«5 



INLET 



7U6 



INLET 



7<47 



iNLFT 



7uB 



INLET 



7«9 



iNLfcT 



750 



INLET 



751 



INLET 



752 



INLET 



753 



INLET 



75^ 



INLET 



755 



INLET 



756 



INLET 



757 



INLET 



758 



INLET 



759 



INLtT 



760 



INLET 



761 



INLET 



762 



INLET 



763 



INLET 



76U 



INLET 



765 



INLET 



766 



INLET 



767 



INLET 



768 



INLET 



769 



INLET 



770 



INLET 



771 



INLET 



772 



45 



