Flow Chart. 



MAIN - GRID 



Define constants 

 NMAX, NUMXI, NUMETA, DELSS, DELTT, SSTRT 

 ND, NS, XLAMDA, SLMAP, and XIDUM 



Read conformal mapping transformation 

 coefficients, BETA, BZRO, COB(N), COC(N) 



Determine and write trans form- generated coastline 

 and seaward boundary curve coordinates for N4 evenly- 

 spaced values of 5 (0 £ 5 £ X) . Store in ATXB , 

 ATYB, and ATXA, ATYA. 



Determine and write coastline arclength 

 ■Sp (nmi) as a function of E,. 



Store 

 Store 



Sp 



5 



m 

 in 



X2 

 Y2 



CALL CURVl 

 Fits interpolatory spline through 

 as a function of X2 . 



Y2 



Defines number of expansion regions (IRG) 

 for Sp(S*) , coefficients A, B, and C and 

 number of AS* grid intervals of each 

 region (IIC) . 



25 



