



Read water depth (fathoms) at ND 

 evenly spaced positions from the sea- 

 ward boundary curve to the coastline. 



Determine and write the long wave traveltime 

 T (min) and distance S.^ (nmi) along 

 XIDUM for the ND positions. 



Store 



in X2P. 



Store S in Y2P. 

 n 



CALL CURV3 

 Fits interpolatory spline through 

 Y2P as a function of X2P. 



Define number of expansion regions (RG) for T(T*) , 

 coefficients A, B, and C, and number of AT* grid 

 intervals of each region (IIC) . If IlC(l) = NUMETA-1. 

 compute AT* . 



27 



