filt_sa.f

Go to the documentation of this file.

!                       ******************
                        SUBROUTINE filt_sa
!                       ******************
!
!***********************************************************************
! TOMAWAC   V6P2                                   25/06/2012
!***********************************************************************
!
!brief    NUMERICAL FILTER TO SMOOTH THE WAVE AMPLITUDES OF
!+            DIRECTIONAL SPECTRA
!
!history  E. KRIEZI (LNH)
!+        04/12/2006
!+        V5P5
!+
!
!
!history  G.MATTAROLO (EDF - LNHE)
!+        23/06/2012
!+        V6P2
!+   Modification for V6P2
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
!
      USE bief
      USE declarations_telemac
      USE declarations_tomawac
!
      USE interface_tomawac, ex_filt_sa => filt_sa
      IMPLICIT NONE
!
      lisfon =1
!
      CALL filter(sa,.true.,st1,st2,am1,'MATMAS          ',
     &            1.d0,st1,st1,st1,st1,st1,st1,mesh,.false.,st1,lisfon)
!
!-----------------------------------------------------------------------
!
      RETURN
      END