!   This file contains a subroutine to compute different wave parameters
!   to be sent to COHERENS