89 



90 

 91 

 92 

 93 

 94 

 95 

 96 

 97 

 98 

 99 

 100 

 101 

 102 

 103 

 104 

 105 

 106 

 107 

 108 

 109 

 110 

 111 

 112 

 113 

 114 

 115 

 116 

 117 

 118 

 119 

 120 

 121 



123 

 124 

 125 

 126 

 127 

 128 

 129 

 130 



CALL ANGLE! IL.IL.IIAMX.WTA.IAU.SCONVR) 

 C 



CAAAAAAAA COMPUTE THE WAVE HEIGHTS ALONG A ROW 

 C 



CALL HEIGHI(IL,IL,IIHMX,WTH,BETA,HCONVR} 

 C 



IE(IREF.EQ.O) GO 10 114 



DO 119 ]=1,N 



GRD0LD(J)=G1DK(ILM1,J) 

 119 CONTINUE 



DO 110 LLL=l f IDIFF 

 C 



CAAAAAAAA COMPUTE NEW GRADIENT OF IHE WAVE PHASE FUNCTION ALONG A ROW 

 C 



CALL GRABK(ILHl.ILMl) 



EPSK=0.5 



DO 112 J=1,N 



GRDK ( ILM 1 , J ) =EPSKAGRDK ( ILM1 , J)+( 1 . O-EPSK ) AGRDOLD ( J ) 



112 CONTINUE 

 IFLAG=1 



DO 111 M.N 



IF(ABS(GRDK( ILM1, JJ-GRDOLDQ) ) .GT.0.0025AABS(GRDK( ILM1 J) ) ) 

 AIFLAG=0 

 111 CONTINUE 

 DO 113 M.N 

 GRD0LD(J)=GRDK(ILM1,J) 



113 CONTINUE 

 C 



CAAAAAAAA RECOMPUTE THE WAVE ANGLES ALONG A ROW 

 C 



CALL ANGLE ( IL , IL , IIAMX . WIA , ( IAUA1 . ) , SCONVR ) 

 C 



CAAAAAAAA RECOMPUTE THE WAVE HEIGHTS ALONG A ROW 

 C 



CALL HEIGHT* IL,IL,ITHMX,WIH,iBETAA1.0),HCQNVR) 



IE(IFLAG.EQ.l) GO TO 114 

 110 CONTINUE 



WRIIE(6.117)ILM1 

 117 FORMAK IX, 'CONVERGENCE TOWARD A SOLUTION FAILED ON ROW'. 15) 



114 CONTINUE 

 C 



CAAAAAAAA UPDAIE BREAKER INDEX 

 C 



DO 115 J=1,N 



IBRKM(J)=IBRK(J) 



DUM1(ILM1,J)=IBRK(J> 



IBRK(J)=0 



115 CONTINUE 

 C 



10 CONTINUE 



CALL ONBC(GRDK) 



CALL ONBC(H) 



CALL ONBC(Z) 



CALL ONBC(CO) 



CALL ONBC(SI) 

 C 



CAAAAAAAA PR INI WAVE INFORMATION 

 C 

 CAAAAAAAA BREAKER INDEX ( 0=NON- BREAKING , 11 BREAKING ) 



REFDIF 



71 



REFDIF 



72 



REFDIF 



73 



REFDIF 



74 



REFDIF 



75 



REFDIF 



76 



REFDIF 



77 



REEDIF 



78 



REFDIF 



79 



REFDIF 



80 



REFDIF 



31 



REFDIF 



82 



REFDIF 



33 



REFDIF 



84 



REFDIF 



85 



REFDIF 



86 



REFDIF 



37 



REFDIF 



88 



REFDIF 



39 



REFDIF 



90 



REFDIF 



91 



REFDIF 



92 



REFDIF 



93 



REFDIF 



94 



REFDIF 



95 



REFDIF 



96 



REFDIF 



97 



REFDIF 



98 



REFDIF 



99 



REFDIF 



100 



REFDIF 



101 



REFDIF 



102 



REFDIF 



103 



REFDIF 



104 



REFDIF 



105 



REFDIF 



106 



REFDIF 



107 



REFDIF 



108 



REFDIF 



109 



REFDIF 



110 



REFDIF 



111 



REEDIF 



112 



REFDIF 



113 



REFDIE 



114 



REED IE 



115 



REFDIF 



116 



REEDIF 



117 



REFDIF 



118 



REFDIF 



119 



REFDIF 



120 



REEDIF 



121 



REFDIF 



122 



REEDIF 



123 



REFDIF 



124 



REEDIF 



125 



REFDIF 



126 



REFDIF 



127 



REEDIF 



128 



REEDIF 



129 



F8 



