Equilibrium beach profile

This function displays the equilibrium beach profile, using

Inputs:
Hs12 = The effective significant wave height (m).
Ts = The wave period associated with Hs12 (s).
D50 = Sediment size (m).

Output:
The closure depth (m)
The equilibrium beach profile coordinates.

Notes:
You can only run the function.
The results are shown on a window which was developed for screens of 1024x768.

Books:
- Dean, Robert G. (2002). Beach nourishment: theory and practice. Advanced Series on Ocean Engineering, Volume 18.World Scientific Publishing. Singapure.
- Universidad de Cantabria-GIOC. (2002). Manual del usuario TIC. España.

May-2005.