236 



C 



MAIN 



235 



237 



D«IN=1.0 



MAIN 



236 



238 



IE(G.GI.9.7.ANB.G.LI.9.9)DHIN=0.3043 



MAIN 



237 



239 



IF(G.GI.970.0.ANB.G.LI.990.0>DHIN=3Q.48 



MAIN 



238 



240 



DO 87 1=1, H 



MAIN 



239 



241 



DO 87 J=1,N 



MAIN 



240 



242 



D(I,J)=D(I,J)+DLEVEL 



MAIN 



241 



243 



IE(D(I.J).LT.DHIN)D(I,J)=DHIN 



MAIN 



242 



244 



87 CONTINUE 



MAIN 



243 



245 



c- 



MAIN 



244 



246 



CAAAAAAA* SET THE BOUNDARY CONDITIONS FOR THE MATER DEPTHS 



MAIN 



245 



247 



C 



MAIN 



246 



248 



DO 96 1=1, H 



MAIN 



247 



249 



D(I,1)=D(I,2) 



MAIN 



248 



250 



D(I.N!=D(I,NM1> 



MAIN 



249 



251 



86 CONTINUE 



MAIN 



250 



252 



CALL ONBC(Ii) 



MAIN 



251 



253 



C 



MAIN 



252 



254 



Ckkkkkkkk PRINT THE TOTAL WATER DEPTH flATRIX (ALL DEPTHS MULTIPLIED BY 



[i MAIN 



253 



255 



C 



MAIN 



254 



256 



CALL P0UI(IP1,IP2,INC,JP1.JP2.' WATER DEPTHS .D.BMULI) 



MAIN 



255 



257 



C 



MAIN 



256 



258 



ZkkkMM ITERATE OVER IHE NUMBER OF WAVE CONDITIONS CONSIDERED 



MAIN 



257 



259 



C 



MAIN 



258 



260 



DO 605 L=1.NCASES 



MAIN 



259 



261 



HO=HDEEP<L) 



MAIN 



260 



262 



T=TDEEP(L) 



MAIN 



261 



263 



0HEG=PI2/I 



MAIN 



262 



264 



HFACT=2.0M)MEG/G 



MAIN 



263 



265 



C 



MAIN 



264 



266 



Zkkkkkkkk 'HFACI' IS A FACTOR TO CONVERT FROM WAVE HEIGHT 10 IHE 



MAIN 



265 



267 



Zkkkkkkkk AMPLITUDE FUNCTION 'H' 



MAIN 



266 



268 



C 



MAIN 



267 



269 



A=ZDEEP(L) 



MAIN 



268 



270 



WRITE(6,606)L 



MAIN 



269 



1TJ 



606 EORHAI (///.'/,' WAVE CONDITION ',15,/) 



MAIN 



270 



'>']') 



WRITE!6,44)L,H0,I.A 



MAIN 



271 



273 



A=A+180.0 



MAIN 



272 



274 



DO 607 1=1, N 



MAIN 



273 



275 



IBRK(J)=0 



MAIN 



274 



276 



IBRKM(Ji=0 



MAIN 



275 



277 



607 CONTINUE 



MAIN 



276 



273 



CALL REFDIF'A.HO.UIA.IAU.WTH.BEIA) 



MAIN 



277 



279 



605 CONTINUE 



MAIN 



278 



230 



C 



MAIN 



279 



281 



99 SIOF 



MAIN 



280 



282 



END 



MAIN 



281 



1 



ikkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 



k REFDIF 



2 



2 



C 



REFDIF 



3 



3 



SUBROUTINE REED IF (IHETAO,HH,UIA,IAU.MH, BETA) 



REFDIF 



4 



4 



C 



REFDIF 



5 



5 



Zkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkktkkkk REFDIF 



6 



6 



C 



REFDIF 



7 



7 



C THIS SUBROUTINE CONIROLS IHE ITERATIVE SOLUTION SCHEME AND 



REFDIF 



3 



8 



C PRINTING OE THE WAVE INFORMATION 



REFDIF 



9 



9 



C 



REFDIF 



10 



10 



Ckkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk) 



k REFDIF 



11 



11 C PARAM 



12 PARAMETER* IQ=95.JQ=95) PARAM 



F6 



