177 C 



T8 CAAAAAAAA 'HCONVR' AND '3C0NVR' ARE IHE CONVERGENCE CRITERIA USED IN 



179 C***A***A THE HEIGHT AND ANGLE ITERATIVE SOLUTION SCHEMES 



ISO C 



181 HCONVR=0.0005 



132 SCONVR=0. 00025 



1S3 IF(.G.GT.9.7.AND.6.LI.9.9)HC0NVR=HC0NVRA0.3048 



134 IFfG.GT.970.0.ANB.G.LI.990.0)HCQNVR=HC0NVRA30.48 



185 C 



136 CAAAAAAA* 'IIHHX' AND 'ITAMX' CONTROL IHE MAXIMUM NUMBER OF ITERATIONS 



187 CAAAAAAAA ALLOWED IN THE WAVE HEIGHT AND ANGLE SOLUTION SCHEMES 



133 CAAAAAAAA 'ID IFF' CONTROLS THE NUMBER OF ITERATIONS ALLOWED IN THE 



189 CAAAAAAAA ITERATIVE DIFFRACIION SCHEME 



190 C 



191 ITHMX=50 



192 ITAMX=50 



193 IDIFF=15 



194 C 



195 CAAAAAAAA THE EOLLOWING MULTIPLICATION FACTORS CONIROL THE ACCURACY 



196 CAAAAAAAA OF THE PRINTED OUTPUT'.NOT THE ACTUAL COMPUTATION). 

 19" CAAAAAAAA DEPTH (D) - DMULT 



198 CAAAAAAAA WAVE HEIGHT £H> - HMULT 



199 CAAAAAAAA WAVE ANGLE (Z) - ZMULT 



200 CAAAAAAAA WAVE NUMBER (GRADK) - RKMULI 



201 CAAAAAAAA THE VARIABLES ARE EIRSI MULTIPLIED BY THE SCALE FACTORS 



202 CAAAAAAAA BELOW. THEN PRINTED OUT IN INTEGER FORM 



203 C 



204 DHULT=1.0 



205 HMULMO.O 



206 2MULM.0 



207 RKMULMOOO.O 



208 C 



209 CAAAAAAAA DEFINE THE GRID SCALE FACTOR? AND DISTANCES FOR A CONSTANT 



210 CAAAAAAAA SIZED RECTANGULAR GRID 



211 C 



212 DO 2 1=1, H 



212 XMUC(I)=1.0 



214 <MUS(I)=1.0 



215 XX(I)=DXA( 1-0.5) 



216 2 CONTINUE 



217 DO 3 3=1. N 



213 YHUCiJ)=i.O 



219 YMUS<J)=1.0 



220 YY(J)=DYAiJ-0.5> 



221 3 CONTINUE 

 2" > 2 C 



222 CAAAAAAAA CALL SUBROUIINE GRID TO READ IN IHE VARIABLE GRID MAPPING 



224 CAAAAAAAA INFORMATION FROM FILE CODE 3 (X DIRECTION FIRST, IHEN Y> AND 



225 CAAAAAAAA GENERATE THE VARIABLE GRID SCALE EACTORS AND DISTANCES 



226 C 



227 IF( IGR ID. EQ.l) CALL GRID 



223 C 



229 CAAAAAAAA CALL SUBROUIINE DEPIH TO GENERATE THE WAIER DEPTH MATRIX 



230 C 



231 CALL DEPTH 



232 C 



233 CAAAAAAAA ADD DLEVEL TO ALL THE WATER DEPTHS AND THEN REQUIRE 



234 CAAAAAAAA ALL DEPIHS BE GREAIER THAN THE MINIMUM DEPTH 'DM IN' 



235 CAAAAAAAA WHERE DM IN' IS 1.0 FEET OR A METRIC EQUIVALENT 



MAIN 



176 



MAIN 



17" 



MAIN 



178 



MAIN 



179 



MAIN 



180 



MAIN 



131 



MAIN 



182 



MAIN 



183 



MAIN 



184 



MAIN 



185 



MAIN 



186 



MAIN 



187 



MAIN 



188 



MAIN 



139 



MAIN 



190 



MAIN 



191 



MAIN 



192 



MAIN 



193 



MAIN 



194 



MAIN 



195 



MAIN 



196 



MAIN 



197 



MAIN 



19S 



MAIN 



199 



MAIN 



200 



MAIN 



201 



MAIN 



202 



MAIN 



203 



MAIN 



204 



MAIN 



205 



MAIN 



206 



MAIN 



207 



MAIN 



2oe 



MAIN 



209 



MAIN 



210 



MAIN 



211 



MAIN 



212 



MAIN 



213 



MAIN 



214 



MAIN 



215 



MAIN 



216 



MAIN 



217 



MAIN 



218 



MAIN 



213 



MAIN 



220 



MAIN 



221 



MAIN 



222 



MAIN 



223 



MAIN 



224 



MAIN 



225 



MAIN 



226 



MAIN 



227 



MAIN 



228 



MAIN 



229 



MAIN 



230 



MAIN 



231 



MAIN 



232 



MAIN 



233 



MAIN 



234 



F5 



