2012 



20l« 

 C CBI 

 201S 



2020. 

 20IS. 

 201S> 



201ii 

 201% 

 2020 



2025 

 C 



100 

 101 



nil 



2101 



lon<J 



1011 



SLIHROUTINF CRIT(NT,nFLT.IUNTT.1.NCYCLtS) 



SUbR(lUTI^E CHIT COMP4RKS 1 cO^JSfCUT I VF FUNCTItlN POINTS 



AM) *«ITtS MjODLt POINT Ih IT IS » CKHlCAL POIMT 



OIMFN.SION rClib)iM4RK(5)«TfPM(u) 



D4TA ►•ARK4/1M /, HapKB/1H»/ 



RtWTM> rU^'lT 



MKtS = 



TUT/JblO. 



«BlTt tfe. I no') 



CO ) '.xi ,? 



HfAn(IUMT) X.(F(N,J),J=li!)l.tTfRM(il)in»l.«) 



DO 100 N»J,NT 



BE «n dun IT) x.(F( j,,n,j»i.5)iCTFHM(ii).n«i.u) 



ir(».LT.-l.ofc»io) Gn TO 101 

 IClUTsO 



00 ?a20 14 « I. 5 

 ►ARKtrA) o "A»KA 

 IF fK2,IA) - FM.IA)) 2012, 

 IF (^ C3,I«) - F f2.lA)l 2020, 

 IF (F Cl.li) . Ft2.I*)) 20)b, 

 TICAL POINT VALUE FniiNn 



inuT o 1 



"»«K(lA) ■ MARKH 

 lF(I«,£f3,l.AND,F(2,T4).CT,C. 

 If(I4.Ef5,1.ANO.F(2,T41.GT.O. 

 IfCl».EQ.l,4NO.F(2,TA),Ut.O. 



IF[tA.tQ.1,4NO.F(2,IA).Lt,0. 

 IF(TA,En,J.4nn,F(5,IA),GI,0. 



lf(i4,tn,3,4^n,t(3.iA),GT.o. 



IFtIA,EiJ.3.4ND.F(l,IAl,L£.C, 



IFCI4,tr;,J,ANO,F(3.T4).Lt.(j. 



IF(T4.E.n,'J,4Nn,F(2,TA),LT,0. 



IFtTA,f(3.U,4''iO,F{2,lA).GT.U. 



CO^iTI^UE 



OC ?02i U e 1 • 5 



F r,l,I4) 3 K2.I4) 



F (2. 14) > F(3.IA) 



IF (lUUT.EO.O) r,0 TO 100 



IF Cx.LT.(NCVCUES-2)»TF) GO TO 100 



nLImeSinlT^ES+I 



IFCmlI^FS.GT. 150) GO TO 100 



WHITE (6 .2101) X.(F() .IA),MARK(IA)»I4»1.5) 



CONTINUE 



H«NT 



a"Phc"Bh/hsh 



A"PL»Hbi /HSL 



PMMs 4BS(T3-T 1 )«360./TF 



PhLs 4Hs(Ta-T2)«3S0./TF 



xRITftotlOin A"Ph,phh,VF.AmPLiPHLiVE 



-PiTttb. 1 M 1 ) TF 



FOKuaTC 5x. (TFo I.F7,2) 



RETURN 



FOWuaT (2F8.3.41.-iPF».Jf»1.2(0PF7,3.»l). 

 JPFo,}, Al, 2t^«,'3, Al)) 



F0HMATCuX.uHTlMp,Sx,aHHS,UX,oHINFL0;<lbX.2HHR. 



1 !>X.3nvtL.Tx,lHGf/,5X.3HHHs.bx.2MFT^5x,UH^CFSl 



1 bX.2MFT.iX,3MFPS,»,X.UMKCFS./) 



FOWaTC//, IX, C» CRITICAL PUINT VALUF [.///. 15X, 

 1 ("AVE PROPAGATION (,/,lbX. C4b/40l,5x. (PHASE LAG(DEG) 

 1//.2X, (HIGH W4TER (,?X.3M0.U,/, 

 1 2X, (LOW WATER (,2x,JFlO,a) 



END 



) HSH3FC2.U) 



) T1 = X 



) HSLXFC2.I4) 



) T2sx 



) HBHSKJ.lA) 



) T3nX 



) MHL«F(i.lA) 



) TUiX 



) VF»F(2,IA) 



) VF»F(2,IA) 





INLE 



r • 6bO 





INLE 



r 6ii 





INLt 



6i2 





INLt 



r 653 





iNLt 



b5il 





INLfc 



655 





INLt 



656 





INLt 



657 





INLfc 



658 





INLfc 



r 659 





INLt 



660 





INLt 



r 661 





INLfc 



r 662 





INLt 



r 663 





INLE 



r 6611 





INLt 



r 665 





INLfc 



r 666 





INLfc 



r 667 





INLE 



668 





INLE 



669 





INLfc 



r 670 





iNLfc 



671 





INLfc 



672 





INLfc 



673 





INLt 



67U 





INLE 



675 





INLfc 



676 





INLfc 



677 





INLfc 



678 





INLE 



679 





INLfc 



680 





iNLt 



6B1 





INLE 



682 





INLfc 



683 





INLfc 



66U 





INLE 



685 





INLt 



686 





INLE 



687 





INLt 



688 





INLt 



689 





INLt 



690 





INLt 



691 





INLfcl 



692 





INLfcl 



693 





INLt! 



69U 





INLEI 



695 





iNLtl 



696 





INLEI 



697 





INLtl 



698 





INLH 



699 





INLfcl 



700 





INLfcl 



701 





INLfcl 



702 





INLE 



r 703 





INLE 



r 70« 





INLfc 



r 705 





INLt 



706 





INLfc 



r 707 





INLt 



708 



MAX VEL I. 



INLt 



709 





INLt 



710 





INLt 



711 





INLt 



712 



44 



