HOMER SPIT , ALASKA EXAMPLE 



96 416.7 83 833.3 32.200 0.0 1 0.00 



8.00 10.00 -45.00 

 1 50 1 25 55 

 



Figure H3. HOMRDAT 



*IDMODS 

 *D PARAM.3 



PARAMETER(IQ=96,JQ=83) 

 *I DEPTH. 26 



DO 10 1=1 ,M 



DO 10 J=1,N 



D(I,J)=D(1,J)*6.0 

 10 CONTINUE 



Figure Hi. HOMRUPD 



*ID HODS 



*D PARAM.3 



PARAMETER* 1Q=96,JQ=83) 

 *I DEPTH. 26 



DO 10 1=1 ,M 



DO 10 J=1,N 



D(I,J)=D(I,J)*6.0 

 10 CONTINUE 

 *D KAIN.2 



PROGRAM RCPWWE( INPUT .OUTPUT ,TAPE?=TAPE7 ,TAPE6=TAPE6 ,TAPE8=TAPE8 

 *,TAPE3=TAPE3) 



Figure H5. H0MRUP2 



H4 



