subroutine wavenr(h         ,t         ,k          )
!----- GPL ---------------------------------------------------------------------
!                                                                               
!  Copyright (C)  Stichting Deltares, 2011.                                     
!                                                                               
!  This program is free software: you can redistribute it and/or modify         
!  it under the terms of the GNU General Public License as published by         
!  the Free Software Foundation version 3.                                      
!                                                                               
!  This program is distributed in the hope that it will be useful,              
!  but WITHOUT ANY WARRANTY; without even the implied warranty of               
!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                
!  GNU General Public License for more details.                                 
!                                                                               
!  You should have received a copy of the GNU General Public License            
!  along with this program.  If not, see <http://www.gnu.org/licenses/>.        
!                                                                               
!  contact: delft3d.support@deltares.nl                                         
!  Stichting Deltares                                                           
!  P.O. Box 177                                                                 
!  2600 MH Delft, The Netherlands                                               
!                                                                               
!  All indications and logos of, and references to, "Delft3D" and "Deltares"    
!  are registered trademarks of Stichting Deltares, and remain the property of  
!  Stichting Deltares. All rights reserved.                                     
!                                                                               
!-------------------------------------------------------------------------------
!  $Id$
!  $HeadURL$
!!--description-----------------------------------------------------------------
! Approximation of the dispersion, original sub-
! routine Disp10 (L, T, h, g)
! relation according to linear wave theory:
!
! w^2 = k TANH k
!
! with k = 2 pi h / L and w = (2 pi / T) sqrt (h/g), and L as
! unknown.
! A rational function approximation is made of the form :
!
! 1 + a1 w^2 + a2 w^4 + a3 w^6 + a4 w^8 + a5 w^10 + a6 w^12
! k^2 = w^2 ---------------------------------------------------------
! 1 + b1 w^2 + b2 w^4 + b3 w^6 + b4 w^8           + a6 w^10
!
! having the exact values for L for:
! w = 0.4, 0.7, 1.0, 1.3, 1.6, 1.95, 2.35, 2.9, 3.8 and 6.5,
! and a relative error less than 1.7E-6 for all w.
!
!!--pseudo code and references--------------------------------------------------
! NONE
!!--declarations----------------------------------------------------------------
    implicit none
!
! Local parameters
!
    double precision, parameter :: a1 = 5.060219360721177D-01
    double precision, parameter :: a2 = 2.663457535068147D-01
    double precision, parameter :: a3 = 1.108728659243231D-01
    double precision, parameter :: a4 = 4.197392043833136D-02
    double precision, parameter :: a5 = 8.670877524768146D-03
    double precision, parameter :: a6 = 4.890806291366061D-03
    double precision, parameter :: b1 = 1.727544632667079D-01
    double precision, parameter :: b2 = 1.191224998569728D-01
    double precision, parameter :: b3 = 4.165097693766726D-02
    double precision, parameter :: b4 = 8.674993032204639D-03
!
! Global variables
!
    real, intent(in)  :: h
    real, intent(out) :: k
    real, intent(in)  :: t
!
! Local variables
!
    double precision  :: ag   ! Gravity
    double precision  :: den  !   Denominator
    double precision  :: kd   ! Double value for K
    double precision  :: num  ! Numerator
    double precision  :: ome2 ! Omega
    double precision  :: pi   ! PI
!
!! executable statements -------------------------------------------------------
!
    ag = 9.81D0
    pi = 4.0D0*atan(1.0D0)
    ome2 = (2.0D0*pi/dble(t))**2*dble(h)/dble(ag)
    !
    num = 1.0D0 +                                                               &
        & ome2*(a1 + ome2*(a2 + ome2*(a3 + ome2*(a4 + ome2*(a5 + ome2*a6)))))
    den = 1.0D0 + ome2*(b1 + ome2*(b2 + ome2*(b3 + ome2*(b4 + ome2*a6))))
    kd = sqrt(ome2*num/den)/dble(h)
    k = real(kd)
end subroutine wavenr