interface_sisyphe_bedload.f

Go to the documentation of this file.

!                   **********************************
                    MODULE interface_sisyphe_bedload !
!                   **********************************
!
!
!***********************************************************************
! SISYPHE   V8P0                                   12/09/2018
!***********************************************************************
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
        INTERFACE
!
!**********************************************************************C
! SISYPHE RELEASE 5.6  12/01/05  F. HUVELIN                            C
!**********************************************************************C
!
!history  F.CORDIER (EDF-LNHE)
!+        15/12/2017
!+        V7P2
!+ NEW SUBROUTINE - BEDLOAD_WILCOCK_CROWE
!
! ======================================= !
!  INTERFACE FOR THE SISYPHE SUBROUTINE   !
!         FOR BEDLOAD TRANSPORT           !
! ======================================= !
!
! COPYRIGHT EDF-DTMPL-SOGREAH-LHF-GRADIENT
!**********************************************************************C
!                                                                      C
!                 SSSS I   SSSS Y   Y PPPP  H   H EEEEE                C
!                S     I  S      Y Y  P   P H   H E                    C
!                 SSS  I   SSS    Y   PPPP  HHHHH EEEE                 C
!                    S I      S   Y   P     H   H E                    C
!                SSSS  I  SSSS    Y   P     H   H EEEEE                C
!                                                                      C
!----------------------------------------------------------------------C
!======================================================================!
!======================================================================!
!
      !================================================================!
      SUBROUTINE bedload_bailard !
      !----------------------------------------------------------------!
     &(u2d,v2d,ucmoy,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)
      USE bief_def
      USE declarations_special
      IMPLICIT NONE
      TYPE(bief_obj),   INTENT(IN)    :: U2D,V2D,UCMOY, TOB
      TYPE(bief_obj),   INTENT(IN)    :: TOBW, THETAW, UW, FW, CF
      INTEGER,          INTENT(IN)    :: NPOIN
      LOGICAL,          INTENT(IN)    :: HOULE
      DOUBLE PRECISION, INTENT(IN)    :: PI, XMVE, GRAV, DENS, XWC
      TYPE(bief_obj),   INTENT(INOUT) :: ALPHAW  ! WORK ARRAY BEDLOAD_EB
      TYPE(bief_obj),   INTENT(INOUT) :: QSCX, QSCY    ! WORK ARRAY T3 AND T4
      TYPE(bief_obj),   INTENT(INOUT) :: QSSX, QSSY    ! WORK ARRAY T5 AND T6
      TYPE(bief_obj),   INTENT(INOUT) :: UC3X, UC3Y    ! WORK ARRAY T7 AND T8
      TYPE(bief_obj),   INTENT(INOUT) :: US4X, US4Y    ! WORK ARRAY T9 AND T10
      TYPE(bief_obj),   INTENT(INOUT)   :: THETAC, FCW   ! WORK ARRAY T11 AND T12
      TYPE(bief_obj),   INTENT(INOUT)   :: QSC, QSS
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_bailard
!
      !================================================================!
!
!
      !================================================================!
      SUBROUTINE bedload_bijker
      !----------------------------------------------------------------!
     &  (tobw,tob,mu,ksp,ksr,hn,npoin,dm,dens,xmve,grav,xwc,
     &     karman,zero,t4,t7,t8,t9,qsc,qss,bijk,houle)
      !----------------------------------------------------------------!
      USE bief
      USE declarations_special
      IMPLICIT NONE
      TYPE(bief_obj),   INTENT(IN)    :: TOBW, TOB, MU,KSP,KSR,HN
      INTEGER,          INTENT(IN)    :: NPOIN
      DOUBLE PRECISION, INTENT(IN)    :: DM, DENS, XMVE, GRAV, XWC
      DOUBLE PRECISION, INTENT(IN)    :: KARMAN, ZERO
      LOGICAL,          INTENT(IN)    :: HOULE
      TYPE(bief_obj),   INTENT(INOUT) :: T4
      TYPE(bief_obj),   INTENT(INOUT) :: T7, T8, T9
      TYPE(bief_obj),   INTENT(INOUT)  :: QSC, QSS
      DOUBLE PRECISION, INTENT(IN)     :: BIJK
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_bijker
      !================================================================!
!
!
      !================================================================!
      SUBROUTINE bedload_calcdw
      !----------------------------------------------------------------!
     &  (ucw, uw, tw, npoin, pi, uw1, uw2, tw1, tw2)
      !----------------------------------------------------------------!
      USE bief
      USE declarations_special
      IMPLICIT NONE
      TYPE(bief_obj),   INTENT(IN)  :: UCW, UW, TW
      INTEGER,          INTENT(IN)  :: NPOIN
      DOUBLE PRECISION, INTENT(IN)  :: PI
      TYPE(bief_obj),   INTENT(INOUT) :: UW1, UW2, TW1, TW2
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_calcdw
      !================================================================!
!
!
      !================================================================!
      SUBROUTINE bedload_dibwat !
      !----------------------------------------------------------------!
!
     &  (u2d,v2d,ucmoy, cf, tob, tobw, uw, tw, fw, thetaw, npoin,
     &   xmve, dens, grav, dm, xwc, pi, alphaw, t2, t3, ucw, ucn,
     &   uw1, uw2, tw1, tw2, thetac, fcw, qsc)
!
      USE bief_def
      USE declarations_special
      IMPLICIT NONE
!
      TYPE(bief_obj),   INTENT(IN)    :: U2D,V2D,UCMOY, CF, TOB, TOBW
      TYPE(bief_obj),   INTENT(IN)    :: UW, TW, FW
      TYPE(bief_obj),   INTENT(IN)    :: THETAW
      INTEGER,          INTENT(IN)    :: NPOIN
      DOUBLE PRECISION, INTENT(IN)    :: XMVE, DENS, GRAV, DM, XWC, PI
      TYPE(bief_obj),   INTENT(INOUT) :: ALPHAW          ! WORK ARRAY T1
      TYPE(bief_obj),   INTENT(INOUT) :: T2, T3          !
      TYPE(bief_obj),   INTENT(INOUT) ::  UCW, UCN ! WORK ARRAY T4, T5, T6
      TYPE(bief_obj),   INTENT(INOUT) :: UW1, UW2, TW1   ! WORK ARRAY T7, T8, T9
      TYPE(bief_obj),   INTENT(INOUT) :: TW2, THETAC     ! WORK ARRAY T10, T11
      TYPE(bief_obj),   INTENT(INOUT) :: FCW, QSC        ! WORK ARRAY T12
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_dibwat
      !================================================================!
!
!
      !================================================================!
      SUBROUTINE bedload_diffin
!     *************************
!
     &(u, v, nbor, xnebor, ynebor, maskel, nelbor, nptfr,
     & kent, ksort, klog, kdir, kddl, kneu, msk, clt, litbor,
     & masktr, limtra,iklbor,neleb,nelebx)
      USE bief_def
      USE declarations_special
      IMPLICIT NONE
      TYPE(bief_obj), INTENT(IN)    :: U,V,NBOR,XNEBOR,YNEBOR
      TYPE(bief_obj), INTENT(IN)    :: MASKEL,NELBOR
      INTEGER,        INTENT(IN)    :: NPTFR,KENT,KSORT,KLOG
      INTEGER,        INTENT(IN)    :: KDIR,KDDL,KNEU,NELEB,NELEBX
      INTEGER,        INTENT(IN)    :: IKLBOR(nelebx,2)
      LOGICAL,        INTENT(IN)    :: MSK
      TYPE(bief_obj), INTENT(INOUT) :: CLT
      TYPE(bief_obj), INTENT(INOUT) :: LITBOR, MASKTR, LIMTRA
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_diffin
      !================================================================!
!
!
      !================================================================!
      SUBROUTINE bedload_direction
      !----------------------------------------------------------------!
     &  (qu, qv, npoin, pi, thetac)
      !----------------------------------------------------------------!
      USE bief
      USE declarations_special
      IMPLICIT NONE
      TYPE(bief_obj),   INTENT(IN)  :: QU, QV
      INTEGER,          INTENT(IN)  :: NPOIN
      DOUBLE PRECISION, INTENT(IN)  :: PI
      TYPE(bief_obj),   INTENT(INOUT) :: THETAC
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_direction
      !================================================================!
!
!
!
      !================================================================!
        SUBROUTINE bedload_effpnt !
      !----------------------------------------------------------------!
!
     &(maskel,liqbor,s,zf,npoin,nptfr,ielmt,
     & kent,beta,pi,msk,mesh,dzfdx,dzfdy,epsix,epsiy,
     & coef,calfa,salfa,slopeff,phised,devia,beta2,
     & tob,xmvs,xmve,dm,grav,unsv2d)
!
      USE bief_def
      USE declarations_special
      IMPLICIT NONE
!
      TYPE(bief_obj),   INTENT(IN)    :: MASKEL,LIQBOR,S,UNSV2D
      TYPE(bief_obj),   INTENT(IN)    :: ZF,TOB
      INTEGER,          INTENT(IN)    :: NPOIN,NPTFR,IELMT,KENT
      INTEGER,          INTENT(IN)    :: SLOPEFF,DEVIA
      DOUBLE PRECISION, INTENT(IN)    :: BETA,PI,PHISED,BETA2
      DOUBLE PRECISION, INTENT(IN)    :: XMVS,XMVE,GRAV,DM
      LOGICAL,          INTENT(IN)    :: MSK
      TYPE(bief_mesh),  INTENT(INOUT) :: MESH
      TYPE(bief_obj),   INTENT(INOUT) :: DZFDX,DZFDY
      TYPE(bief_obj),   INTENT(INOUT) :: EPSIX,EPSIY
      TYPE(bief_obj),   INTENT(INOUT) :: COEF,CALFA,SALFA
!
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_effpnt
      !================================================================!
!
!
      !================================================================!
      SUBROUTINE bedload_einst
      !----------------------------------------------------------------!
     &  (tetap, npoin, dens, grav, dm, dstar, qsc)
      !----------------------------------------------------------------!
      USE bief
      USE declarations_special
      IMPLICIT NONE
      TYPE(bief_obj),   INTENT(IN)    :: TETAP
      INTEGER,          INTENT(IN)    :: NPOIN
      DOUBLE PRECISION, INTENT(IN)    :: DENS, GRAV, DM, DSTAR
      TYPE(bief_obj),   INTENT(INOUT)   :: QSC
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_einst
      !================================================================!
!
!
      !================================================================!
      SUBROUTINE bedload_engel
      !----------------------------------------------------------------!
     &        (tob, cf, dens, grav, dm, xmve, qsc)
      !----------------------------------------------------------------!
      USE bief
      USE declarations_special
      IMPLICIT NONE
      TYPE(bief_obj),   INTENT(IN)    :: TOB, CF
      DOUBLE PRECISION, INTENT(IN)    :: DENS, GRAV, DM, XMVE
      TYPE(bief_obj),   INTENT(INOUT) :: QSC
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_engel
      !================================================================!
!
!
      !================================================================!
      SUBROUTINE bedload_engel_cc
      !----------------------------------------------------------------!
     &   (tetap,cf,npoin,grav,dm,dens,teta,qsc)
      !----------------------------------------------------------------!
      USE bief_def
      USE declarations_special
      IMPLICIT NONE
!
      TYPE(bief_obj),   INTENT(IN)    :: TETAP, CF
      INTEGER,          INTENT(IN)    :: NPOIN
      DOUBLE PRECISION, INTENT(IN)    :: GRAV, DM, DENS
      TYPE(bief_obj),   INTENT(INOUT) :: TETA ! WORK ARRAY T1, T2
      TYPE(bief_obj),   INTENT(INOUT) :: QSC
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_engel_cc
      !================================================================!
!
!
      !================================================================!
        SUBROUTINE bedload_evol
      !----------------------------------------------------------------!
!
     &(s,elay,ava,coefpn,calfa,salfa,limtec,ebor,
     & maskel,mask,v2dpar,unsv2d,debug,npoin,nptfr,
     & ielmt,kent,kdir,kddl,
     & dts,
     & vf,entet,msk,mesh,
     & qs,t1,t2,t3,t4,t8,
     & t11,t12,t13,csf_sable,breach,qsx,qsy,zfcl,slopeff,icla,
     & flbcla,liqbor,qbor,maxadv)
      USE bief_def
      USE declarations_special
      IMPLICIT NONE
      TYPE(bief_obj),   INTENT(IN)    :: S,UNSV2D,ELAY
      TYPE(bief_obj),   INTENT(IN)    :: COEFPN,CALFA,SALFA
      TYPE(bief_obj),   INTENT(IN)    :: MASKEL,MASK,V2DPAR
      INTEGER,          INTENT(IN)    :: DEBUG,SLOPEFF,NPOIN,NPTFR,ICLA
      INTEGER,          INTENT(IN)    :: IELMT,KENT,KDIR,KDDL
      INTEGER,          INTENT(IN)    :: MAXADV
      DOUBLE PRECISION, INTENT(IN)    :: DTS
      DOUBLE PRECISION, INTENT(IN)    :: AVA(npoin)
      LOGICAL,          INTENT(IN)    :: VF,ENTET,MSK
      TYPE(bief_mesh),  INTENT(INOUT) :: MESH
      TYPE(bief_obj),   INTENT(INOUT) :: QS,EBOR,FLBCLA
      TYPE(bief_obj),   INTENT(INOUT) :: T1, T2, T3, T4
      TYPE(bief_obj),   INTENT(INOUT) :: T8,T11, T12, T13
      DOUBLE PRECISION, INTENT(IN)    :: CSF_SABLE
      TYPE(bief_obj),   INTENT(INOUT) :: BREACH, QSX, QSY, ZFCL,LIMTEC
      TYPE(bief_obj),   INTENT(IN)    :: LIQBOR,QBOR
!
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_evol
      !================================================================!
!
!
      !============================!
        SUBROUTINE bedload_formula !
      !----------------------------------------------------------------!
!
     &  (u2d, v2d,ucmoy, hn, cf, mu,tob, tobw, uw, tw, thetaw, fw,
     &   acladm, unladm,ksp,ksr, ava,  npoin, icf, hidfac, xmvs, xmve,
     &   dm, grav, vce,  hmin, xwc, d90, karman, zero,
     &   pi, susp, ac, hiding, t1, t2, t3, t4, t5, t6, t7, t8, t9, t10,
     &   t11,cfp, qsc, qss,ielmt,seccurrent,slopeff,
     &   coefpn, calfa, salfa,bijk,houle, sanfra)
!
      USE bief_def
      USE declarations_special
      IMPLICIT NONE
      TYPE(bief_obj),   INTENT(IN)    :: U2D, V2D, UCMOY,HN, CF, TOB
      TYPE(bief_obj),   INTENT(IN)    :: MU,TOBW, UW, TW, THETAW, FW
      TYPE(bief_obj),   INTENT(IN)    :: ACLADM, UNLADM, KSP,KSR
      INTEGER,          INTENT(IN)    :: NPOIN, ICF, HIDFAC,IELMT
      DOUBLE PRECISION, INTENT(IN)    :: XMVS, XMVE, DM, GRAV, VCE
      DOUBLE PRECISION, INTENT(IN)    :: HMIN, XWC, D90
      DOUBLE PRECISION, INTENT(IN)    :: KARMAN, ZERO, PI
      LOGICAL,          INTENT(IN)    :: SUSP,SECCURRENT,HOULE
      DOUBLE PRECISION, INTENT(INOUT) :: AC
      TYPE(bief_obj),   INTENT(INOUT) :: HIDING
      TYPE(bief_obj),   INTENT(INOUT) :: T1, T2, T3, T4, T5, T6, T7
      TYPE(bief_obj),   INTENT(INOUT) :: T8, T9, T10,T11
      TYPE(bief_obj),   INTENT(INOUT) :: CFP ! WORK ARRAY T12
      TYPE(bief_obj),   INTENT(INOUT) :: QSC, QSS
      TYPE(bief_obj),   INTENT(INOUT) ::  COEFPN,CALFA,SALFA
      INTEGER,          INTENT(IN)    :: SLOPEFF
      DOUBLE PRECISION, INTENT(IN)    :: BIJK,AVA(npoin)
      DOUBLE PRECISION, INTENT(IN)    :: SANFRA(npoin)
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_formula
      !================================================================!
!
!
      !================================================================!
      SUBROUTINE bedload_hiding_factor
      !----------------------------------------------------------------!
     &  (acladm, hidfac, npoin, hidi, dm, karim_holly_yang, hiding)
      !----------------------------------------------------------------!
      USE bief
      USE declarations_special
      IMPLICIT NONE
      TYPE(bief_obj),   INTENT(IN)  :: ACLADM
      INTEGER,          INTENT(IN)  :: HIDFAC, NPOIN
      DOUBLE PRECISION, INTENT(IN)  :: HIDI, DM, KARIM_HOLLY_YANG
      TYPE(bief_obj),   INTENT(INOUT) :: HIDING
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_hiding_factor
      !================================================================!
!
!
      !================================================================!
      SUBROUTINE bedload_hunz_meyer
      !----------------------------------------------------------------!
     &  (tob,mu, acladm, unladm, npoin, dens, xmve, grav, dm, ac,
     &    tetap, ahunzi, acp, hiding, qsc)
      !----------------------------------------------------------------!
      USE bief
      USE declarations_special
      IMPLICIT NONE
      TYPE(bief_obj),   INTENT(IN)    :: TOB, MU, ACLADM, UNLADM
      INTEGER,          INTENT(IN)    :: NPOIN
      DOUBLE PRECISION, INTENT(IN)    :: DENS, XMVE, GRAV, DM, AC
      TYPE(bief_obj),   INTENT(INOUT) :: TETAP, AHUNZI ! WORK ARRAY T1, T2
      TYPE(bief_obj),   INTENT(INOUT) :: ACP           ! WORK ARRAY T3
      TYPE(bief_obj),   INTENT(INOUT)   :: HIDING, QSC
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_hunz_meyer
      !================================================================!
!
!
      !================================================================!
      SUBROUTINE bedload_interact
      !----------------------------------------------------------------!
     &  (ucmoy, tobw, tob, alphaw, fw, cf, uw, npoin, xmve, fcw)
      !----------------------------------------------------------------!
      USE bief
      USE declarations_special
      IMPLICIT NONE
      TYPE(bief_obj),   INTENT(IN)  :: UCMOY, TOBW, TOB, ALPHAW
      TYPE(bief_obj),   INTENT(IN)  :: FW, CF, UW
      INTEGER,          INTENT(IN)  :: NPOIN
      DOUBLE PRECISION, INTENT(IN)  :: XMVE
      TYPE(bief_obj),   INTENT(INOUT) :: FCW
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_interact
      !================================================================!
!
!
      !================================================================!
        SUBROUTINE bedload_main !
      !----------------------------------------------------------------!
!
     &(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, fd90, fdm,
     & grav, hidi, hmin, vce, csf_sable, xmve, xmvs, xwc,
     & pi, karman, zero, karim_holly_yang,msk, susp, vf,
     & mesh,
     & elay, liebor, limtec, masktr,
     & it1, t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11,
     & t12,t13,unorm,ac, dts,
     & avail, breach, calfa_cl, coefpn,
     & hiding, qscl_c, qscl_s, qs_c,
     & qsclxc, qsxc, qsclyc, qsyc, salfa_cl, zf_c, zfcl_c,
     & entets, seccurrent, slopeff,
     & phised, devia, beta2, bijk,sedco,houle,
     & u3d,v3d,code,flbcla,maxadv)
!
      USE bief_def
      USE declarations_sisyphe, ONLY : nomblay
      USE declarations_special
      IMPLICIT NONE
!
      TYPE(bief_obj),   INTENT(IN)    :: ACLADM, KSR,V2DPAR,UNSV2D
      TYPE(bief_obj),   INTENT(IN)    :: CF,FW,KSP,HN,LIQBOR
      TYPE(bief_obj),   INTENT(IN)    :: MASK, MASKEL, MASKPT
      TYPE(bief_obj),   INTENT(IN)    :: QBOR
      TYPE(bief_obj),   INTENT(INOUT) :: U2D,V2D,TOB,MU,UNORM,EBOR
      TYPE(bief_obj),   INTENT(IN)    :: S,UNLADM
      TYPE(bief_obj),   INTENT(IN)    :: UW, THETAW,  TOBW, TW
      TYPE(bief_obj),   INTENT(IN)    :: ZF
      INTEGER,          INTENT(IN)    :: DEBUG, HIDFAC, ICF,MAXADV
      INTEGER,          INTENT(IN)    :: IELMT, KDDL, KDIR, KENT
      INTEGER,          INTENT(IN)    :: KLOG, KNEU, KSORT
      INTEGER,          INTENT(IN)    :: NPOIN, NPTFR
      INTEGER,          INTENT(IN)    :: NSICLA, OPTBAN
      DOUBLE PRECISION, INTENT(IN)    :: BETA, FD90(nsicla)
      DOUBLE PRECISION, INTENT(IN)    :: FDM(nsicla),GRAV
      DOUBLE PRECISION, INTENT(IN)    :: HIDI(nsicla),HMIN,VCE
      DOUBLE PRECISION, INTENT(IN)    :: CSF_SABLE,XMVE,XMVS,XWC(nsicla)
      DOUBLE PRECISION, INTENT(IN)    :: PI,KARMAN,ZERO
      DOUBLE PRECISION, INTENT(IN)    :: KARIM_HOLLY_YANG
      LOGICAL,          INTENT(IN)    :: MSK, SUSP, VF
      LOGICAL,          INTENT(IN)    :: SECCURRENT
      LOGICAL,          INTENT(IN)    :: SEDCO(nsicla),HOULE
      TYPE(bief_mesh),  INTENT(INOUT) :: MESH
      TYPE(bief_obj),   INTENT(INOUT) :: ELAY,FLBCLA
      TYPE(bief_obj),   INTENT(INOUT) :: LIEBOR, LIMTEC, MASKTR
      TYPE(bief_obj),   INTENT(INOUT) :: IT1,T1,T2,T3,T4,T5,T6,T7
      TYPE(bief_obj),   INTENT(INOUT) :: T8,T9,T10,T11,T12,T13
      DOUBLE PRECISION, INTENT(INOUT) :: AC(nsicla), DTS
      DOUBLE PRECISION, INTENT(INOUT) :: AVAIL(npoin,nomblay,nsicla)
      TYPE(bief_obj),   INTENT(INOUT) :: BREACH, CALFA_CL, COEFPN
      TYPE(bief_obj),   INTENT(INOUT) :: HIDING
      TYPE(bief_obj),   INTENT(INOUT) :: QSCL_C,QSCL_S
      TYPE(bief_obj),   INTENT(INOUT) :: QS_C, QSCLXC, QSXC, QSCLYC
      TYPE(bief_obj),   INTENT(INOUT) :: QSYC, SALFA_CL, ZF_C, ZFCL_C
      LOGICAL,          INTENT(INOUT) :: ENTETS
      DOUBLE PRECISION,   INTENT(IN)  :: BETA2, PHISED
      INTEGER, INTENT (IN)            :: SLOPEFF, DEVIA
      DOUBLE PRECISION, INTENT(IN)    :: BIJK
      TYPE(bief_obj),    INTENT(IN)    :: U3D,V3D
      CHARACTER(LEN=24), INTENT(IN)    :: CODE
!
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_main
      !================================================================!
!
!
      !================================================================!
        SUBROUTINE bedload_meyer !
      !----------------------------------------------------------------!
     &  (tetap, hiding, hidfac, dens, grav, dm, ac,
     &   acp, qsc, slopeff, coefpn)
!
      USE bief_def
      USE declarations_special
      IMPLICIT NONE
!
      ! 2/ GLOBAL VARIABLES
      ! -------------------
      ! -------------------
      TYPE(bief_obj),   INTENT(IN)    :: TETAP, HIDING
      INTEGER,          INTENT(IN)    :: HIDFAC, SLOPEFF
      DOUBLE PRECISION, INTENT(IN)    :: DENS, GRAV, DM, AC
      TYPE(bief_obj),   INTENT(INOUT) :: ACP ! WORK ARRAY T1
      TYPE(bief_obj),   INTENT(INOUT)   :: QSC, COEFPN
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_meyer
      !================================================================!
!
!
      !================================================================!
      SUBROUTINE bedload_neq_bed_load !
      !----------------------------------------------------------------!
!
     &  (hn, q, s, calfa, salfa, mask,loadmeth, npoin, ielmt,
     &   ls0, dm, xmve, xmvs, grav, vce, d90, mesh, qslo, t1, t2, t3,
     &   t4, t5, t6, t7, t8, t9, t10,msk,maskel)
!
      USE bief_def
      USE declarations_special
      IMPLICIT NONE
      type(bief_obj),   INTENT(IN)    :: hn, q, s, calfa, salfa, mask
      type(bief_obj),   INTENT(IN)    :: maskel
      INTEGER,           INTENT(IN)    :: LOADMETH, NPOIN, IELMT
      DOUBLE PRECISION,  INTENT(IN)    :: LS0
      DOUBLE PRECISION,  INTENT(IN)    :: DM, XMVE, XMVS, GRAV, VCE, D90
      type(bief_mesh),  INTENT(INOUT) :: mesh
      type(bief_obj),   INTENT(INOUT) :: qslo
      type(bief_obj),   INTENT(INOUT) :: t1,t2,t3,t4,t5
      type(bief_obj),   INTENT(INOUT) :: t6,t7,t8,t9,t10
      LOGICAL, INTENT(IN)              :: MSK
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_neq_bed_load
      !================================================================!
!
!
      !================================================================!
      SUBROUTINE bedload_nerbed_vf !
     &(mesh,liebor,ksort,elay,v2dpar,qsx,qsy,ava,npoin,nseg,nptfr,
     & dt,qs,t1,t2,t3,breach,csf_sable,nubo,vnoin)
      USE bief_def
      USE declarations_special
      IMPLICIT NONE
      TYPE(bief_mesh),  INTENT(INOUT) :: MESH
      TYPE(bief_obj),   INTENT(IN)    :: LIEBOR
      TYPE(bief_obj),   INTENT(IN)    :: QSX, QSY
      INTEGER,          INTENT(IN)    :: NPOIN, NSEG, NPTFR,KSORT
      DOUBLE PRECISION, INTENT(IN)    :: DT
      TYPE(bief_obj),   INTENT(INOUT) :: QS, T1, T2, T3
      TYPE(bief_obj),   INTENT(INOUT) :: BREACH
      DOUBLE PRECISION, INTENT(IN)    :: ELAY(npoin),V2DPAR(npoin)
      DOUBLE PRECISION, INTENT(IN)    :: AVA(npoin), CSF_SABLE
      INTEGER, INTENT(IN)             :: NUBO(2,nseg)
      DOUBLE PRECISION, INTENT(IN)    :: VNOIN(3,nseg)
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_nerbed_vf
      !================================================================!
!
!
      !================================================================!
        SUBROUTINE bedload_solidischarge !
      !----------------------------------------------------------------!
!
     &  (mesh, u2d, v2d, unorm, hn,  tw, uw, mu,tob, cf, tobw, fw,
     &   thetaw, ava,  maskpt, maskel, acladm, unladm,ksp, ksr,liqbor,
     &   debug, npoin, nptfr, ielmt, icf, kent, optban,
     &   hidfac, grav, dm, d90, xwc, xmve, xmvs, vce, hmin,
     &   hidi,karman, zero, pi, karim_holly_yang,
     &   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_c, s,
     &   devia, beta2, seccurrent,bijk,houle,unsv2d,
     &   u3d,v3d,code,sanfra)
      USE bief_def
      USE declarations_special
      IMPLICIT NONE
!
      TYPE(bief_mesh),  INTENT(INOUT) :: MESH
      TYPE(bief_obj),   INTENT(IN)    :: U2D, V2D,  HN, TW, UW
      TYPE(bief_obj),   INTENT(IN)    :: UNORM,MU,TOB
      TYPE(bief_obj),   INTENT(IN)    :: KSP, CF, TOBW, FW, THETAW
      TYPE(bief_obj),   INTENT(IN)    :: MASKPT, MASKEL
      TYPE(bief_obj),   INTENT(IN)    :: ACLADM, UNLADM,KSR,LIQBOR
      INTEGER,          INTENT(IN)    :: DEBUG
      INTEGER,          INTENT(IN)    :: NPOIN, NPTFR, IELMT, ICF
      INTEGER,          INTENT(IN)    :: KENT, OPTBAN,HIDFAC
      DOUBLE PRECISION, INTENT(IN)    :: GRAV, DM, D90, XWC, XMVE, XMVS
      DOUBLE PRECISION, INTENT(IN)    ::  VCE, HMIN,HIDI
      DOUBLE PRECISION, INTENT(IN)    :: KARMAN, ZERO, PI
      DOUBLE PRECISION, INTENT(IN)    :: KARIM_HOLLY_YANG
      LOGICAL,          INTENT(IN)    :: SUSP, MSK,SECCURRENT,HOULE
      TYPE(bief_obj),   INTENT(INOUT) :: T1,T2,T3,T4,T5,T6
      TYPE(bief_obj),   INTENT(INOUT) :: T7,T8,T9,T10,T11,T12
      DOUBLE PRECISION, INTENT(INOUT) :: AC
      TYPE(bief_obj),   INTENT(INOUT) :: HIDING,QSC,QSS
      INTEGER,          INTENT(IN)    :: SLOPEFF,DEVIA
      DOUBLE PRECISION, INTENT(IN)    :: PHISED,BETA,BETA2
      TYPE(bief_obj),   INTENT(IN)    :: ZF_C,S,UNSV2D
      TYPE(bief_obj),   INTENT(INOUT) :: CALFA,SALFA,COEFPN
      DOUBLE PRECISION, INTENT(IN)    :: BIJK,AVA(npoin)
!
      TYPE(bief_obj),    INTENT(IN)    :: U3D,V3D
      CHARACTER(LEN=24), INTENT(IN)    :: CODE
      DOUBLE PRECISION, INTENT(IN)    :: SANFRA(npoin)
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_solidischarge
      !================================================================!
!
!
      !================================================================!
      SUBROUTINE bedload_soulsby !
      !----------------------------------------------------------------!
     &(ucmoy,hn,uw,npoin,dens,grav,dm,dstar,d90,qsc,qss)
      USE bief_def
      USE declarations_special
      IMPLICIT NONE
      TYPE(bief_obj),   INTENT(IN)  :: HN, UCMOY, UW
      INTEGER,          INTENT(IN)  :: NPOIN
      DOUBLE PRECISION, INTENT(IN)  :: DENS, GRAV, DM, DSTAR, D90
      TYPE(bief_obj),   INTENT(INOUT) :: QSC, QSS
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_soulsby
      !================================================================!
!
!
      !================================================================!
      SUBROUTINE bedload_solvs_fe
      !----------------------------------------------------------------!
     &(mesh,s,ebor,maskel,mask,
     & qsx,qsy,ielmt,npoin,nptfr,kent,kdir,kddl,limtec,dt,
     & msk,entet,t1,t2,t3,t4,t8,
     & zfcl,hz,hzn,gloseg,dimglo,flodel,flulim,nseg,unsv2d,csf_sable,
     & icla,flbcla,ava,liqbor,qbor,maxadv)
      USE bief_def
      USE declarations_special
      IMPLICIT NONE
      TYPE(bief_mesh), INTENT(INOUT)  :: MESH
      TYPE(bief_obj),   INTENT(IN)    :: S,MASKEL,MASK,QSX,QSY
      INTEGER,          INTENT(IN)    :: IELMT,NPOIN,NPTFR,KENT,KDIR
      INTEGER,          INTENT(IN)    :: DIMGLO,NSEG,ICLA,KDDL,MAXADV
      INTEGER,          INTENT(IN)    :: GLOSEG(dimglo,2)
      DOUBLE PRECISION, INTENT(IN)    :: DT,CSF_SABLE,AVA(npoin)
      DOUBLE PRECISION, INTENT(INOUT) :: FLULIM(nseg)
      LOGICAL,          INTENT(IN)    :: MSK,ENTET
      TYPE(bief_obj),   INTENT(INOUT) :: FLODEL,T1,T2,T3,T4,T8
      TYPE(bief_obj),   INTENT(INOUT) :: HZ,EBOR,LIMTEC
      TYPE(bief_obj),   INTENT(INOUT) :: ZFCL,FLBCLA
      TYPE(bief_obj),   INTENT(IN)    :: HZN,UNSV2D,LIQBOR,QBOR
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_solvs_fe
      !================================================================!
!
!
      !================================================================!
      SUBROUTINE bedload_solvs_vf
     &(mesh,qsx,qsy,limtec,unsv2d,ebor,breach,nseg,nptfr,npoin,
     & kent,kdir,kddl,dt,zfcl,flux,csf_sable,flbcla,ava,liqbor,qbor,
     & nubo,vnoin)
      USE bief_def
      USE declarations_special
      IMPLICIT NONE
      TYPE(bief_mesh),  INTENT(INOUT) :: MESH
      TYPE(bief_obj),   INTENT(IN)    :: QSX,QSY,LIMTEC,UNSV2D,EBOR
      TYPE(bief_obj),   INTENT(IN)    :: BREACH,LIQBOR,QBOR
      INTEGER,          INTENT(IN)    :: NSEG,NPTFR,NPOIN,KENT,KDIR,KDDL
      DOUBLE PRECISION, INTENT(IN)    :: DT,CSF_SABLE
      DOUBLE PRECISION, INTENT(IN)    :: AVA(npoin)
      TYPE(bief_obj),   INTENT(INOUT) :: FLBCLA,ZFCL,FLUX
      INTEGER, INTENT(IN)             :: NUBO(2,nseg)
      DOUBLE PRECISION, INTENT(IN)    :: VNOIN(3,nseg)
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_solvs_vf
      !================================================================!
!
!
      !================================================================!
      SUBROUTINE bedload_vanrijn
     &  (tob, npoin, dm, dens, grav, dstar, ac, qsc)
!
      USE bief_def
      USE declarations_special
      IMPLICIT NONE
      TYPE(bief_obj),   INTENT(IN)  :: TOB
      INTEGER,          INTENT(IN)  :: NPOIN
      DOUBLE PRECISION, INTENT(IN)  :: DM, DENS, GRAV, DSTAR, AC
      TYPE(bief_obj),   INTENT(INOUT) :: QSC
!
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_vanrijn
      !================================================================!
!
!
      !================================================================!
        SUBROUTINE bedload_wilcock_crowe !
      !----------------------------------------------------------------!
     &(tob, mu, acladm, dm, ava, grav, xmve, xmvs, sanfra, qsc, ac, acp,
     & slopeff, coefpn)
!
      USE bief_def
      USE declarations_special
      IMPLICIT NONE
      INTEGER,          INTENT(IN)    :: SLOPEFF
      TYPE(bief_obj),   INTENT(INOUT) :: QSC, COEFPN
      DOUBLE PRECISION, INTENT(IN)    :: XMVE, XMVS, GRAV, DM, AC,
     &                                   ava(qsc%DIM1)
      DOUBLE PRECISION, INTENT(IN)    :: SANFRA(qsc%dim1)
      TYPE(bief_obj),   INTENT(INOUT) :: ACP ! WORK ARRAY T1
      TYPE(bief_obj),   INTENT(IN)    :: ACLADM
      TYPE(bief_obj),   INTENT(IN)    :: TOB, MU
      !----------------------------------------------------------------!
      END SUBROUTINE bedload_wilcock_crowe
      !================================================================!
! ENDFC
!======================================================================!
!======================================================================!
!
      END INTERFACE
      END MODULE interface_sisyphe_bedload