filt_sa.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\tomawac\filt_sa.f
00002 !
00052                         SUBROUTINE FILT_SA
00053 !                       ******************
00054 !
00055 !***********************************************************************
00056 ! TOMAWAC   V6P2                                   25/06/2012
00057 !***********************************************************************
00058 !
00059 !
00060 !
00061 !
00062 !
00063 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00064 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00065 !
00066 !
00067       USE BIEF
00068       USE DECLARATIONS_TELEMAC
00069       USE DECLARATIONS_TOMAWAC
00070 !
00071       IMPLICIT NONE
00072 !
00073       LISFON =1
00074 !
00075       CALL FILTER(SA,.TRUE.,ST1,ST2,AM1,'MATMAS          ',
00076      &            1.D0,ST1,ST1,ST1,ST1,ST1,ST1,MESH,.FALSE.,ST1,LISFON)
00077 !
00078 !-----------------------------------------------------------------------
00079 !
00080       RETURN
00081       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0