The TELEMAC-MASCARET system  trunk
user_noerod.f
Go to the documentation of this file.
1 ! **********************
2  SUBROUTINE user_noerod
3 ! **********************
4 !
5  & (h , zf , zr , z , x , y , npoin , choix , nliss )
6 !
7 !***********************************************************************
8 ! SISYPHE
9 !***********************************************************************
10 !
11 !brief USER FIXES THE NON-ERODABLE BED ELEVATION ZR.
12 !
13 !note METHODS OF TREATMENT OF NON-ERODABLE BEDS CAN LEAD TO ZF.
14 !note CHOOSE TO SMOOTH THE SOLUTION WITH NLISS > 0.
15 !
16 !history C. LENORMANT
17 !+
18 !+ V5P1
19 !+
20 !
21 !history Y. AUDOUIN (LNHE)
22 !+ 22/10/18
23 !+ V8P1
24 !+ Creation from NOEROD
25 !
26 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
27 !| CHOIX |-->| SELECTED METHOD FOR THE TREATMENT OF RIGID BEDS
28 !| H |-->| WATER DEPTH
29 !| NLISS |<->| NUMBER OF SMOOTHINGS
30 !| NPOIN |-->| NUMBER OF 2D POINTS
31 !| X,Y |-->| 2D COORDINATES
32 !| Z |-->| FREE SURFACE
33 !| ZF |-->| BED LEVEL
34 !| ZR |<--| RIGID BED LEVEL
35 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
36 !
37  USE bief
38 !
39  IMPLICIT NONE
40 !
41 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
42 !
43  INTEGER, INTENT(IN):: NPOIN , CHOIX
44  INTEGER, INTENT(INOUT):: NLISS
45 !
46  DOUBLE PRECISION, INTENT(IN):: Z(npoin) , ZF(npoin)
47  DOUBLE PRECISION , INTENT(IN):: X(npoin) , Y(npoin), H(npoin)
48  DOUBLE PRECISION , INTENT(INOUT):: ZR(npoin)
49 !
50 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
51 !
52 !
53 !-----------------------------------------------------------------------
54 !
55 !
56 !-----------------------------------------------------------------------
57 !
58  RETURN
59  END
subroutine user_noerod(H, ZF, ZR, Z, X, Y, NPOIN, CHOIX, NLISS)
Definition: user_noerod.f:7
Definition: bief.f:3