13 

 14 

 15 

 16 

 17 

 18 

 19 

 20 

 21 



23 

 24 

 25 

 26 

 27 

 28 

 29 

 30 

 31 

 32 

 33 

 34 

 35 

 36 

 37 

 38 

 39 

 40 

 41 

 42 

 43 

 44 

 45 

 46 

 47 

 43 

 49 

 50 

 51 



53 

 54 



C0HHON/ANGLES/Z<IQ.]Q).3I(IQ.JQ).CO':iQ.JQ> 



C0MHON/WVH/H(IQ,JQ).CCG(IQ,JQ) 



COMMON/DEPIHS/nJlQ.JQ) 



CDKMON/UAVNUK/RKA < ID.JQ) ,GRDK( IQ, JQ) 



COMMON/CONST,' G , P I , P 12 ."SAD . HCOHVR . 3C0MVR . DX . DY . DX2 , D Y2 . T . OHEQ . 

 Art.N.hl ,h2.NMl.NM2. IUET. IDRY. IWETPi .CNTRANG .HEACT .ULEVEL 



COMMON/PR INTC/IP1 , IP2 . INC . JP1 , JP2 , DMULI . HMULI . ZMULI. RKMULT 



C0HMON/C0NS2/IGRID, IREE , ITAMX . ITHMX , ID IFF 



COMMON /IRANF/ DECAY, 3TABL. IBRK(JQ) , IBRKM(JQ) 



DIMENSION DUM1(IQ.JQ).GRD0LD(JQ! 

 C 



CAAAAAAAA CALL SUBROUTINE SNELL TO OBTAIN AN INITIAL GUESS OF THE 

 CAAAAAAAA UA^E HEIGHTS AND ANGLES USING SNELLS LAU 

 C 



CALL SNELL ((THEIAO/RADJ.HH) 



CALL ONBC(H) 



CALL ONBCC) 



CALL ONBC(CO) 



CALL ONBC(SI) 



CALL ONBC(RKA) 



CALL ONBC(GRDK) 



CALL ONBC(CCG) 

 C 



CAAAAAAAA REMOVE IHE GO TO 122 STATEMENT TO PRINT OUT THE SNELLS LAW 

 CAAAAAAAA SOLUTION 

 C 



GO TO 122 

 177 CONTINUE 



DO 13 1=1, M 



DO 13 J=1.N 



0UH3=Z(I,J)-PI 



DUH1(I.J)=DUM3*RAD 

 13 CONTINUE 

 C 



CAAAAAAAA ANGLES. HEIGHTS. AND UAVE NUMBERS ARE MULTIPLIED BY 2MULT. 

 CAAAAAAAA HMULI. AND RKMULT RESPECTIVELY IN IHE PRINT OUT. THESE MUSI BE 

 CAAAAAAAA CHANGED INTERNALLY WITHIN IHE MAIN PROGRAM IF OTHER VALUES 

 CAAAAAAA* ARE DESIRED 



CALL P0UTCIP1.IP2, INC, JP1.JP2 



AZMULIi 



DO "9 1=1. M 

 00 79 J=1.N 



DUH1 ( I . -j > =H •: I . j > AHFACT 

 "9 CONTINUE 



CALL P0UKIP1,IP2,INC,JP1,JP2 

 1HHULI! 



CALL POUTdPl. IPC. INC. JP1.JP2 

 ARKHULI) 

 122 CONTINUE 



WAVE ANGLES (DEG 



■ DUhl 



WAVE HEIGHTS 



WAVE NUMBER 



,DUM1_, 



.RKA. 



CAAAAAAAA ROW BY ROW MARCHING LOOP 

 C 



DO 10 IL=M2.IWETP1.-1 



ILH1=IL-1 

 C 



CAAAAAAAA COMPUTE IHE WAVE ANGLES ALONG A ROW 

 C 



PARAn 



4 



REFDIF 



13 



REFDIF 



14 



REFDIF 



15 



REFDIF 



It 



REFDIF 



17 



REFDIF 



18 



REFDIF 



19 



REFDIF 



20 



REFDIF 



21 



REFDIF 



22 



REFDIF 



23 



REFDIF 



24 



REFDIF 



25 



REFDIF 



2b 



REFDIF 



27 



REFDIF 



28 



REFDIF 



29 



REFDIF 



30 



REFDIF 



31 



REFDIF 



32 



REFDIF 



33 



REEDIF 



34 



REFDIF 



35 



REFDIF 



2b 



REFDIF 



77 



REFDIF 



38 



REFDIF 



29 



REFDIF 



40 



REFDIF 



41 



REFDIF 



42 



REFDIF 



43 



REFDIF 



44 



REFDIF 



45 



REFDIF 



4b 



REFDIF 



47 



REFDIF 



4S 



REFDIF 



49 



REFDIF 



50 



REFDIF 



51 



REFDIF 



52 



REFDIF 



53 



REFDIF 



54 



REFDIF 



55 



REED IE 



56 



REFDIF 



57 



REFDIF 



58 



REFDIF 



59 



REFDIF 



60 



REFDIF 



61 



REFDIF 



62 



REFDIF 



63 



REFDIF 



64 



REFDIF 



65 



REFDIF 



66 



REFDIF 



67 



REFDIF 



68 



REFDIF 



69 



REEDIF 



70 



F7 



