The TELEMAC-MASCARET system  trunk
filt_sa.f
Go to the documentation of this file.
1 ! ******************
2  SUBROUTINE filt_sa
3 ! ******************
4 !
5 !***********************************************************************
6 ! TOMAWAC V6P2 25/06/2012
7 !***********************************************************************
8 !
9 !brief NUMERICAL FILTER TO SMOOTH THE WAVE AMPLITUDES OF
10 !+ DIRECTIONAL SPECTRA
11 !
12 !history E. KRIEZI (LNH)
13 !+ 04/12/2006
14 !+ V5P5
15 !+
16 !
17 !
18 !history G.MATTAROLO (EDF - LNHE)
19 !+ 23/06/2012
20 !+ V6P2
21 !+ Modification for V6P2
22 !
23 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
24 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
25 !
26 !
27  USE bief
30 !
31  USE interface_tomawac, ex_filt_sa => filt_sa
32  IMPLICIT NONE
33 !
34  lisfon =1
35 !
36  CALL filter(sa,.true.,st1,st2,am1,'MATMAS ',
37  & 1.d0,st1,st1,st1,st1,st1,st1,mesh,.false.,st1,lisfon)
38 !
39 !-----------------------------------------------------------------------
40 !
41  RETURN
42  END
subroutine filter(VEC, BLDMAT, T1, T2, A, FORMUL, XMUL, F, G, H, U, V, W, MESH, MSK, MASKEL, N)
Definition: filter.f:10
subroutine filt_sa
Definition: filt_sa.f:4
type(bief_obj), target am1
type(bief_obj), target st2
type(bief_obj), target sa
type(bief_obj), target st1
type(bief_mesh), target mesh
Definition: bief.f:3