function [dol0,hohb,L0,Hb]=dimwv(H,T,d,g)
% ***********************************************************
% [dol0,hohb,L0,Hb]=dimwv(H,T,d,g)
% ***********************************************************
% Input:
% H = wave height
% T = wave period
% d = water depth
% g = gravity
% Output:
% L0 = deep water Airy wave length = g*T*T/(2*pi)
% Hb = breaking wave height from criteria in Dean's stream function theory
% dol0 = d/L0
% hohb = H/Hb
% *************************************************************************
L0=g*T*T/(2*pi);
dol0=d/L0;
[hbol0,hod,lol0,psi]=wvcon(dol0,1);
Hb=hbol0*L0;
hohb=H/Hb;