The TELEMAC-MASCARET system  trunk
interface_gaia_bedload.f
Go to the documentation of this file.
1 ! **********************************
3 ! **********************************
4 !
5 !
6 !***********************************************************************
7 ! GAIA V7P2 03/06/2014
8 !***********************************************************************
9 !
10 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
11 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
12 !
13  INTERFACE
14 ! INTERFACE FOR THE GAIA SUBROUTINE !
15 ! FOR BEDLOAD TRANSPORT !
16  !================================================================!
17  SUBROUTINE bedload_bailard_gaia !
18  !----------------------------------------------------------------!
19  &(u2d,v2d,ucmoy,tob,tobw,thetaw,uw,fw,cf,npoin,pi,
20  & xmve,grav,dens,xwc,alphaw,qscx,qscy,qssx,qssy,
21  & uc3x,uc3y,us4x,us4y,thetac,fcw,qsc,qss,houle,xmvs)
22  USE bief_def
24  IMPLICIT NONE
25  TYPE(bief_obj), INTENT(IN) :: U2D,V2D,UCMOY, TOB
26  TYPE(bief_obj), INTENT(IN) :: TOBW, THETAW, UW, FW, CF
27  INTEGER, INTENT(IN) :: NPOIN
28  LOGICAL, INTENT(IN) :: HOULE
29  DOUBLE PRECISION, INTENT(IN) :: PI, XMVE, GRAV, DENS, XWC,XMVS
30  TYPE(bief_obj), INTENT(INOUT) :: ALPHAW ! WORK ARRAY BEDLOAD_EB
31  TYPE(bief_obj), INTENT(INOUT) :: QSCX, QSCY ! WORK ARRAY T3 AND T4
32  TYPE(bief_obj), INTENT(INOUT) :: QSSX, QSSY ! WORK ARRAY T5 AND T6
33  TYPE(bief_obj), INTENT(INOUT) :: UC3X, UC3Y ! WORK ARRAY T7 AND T8
34  TYPE(bief_obj), INTENT(INOUT) :: US4X, US4Y ! WORK ARRAY T9 AND T10
35  TYPE(bief_obj), INTENT(INOUT) :: THETAC, FCW ! WORK ARRAY T11 AND T12
36  TYPE(bief_obj), INTENT(INOUT) :: QSC, QSS
37  !----------------------------------------------------------------!
38  END SUBROUTINE bedload_bailard_gaia
39 !
40  !================================================================!
41 !
42 !
43  !================================================================!
44  SUBROUTINE bedload_bijker_gaia
45  !----------------------------------------------------------------!
46  & (tobw,tob,mu,ksp,ksr,hn,npoin,dcla,dens,xmve,grav,xwc,
47  & karman,zero,t4,t7,t8,t9,qsc,qss,bijk,houle,xmvs)
48  !----------------------------------------------------------------!
49  USE bief
51  IMPLICIT NONE
52  TYPE(bief_obj), INTENT(IN) :: TOBW, TOB, KSR,KSP, HN,MU
53  INTEGER, INTENT(IN) :: NPOIN
54  LOGICAL, INTENT(IN) :: HOULE
55  DOUBLE PRECISION, INTENT(IN) :: DCLA, DENS, XMVE, GRAV, XWC
56  DOUBLE PRECISION, INTENT(IN) :: XMVS
57  DOUBLE PRECISION, INTENT(IN) :: KARMAN, ZERO
58  DOUBLE PRECISION, INTENT(IN) :: BIJK
59  TYPE(bief_obj), INTENT(INOUT) :: T4
60  TYPE(bief_obj), INTENT(INOUT) :: T7, T8, T9
61  TYPE(bief_obj), INTENT(INOUT) :: QSC, QSS
62  !----------------------------------------------------------------!
63  END SUBROUTINE bedload_bijker_gaia
64  !================================================================!
65 !
66 !
67  !================================================================!
68  SUBROUTINE bedload_calcdw_gaia
69  !----------------------------------------------------------------!
70  & (ucw, uw, tw, npoin, pi, uw1, uw2, tw1, tw2)
71  !----------------------------------------------------------------!
72  USE bief
74  IMPLICIT NONE
75  TYPE(bief_obj), INTENT(IN) :: UCW, UW, TW
76  INTEGER, INTENT(IN) :: NPOIN
77  DOUBLE PRECISION, INTENT(IN) :: PI
78  TYPE(bief_obj), INTENT(INOUT) :: UW1, UW2, TW1, TW2
79  !----------------------------------------------------------------!
80  END SUBROUTINE bedload_calcdw_gaia
81  !================================================================!
82 !
83 !
84  !================================================================!
85  SUBROUTINE bedload_dibwat_gaia !
86  !----------------------------------------------------------------!
87 !
88  &(u2d,v2d,unorm, cf, tob, tobw, uw, tw, fw, thetaw, npoin,
89  & xmve, dens, grav, dcla, xwc, pi, alphaw, t2, t3, ucw, ucn,
90  & uw1, uw2, tw1, tw2, thetac, fcw, qsc,xmvs)
91 !
92  USE bief_def
94  IMPLICIT NONE
95 !
96  TYPE(bief_obj), INTENT(IN) :: U2D,V2D,UNORM, CF, TOB, TOBW
97  TYPE(bief_obj), INTENT(IN) :: UW, TW, FW
98  TYPE(bief_obj), INTENT(IN) :: THETAW
99  INTEGER, INTENT(IN) :: NPOIN
100  DOUBLE PRECISION, INTENT(IN) :: XMVE, DENS, GRAV, DCLA, XWC, PI
101  DOUBLE PRECISION, INTENT(IN) :: XMVS
102  TYPE(bief_obj), INTENT(INOUT) :: ALPHAW ! WORK ARRAY T1
103  TYPE(bief_obj), INTENT(INOUT) :: T2, T3 !
104  TYPE(bief_obj), INTENT(INOUT) :: UCW, UCN ! WORK ARRAY T4, T5, T6
105  TYPE(bief_obj), INTENT(INOUT) :: UW1, UW2, TW1 ! WORK ARRAY T7, T8, T9
106  TYPE(bief_obj), INTENT(INOUT) :: TW2, THETAC ! WORK ARRAY T10, T11
107  TYPE(bief_obj), INTENT(INOUT) :: FCW, QSC ! WORK ARRAY T12
108  !----------------------------------------------------------------!
109  END SUBROUTINE bedload_dibwat_gaia
110  !================================================================!
111 !
112 !
113  !================================================================!
114  SUBROUTINE bedload_diffin_gaia
115 ! *************************
116 !
117  &(u, v, nbor, xnebor, ynebor, maskel, nelbor, nptfr,
118  & kent, ksort, klog, kdir, kddl, kneu, msk, clt, litbor,
119  & masktr, limtra,iklbor,neleb,nelebx)
120  USE bief_def
122  IMPLICIT NONE
123  TYPE(bief_obj), INTENT(IN) :: U,V,NBOR,XNEBOR,YNEBOR
124  TYPE(bief_obj), INTENT(IN) :: MASKEL,NELBOR
125  INTEGER, INTENT(IN) :: NPTFR,KENT,KSORT,KLOG
126  INTEGER, INTENT(IN) :: KDIR,KDDL,KNEU,NELEB,NELEBX
127  INTEGER, INTENT(IN) :: IKLBOR(nelebx,2)
128  LOGICAL, INTENT(IN) :: MSK
129  TYPE(bief_obj), INTENT(INOUT) :: CLT
130  TYPE(bief_obj), INTENT(INOUT) :: LITBOR, MASKTR, LIMTRA
131  !----------------------------------------------------------------!
132  END SUBROUTINE bedload_diffin_gaia
133  !================================================================!
134 !
135 !
136  !================================================================!
137  SUBROUTINE bedload_direction_gaia
138  !----------------------------------------------------------------!
139  & (u2d, v2d, npoin, pi, thetac)
140  !----------------------------------------------------------------!
141  USE bief
143  IMPLICIT NONE
144  TYPE(bief_obj), INTENT(IN) :: U2D, V2D
145  INTEGER, INTENT(IN) :: NPOIN
146  DOUBLE PRECISION, INTENT(IN) :: PI
147  TYPE(bief_obj), INTENT(INOUT) :: THETAC
148  !----------------------------------------------------------------!
149  END SUBROUTINE bedload_direction_gaia
150  !================================================================!
151 !
152 !
153 !
154  !================================================================!
155  SUBROUTINE bedload_effpnt_gaia !
156  !----------------------------------------------------------------!
157 !
158  &(maskel,liqbor,s,zf,npoin,nptfr,ielmt,
159  & kent,beta,pi,msk,mesh,dzfdx,dzfdy,cteta,steta,
160  & coef,calfa,salfa,slopeff,phised,devia,beta2,
161  & tob,xmvs,xmve,dcla,grav,unsv2d)
162 !
163  USE bief_def
165  IMPLICIT NONE
166 !
167  TYPE(bief_obj), INTENT(IN) :: MASKEL,LIQBOR,S,UNSV2D
168  TYPE(bief_obj), INTENT(IN) :: ZF, TOB
169  INTEGER, INTENT(IN) :: NPOIN, NPTFR, IELMT, KENT
170  INTEGER, INTENT(IN) :: SLOPEFF,DEVIA
171  DOUBLE PRECISION, INTENT(IN) :: BETA, PI, PHISED, BETA2
172  DOUBLE PRECISION, INTENT(IN) :: XMVS, XMVE, GRAV, DCLA
173  LOGICAL, INTENT(IN) :: MSK
174  TYPE(bief_mesh), INTENT(INOUT) :: MESH
175  TYPE(bief_obj), INTENT(INOUT) :: DZFDX, DZFDY
176  TYPE(bief_obj), INTENT(INOUT) :: CTETA,STETA
177  TYPE(bief_obj), INTENT(INOUT) :: COEF, CALFA, SALFA
178 !
179  !----------------------------------------------------------------!
180  END SUBROUTINE bedload_effpnt_gaia
181  !================================================================!
182 !
183 !
184  !================================================================!
185  SUBROUTINE bedload_einst_gaia
186  !----------------------------------------------------------------!
187  &(tetap, npoin, dens, grav, dcla, dstar, qsc,xmvs)
188  !----------------------------------------------------------------!
189  USE bief
191  IMPLICIT NONE
192  TYPE(bief_obj), INTENT(IN) :: TETAP
193  INTEGER, INTENT(IN) :: NPOIN
194  DOUBLE PRECISION, INTENT(IN) :: DENS, GRAV, DCLA, DSTAR, XMVS
195  TYPE(bief_obj), INTENT(INOUT) :: QSC
196  !----------------------------------------------------------------!
197  END SUBROUTINE bedload_einst_gaia
198  !================================================================!
199 !
200 !
201  !================================================================!
202  SUBROUTINE bedload_engel_gaia
203  !----------------------------------------------------------------!
204  &(tob,cf,dens,grav,dcla,xmve,teta,qsc,xmvs)
205  !----------------------------------------------------------------!
206  USE bief
208  IMPLICIT NONE
209  TYPE(bief_obj), INTENT(IN) :: TOB, CF
210  DOUBLE PRECISION, INTENT(IN) :: DENS, GRAV, DCLA, XMVE, XMVS
211  TYPE(bief_obj), INTENT(INOUT) :: TETA ! WORK ARRAY T1
212  TYPE(bief_obj), INTENT(INOUT) :: QSC
213  !----------------------------------------------------------------!
214  END SUBROUTINE bedload_engel_gaia
215  !================================================================!
216 !
217 !
218  !================================================================!
219  SUBROUTINE bedload_engel_cc_gaia
220  !----------------------------------------------------------------!
221  &(tetap,cf,npoin,grav,dcla,dens,teta,qsc,xmvs)
222  !----------------------------------------------------------------!
225  IMPLICIT NONE
226 !
227  TYPE(bief_obj), INTENT(IN) :: TETAP,CF
228  INTEGER, INTENT(IN) :: NPOIN
229  DOUBLE PRECISION, INTENT(IN) :: GRAV, DCLA, DENS,XMVS
230  TYPE(bief_obj), INTENT(INOUT) :: TETA! WORK ARRAY T1
231  TYPE(bief_obj), INTENT(INOUT) :: QSC
232  !----------------------------------------------------------------!
233  END SUBROUTINE bedload_engel_cc_gaia
234  !================================================================!
235 !
236 !
237  !================================================================!
238  SUBROUTINE bedload_evol_gaia
239  !----------------------------------------------------------------!
240 !
241  &(s,coefpn,calfa,salfa,limtec,ebor,maskel,mask,v2dpar,
242  & unsv2d,debug,npoin,nptfr,ielmt,kent,kdir,kddl,
243  & dt,xmvs,vf,entets,msk,mesh,qs,
244  & t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,breach,qsx,qsy,
245  & slopeff,icla,flbcla,liqbor,qbor,maxadv,mass_sand,
246  & ratio_sand,evcl_mb)
247  USE bief_def
249  IMPLICIT NONE
250  TYPE(bief_obj), INTENT(IN) :: S,UNSV2D
251  TYPE(bief_obj), INTENT(IN) :: COEFPN,CALFA,SALFA
252  TYPE(bief_obj), INTENT(IN) :: MASKEL,MASK,V2DPAR
253  INTEGER, INTENT(IN) :: DEBUG,SLOPEFF,NPOIN,NPTFR,ICLA
254  INTEGER, INTENT(IN) :: IELMT,KENT,KDIR,KDDL
255  INTEGER, INTENT(IN) :: MAXADV
256  DOUBLE PRECISION, INTENT(IN) :: DT
257  DOUBLE PRECISION, INTENT(IN) :: XMVS
258  DOUBLE PRECISION, INTENT(IN) :: RATIO_SAND(npoin)
259  LOGICAL, INTENT(IN) :: VF,ENTETS,MSK
260  TYPE(bief_mesh), INTENT(INOUT) :: MESH
261  TYPE(bief_obj), INTENT(INOUT) :: QS,EBOR,FLBCLA
262  TYPE(bief_obj), INTENT(INOUT) :: T1, T2, T3, T4, T5, T6, T7
263  TYPE(bief_obj), INTENT(INOUT) :: T8, T9, T10, T11, T12, T13
264  TYPE(bief_obj), INTENT(INOUT) :: BREACH, QSX, QSY, LIMTEC
265  TYPE(bief_obj), INTENT(IN) :: LIQBOR,QBOR
266  TYPE(bief_obj), INTENT(INOUT) :: EVCL_MB
267  DOUBLE PRECISION, INTENT(IN) :: MASS_SAND(npoin)
268 !
269  !----------------------------------------------------------------!
270  END SUBROUTINE bedload_evol_gaia
271  !================================================================!
272 !
273 !
274  !============================!
275  SUBROUTINE bedload_formula_gaia !
276  !----------------------------------------------------------------!
277 !
278  &(u2d,v2d,unorm,hn,cf,mu,tob,tobw,uw,tw,thetaw,fw,
279  & acladm, unladm,ksp,ksr,ratio_sand,npoin,icf,hidfac,xmvs,xmve,
280  & dcla,grav,vce,hmin,xwc,karman,zero,
281  & pi,susp, ac, hiding, t1, t2, t3, t4, t5, t6, t7, t8, t9, t10,
282  & t11,tetap, qsc, qss,ielmt,seccurrent,slopeff,
283  & coefpn,calfa,salfa,bijk,houle,h_tel,
284  & hw,thetac,tobcw_mean,tobcw_max,cstaeq,sanfra)
285 !
286  USE bief_def
288  IMPLICIT NONE
289  TYPE(bief_obj), INTENT(IN) :: U2D, V2D, UNORM,HN, CF, TOB
290  TYPE(bief_obj), INTENT(IN) :: MU,TOBW, UW, TW, THETAW, FW
291  TYPE(bief_obj), INTENT(IN) :: ACLADM,UNLADM,KSR,KSP
292  INTEGER, INTENT(IN) :: NPOIN, ICF, HIDFAC,IELMT
293  DOUBLE PRECISION, INTENT(IN) :: XMVS, XMVE, DCLA, GRAV, VCE
294  DOUBLE PRECISION, INTENT(IN) :: HMIN, XWC
295  DOUBLE PRECISION, INTENT(IN) :: KARMAN, ZERO, PI
296  LOGICAL, INTENT(IN) :: SUSP,SECCURRENT,HOULE
297  DOUBLE PRECISION, INTENT(INOUT) :: AC
298  TYPE(bief_obj), INTENT(INOUT) :: HIDING
299  TYPE(bief_obj), INTENT(INOUT) :: T1, T2, T3, T4, T5, T6, T7
300  TYPE(bief_obj), INTENT(INOUT) :: T8, T9, T10,T11
301  TYPE(bief_obj), INTENT(INOUT) :: TETAP ! WORK ARRAY T12
302  TYPE(bief_obj), INTENT(INOUT) :: QSC, QSS
303  TYPE(bief_obj), INTENT(INOUT) :: COEFPN, CALFA, SALFA
304  INTEGER, INTENT(IN) :: SLOPEFF
305 !
306  DOUBLE PRECISION, INTENT (IN) :: BIJK,RATIO_SAND(npoin)
307  TYPE(bief_obj), INTENT(IN) :: H_TEL
308  TYPE(bief_obj), INTENT(IN) :: HW, THETAC
309  TYPE(bief_obj), INTENT(IN) :: TOBCW_MEAN, TOBCW_MAX
310  TYPE(bief_obj), INTENT(IN) :: CSTAEQ
311  DOUBLE PRECISION, INTENT(IN) :: SANFRA(npoin)
312 !
313  !----------------------------------------------------------------!
314  END SUBROUTINE bedload_formula_gaia
315  !================================================================!
316 !
317 !
318  !================================================================!
319  SUBROUTINE bedload_hiding_factor_gaia
320  !----------------------------------------------------------------!
321  &(acladm, hidfac, npoin, hidi, dcla, k_h_y, hiding)
322  !----------------------------------------------------------------!
323  USE bief
325  IMPLICIT NONE
326  TYPE(bief_obj), INTENT(IN) :: ACLADM
327  INTEGER, INTENT(IN) :: HIDFAC, NPOIN
328  DOUBLE PRECISION, INTENT(IN) :: HIDI, DCLA, K_H_Y
329  TYPE(bief_obj), INTENT(INOUT) :: HIDING
330  !----------------------------------------------------------------!
331  END SUBROUTINE bedload_hiding_factor_gaia
332  !================================================================!
333 !
334 !
335  !================================================================!
336  SUBROUTINE bedload_hunz_meyer_gaia
337  !----------------------------------------------------------------!
338  & (tob, mu, acladm, unladm, npoin, dens, xmve, grav, dcla, ac,
339  & tetap, ahunzi, acp, hiding, qsc,xmvs)
340  !----------------------------------------------------------------!
341  USE bief
343  IMPLICIT NONE
344  TYPE(bief_obj), INTENT(IN) :: TOB, MU, ACLADM, UNLADM
345  INTEGER, INTENT(IN) :: NPOIN
346  DOUBLE PRECISION, INTENT(IN) :: DENS, XMVE, GRAV, DCLA, AC,XMVS
347  TYPE(bief_obj), INTENT(INOUT) :: TETAP, AHUNZI ! WORK ARRAY T1, T2
348  TYPE(bief_obj), INTENT(INOUT) :: ACP ! WORK ARRAY T3
349  TYPE(bief_obj), INTENT(INOUT) :: HIDING, QSC
350  !----------------------------------------------------------------!
351  END SUBROUTINE bedload_hunz_meyer_gaia
352  !================================================================!
353 !
354 !
355  !================================================================!
356  SUBROUTINE bedload_interact_gaia
357  !----------------------------------------------------------------!
358  & (ucmoy, tobw, tob, alphaw, fw, cf, uw, npoin, xmve, fcw)
359  !----------------------------------------------------------------!
360  USE bief
362  IMPLICIT NONE
363  TYPE(bief_obj), INTENT(IN) :: UCMOY, TOBW, TOB, ALPHAW
364  TYPE(bief_obj), INTENT(IN) :: FW, CF, UW
365  INTEGER, INTENT(IN) :: NPOIN
366  DOUBLE PRECISION, INTENT(IN) :: XMVE
367  TYPE(bief_obj), INTENT(INOUT) :: FCW
368  !----------------------------------------------------------------!
369  END SUBROUTINE bedload_interact_gaia
370  !================================================================!
371 !
372 !
373  !================================================================!
374  SUBROUTINE bedload_main_gaia !
375  !----------------------------------------------------------------!
376 !
377  &(acladm,ksp,ksr, v2dpar,unsv2d,cf,ebor,fw,hn,liqbor,
378  & mask, maskel, maskpt, qbor, u2d,
379  & v2d, s,unladm,uw,thetaw,mu,tob,tobw,tw,zf,
380  & debug, hidfac, icf, ielmt, kddl, kdir,
381  & kent, klog, kneu, ksort,
382  & npoin, nptfr, nsicla, optban, beta, dcla,
383  & grav, hidi, hmin, vce, xmve, xmvs0, xwc,
384  & pi, karman, zero, karim_holly_yang,msk, susp, vf,
385  & mesh, liebor, limtec, masktr,
386  & it1, t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11,
387  & t12,t13,unorm,ac, dt,
388  & breach, calfa_cl, coefpn,
389  & hiding, qscl_c, qscl_s, qs_c,
390  & qsclxc, qsxc, qsclyc, qsyc, salfa_cl,
391  & entets, seccurrent, slopeff,
392  & phised, devia, beta2, bijk,sedco,houle,
393  & u3d,v3d,code,flbcla,maxadv,ratio_sand,h_tel,
394  & hw, thetac, tobcw_mean, tobcw_max, cstaeq)
395 !
396  USE bief_def
398  & num_icla_isand
400  IMPLICIT NONE
401 !
402  TYPE(bief_obj), INTENT(IN) :: ACLADM, KSR,V2DPAR,UNSV2D
403  TYPE(bief_obj), INTENT(IN) :: CF,FW,KSP,HN,LIQBOR
404  TYPE(bief_obj), INTENT(IN) :: MASK, MASKEL, MASKPT
405  TYPE(bief_obj), INTENT(IN) :: QBOR
406  TYPE(bief_obj), INTENT(INOUT) :: U2D,V2D,TOB,MU,UNORM,EBOR
407  TYPE(bief_obj), INTENT(IN) :: S,UNLADM
408  TYPE(bief_obj), INTENT(IN) :: UW, THETAW, TOBW, TW
409  TYPE(bief_obj), INTENT(IN) :: HW, THETAC
410  TYPE(bief_obj), INTENT(INOUT) :: TOBCW_MEAN, TOBCW_MAX
411  TYPE(bief_obj), INTENT(IN) :: ZF
412  INTEGER, INTENT(IN) :: DEBUG, HIDFAC, ICF,MAXADV
413  INTEGER, INTENT(IN) :: IELMT, KDDL, KDIR, KENT
414  INTEGER, INTENT(IN) :: KLOG, KNEU, KSORT
415  INTEGER, INTENT(IN) :: NPOIN, NPTFR
416  INTEGER, INTENT(IN) :: NSICLA, OPTBAN
417  DOUBLE PRECISION, INTENT(IN) :: BETA
418  DOUBLE PRECISION, INTENT(IN) :: DCLA(nsicla),GRAV
419  DOUBLE PRECISION, INTENT(IN) :: HIDI(nsicla),HMIN,VCE
420  DOUBLE PRECISION, INTENT(IN) :: XMVE,XMVS0(nsicla),XWC(nsicla)
421  DOUBLE PRECISION, INTENT(IN) :: PI,KARMAN,ZERO
422  DOUBLE PRECISION, INTENT(IN) :: KARIM_HOLLY_YANG
423  LOGICAL, INTENT(IN) :: MSK, SUSP, VF
424  LOGICAL, INTENT(IN) :: SECCURRENT
425  LOGICAL, INTENT(IN) :: SEDCO(nsicla),HOULE
426  TYPE(bief_mesh), INTENT(INOUT) :: MESH
427  TYPE(bief_obj), INTENT(INOUT) :: FLBCLA
428  TYPE(bief_obj), INTENT(INOUT) :: LIEBOR, LIMTEC, MASKTR
429  TYPE(bief_obj), INTENT(INOUT) :: IT1,T1,T2,T3,T4,T5,T6,T7
430  TYPE(bief_obj), INTENT(INOUT) :: T8,T9,T10,T11,T12,T13
431  DOUBLE PRECISION, INTENT(INOUT) :: AC(nsicla), DT
432  DOUBLE PRECISION, INTENT(INOUT) :: RATIO_SAND(nsand,nomblay,npoin)
433  TYPE(bief_obj), INTENT(INOUT) :: BREACH, CALFA_CL, COEFPN
434  TYPE(bief_obj), INTENT(INOUT) :: HIDING
435  TYPE(bief_obj), INTENT(INOUT) :: QSCL_C,QSCL_S
436  TYPE(bief_obj), INTENT(INOUT) :: QS_C, QSCLXC, QSXC, QSCLYC
437  TYPE(bief_obj), INTENT(INOUT) :: QSYC, SALFA_CL
438  LOGICAL, INTENT(INOUT) :: ENTETS
439  DOUBLE PRECISION, INTENT(IN) :: BETA2, PHISED
440  INTEGER, INTENT (IN) :: SLOPEFF, DEVIA
441  DOUBLE PRECISION, INTENT(IN) :: BIJK
442  TYPE(bief_obj), INTENT(IN) :: U3D,V3D
443  CHARACTER(LEN=24), INTENT(IN) :: CODE
444  TYPE(bief_obj), INTENT(IN) :: H_TEL
445  TYPE(bief_obj), INTENT(INOUT) :: CSTAEQ
446 !
447  !----------------------------------------------------------------!
448  END SUBROUTINE bedload_main_gaia
449  !================================================================!
450 !
451 !
452  !================================================================!
453  SUBROUTINE bedload_meyer_gaia !
454  !----------------------------------------------------------------!
455  &(tetap,hiding,hidfac,dens,grav,dcla,ac,acp,qsc,slopeff,coefpn,
456  & xmvs)
457 !
458  USE bief_def
460  IMPLICIT NONE
461 !
462  TYPE(bief_obj), INTENT(IN) :: TETAP, HIDING
463  INTEGER, INTENT(IN) :: HIDFAC, SLOPEFF
464  DOUBLE PRECISION, INTENT(IN) :: DENS, GRAV, DCLA, AC, XMVS
465  TYPE(bief_obj), INTENT(INOUT) :: ACP ! WORK ARRAY T1
466  TYPE(bief_obj), INTENT(INOUT) :: QSC, COEFPN
467  !----------------------------------------------------------------!
468  END SUBROUTINE bedload_meyer_gaia
469  !================================================================!
470 !
471 !
472  !================================================================!
473  SUBROUTINE bedload_nerbed_vf_gaia !
474  &(mesh,liebor,ksort,v2dpar,qsx,qsy,npoin,nseg,nptfr,
475  & dt,qs,t1,t2,t3,breach,nubo,vnoin,mass_sand)
476  USE bief_def
478  IMPLICIT NONE
479  TYPE(bief_mesh), INTENT(INOUT) :: MESH
480  TYPE(bief_obj), INTENT(IN) :: LIEBOR
481  TYPE(bief_obj), INTENT(IN) :: QSX, QSY
482  INTEGER, INTENT(IN) :: NPOIN, NSEG, NPTFR,KSORT
483  DOUBLE PRECISION, INTENT(IN) :: DT
484  TYPE(bief_obj), INTENT(INOUT) :: QS, T1, T2, T3
485  TYPE(bief_obj), INTENT(INOUT) :: BREACH
486  DOUBLE PRECISION, INTENT(IN) :: V2DPAR(npoin)
487  INTEGER, INTENT(IN) :: NUBO(2,nseg)
488  DOUBLE PRECISION, INTENT(IN) :: VNOIN(3,nseg)
489  DOUBLE PRECISION, INTENT(IN) :: MASS_SAND(npoin)
490  !----------------------------------------------------------------!
491  END SUBROUTINE bedload_nerbed_vf_gaia
492  !================================================================!
493 !
494 !
495  !================================================================!
496  SUBROUTINE user_bedload_qb !
497  & (hn, u2d, v2d, thetac, houle, hw, tw, thetaw,
498  & tob,tobw,tobcw_mean,tobcw_max, dcla, dens, grav, dstar, ac,
499  & xmve, xmvs, tetap, mu, npoin, qsc, qss, cstaeq)
500  USE bief
502  IMPLICIT NONE
503  TYPE(bief_obj), INTENT(IN) :: HN,U2D,V2D,THETAC
504  TYPE(bief_obj), INTENT(IN) :: HW, TW, THETAW
505  TYPE(bief_obj), INTENT(IN) :: TOB,TOBW,TOBCW_MEAN,TOBCW_MAX
506  DOUBLE PRECISION, INTENT(IN) :: DCLA, DENS, GRAV, DSTAR, AC
507  DOUBLE PRECISION, INTENT(IN) :: XMVE, XMVS
508  TYPE(bief_obj), INTENT(IN) :: TETAP, MU
509  TYPE(bief_obj), INTENT(IN) :: CSTAEQ
510  INTEGER, INTENT(IN) :: NPOIN
511  LOGICAL, INTENT(IN) :: HOULE
512  TYPE(bief_obj), INTENT(INOUT) :: QSC, QSS
513  !----------------------------------------------------------------!
514  END SUBROUTINE user_bedload_qb
515  !================================================================!
516 !
517 !
518  !================================================================!
519  SUBROUTINE bedload_solidischarge_gaia !
520  !----------------------------------------------------------------!
521 !
522  &(mesh,u2d,v2d,unorm,hn,tw,uw,mu,tob,cf,tobw,fw,thetaw,
523  & ratio_sand,maskpt,maskel,acladm,unladm,ksp,ksr,liqbor,
524  & debug,npoin,nptfr,ielmt,icf,kent,optban,
525  & hidfac,grav,dcla,xwc,xmve,xmvs,vce,hmin,
526  & hidi,karman,zero,pi,k_h_y,
527  & susp,msk,t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,
528  & t11,t12,ac,hiding,qsc,qss,
529  & slopeff,coefpn,phised,calfa,salfa,beta,zf,s,
530  & devia,beta2,seccurrent,
531  & bijk,houle,unsv2d,u3d,v3d,code,h_tel,
532  & hw,thetac,tobcw_mean,tobcw_max,cstaeq,sanfra)
533  USE bief_def
535  IMPLICIT NONE
536 !
537  TYPE(bief_mesh), INTENT(INOUT) :: MESH
538  TYPE(bief_obj), INTENT(IN) :: U2D, V2D, HN, TW, UW
539  TYPE(bief_obj), INTENT(IN) :: UNORM ,MU, KSR ,KSP
540  TYPE(bief_obj), INTENT(IN) :: TOB, CF, TOBW, FW, THETAW
541  TYPE(bief_obj), INTENT(IN) :: MASKPT, MASKEL
542  TYPE(bief_obj), INTENT(IN) :: ACLADM, UNLADM, LIQBOR
543  INTEGER, INTENT(IN) :: DEBUG
544  INTEGER, INTENT(IN) :: NPOIN, NPTFR, IELMT, ICF
545  INTEGER, INTENT(IN) :: KENT, OPTBAN,HIDFAC
546  DOUBLE PRECISION, INTENT(IN) :: GRAV, DCLA, XWC, XMVE, XMVS
547  DOUBLE PRECISION, INTENT(IN) :: VCE, HMIN
548  DOUBLE PRECISION, INTENT(IN) :: HIDI
549  DOUBLE PRECISION, INTENT(IN) :: KARMAN, ZERO, PI
550  DOUBLE PRECISION, INTENT(IN) :: K_H_Y
551  LOGICAL, INTENT(IN) :: SUSP, MSK,SECCURRENT,HOULE
552  TYPE(bief_obj), INTENT(INOUT) :: T1,T2,T3,T4,T5,T6
553  TYPE(bief_obj), INTENT(INOUT) :: T7,T8,T9,T10,T11,T12
554  DOUBLE PRECISION, INTENT(INOUT) :: AC
555  TYPE(bief_obj), INTENT(INOUT) :: HIDING
556  TYPE(bief_obj), INTENT(INOUT) :: QSC,QSS
557  INTEGER, INTENT(IN) :: SLOPEFF,DEVIA
558  DOUBLE PRECISION, INTENT(IN) :: PHISED,BETA,BETA2
559  TYPE(bief_obj), INTENT(IN) :: ZF,S,UNSV2D
560  TYPE(bief_obj), INTENT(INOUT) :: CALFA,SALFA,COEFPN
561  DOUBLE PRECISION, INTENT(IN) :: BIJK,RATIO_SAND(npoin)
562  TYPE(bief_obj), INTENT(IN) :: U3D,V3D
563  CHARACTER(LEN=24), INTENT(IN) :: CODE
564  TYPE(bief_obj), INTENT(IN) :: H_TEL
565  TYPE(bief_obj), INTENT(IN) :: HW, THETAC
566  TYPE(bief_obj), INTENT(IN) :: TOBCW_MEAN, TOBCW_MAX
567  TYPE(bief_obj), INTENT(IN) :: CSTAEQ
568  DOUBLE PRECISION, INTENT(IN) :: SANFRA(npoin)
569 !
570  !----------------------------------------------------------------!
571  END SUBROUTINE bedload_solidischarge_gaia
572  !================================================================!
573 !
574 !
575  !================================================================!
576  SUBROUTINE bedload_soulsby_gaia !
577  !----------------------------------------------------------------!
578  & (unorm,hn, uw, npoin, dens, grav, dcla, dstar, qsc,
579  & qss,xmvs)
580  USE bief_def
582  IMPLICIT NONE
583  TYPE(bief_obj), INTENT(IN) :: HN, UNORM, UW
584  INTEGER, INTENT(IN) :: NPOIN
585  DOUBLE PRECISION, INTENT(IN) :: DENS, GRAV, DCLA, DSTAR,XMVS
586  TYPE(bief_obj), INTENT(INOUT) :: QSC, QSS
587  !----------------------------------------------------------------!
588  END SUBROUTINE bedload_soulsby_gaia
589  !================================================================!
590 !
591 !
592  !================================================================!
593  SUBROUTINE bedload_solvs_fe_gaia
594  !----------------------------------------------------------------!
595  &(mesh,s,ebor,maskel,mask,
596  & qsx,qsy,ielmt,npoin,nptfr,kent,kdir,kddl,limtec,dt,
597  & msk,entet,t1,t2,t3,t4,t8,
598  & hz,hzn,gloseg,dimglo,flodel,flulim,nseg,unsv2d,
599  & icla,flbcla,ratio_sand,liqbor,qbor,maxadv,evcl_mb,xmvs)
600  USE bief_def
602  IMPLICIT NONE
603  TYPE(bief_mesh), INTENT(INOUT) :: MESH
604  TYPE(bief_obj), INTENT(IN) :: S,MASKEL,MASK,QSX,QSY
605  INTEGER, INTENT(IN) :: IELMT,NPOIN,NPTFR,KENT,KDIR
606  INTEGER, INTENT(IN) :: DIMGLO,NSEG,ICLA,KDDL,MAXADV
607  INTEGER, INTENT(IN) :: GLOSEG(dimglo,2)
608  DOUBLE PRECISION, INTENT(IN) :: DT,RATIO_SAND(npoin),XMVS
609  DOUBLE PRECISION, INTENT(INOUT) :: FLULIM(nseg)
610  LOGICAL, INTENT(IN) :: MSK,ENTET
611  TYPE(bief_obj), INTENT(INOUT) :: FLODEL,T1,T2,T3,T4,T8
612  TYPE(bief_obj), INTENT(INOUT) :: HZ,EBOR,LIMTEC
613  TYPE(bief_obj), INTENT(INOUT) :: FLBCLA,EVCL_MB
614  TYPE(bief_obj), INTENT(IN) :: HZN,UNSV2D,LIQBOR,QBOR
615  !----------------------------------------------------------------!
616  END SUBROUTINE bedload_solvs_fe_gaia
617  !================================================================!
618 !
619 !
620  !================================================================!
621  SUBROUTINE bedload_solvs_vf_gaia
622  &(mesh,qsx,qsy,limtec,unsv2d,ebor,breach,nseg,nptfr,npoin,
623  & kent,kdir,kddl,dt,flux,flbcla,
624  & liqbor,qbor,nubo,vnoin,evcl_mb,ratio_sand,xmvs)
625  USE bief_def
627  IMPLICIT NONE
628  TYPE(bief_mesh), INTENT(INOUT) :: MESH
629  TYPE(bief_obj), INTENT(IN) :: QSX,QSY,LIMTEC,UNSV2D,EBOR
630  TYPE(bief_obj), INTENT(IN) :: BREACH,LIQBOR,QBOR
631  INTEGER, INTENT(IN) :: NSEG,NPTFR,NPOIN,KENT,KDIR,KDDL
632  DOUBLE PRECISION, INTENT(IN) :: DT
633  TYPE(bief_obj), INTENT(INOUT) :: FLBCLA,FLUX
634  TYPE(bief_obj), INTENT(INOUT) :: EVCL_MB
635  INTEGER, INTENT(IN) :: NUBO(2,nseg)
636  DOUBLE PRECISION, INTENT(IN) :: VNOIN(3,nseg)
637  DOUBLE PRECISION, INTENT(IN) :: RATIO_SAND(npoin),XMVS
638  !----------------------------------------------------------------!
639  END SUBROUTINE bedload_solvs_vf_gaia
640  !================================================================!
641 !
642 !
643  !================================================================!
644  SUBROUTINE bedload_vanrijn_gaia
645  &(tetap, npoin, dcla, dens, grav, dstar, ac, qsc, xmvs)
646 !
649  IMPLICIT NONE
650  TYPE(bief_obj), INTENT(IN) :: TETAP
651  INTEGER, INTENT(IN) :: NPOIN
652  DOUBLE PRECISION, INTENT(IN) :: DCLA, DENS, GRAV, DSTAR, AC,XMVS
653  TYPE(bief_obj), INTENT(INOUT) :: QSC
654 !
655  !----------------------------------------------------------------!
656  END SUBROUTINE bedload_vanrijn_gaia
657  !================================================================!
658 !
659 !
660  !================================================================!
661  SUBROUTINE bedload_wilcock_crowe_gaia
662  &(tob, mu, acladm, dcla, ratio_sand, grav, xmve, xmvs, sanfra, qsc,
663  & ac, acp, slopeff, coefpn)
664 !
667  IMPLICIT NONE
668  INTEGER, INTENT(IN) :: SLOPEFF
669  TYPE(bief_obj), INTENT(INOUT) :: QSC, COEFPN
670  DOUBLE PRECISION, INTENT(IN) :: XMVE, XMVS, GRAV, DCLA, AC,
671  & ratio_sand(qsc%DIM1)
672  DOUBLE PRECISION, INTENT(IN) :: SANFRA(qsc%dim1)
673  TYPE(bief_obj), INTENT(INOUT) :: ACP ! WORK ARRAY T1
674  TYPE(bief_obj), INTENT(IN) :: ACLADM
675  TYPE(bief_obj), INTENT(IN) :: TOB, MU
676  !----------------------------------------------------------------!
677  END SUBROUTINE bedload_wilcock_crowe_gaia
678  !================================================================!
679 !
681 !
682  !================================================================!
683  SUBROUTINE cvsp_main_gaia
684  &(zfcl_w,zf,nsicla,npoin)
685  USE bief_def
686  IMPLICIT NONE
687  type(bief_obj), INTENT(IN) :: zfcl_w,zf
688  INTEGER, INTENT(IN) :: NSICLA,NPOIN
689  END SUBROUTINE cvsp_main_gaia
690  !================================================================!
691 !
692 !
693  !================================================================!
694  SUBROUTINE cvsp_init_gaia
695  IMPLICIT NONE
696  END SUBROUTINE cvsp_init_gaia
697  !================================================================!
698 !
699 !
700  !================================================================!
701  SUBROUTINE cvsp_add_fraction_gaia
702  &(j, i, dzfcl)
703  IMPLICIT NONE
704  INTEGER, INTENT(IN) :: J
705  INTEGER, INTENT(IN) :: I
706  DOUBLE PRECISION, INTENT(IN) :: DZFCL
707  END SUBROUTINE cvsp_add_fraction_gaia
708  !================================================================!
709 !
710 !
711  !================================================================!
712  SUBROUTINE cvsp_add_section_gaia
713  &(j)
714  IMPLICIT NONE
715  INTEGER, INTENT(IN) :: J
716  END SUBROUTINE cvsp_add_section_gaia
717  !================================================================!
718 !
719 !
720  !================================================================!
721  SUBROUTINE cvsp_check_anything_gaia
723  !================================================================!
724 !
725 !
726  !================================================================!
727  SUBROUTINE cvsp_check_mass_bilan_gaia
729  !================================================================!
730 !
731 !
732  !================================================================!
733  SUBROUTINE cvsp_check_steady_gaia
734  &(j)
735  IMPLICIT NONE
736  INTEGER, INTENT(IN) :: J
737  END SUBROUTINE cvsp_check_steady_gaia
738  !================================================================!
739 !
740 !
741  !================================================================!
742  SUBROUTINE cvsp_compress_brut_gaia(J)
743  IMPLICIT NONE
744  INTEGER, INTENT(IN) :: J
745  END SUBROUTINE cvsp_compress_brut_gaia
746  !================================================================!
747 !
748 !
749  !================================================================!
750  SUBROUTINE cvsp_compress_clean_gaia
751  &(j)
752  IMPLICIT NONE
753  INTEGER, INTENT(IN) :: J
754  END SUBROUTINE cvsp_compress_clean_gaia
755  !================================================================!
756 !
757 !
758  !================================================================!
759  SUBROUTINE cvsp_compress_dp_gaia
760  &(j, threshold)
761  IMPLICIT NONE
762  INTEGER, INTENT(IN) :: J
763  DOUBLE PRECISION, INTENT(IN) :: THRESHOLD
764  END SUBROUTINE cvsp_compress_dp_gaia
765  !================================================================!
766 !
767 !
768  !================================================================!
769  SUBROUTINE cvsp_init_from_layers_gaia
771  !================================================================!
772 !
773 !
774  !================================================================!
775  SUBROUTINE cvsp_make_actlay_gaia
776  END SUBROUTINE cvsp_make_actlay_gaia
777  !================================================================!
778 !
779 !
780  !================================================================!
781  SUBROUTINE cvsp_output_init_gaia
782  END SUBROUTINE cvsp_output_init_gaia
783  !================================================================!
784 !
785 !
786  !================================================================!
787  SUBROUTINE cvsp_p_gaia
788  &(path_pre,file_pre,jg)
789  IMPLICIT NONE
790  INTEGER , INTENT(IN) :: JG
791  CHARACTER(*), INTENT(IN) :: PATH_PRE
792  CHARACTER(*), INTENT(IN) :: FILE_PRE
793  END SUBROUTINE cvsp_p_gaia
794  !================================================================!
795 !
796 !
797  !================================================================!
798  SUBROUTINE cvsp_rm_fraction_gaia
799  &(j,i,dzfcl)
800  IMPLICIT NONE
801  INTEGER, INTENT(IN) :: J
802  INTEGER, INTENT(IN) :: I
803  DOUBLE PRECISION, INTENT(IN) :: DZFCL
804  END SUBROUTINE cvsp_rm_fraction_gaia
805  !================================================================!
806 !
807 !
808  !================================================================!
809  SUBROUTINE cvsp_write_profile_gaia
810  END SUBROUTINE cvsp_write_profile_gaia
811  !================================================================!
812 !
813 !
814  !================================================================!
815  LOGICAL FUNCTION cvsp_db_gaia
816  &(j_global, timestamp)
817  INTEGER, INTENT(IN) :: j_global
818  INTEGER, INTENT(IN) :: TIMESTAMP
819  END FUNCTION cvsp_db_gaia
820  !================================================================!
821 !
822 !
823  !================================================================!
824  LOGICAL RECURSIVE FUNCTION cvsp_check_f_gaia
825  &(j,k, sometext)
826  INTEGER, INTENT(IN) :: j
827  INTEGER, INTENT(IN) :: K
828  CHARACTER(LEN=10),INTENT(IN) :: SOMETEXT
829  END FUNCTION cvsp_check_f_gaia
830  !================================================================!
831 !
832 !
833  !================================================================!
834  LOGICAL RECURSIVE FUNCTION cvsp_check_l_gaia
835  &(j,k, sometext)
836  INTEGER, INTENT(IN) :: j
837  INTEGER, INTENT(IN) :: K
838  CHARACTER(LEN=10),INTENT(IN) :: SOMETEXT
839  END FUNCTION cvsp_check_l_gaia
840  !================================================================!
841 !
842 !
843  !================================================================!
844  DOUBLE PRECISION FUNCTION cvsp_alt_gaia
845  &(j, formula)
846  USE bief
849  IMPLICIT NONE
850  INTEGER, INTENT(IN) :: J
851  INTEGER, INTENT(IN) :: FORMULA
852  END FUNCTION cvsp_alt_gaia
853  !================================================================!
854 !
855 !
856  !================================================================!
857  DOUBLE PRECISION FUNCTION cvsp_integrate_volume_gaia
858  &(j,i,z_high,z_low,a)
860  IMPLICIT NONE
861  INTEGER, INTENT(IN) :: J
862  INTEGER, INTENT(IN) :: I
863  DOUBLE PRECISION, INTENT(IN) :: Z_HIGH
864  DOUBLE PRECISION, INTENT(IN) :: Z_LOW
865  DOUBLE PRECISION, INTENT(OUT) :: A(nsicla)
866  END FUNCTION cvsp_integrate_volume_gaia
867  !================================================================!
868 
869 ! ENDFC
870 !======================================================================!
871 !======================================================================!
872 !
873  END INTERFACE
874  END MODULE interface_gaia_bedload
subroutine bedload_engel_gaia(TOB, CF, DENS, GRAV, DCLA, XMVE, TETA, QSC, XMVS)
subroutine cvsp_main_gaia(ZFCL_W, ZF, NSICLA, NPOIN)
Definition: cvsp_main_gaia.f:7
subroutine cvsp_add_section_gaia(J)
subroutine bedload_meyer_gaia(TETAP, HIDING, HIDFAC, DENS, GRAV, DCLA, AC, ACP, QSC, SLOPEFF, COEFPN, XMVS)
subroutine cvsp_compress_clean_gaia(J)
subroutine cvsp_compress_brut_gaia(J)
recursive logical function cvsp_check_l_gaia(J, K, SOMETEXT)
subroutine cvsp_check_anything_gaia
subroutine bedload_interact_gaia(UCMOY, TOBW, TOB, ALPHAW, FW, CF, UW, NPOIN, XMVE, FCW)
subroutine bedload_vanrijn_gaia(TETAP, NPOIN, DCLA, DENS, GRAV, DSTAR, AC, QSC, XMVS)
subroutine bedload_nerbed_vf_gaia(MESH, LIEBOR, KSORT, V2DPAR, QSX, QSY, NPOIN, NSEG, NPTFR, DT, QS, T1, T2, T3, BREACH, NUBO, VNOIN, MASS_SAND)
integer, target nomblay
Number of bed load model layers = NUMSTRAT+1 to take the active layer into account.
subroutine cvsp_init_from_layers_gaia
subroutine cvsp_p_gaia(PATH_PRE, FILE_PRE, JG)
Definition: cvsp_p_gaia.f:7
subroutine bedload_hiding_factor_gaia(ACLADM, HIDFAC, NPOIN, HIDI, DCLA, K_H_Y, HIDING)
subroutine bedload_formula_gaia(U2D, V2D, UNORM, HN, CF, MU, TOB, TOBW, UW, TW, THETAW, FW, ACLADM, UNLADM, KSP, KSR, RATIO_SAND, NPOIN, ICF, HIDFAC, XMVS, XMVE, DCLA, GRAV, VCE, HMIN, XWC, KARMAN, ZERO, PI, SUSP, AC, HIDING, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, TETAP, QSC, QSS, IELMT, SECCURRENT, SLOPEFF, COEFPN, CALFA, SALFA, BIJK, HOULE, H_TEL, HW, THETAC, TOBCW_MEAN, TOBCW_MAX, CSTAEQ, SANFRA)
subroutine bedload_bailard_gaia(U2D, V2D, UNORM, TOB, TOBW, THETAW, UW, FW, CF, NPOIN, PI, XMVE, GRAV, DENS, XWC, ALPHAW, QSCX, QSCY, QSSX, QSSY, UC3X, UC3Y, US4X, US4Y, THETAC, FCW, QSC, QSS, HOULE, XMVS)
subroutine bedload_diffin_gaia(U2D, V2D, NBOR, XNEBOR, YNEBOR, MASKEL, NELBOR, NPTFR, KENT, KSORT, KLOG, KDIR, KDDL, KNEU, MSK, CLT, LITBOR, MASKTR, LIMTRA, IKLBOR, NELEB, NELEBX)
subroutine bedload_dibwat_gaia(U2D, V2D, UNORM, CF, TOB, TOBW, UW, TW, FW, THETAW, NPOIN, XMVE, DENS, GRAV, DCLA, XWC, PI, ALPHAW, T2, T3, UCW, UCN, UW1, UW2, TW1, TW2, THETAC, FCW, QSC, XMVS)
subroutine cvsp_add_fraction_gaia(J, I, DZFCL)
subroutine bedload_hunz_meyer_gaia(TOB, MU, ACLADM, UNLADM, NPOIN, DENS, XMVE, GRAV, DCLA, AC, TETAP, AHUNZI, ACP, HIDING, QSC, XMVS)
subroutine cvsp_check_steady_gaia(J)
double precision, dimension(:,:,:), allocatable, target mass_sand
Surface mass of sand (kg/m2), for isand,ilayer,ipoin.
subroutine cvsp_output_init_gaia
subroutine cvsp_check_mass_bilan_gaia
subroutine cvsp_rm_fraction_gaia(J, I, DZFCL)
subroutine cvsp_compress_dp_gaia(J, THRESHOLD)
subroutine breach
Definition: breach.f:4
integer nsand
Total number of sand.
subroutine bedload_main_gaia(ACLADM, KSP, KSR, V2DPAR, UNSV2D, CF, EBOR, FW, HN, LIQBOR, MASK, MASKEL, MASKPT, QBOR, U2D, V2D, S, UNLADM, UW, THETAW, MU, TOB, TOBW, TW, ZF, DEBUG, HIDFAC, ICF, IELMT, KDDL, KDIR, KENT, KLOG, KNEU, KSORT, NPOIN, NPTFR, NSICLA, OPTBAN, BETA, DCLA, GRAV, HIDI, HMIN, VCE, XMVE, XMVS0, XWC, PI, KARMAN, ZERO, KARIM_HOLLY_YANG, MSK, SUSP, VF, MESH, LIEBOR, LIMTEC, MASKTR, IT1, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, UNORM, AC, DT, BREACH, CALFA_CL, COEFPN, HIDING, QSCL_C, QSCL_S, QS_C, QSCLXC, QSXC, QSCLYC, QSYC, SALFA_CL, ENTETS, SECCURRENT, SLOPEFF, PHISED, DEVIA, BETA2, BIJK, SEDCO, HOULE, U3D, V3D, CODE, FLBCLA, MAXADV, RATIO_SAND, H_TEL, HW, THETAC, TOBCW_MEAN, TOBCW_MAX, CSTAEQ)
subroutine bedload_wilcock_crowe_gaia(TOB, MU, ACLADM, DCLA, RATIO_SAND, GRAV, XMVE, XMVS, SANFRA, QSC, AC, ACP, SLOPEFF, COEFPN)
subroutine bedload_evol_gaia(S, COEFPN, CALFA, SALFA, LIMTEC, EBOR, MASKEL, MASK, V2DPAR, UNSV2D, DEBUG, NPOIN, NPTFR, IELMT, KENT, KDIR, KDDL, DT, XMVS, VF, ENTETS, MSK, MESH, QS, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, T13, BREACH, QSX, QSY, SLOPEFF, ICLA, FLBCLA, LIQBOR, QBOR, MAXADV, MASS_SAND, RATIO_SAND, EVCL_MB)
subroutine bedload_einst_gaia(TETAP, NPOIN, DENS, GRAV, DCLA, DSTAR, QSC, XMVS)
subroutine cvsp_init_gaia
Definition: cvsp_init_gaia.f:4
subroutine bedload_engel_cc_gaia(TETAP, CF, NPOIN, GRAV, DCLA, DENS, TETA, QSC, XMVS)
subroutine bedload_effpnt_gaia(MASKEL, LIQBOR, S, ZF, NPOIN, NPTFR, IELMT, KENT, BETA, PI, MSK, MESH, DZFDX, DZFDY, CTETA, STETA, COEF, CALFA, SALFA, SLOPEFF, PHISED, DEVIA, BETA2, TOB, XMVS, XMVE, DCLA, GRAV, UNSV2D)
integer, target nsicla
Number of sediment classes of bed material (less than NISCLM)
subroutine cvsp_make_actlay_gaia
subroutine bedload_bijker_gaia(TOBW, TOB, MU, KSP, KSR, HN, NPOIN, DCLA, DENS, XMVE, GRAV, XWC, KARMAN, ZERO, T4, T7, T8, T9, QSC, QSS, BIJK, HOULE, XMVS)
double precision function cvsp_integrate_volume_gaia(J, I, Z_HIGH, Z_LOW, A)
subroutine bedload_direction_gaia(U2D, V2D, NPOIN, PI, THETAC)
double precision function cvsp_alt_gaia(J, FORMULA)
Definition: cvsp_alt_gaia.f:7
subroutine bedload_solidischarge_gaia(MESH, U2D, V2D, UNORM, HN, TW, UW, MU, TOB, CF, TOBW, FW, THETAW, RATIO_SAND, MASKPT, MASKEL, ACLADM, UNLADM, KSP, KSR, LIQBOR, DEBUG, NPOIN, NPTFR, IELMT, ICF, KENT, OPTBAN, HIDFAC, GRAV, DCLA, XWC, XMVE, XMVS, VCE, HMIN, HIDI, KARMAN, ZERO, PI, K_H_Y, SUSP, MSK, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11, T12, AC, HIDING, QSC, QSS, SLOPEFF, COEFPN, PHISED, CALFA, SALFA, BETA, ZF, S, DEVIA, BETA2, SECCURRENT, BIJK, HOULE, UNSV2D, U3D, V3D, CODE, H_TEL, HW, THETAC, TOBCW_MEAN, TOBCW_MAX, CSTAEQ, SANFRA)
recursive logical function cvsp_check_f_gaia(J, K, SOMETEXT)
subroutine bedload_solvs_vf_gaia(MESH, QSX, QSY, LIMTEC, UNSV2D, EBOR, BREACH, NSEG, NPTFR, NPOIN, KENT, KDIR, KDDL, DT, FLUX, FLBCLA, LIQBOR, QBOR, NUBO, VNOIN, EVCL_MB, RATIO_SAND, XMVS)
subroutine user_bedload_qb(HN, U2D, V2D, THETAC, HOULE, HW, TW, THETAW, TOB, TOBW, TOBCW_MEAN, TOBCW_MAX, DCLA, DENS, GRAV, DSTAR, AC, XMVE, XMVS, TETAP, MU, NPOIN, QSC, QSS, CSTAEQ)
logical function cvsp_db_gaia(J_GLOBAL, TIMESTAMP)
Definition: cvsp_db_gaia.f:7
subroutine bedload_solvs_fe_gaia(MESH, S, EBOR, MASKEL, MASK, QSX, QSY, IELMT, NPOIN, NPTFR, KENT, KDIR, KDDL, LIMTEC, DT, MSK, ENTET, T1, T2, T3, T4, T8, HZ, HZN, GLOSEG, DIMGLO, FLODEL, FLULIM, NSEG, UNSV2D, ICLA, FLBCLA, RATIO_SAND, LIQBOR, QBOR, MAXADV, EVCL_MB, XMVS)
subroutine cvsp_write_profile_gaia
subroutine bedload_calcdw_gaia(UCW, UW, TW, NPOIN, PI, UW1, UW2, TW1, TW2)
subroutine coef(S3D_IVIDE, S3D_EPAI, TRA01, S3D_NPFMAX, IMAX, NDEB, S3D_RHOS, GRAV, S3D_DTC, DSIG1)
Definition: coef.f:9
subroutine bedload_soulsby_gaia(UNORM, HN, UW, NPOIN, DENS, GRAV, DCLA, DSTAR, QSC, QSS, XMVS)
Definition: bief.f:3