The TELEMAC-MASCARET system  trunk
art_corfon.f
Go to the documentation of this file.
1 ! *********************
2  SUBROUTINE art_corfon
3 ! *********************
4 !
5 !
6 !***********************************************************************
7 ! ARTEMIS V6P1 21/08/2010
8 !***********************************************************************
9 !
10 !brief MODIFIES THE BOTTOM TOPOGRAPHY.
11 !
12 !history J-M HERVOUET
13 !+ 01/03/1990
14 !+ V5P1
15 !+
16 !
17 !history N.DURAND (HRW), S.E.BOURBAN (HRW)
18 !+ 13/07/2010
19 !+ V6P0
20 !+ Translation of French comments within the FORTRAN sources into
21 !+ English comments
22 !
23 !history N.DURAND (HRW), S.E.BOURBAN (HRW)
24 !+ 21/08/2010
25 !+ V6P0
26 !+ Creation of DOXYGEN tags for automated documentation and
27 !+ cross-referencing of the FORTRAN sources
28 !
29 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
30 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
31 !
32  USE bief
34 !
36  IMPLICIT NONE
37 !
38 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
39 !
40 !
41 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
42 !
43  LOGICAL MAS
44 !
45 !-----------------------------------------------------------------------
46 !
47 ! SMOOTHING(S) OF THE BOTTOM (OPTIONAL)
48 !
49  IF(lisfon.GT.0) THEN
50 !
51  mas=.true.
52  CALL filter(zf,mas,t1,t2,am1,'MATMAS ',
53  & 1.d0,t1,t1,t1,t1,t1,t1,mesh,msk,maskel,lisfon)
54 !
55  ENDIF
56 !
57 !-----------------------------------------------------------------------
58 !
59  ! USER FUNCTION
60  CALL user_art_corfon
61 !
62 !-----------------------------------------------------------------------
63 !
64  RETURN
65  END
type(bief_obj), target am1
subroutine filter(VEC, BLDMAT, T1, T2, A, FORMUL, XMUL, F, G, H, U, V, W, MESH, MSK, MASKEL, N)
Definition: filter.f:10
type(bief_obj), target zf
subroutine user_art_corfon
type(bief_obj), target maskel
subroutine art_corfon
Definition: art_corfon.f:4
type(bief_obj), pointer t2
type(bief_mesh), target mesh
type(bief_obj), pointer t1
Definition: bief.f:3