113 ^'PROCESSES y A V E TRANSFORMATION', 



119 A3X,'M D E L',/,43X,'! » C P W A V E )',////) 



120 yRIIE<&.609>(LIIILE(L).L=1.9) 



121 609 F0RMAT(25X,9A8,///) 



122 HRIIE(6,55) 



123 55 EORHAK/, IX, 'MODEL INPUT:'.//) 



124 IF(IGRID.GI.0)G0 TO 300 



125 WRITEC6.41) 



126 41 FORMAIdX, 'UNIFORMLY SIZED. RECTILINEAR GRID MESH'.;) 



127 GO TO 301 

 123 300 yRIIE(6.42> 



129 42 FORMAIi IX. 'VARIABLY SIZED, RECTILINEAR GRID MESH'./) 



130 301 WRIIE(6,5)M,DX,N,DY 



131 5 FORMAT ( 5X , X - D IRECT ION ( ON-OFFSHORE ) ' ,5X , 15, ' CELLS , EACH ' , 



132 AF10.2,' IN LENGTH'. /,5X.'Y - DIRECTION (LONGSHORE) '.5X.I5. 



133 k' CELLS, EACH .F10.2," IN LENGTH',/) 



134 WRIIE(6,43)G 



135 43 FORMAKIX.'THE ACCELERATION OF GRAVITY IS',F8.2,'. IHE3E UNITS 



136 ^'DETERMINE THE UNITS OF ALL INPUT AND OUTPUT VARIABLES './) 



137 DO 604 L=1.NCASES 



133 MRIIE(6.44)L.HDEEP(L),IDEEPiL).ZDEEP(L) 



139 604 CONTINUE 



140 44 FORMAT! ' THE DEEP MATER UAVE PARAMETERS FOR CASE '.13.' ARE:'. 



141 A5X, 'HEIGHTS ,F7.3,5X, 'PERIOD^' ,F7.3,5X, 'ANGLE-' ,F8.3) 



142 yRIIE(6.45)CNTRANG 



143 45 F0RMAI(/,1X,'THE OFFSHORE CONIOURS MAKE AN ANGLE 0F'.F7.2, 



144 *' DEGREES WITH IHE Y AXIS'./) 



145 yRIIE(6,19) 



146 19 FORMAKIX.'THE BATHYMEIRY MATRIX IS VARIABLE IN BOTH HORIZONTAL' 



147 k,' DIRECTIONS AND UAS READ FROM FILE CODE 3',/) 

 143 yRIIE(t>,20)DLEVEL 



149 20 FORMAKIX.'A yAIER LEVEL CHANGE 0F',F7.2.' UAS ADDED TO THE'. 



150 k' ENTIRE BATHYMETRY MAIRIX') 



151 C 



152 Ukkkkkkk CONSIANTS USED IN IHE PROGRAM 



153 C 



154 PK3. 1415927 



155 PI2=PI A2.0 



156 RAB=180.0/PI 



157 CNTRANG=CNTRANG/RAD 



158 M2=M-2 



159 M1=M-1 



160 NM1=N-1 



161 NM2=N-2 



162 DX2=DXA2. 



163 DY2=DYA2. 



164 yiA=1.0 



165 UTH=1.0 



166 TAU=0.167 



167 BETA=0.1b7 

 163 IDRY=1 



169 IWET=2 



170 IUETP1=IWET+1 



171 C 



172 mmm 'stabc and decay' are used in ihe umi breaking 



173 cmkkm ROUTINE 



174 C 



175 SIABL=0.4 



176 DECAY=0.2 



F4 



MA If 



117 



MAIN 



118 



MAIN 



113 



MAIN 



120 



MAIN 



121 



MAIN 



122 



MAIN 



123 



MAIN 



124 



MAIN 



125 



MAIN 



126 



MAIN 



127 



MAIN 



12E 



MAIN 



129 



MAIN 



130 



MAIN 



131 



MAIN 



132 



MAIN 



133 



MAIN 



134 



MAIN 



135 



MAIN 



136 



MAIN 



137 



MAIN 



138 



MAIN 



139 



MAIN 



140 



MAIN 



141 



MAIN 



142 



MAIN 



143 



MAIN 



144 



MAIN 



145 



MAIN 



146 



MAIN 



147 



MAIN 



148 



MAIN 



149 



MAIN 



150 



MAIN 



151 



MAIN 



152 



MAIN 



153 



MAIN 



154 



MAIN 



155 



MAIN 



156 



MAIN 



157 



MAIN 



158 



MAIN 



159 



MAIN 



160 



MAIN 



161 



MAIN 



162 



MAIN 



163 



MAIN 



164 



MAIN 



165 



MAIN 



166 



MAIN 



167 



MAIN 



16E 



MAIN 



169 



MAIN 



170 



MAIN 



i n l 



MAIN 



172 



MAIN 



173 



MAIN 



174 



MAIN 



175 



