The TELEMAC-MASCARET system  trunk
interface_gaia_suspension.f
Go to the documentation of this file.
1 ! *************************************
3 ! *************************************
4 !
5 !
6 !***********************************************************************
7 ! GAIA
8 !***********************************************************************
9 !
10 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
11 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
12 !
13  INTERFACE
14  ! ======================================= !
15  ! INTERFACE FOR THE GAIA SUBROUTINE !
16  ! FOR THE SUSPENDED TRANSPORT !
17  ! ======================================= !
18  !----------------------------------------------------------------!
19  SUBROUTINE bed1_suspension_deposit
20  !----------------------------------------------------------------!
21  &(code)
22  USE bief
25  IMPLICIT NONE
26  CHARACTER(LEN=24), INTENT(IN) :: CODE
27  END SUBROUTINE bed1_suspension_deposit
28  !================================================================!
29 
30  !----------------------------------------------------------------!
31  SUBROUTINE suspension_compute_cae
32  !----------------------------------------------------------------!
33  &(taup,hn,dcla,npoin,charr,xmve,xmvs,vce,grav,
34  & zero,zref,ac,cstaeq,qsc,icq,u2d,v2d,csratio,debug,ratio_toce)
35  USE bief
37  IMPLICIT NONE
38  type(bief_obj), INTENT(IN) :: taup,hn,zref,qsc
39  type(bief_obj), INTENT(IN) :: u2d,v2d,csratio
40  INTEGER, INTENT(IN) :: NPOIN,DEBUG,ICQ
41  LOGICAL, INTENT(IN) :: CHARR
42  DOUBLE PRECISION, INTENT(IN) :: XMVE,XMVS,GRAV,VCE
43  DOUBLE PRECISION, INTENT(IN) :: ZERO,DCLA
44  DOUBLE PRECISION, INTENT(IN) :: AC
45  type(bief_obj), INTENT(INOUT) :: cstaeq,ratio_toce
46  !----------------------------------------------------------------!
47  END SUBROUTINE suspension_compute_cae
48  !================================================================!
49  !----------------------------------------------------------------!
50  SUBROUTINE suspension_fredsoe_gaia
51  !----------------------------------------------------------------!
52  & (dcla, taup, npoin, grav, xmve, xmvs, ac, cstaeq, ratio_toce)
53  USE bief
54  IMPLICIT NONE
55  TYPE(bief_obj), INTENT(IN) :: TAUP
56  INTEGER, INTENT(IN) :: NPOIN
57  DOUBLE PRECISION, INTENT(IN) :: GRAV, XMVE, XMVS
58  DOUBLE PRECISION, INTENT(IN) :: DCLA
59  DOUBLE PRECISION, INTENT(IN) :: AC
60  TYPE(bief_obj), INTENT(INOUT) :: CSTAEQ
61  TYPE(bief_obj), INTENT(IN) :: RATIO_TOCE
62  !----------------------------------------------------------------!
63  END SUBROUTINE suspension_fredsoe_gaia
64  !================================================================!
65  !----------------------------------------------------------------!
66  SUBROUTINE suspension_bijker_gaia
67  !----------------------------------------------------------------!
68 
69  & (taup, npoin, charr, qsc, zref, zero, cstaeq, xmve,ratio_toce)
70  USE bief
71  IMPLICIT NONE
72  TYPE(bief_obj), INTENT(IN) :: TAUP, QSC
73  type(bief_obj), INTENT(IN) :: zref
74  INTEGER, INTENT(IN) :: NPOIN
75  LOGICAL, INTENT(IN) :: CHARR
76  DOUBLE PRECISION, INTENT(IN) :: ZERO
77  DOUBLE PRECISION, INTENT(IN) :: XMVE
78  TYPE(bief_obj), INTENT(INOUT) :: CSTAEQ
79  TYPE(bief_obj), INTENT(IN) :: RATIO_TOCE
80  !----------------------------------------------------------------!
81  END SUBROUTINE suspension_bijker_gaia
82  !================================================================!
83  !----------------------------------------------------------------!
84  SUBROUTINE suspension_vanrijn_gaia ! (_IMP_)
85  !----------------------------------------------------------------!
86 
87  & (dcla, taup, npoin, grav,
88  & xmve, xmvs,vce, zero, ac, cstaeq,zref,ratio_toce)
89 
90  USE bief
91  IMPLICIT NONE
92  TYPE(bief_obj), INTENT(IN) :: TAUP,ZREF
93  INTEGER, INTENT(IN) :: NPOIN
94  DOUBLE PRECISION, INTENT(IN) :: GRAV, XMVE, XMVS,VCE
95  DOUBLE PRECISION, INTENT(IN) :: ZERO,AC,DCLA
96  TYPE(bief_obj), INTENT(INOUT) :: CSTAEQ
97  TYPE(bief_obj), INTENT(IN) :: RATIO_TOCE
98 
99  END SUBROUTINE suspension_vanrijn_gaia
100  !================================================================!
101  !----------------------------------------------------------------!
102  SUBROUTINE suspension_sandflow_gaia
103  !----------------------------------------------------------------!
104 !
105  & (dcla, npoin, grav, xmve, xmvs, zero, cstaeq, hn,
106  & u2d, v2d, csratio,ratio_toce)
107 !
108  USE bief
109  USE declarations_gaia, ONLY : vce,uw,houle,prive
110  IMPLICIT NONE
111  TYPE(bief_obj), INTENT(IN) :: HN,U2D,V2D,CSRATIO
112  INTEGER, INTENT(IN) :: NPOIN
113  DOUBLE PRECISION, INTENT(IN) :: GRAV, XMVE, XMVS
114  DOUBLE PRECISION, INTENT(IN) :: ZERO,DCLA
115  TYPE(bief_obj), INTENT(INOUT) :: CSTAEQ
116  TYPE(bief_obj), INTENT(IN) :: RATIO_TOCE
117 !
118  END SUBROUTINE suspension_sandflow_gaia
119  !================================================================!
120  !----------------------------------------------------------------!
121  SUBROUTINE eqcae_bc_gaia
122  !----------------------------------------------------------------!
123 !
124  &(litbor,tbor,tn,j,kent)
125 !
126  USE bief
129  IMPLICIT NONE
130  INTEGER, INTENT(IN) :: LITBOR(nptfr),J,KENT
131  DOUBLE PRECISION, INTENT(INOUT) :: TBOR(nptfr),TN(npoin)
132 !
133  END SUBROUTINE eqcae_bc_gaia
134  !================================================================!
135  !----------------------------------------------------------------!
136  SUBROUTINE prep_advection_gaia
137  !----------------------------------------------------------------!
138 !
139  &(uconv_tel,vconv_tel,iconvf,solsys,j,litbor,tbor,tn,kent,flbor_w,
140  & hn_tel)
141 !
142  USE bief
145  IMPLICIT NONE
146  TYPE(bief_obj), INTENT(IN) :: UCONV_TEL,VCONV_TEL,FLBOR_W
147  TYPE(bief_obj), INTENT(IN), TARGET :: HN_TEL
148  INTEGER, INTENT(IN) :: ICONVF,SOLSYS,J,LITBOR(nptfr),KENT
149  DOUBLE PRECISION, INTENT(INOUT) :: TBOR(nptfr),TN(npoin)
150 !
151  END SUBROUTINE prep_advection_gaia
152  !================================================================!
153  !----------------------------------------------------------------!
154  SUBROUTINE suspension_miles_gaia
155  !----------------------------------------------------------------!
157  &(hn,npoin,hmin,fdm,fd90,xwc,csratio)
158 
159  USE bief
160  USE declarations_gaia, ONLY: ks,u2d,v2d,dt
162  IMPLICIT NONE
163  TYPE(bief_obj), INTENT(IN) :: HN
164  INTEGER, INTENT(IN) :: NPOIN
165  DOUBLE PRECISION, INTENT(IN) :: FDM,FD90,XWC,HMIN
166  TYPE(bief_obj), INTENT(INOUT) :: CSRATIO
167  END SUBROUTINE suspension_miles_gaia
168  !================================================================!
169  !----------------------------------------------------------------!
170  SUBROUTINE suspension_rouse_gaia
171  !----------------------------------------------------------------!
173  &(ustar,hn,npoin,karman,zero,xwc,zref,csratio)
174 
175  USE bief
177  IMPLICIT NONE
178  TYPE(bief_obj), INTENT(IN) :: USTAR,HN,ZREF
179  INTEGER, INTENT(IN) :: NPOIN
180  DOUBLE PRECISION, INTENT(IN) :: KARMAN,XWC,ZERO
181  TYPE(bief_obj), INTENT(INOUT) :: CSRATIO
182 
183  END SUBROUTINE suspension_rouse_gaia
184  !================================================================!
185 !
186 !======================================================================!
187 !======================================================================!
188  END INTERFACE
189  END MODULE interface_gaia_suspension
190 !
191 !#######################################################################
192 !
integer, pointer nptfr
Number of boundary points.
type(bief_obj), target uw
Orbital wave velocity.
subroutine suspension_sandflow_gaia(DCLA, NPOIN, GRAV, XMVE, XMVS, ZERO, CSTAEQ, HN, U2D, V2D, CSRATIO, RATIO_TOCE)
type(bief_obj), target u2d
Components of depth-averaged velocity.
type(bief_obj), target v2d
integer, target nomblay
Number of bed load model layers = NUMSTRAT+1 to take the active layer into account.
double precision, target dt
Time step It may be different from the one in TELEMAC because of the morphological factor...
logical houle
Include wave effects.
type(bief_obj), target ks
Total bed roughness.
double precision vce
Water viscosity: it is defined here because the viscosity set in TELEMAC2D or TELEMAC3D may not b the...
subroutine suspension_compute_cae(TAUP, HN, DCLA, NPOIN, CHARR, XMVE, XMVS, VCE, GRAV, ZERO, ZREF, AC, CSTAEQ, QSC, ICQ, U2D, V2D, CSRATIO, DEBUG, RATIO_TOCE)
subroutine suspension_vanrijn_gaia(DCLA, TAUP, NPOIN, GRAV, XMVE, XMVS, VCE, ZERO, AC, CSTAEQ, ZREF, RATIO_TOCE)
subroutine suspension_rouse_gaia(USTAR, HN, NPOIN, KARMAN, ZERO, XWC, ZREF, CSRATIO)
subroutine eqcae_bc_gaia(LITBOR, TBOR, TN, J, KENT)
Definition: eqcae_bc_gaia.f:7
subroutine suspension_miles_gaia(HN, NPOIN, HMIN, FDM, FD90, XWC, CSRATIO)
subroutine prep_advection_gaia(UCONV_TEL, VCONV_TEL, ICONVF, SOLSYS, J, LITBOR, TBOR, TN, KENT, FLBOR_W, HN_TEL)
type(bief_obj), target prive
Block of private vectors.
subroutine suspension_bijker_gaia(TAUP, NPOIN, CHARR, QSC, ZREF, ZERO, CSTAEQ, XMVE, RATIO_TOCE)
subroutine suspension_fredsoe_gaia(DCLA, TAUP, NPOIN, GRAV, XMVE, XMVS, AC, CSTAEQ, RATIO_TOCE)
subroutine bed1_suspension_deposit(CODE)
integer, pointer npoin
Number of 2d points in the mesh.
Definition: bief.f:3