1 FOHMATlflllo) 



RtAn(5,l 11) TinfLT,*0tAH,HtTA,/n»|(3INFLO 

 »KITF(biltl) T,ntLT.4n>'B«bFTA.ZET»iUlNFL0 

 111 FdHHATCiF in.bitl O.U.UFlO.S) 



ToTIDJL PfFilon. HOS (L4Tt» COuVtWTtD TU SECONDS) 



DtLTlfsTIMATE'1 TI^E STEP.StC 



t.nz SF4 TTD4L A'lPI. I TuDt • f T 



Aflc Djy ABtA AT THE DATUM. SHiiARt FEET 



BETAS RAY AHfA Variation PaHameTER ( DlAB)/D(He)) 



ZFTA" C'^ANNFl. SLCiPt (n(V)/D(X)) 



UINFLni INFLOW INTO THE BAY F»UM OTHER SouNCtS (FTJ/3EC) 



ENUtTNCYCLES»3*jO(l. 

 IF(7E''A,LF.0,)ZFTA.i ,nE?5 



NT»n 



C READ IN INFnK"aTIn^; df fath INLeI 



DO 1110 Nit 1 .NIkJLET 



iiiNiT = e»N! 



Rt"iNn lUNlT 

 Rf AncS. 1 ) iCi IS 



C ICk NU"Hf» OF CHANNELS 



C ISO Nui'hER OF INLET CRnsS-StCTlUM3 



IF(TC.r,T,7.UB,IS.GT.7) "HITECh.loTD 

 1671 F0HiuT(///,5X. !•»••» TOO MANY GRIDS fOR DIMENSIONS II//) 

 ICMfNlllIC 



C READ SFCTinN AREAS ( nut CARD ptR SECTION) 

 no s Til 1 IS 

 b REAnc^i?) (A(I,.I) .J«1,IC) 

 2 FORMAT ( lux. 7H0.i) 

 C 



C READ SFC^inN WIDTHS Come CAwn PER SECTION) 

 DO », lai I IS 



6 RtAn(5,3) (H(I,J),J»l.IC) 

 C 



lCPlsI(.*l 



lSMiaIS-1 

 C READ LENGTHS fONE MORE LENGTH PfH CARD THAN CHANNELS) 

 C t ONE LESS CARD Than the number of SECTIONS) 



on 7 lal.ISMl 



7 READCbf?) CL(I.J).J»1.ICP1) 

 C 



C INITIALIZE VARIABLES Td i?FGIn ITERATION 



C nUmhew 0^ GRins ALONG The channel IS One LESS Than ThE NUMBER OF 

 C CROSS-bECTlONS 

 BB ISsiS-l 



ISE(NI)=IS 

 ISM,.1S.1 

 wRITf Cb.JfcTB) NI 

 3676 FORMAT! / , bx . [SUMm aRV OF iNLET GRID CHARACTERISTICS 1 1 / 

 1 Ibx. (Inlet number [,I3) 

 wBlTf(6.l) ICilS 

 DO 10 III. IS 



INLET 



bb 



INLtl 



bt. 



iNLtl 



b7 



INLEI 



brt 



INLfl 



bo 



INLtl 



60 



iNLt 



61 



INLE 



6? 



INLE 



6? 



iNLE 



6U 



INLt 



6b 



IM t 



66 



INLE 



67 



iNLE 



68 



INLE 



6") 



INLE 



70 



INLE 



71 



INLE 



7? 



INLE 



7J 



INLt 



7u 



INLE 



7S 



INLt 



76 



INLE 



77 



INLE 



78 



INLt 



T) 



IMt 



80 



INLt 



r 81 



INLE 



r 82 



INLt 



r bi 



INLt 



r B« 



INLE 



r Bb 



INLt 



r 66 



INLE 



r 87 



INLE 



r 68 



INLE 



r 69 



INLE 



r 90 



INLE 



91 



INLt 



r 9! 



INLt 



r 93 



iNLt 



r 9u 



INLt 



r 95 



INLE 



96 



INLt 



r 97 



INLE 



r 98 



INLt 



r 99 



INLE 



r 100 



INLt 



r 101 



INLt 



r 10? 



INLt 



r 103 



INLE 



r lou 



INLE 



r 105 



INLt 



r 106 



INLt 



r 107 



33 



