APPEIOIX B 

 Computer Program for Distribution of Wave Velocity Values 

 Over a Grid of Depth Values as a Function of Wave Period 



PROGRAM TITLE : DISTV. 



Variables Used in Program : 



TT Wave period (seconds) . 



I, J For a given X,Y position on a grid, I=X+1, J=Y+1, 



where the grid origin is at X = 0, Y = 0. 



CMA.T(I, j) For position I, J on the grid, CMAT represents, in the input, 



water depth (feet or fathoms). After conversion, CMAT re- 

 presents, in the output, wave velocity (grid units/second). 



MM, M Maximum I and J, respectively, for the grid. 



FMOP Allows conversion of CMAT to feet, if input is in fathoms. 



GRID Grid interval (feet) . 



L 1/2 deep-water wave length (feet) rounded down to the nearest 



integer. 



(CXX(K),K:=1,L) For a wave of TT period, CXX is the array of wave velocities 

 (feet/second) where K ranges from 1 to L in one-foot incre- 

 ments. 



JX, JY On each output card JX and JY represents the X and Y grid co- 

 ordinates of the first velocity value on that same card. 



Summary o_f Program ; 



MM, M, FMOP, GRID, TT, and (CXX(K),K=1,L) are the initial input. Then the 



first row of CMAT depth values is read into the computer. (Fathoms are 



converted if specified by FMOP.) For each depth value the computer "looks 



up" the associated CXX and divides this value by GRID. When all values in 



34 



