SilUHOilTTNF wT? 

 WnuTpJE. TO ntTF RvIhF- Tmf C,HlO "FlGHTnG f-UNCUON ASSUMING TH4T 

 FLOW I'' A GIVFN CHAMNEL IS THf SiMt ALONG THfc tNTJRF Channel 

 FLOW IS pISTCThUTEO IN CHAMNtLS TO Give A mtnImijm TOT'L FRICTION 



FRICTIriN in This RnuTjMF WILL RE SLIGHTLY HIGHER THAN IN wTl and THt 

 IN THIS S^STt'l Is COMSISTAnT with THt EHUATIONS OF MOTJON, 

 •^EAI L.Lt"r,TH.LTN<LX>N.NX 



COIiHUN/(>Ju'^S/Nl,G,NiMLFT.ICH(i).ISE(%)iaRiLC7.7)>Bt7i7)tO(7,7). 

 1 A(7,7),N(7.7),w(7,7)iV(7i7liQ(7i7).HSiHB,H(7i7)|IC»IS«AHlNI(J)< 

 lbHlNI(3),LIN,Ux(J),r3INFLOfABAYiLtNGTH(3) 

 DIWfNSlnN CC20) 

 SIImceH, 



DO 100 T=1iIC 



rti)«o, 



no so J=i t IS 



cfiiiC{i)t(NCJ.n»»?»nx(Ni)»»2»tB(j.i)«L(Jii))/ 



1 CA(Jtn.»2»( 0(J'I))*».333JJ)) 



ccii»i ./ctn 



bUT = SUMCtCtI) 



DO 70 J=1>IS 



DO hO iBl.jC 



w(J,I)»C(I)/SUMC 



CONTINUF 



RETURN 



END 



INLET 



bb? 



INLET 



5i5 



INLET 



bbu 



INLET 



555 



INLET 



556 



INLET 



5b7 



INLET 



5b8 



INLET 



bb") 



INLET 



beo 



INLET 



b61 



INLET 



562 



INLET 



563 



INLET 



b6U 



INLET 



565 



INLET 



566 



INLET 



567 



INLET 



568 



INLET 



569 



INLET 



570 



INLET 



571 



INLET 



57? 



INLET 



573 



INLET 



b7il 



INLET 



575 



INLET 



b76 



SiJUOliUT TNF «T3 INLET 



: THIS HUMTlNf ASSUMES That DISCHARGE IS EOUALLY OISTRIBUTFO THROUGHOUT INLET 



: The I^LFl GRID SySTFm, Jm GENERAL THIS "ILL NOT PE TRUE BECAUSE IT IS INLET 



: DIFFICULT Tn ACCURATELY DRAW ThtS TYPF. OF GRID BY EYE AND FLOW OISTRUB INLET 



: CHANGES ^ITh TiM(. I^ mqsT INLETSt THIS HOuTINt IS USEFUL IN GIVING AN IMET 



; VELOCITIES AND Bay i.evf.l FLUCTUATIONS, INIET 



; GRinS WITH nEPThS LT 0,01 FOOT ARE ASSUMED TO HAVE NO FLOW INLET 



HEAL L.I E NGIHiL INiLV .N.NX INLET 



cnM..{)N/NU"i,/Nl,r,.NiMLET.ICHf3).ISECl)i(JR.L(7»7)«B(7(7)»D(7,7)i INLET 



1 4(7,7),Nf7,7),w(7,7).v[7.7)tQ(7,7).HS.HB.H(7,7)»IC»IStAMlNI(3)i INLET 



lHMIfji(3).LlN,Ox(i),QiNFL0iABAY.LENGTH(3) INLET 



00 J Iritis INLET 



XxIC INLET 



DO 1 Jal.IC INLET 



1 IFtncI.J) .LT.0,01) xix-l. INLET 



IFtX.LE.O.) wHITE(6ilOO) NI.IS INLET 



100 F0HMAT(///,5X. ( ERROR -- INLET HAS DhIED UP AS INDICATED IN wTJli/ INLET 



1 bx. (INLET'I.I 

 IF(X,Lt.O,) STOP 

 on T, Jsl . IC 

 w(I,J)o1 ./x 



IF(n(I,j),LT.o.ni) 



CONTINUE 



RETURN 



ENU 



( SECTION. CiI".///) 



*(I.J)"0. 



INLET 

 INLET 

 INLET 

 INLET 

 INLET 

 INLET 

 INLET 

 INLET 



b77 

 5^« 

 b7<» 

 580 

 5S1 

 582 

 bB3 

 bBU 

 b65 

 bB6 

 587 

 588 

 589 

 590 

 591 

 592 

 593 

 b9u 

 b95 

 b96 

 597 

 598 

 599 

 600 

 601 



42 



