59 C ALL THE INPUT AND OUTPUT VARIABLES 



60 C CNIRANG - APPROXIMATE ANGLE THE OFFSHORE CONTOURS HAKE WITH 



61 C THE Y AXIS (AIDS IN A BETTER INITIAL GUESS OF THE 



62 C SOLUTION COMPUTED USING SNELL'S LAW) 



63 C NCASES - NUMBER OF INDIVIDUAL DEEP WATER HEIGHT-PERIOD- 



64 C DIRECTION CONDITIONS CONSIDERED 



65 C DLEVEL - CONSIANT WAIER LEVEL ADDED 10 OR SUBTRACTED FROM 



66 C THE ENTIRE DEPTH MATRIX 

 6? C HDEEP - DEEP WATER WAVE HEIGHT INPUT CONDITIONS 



68 C TDEEP - DEEP WAIER WAVE PERIOD INPUT CONDITIONS 



69 C ZDEEP - DEEP WAIER WAVE DIRECTION INPUT CONDITIONS 



70 C IP1 - STARTING VALUE OF I FOR IHE PRINTED OUTPUT 



71 C IP2 - ENDING VALUE OF I FOR THE PRINTED OUIPUT 



72 C INC - INCREMENT OF I FOR IHE PRINTED OUTPUT 



73 C JP1 - STARTING VALUE OF J FOR IHE PRINTED OUTPUT 



74 C JP2 - ENDING VALUE OF J FOR THE PRINTED OUTPUT 



75 C (IHE J INCREMENI IS ALWAYS 1) 



76 C IGR ID - =0 IF CONSIDERING A CONSIANT SIZED RECTANGULAR GRID 



77 C =1 IF CONSIDERING A VARIABLY SIZED RECIANGULAR GRID 



78 C GENERATED USING THE MAP II PROCEDURE IN CMSGRID. 



79 C AANQTEAA FOR ADDITIONAL INFORMATION ABOUT THE VARIABLY SIZE 



80 C GRID INPUI SEE THE COMMENTS IN 'SUBROUTINE GRID' 

 31 C IREF - =1 DIFFRACIIVE EFFECTS INCLUDED 



82 C =0 DIFFRACIIVE EEFCIS IGNORED (PURE REFRACTION) 



83 C 



84 CAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA MAIN 



35 C 



86 COMMON/ ANGLES/Z ( IQ . JQ ) , S I ( IQ , JQ ) . CO ( IQ , JQ ) 



87 COMMON/WVH/H( IQ, JQ) ,CCG( IQ. JQ) 



88 COMHON/DEPTHS/D(IQ,JQ) 

 39 COMHON/WAVNUM/RKA(IG,JQ),GRDK(IQ.JQ) 



90 COMMON/CONST/ G,PI,PI2.RAD,HC0NVR,SC0NVR.DX,DY,DX2,DY2,T,0MEG, 



91 AM , N , Ml , M2 . NM . NM2 , IWET , IDRY , IWETP1 , CNTRANG . HFACI . DLEVEL 



92 COMMON/PR INIC/ IP1 , IP2 . INC , JP1 , JP2 , DMULI , HHULT , ZMULT , RKMULT 



93 C0MM0N/C0NS2/ IGR ID , IREF , IIAMX , ITHMX . ID IFF 



94 COMMON/MUSC/XMUC t IQ), XMUS ( IQ ) , YMUC ( JQ ) , YMUS ( JQ ) 



95 COMMON/COOR/XX(IQ).YY(JQ) 



96 COMMON ,'TRANF/ DECAY,STABL,IBRK(JQ),IBRKM(JQ) 



97 D IMENS ION HDEEP ( 200 ) . IDEEP (200), ZDEEP ( 200 ) . LI IILE ( 9 ) 



98 C 



99 CAAAAAAAA READ INPUI DAIA FROM EILE CODE 7 



100 C 



101 READ(7,601)(LIIILE(L),L=1.9) 



102 601 F0RMAK9A8) 



103 READ(7,100)M,DX,N,DY,G,CNTRANG, NCASES, DLEVEL 



104 100 F0RMAI(I5,F10.4,I5,F10.4,2F10.2,I5.F10.2) 



105 DO 602 L=l, NCASES 



106 READ(7.103)HDEEP(L).IDEEP(L),ZDEEP(L) 



107 103 F0RMAK3E1O.2) 



108 602 CONTINUE 



109 REAB(7,101)IP1,IP2,INC.JF1,JP2 



110 101 F0RMAK5I5) 



111 READ(7, 102) IREF. IGRID 



112 102 F0RMAK2I5) 



113 C 



114 CAAAAAAAA WRITE OUI INPUT DATA ON FILE CODE 6 



115 C 



116 WRITE(6,15) 



117 15 F0RMAI(/////,2X,'R E G I N A L C A S T A L',3X, 



F3 



MAIN 



58 



MAIN 



59 



MAIN 



60 



MAIN 



61 



MAIN 



62 



MAIN 



63 



HA IN 



64 



MAIN 



65 



MAIN 



66 



MAIN 



67 



MAIN 



68 



MAIN 



69 



MAIN 



70 



MAIN 



71 



MAIN 



72 



MAIN 



73 



MAIN 



74 



MAIN 



75 



MAIN 



76 



MAIN 



T7 



MAIN 



78 



MAIN 



79 



MAIN 



80 



MAIN 



81 



MAIN 



82 



MAIN 



83 



MAIN 



84 



MAIN 



85 



MAIN 



36 



MAIN 



87 



MAIN 



88 



MAIN 



89 



MAIN 



90 



MAIN 



91 



MAIN 



92 



MAIN 



93 



MAIN 



94 



MAIN 



95 



MAIN 



96 



MAIN 



97 



MAIN 



98 



MAIN 



99 



MAIN 



100 



MAIN 



101 



MAIN 



102 



MAIN 



103 



MAIN 



104 



MAIN 



105 



MAIN 



106 



MAIN 



107 



MAIN 



10S 



MAIN 



109 



MAIN 



110 



MAIN 



111 



MAIN 



112 



MAIN 



113 



MAIN 



114 



MAIN 



115 



MAIN 



116 



