Subroutine SEA determines the water level in the sea as a function 

 of time either for a given sine wave or by interpolating equal time- 

 series data. 



Subroutine WTl determines the grid-weighting function by assuming 

 that the flow is distributed across each section so that friction is 

 minimized. Tliis routine allows flow to cross channel boundaries, but 

 assumes tliat this flow will be small, so the flow is neglected in the 

 equation of motion. Tliis weighting function is recommended for general 

 use. 



Subroutine WT2 is similar to WTl, except that flow is not allowed to 

 cross channel' boundaries and that flow is distributed in each channel so 

 that friction is minimized. 



Subroutine IVT3 determines the weighting function so that flow is 

 distributed equally in all grids. This is generally unrealistic, since 

 it will be difficult to visually draw this grid system. However, this 

 routine is useful since it provides an upper limit on frictional effects 

 and therefore gives a lower limit of bay levels and inlet velocities. 

 This v/eighting can be used to model simple geometry inlets where only 

 one channel is used to represent the inlet. 



Subroutine CRIT prints a table of critical instantaneous hydraulics 

 (i.e., at high water, low water, maximum velocity, and maximum discharge). 

 This table is determined by storing a summary of conditions for each time 

 step, then scanning this list for critical values. 



Subroutine GRPHC plots mean inlet hydraulics by scaling hydraulics 

 in storage and plotting the time interval requested on a digital x-y pen 

 plotter. 



Subroutine READIN is used by GRPHC to read data in storage and scale 

 values for plotting. 



2. Program Input . 



The computer program (INLET) requires the following input of one deck 

 for each inlet-bay system: 



Card Variables Format Description 



type 



1 ALABLl 4A10 first line of title 

 ALABL2 4A10 second line of title 



2 5110, 2F10.5, no 



NINLET number of inlets 



NCYCLES number of cycles 



IPLOT IPLOT = 1 for plot of results 



23 



