ANGLE 



76 



ANGLE 



77 



ANGLE 



78 



ANGLE 



79 



ANGLE 



80 



ANGLE 



81 



DEPTH 



1 



DEPTH 



3 



DEPTH 



4 



77 IF(I8EE.EQ.1)G0 10 1 



78 WRIIE(6,643)IM 



79 643 FORMAT ( IX, 'RELAXATION FOR WAVE ANGLES FAILED ON ROW =' ,14) 



80 1 CONTINUE 



81 99 RETURN 



82 END 



1 CAAAAAAAAjkAAAAAAAAAAAjkAAAAAAA^AAAAAAAAAAAAAAAA^AAAAAAAAAJkAAAAjkAAAAAAAAAA DEPTH 



2 C 



3 SUBROUTINE DEPTH 



4 C DEPIH 5 



5 CA*A*AAAAAAAAAAAAAAAAAAAAAA*AAAA***AAAAAAAAAAAAAAAAA*AAA*AAA*AAAAA*AAAAA; DEPIH 6 



6 C DEPTH 7 



7 C THIS SUBROUTINE GENERATES THE WATER DEPTH MATRIX DEPTH 8 



8 C DEPIH 9 



9 CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA DEPTH 10 



10 C PARAN 2 



11 PARAMEIER(IQ=95,JQ=95) PARAN 3 



12 C PARAH 4 



13 COHMON/DEPTHS/D(IQ,JQ) DEPIH 12 



14 COMMON/CONST/ G,PI r PI2.RAD,HC0NVR,3C0NVR,DX.DY.BX2,BY2,I,0MEG. DEPTH 13 



15 AM,N,M1,M2.NH1.NM2,IWEI,IDRY,IWETP1,CNIRANG,HFACT,DLEVEL DEPTH 14 



16 C0HH0N/C0NS2/ IGR ID , IREF , ITAMX , ITHMX , ID IFF DEPTH 15 



17 COHMON/MUSC/XMUC(IQ),XMUS(IQ).YMUC(JQ),YHUS(JQ) DEPTH 16 



18 COHMON/COOR/XX(IQ),YY(JQ) DEPTH 17 



19 C DEPIH 18 



20 CAAAAAAAA READ IN VARIABLE BATHYMETRY FROM FILE CODE 3. FIRST READ DEPTH 19 



21 CAAAAAAAA IN THE 'ALONGSHORE' ROW CLOSEST TO SHORE, IHEN PROCEED DEPTH 20 



22 CAAAAAAAA ROW BY ROW IN THE OFFSHORE DIRECTION DEPTH 21 



23 C DEPIH 22 



24 DO 14 1=1, M DEPTH 23 



25 READ(8,50HD(I,J),J=1,N) DEPTH 24 



26 14 CONTINUE DEPTH 25 



27 50 FORMAT (10F8. 2) DEPTH 26 



28 99 REIURN DEPTH 27 



29 END DEPIH 28 



1 CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA POUT 2 



2 C POUT 3 



3 SUBROUTINE PQUI(II1.II2,IVAL,JSIARI,JEND.IIIILE,DUM1,EACI) POUI 4 



4 c POUT 5 



5 CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA POUI 6 



6 C POUI 7 



7 C THIS SUBROUTINE PRINTS OUT SELECTED VALUES OF A PARTICULAR ARRAY POUI 8 



8 C ,DUM1, WHICH ARE SCALED BY IHE VALUE OF 'FACT' POUI 9 



9 C POUT 10 



10 CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA POUI 11 



11 C PARAM 2 



12 PARAMETER <IQ=95,JQ=95> PARAN 3 



13 C PARA" 4 



14 COMMON/CONST/ G,PI,PI2,RAD.HC0NVR,SC0NVR,DX,DY,DX2,DY2,T,OMEG, POUT 13 



15 AM,N,M1,M2,NM1,NM2,IWEI.IDRY,IWEIP1.CNIRANG.HEACT,DLEVEL POUI 14 



16 C0MM0N/C0NS2/IGRID,IREF,ITAMX, ITHMX, ID IFF POUT 15 



17 INTEGER IX(JQ+31),ITIILE(3) POUT 16 



18 DIMENSION DUM1(IQ,JQ) POUT 17 

 ig c POUT 18 



20 NC=31 POUT 19 



21 WR ITE ( & , 1 00 ) IT ITLE . FACT POUT 20 



22 100 F0RMAK///.3A10, 5X,' (MULTIPLIED BY ',F6.0,')') POUI 21 



23 J1=JSTART POUT 22 



24 J2=JSTART+NC-1 POUT 23 



F17 



