SUtlRO^.lTI^t■ MtLffTHELM.ABiCORl.) 

 ; tSTlMilf tut iNLtT-BAY HELflHOLT? PERIOD 

 : OF THE TNLfT/HiV SYSTEM (NfGLtCT FRICTION) 



HEAL L.LENRTn.LTNaKiNtMX 



cn»Mi)'V»jU"s/Nlir,tNInLET.ICM(3)iISE(i).0RiLC7<7).BC7t7)i[>(7,7)i 

 1 4(7.7),i.(7.7),w(7,7).V(7i7)iU(7,7).MStHbiH(7.7)tIC.ISiAKlNItJ)( 

 lB"I^l(i).LIN.'3xrj).,t3piFLO.AHAy.LENGTH(3) 



C)IMF^■SIn^l cnRLCi) 

 ; USE FIVE ITERATIONS TO nsTAlN ThE ESTIMATE 



DO lOOO ililiS 



SUNsc. 



DO loO MNaitNlM.tT 



a"1h»AminI (Nn) 



100 SUMISl<M + A^'I^J/CLE^^GTH(N^)♦CORL(NN)) 

 THELM = 2,*5.1iilbflt SORTCB/O)/ SRRT(SUM) 



; ESTIMATf THf heLmhdlTZ PERIOD 



DO (01 MNai,NlM,ET 

 : ESTIMATE Tmf ImLET LENGTH CORRECTION DUE TO RADIATION 



101 cnRL(NN)s.pM;NitNN)/J,iUl'58»ALDG(l,lltl58»BMlNI(NN)/( SOHK 

 lJ2.?»4''INI(NM/HhlNI(NN))»TH£LM)) 



1000 CONTINUE 

 : CONVERT THE HEtMHOLTZ PERIOD TO HOURS 

 THELMxTHtLM/SbOO, 

 RETURN 

 END 



INLET 



bOU 



INLET 



S05 



INLET 



b06 



INLET 



507 



INLET 



50« 



INLET 



bO 



INLt T 



510 



INLET 



511 



INLET 



512 



INLET 



513 



INLET 



51U 



INLET 



515 



INLET 



516 



INLET 



517 



INLET 



518 



INLET 



519 



INLET 



5ao 



INLET 



5il 



iNLt T 



522 



INLET 



523 



INLET 



52a 



INLET 



525 



INLET 



526 



INLET 



527 



INLET 



52S 



SUHROUTINE "(Tl 



: THIS SUHROUTINE WEIGHTS THE FLOW IN EACH SECTION S 

 : IN THAT SECTION IS MINlMnED, THIS MfANS THAT AT 

 : ALLOWED TO REDISTRIBUTE ISTSELE iHROUGHHUT THE CMA 

 : HOWEVER. FLOW PERPENDICULAR TO THE CHANNELS IS ASS 

 : FLOW IS NOT INCLUDED In the EQUATIONS OF MOTION, 

 : ROUTINE GIVES AN UPPER LIMIT FUR HAY LEVEL FLUCTUA 

 REAL LilENGTH.LIN.LKiN.NX 



CnMMo^J/MU''5/NI,^,,^I^LET.ICM(3).ISE(i)lQBlLC7I7 

 1 «(7.7).Nt7,7),w(7,7).V(7.7).'3(7i7).HS,HB.H(7 

 lHMlK,i(3),LlN,(jxt3).nINFL0.ARAY,LENGTM(J) 

 DIMENSION ^20) 

 DO inO lal.IS 

 SUMCiO, 

 DO SO J«l . IC 



CN)sA(T.J)»»2»(D(I,J)»».ii3)/ 

 1 (NtI«J)»«2*CXCNl)»»2»B(IiJ)»L(I.J)) 

 50 SUMc»3UMC+C( J) 



DO 60 J=l 1 IC 

 60 w(I. JJiCtJj/SUMC 

 100 CONTINUE 

 RETURN 

 END 



INLET 52<) 



THAT FRICTION INLET 530 



EACH SECTION FLOW IS INLET 531 



NNELS TO MINIMIZE EK inlet 532 



uMEO TO BE Small and Inlet 535 



BY MINIMIZING FRICTI inlet 53a 



TIONS and inlet VELO inlet 535 



inlet 536 



).6(7i7)iD(7,7)t Inlet 537 



7),ICiISiAMlNI(3)f INLET 538 



INLET 539 



INLET 5«0 



INLET 5111 



INLET 5«2 



INLET 5U3 



INLET 5«u 



INLET 5H5 



INLET 5ii6 



INLET 5tt7 



INLET 5i(8 



INLET 5il9 



INLET 550 



INLET 551 



