interface_sisyphe.f

Go to the documentation of this file.

!
        MODULE interface_sisyphe
!
!
!***********************************************************************
! SISYPHE
!***********************************************************************
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
      USE interface_sisyphe_bedload
      USE interface_sisyphe_suspension
!
      INTERFACE
        SUBROUTINE affect_mat(IELMU)
          USE bief_def
          IMPLICIT NONE
          INTEGER, INTENT(IN) :: IELMU
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE sis_arret
     &(esm,emax,hn,varsor,npoin,mn,nres,fmtres,maxvar,at0,rc,
     & texte,sorleo,sorimp,t1,t2)
        USE bief_def
        IMPLICIT NONE
      TYPE(bief_obj),    INTENT(IN)    :: ESM, EMAX, HN, VARSOR
      INTEGER,           INTENT(IN)    :: NPOIN, MN, NRES, MAXVAR
      DOUBLE PRECISION,  INTENT(IN)    :: AT0, RC
      CHARACTER(LEN=32), INTENT(IN)    :: TEXTE(maxvar)
      CHARACTER(LEN=8),  INTENT(IN)    :: FMTRES
      LOGICAL,           INTENT(IN)    :: SORLEO(*), SORIMP(*)
      TYPE(bief_obj),    INTENT(INOUT) :: T1, T2
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE bilan_sisyphe
     &(e,esomt,t1,vcumu,dt,nptfr,
     & info,zfcl_c,zfcl_s,zfcl_ms,
     & nsicla,voltot,
     & numliq,nfrliq,flbcla,lt,nit,npoin,volu2d,csf_sable,masdep,
     & masdept,charr,susp,slide)
      USE bief_def
      IMPLICIT NONE
      INTEGER, INTENT(IN)          :: NPTFR,NFRLIQ,NSICLA,LT,NIT
      INTEGER, INTENT(IN)          :: NPOIN,NUMLIQ(nptfr)
      DOUBLE PRECISION, INTENT(IN) :: DT
      LOGICAL, INTENT(IN)          :: INFO,SUSP,SLIDE,CHARR
      DOUBLE PRECISION, INTENT(INOUT) :: VCUMU
      DOUBLE PRECISION, INTENT(IN)    :: CSF_SABLE,VOLTOT(nsicla)
      DOUBLE PRECISION, INTENT(IN)    :: MASDEP(nsicla)
      DOUBLE PRECISION, INTENT(INOUT) :: MASDEPT(nsicla)
      TYPE(bief_obj), INTENT(IN)    :: ZFCL_C
      TYPE(bief_obj), INTENT(IN)    :: E,ESOMT,VOLU2D,ZFCL_S
      TYPE(bief_obj), INTENT(IN)    :: ZFCL_MS
      TYPE(bief_obj), INTENT(INOUT) :: T1,FLBCLA
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE calcuw( UW, H, HW, TW, GRAV ,NPOIN)
        IMPLICIT NONE
        INTEGER, INTENT(IN) :: NPOIN
        DOUBLE PRECISION, INTENT(INOUT) :: UW(npoin)
        DOUBLE PRECISION, INTENT(IN) :: H(npoin)
        DOUBLE PRECISION, INTENT(IN) :: TW(npoin),HW(npoin)
        DOUBLE PRECISION, INTENT(IN) :: GRAV
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE coefro_sisyphe
     &  (cf,h,kfrot,chestr,grav,npoin,hmin,karman)
        USE bief_def
        IMPLICIT NONE
        INTEGER, INTENT(IN):: NPOIN,KFROT
        DOUBLE PRECISION,INTENT(IN):: GRAV,KARMAN,HMIN
        TYPE(bief_obj), INTENT(INOUT) :: CF
        TYPE(bief_obj),INTENT(IN) :: CHESTR,H
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE condim_sisyphe
     & (u      , v   , qu    , qv  , h   , zf , z ,
     &  esomt   , thetaw ,  q     , hw  , tw  ,
     &  x      , y   , npoin , at  , pmaree)
        IMPLICIT NONE
        INTEGER, INTENT(IN) :: NPOIN
        DOUBLE PRECISION, INTENT(IN) :: X(npoin) , Y(npoin)
        DOUBLE PRECISION, INTENT(IN) :: AT , PMAREE
        DOUBLE PRECISION, INTENT(INOUT) ::  ZF(npoin)
        DOUBLE PRECISION, INTENT (INOUT)::  ESOMT(npoin)
        DOUBLE PRECISION, INTENT(INOUT) ::  Z(npoin) , H(npoin)
        DOUBLE PRECISION, INTENT(INOUT) ::  U(npoin) , V(npoin)
        DOUBLE PRECISION, INTENT (INOUT)::  QU(npoin), QV(npoin)
        DOUBLE PRECISION, INTENT (INOUT):: Q(npoin)
        DOUBLE PRECISION, INTENT (INOUT)::  HW(npoin) , TW(npoin)
        DOUBLE PRECISION, INTENT (INOUT):: THETAW (npoin)
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE condim_susp(CS,CS0,NSICLA)
        USE bief_def
        IMPLICIT NONE
        INTEGER, INTENT(IN)           :: NSICLA
        DOUBLE PRECISION,INTENT(IN)   :: CS0(nsicla)
        TYPE(bief_obj), INTENT(INOUT) :: CS
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE condis_sisyphe (CONSTFLOW)
        USE bief_def
        IMPLICIT NONE
        LOGICAL, INTENT(INOUT) :: CONSTFLOW
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE conlit(NBOR,AT)
        USE bief_def
        IMPLICIT NONE
        INTEGER, INTENT(IN):: NBOR(*)
        DOUBLE PRECISION, INTENT(IN):: AT
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        DOUBLE PRECISION FUNCTION cgl( I , AT)
          IMPLICIT NONE
          INTEGER, INTENT(IN) :: I
          DOUBLE PRECISION, INTENT(IN):: AT
        END FUNCTION
      END INTERFACE
!
      INTERFACE
        SUBROUTINE user_cgl( CGL, I , AT)
          IMPLICIT NONE
          DOUBLE PRECISION, INTENT(INOUT) :: CGL
          INTEGER, INTENT(IN) :: I
          DOUBLE PRECISION, INTENT(IN):: AT
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        DOUBLE PRECISION FUNCTION qgl( I , AT)
          IMPLICIT NONE
          INTEGER, INTENT(IN) :: I
          DOUBLE PRECISION, INTENT(IN):: AT
        END FUNCTION
      END INTERFACE
!
      INTERFACE
        SUBROUTINE user_qgl( QGL, I , AT)
          IMPLICIT NONE
          DOUBLE PRECISION, INTENT(INOUT) :: QGL
          INTEGER, INTENT(IN) :: I
          DOUBLE PRECISION, INTENT(IN):: AT
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE corstr_sisyphe
        IMPLICIT NONE
        END SUBROUTINE
      END INTERFACE

! UHM + PAT: required to compile with Python
      INTERFACE
        DOUBLE PRECISION FUNCTION cvsp_integrate_volume
     &(j,i,z_high,z_low,a)
        USE declarations_sisyphe
        IMPLICIT NONE
        INTEGER,          INTENT(IN)   :: J
        INTEGER,          INTENT(IN)   :: I
        DOUBLE PRECISION, INTENT(IN)    :: Z_HIGH
        DOUBLE PRECISION, INTENT(IN)    :: Z_LOW
        DOUBLE PRECISION, INTENT(OUT) :: A(nsicla)
        END FUNCTION
      END INTERFACE
!

! UHM + PAT
      INTERFACE
      LOGICAL FUNCTION cvsp_check_f
     &     (j,k, sometext)
      IMPLICIT NONE
      INTEGER,          INTENT(IN)    :: J
      INTEGER,          INTENT(IN)    :: K
      CHARACTER(LEN=10),     INTENT(IN)    :: SOMETEXT
      END FUNCTION
      END INTERFACE

      INTERFACE
      LOGICAL FUNCTION cvsp_check_l
     &     (j,k, sometext)
      IMPLICIT NONE
      INTEGER,          INTENT(IN)    :: J
      INTEGER,          INTENT(IN)    :: K
      CHARACTER(LEN=10),     INTENT(IN)    :: SOMETEXT
      END FUNCTION
      END INTERFACE
!

! UHM + PAT
      INTERFACE
        DOUBLE PRECISION FUNCTION cvsp_alt(J, FORMULA)
        IMPLICIT NONE
        INTEGER,          INTENT(IN)    :: J
        INTEGER,          INTENT(IN)    :: FORMULA
        END FUNCTION
      END INTERFACE
!

! UHM + PAT
      INTERFACE
        LOGICAL FUNCTION cvsp_db(J_GLOBAL, TIMESTAMP)
        IMPLICIT NONE
        INTEGER, INTENT(IN)    :: J_GLOBAL
        INTEGER, INTENT(IN)    :: TIMESTAMP
        END FUNCTION
      END INTERFACE
!

      INTERFACE
        SUBROUTINE debug_sisyphe (NAME, ILOOP, NLOOP)
        USE bief_def
        IMPLICIT NONE
        INTEGER, PARAMETER :: SIZE =100
        CHARACTER(LEN=SIZE)  , INTENT(IN) :: NAME
        INTEGER,   INTENT(IN), OPTIONAL :: ILOOP, NLOOP
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE disimp
     &(q,q2bor,numliq,ifrliq,nsoldis,work1,qbor,nptfr,mask,mesh)
      USE bief_def
      IMPLICIT NONE
      INTEGER, INTENT(IN)             :: NPTFR,IFRLIQ,NSOLDIS
      INTEGER, INTENT(IN)             :: NUMLIQ(nptfr)
      DOUBLE PRECISION, INTENT(IN)    :: MASK(nptfr),Q
      TYPE(bief_mesh), INTENT(INOUT)  :: MESH
      TYPE(bief_obj), INTENT(INOUT)   :: WORK1,QBOR
      TYPE(bief_obj), INTENT(IN)      :: Q2BOR
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE entete_sisyphe(IETAPE,AT,LT)
        IMPLICIT NONE
        DOUBLE PRECISION, INTENT(IN) :: AT
        INTEGER, INTENT(IN):: LT,IETAPE
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
      SUBROUTINE flusec_sisyphe
     &(u,v,h,qsxc,qsyc,charr,qsxs,qsys,susp,
     & ikle,nelmax,nelem,x,y,dt,ncp,ctrlsc,info,tps)
        USE bief_def
        IMPLICIT NONE
        INTEGER, INTENT(IN)          :: NELMAX,NELEM,NCP
        INTEGER, INTENT(IN)          :: IKLE(nelmax,*)
        INTEGER, INTENT(IN)          :: CTRLSC(ncp)
        DOUBLE PRECISION, INTENT(IN) :: X(*),Y(*),TPS,DT
        LOGICAL, INTENT(IN)          :: INFO,SUSP,CHARR
        TYPE(bief_obj), INTENT(IN)   :: U,V,H,QSXC,QSYC,QSXS,QSYS
      END SUBROUTINE
      END INTERFACE
!
      INTERFACE
      SUBROUTINE fluxpr_sisyphe
     &(nsec, ctrlsc, flx, volneg, volpos, info, tps, nseg, ncsize,  !JAJ #### TPS
     & flxs,volnegs,volposs,susp,flxc,volnegc,volposc,charr)
      IMPLICIT NONE
      INTEGER, INTENT(IN)          :: NSEC,NCSIZE
      INTEGER, INTENT(IN)          :: CTRLSC(*)
      INTEGER, INTENT(IN)          :: NSEG(nsec)
      LOGICAL, INTENT(IN)          :: INFO,SUSP,CHARR
      DOUBLE PRECISION, INTENT(IN) :: FLX(nsec), TPS                !JAJ #### TPS
      DOUBLE PRECISION, INTENT(IN) :: VOLNEG(nsec),VOLPOS(nsec)
      DOUBLE PRECISION, INTENT(IN) :: FLXS(nsec),FLXC(nsec)
      DOUBLE PRECISION, INTENT(IN) :: VOLNEGS(nsec),VOLPOSS(nsec)
      DOUBLE PRECISION, INTENT(IN) :: VOLNEGC(nsec),VOLPOSC(nsec)
      END SUBROUTINE
      END INTERFACE
!
      INTERFACE
      SUBROUTINE gf_user(TBEG_GF,TEND_GF,AT0)
      IMPLICIT NONE
      DOUBLE PRECISION, INTENT(INOUT) :: TBEG_GF, TEND_GF
      DOUBLE PRECISION, INTENT(IN)    :: AT0
      END SUBROUTINE
      END INTERFACE
!
      INTERFACE
      SUBROUTINE init_avai
      USE bief_def
      IMPLICIT NONE
      END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE init_compo(NCOUCHES)
          USE bief_def
          IMPLICIT NONE
          INTEGER, INTENT(INOUT):: NCOUCHES(*)
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE init_compo_coh
     &(es,conc_vase,conc,npoin,nomblay,nsicla,avail,ava0)
        USE bief
      INTEGER, INTENT(IN)              :: NPOIN,NOMBLAY,NSICLA
      DOUBLE PRECISION, INTENT(INOUT)  :: ES(npoin,nomblay)
      DOUBLE PRECISION, INTENT(IN)     :: CONC_VASE(nomblay)
      DOUBLE PRECISION,  INTENT(INOUT) :: CONC(npoin,nomblay)
      DOUBLE PRECISION, INTENT(INOUT)  :: AVAIL(npoin,nomblay,nsicla)
      DOUBLE PRECISION, INTENT(IN)     :: AVA0(nsicla)
        END SUBROUTINE
      END INTERFACE

!
      INTERFACE
        SUBROUTINE init_constant
     &  (karim_holly_yang, karman,  pi)
        IMPLICIT NONE
        DOUBLE PRECISION, INTENT(INOUT) :: KARIM_HOLLY_YANG
        DOUBLE PRECISION, INTENT(INOUT) :: KARMAN
        DOUBLE PRECISION, INTENT(INOUT) :: PI
!
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE init_mixte
     &(xmvs,npoin,avail,nsicla,es,es_sable, es_vase,elay,nomblay,
     & conc_vase,ms_sable,ms_vase,zf,zr,ava0,conc,debu,mixte)
      USE bief_def
      IMPLICIT NONE
      INTEGER, INTENT(IN)              :: NPOIN,NSICLA,NOMBLAY
      DOUBLE PRECISION, INTENT(IN)     :: XMVS
      DOUBLE PRECISION, INTENT(INOUT)  :: AVAIL(npoin,nomblay,nsicla)
      DOUBLE PRECISION, INTENT(INOUT)  :: ES(npoin,nomblay)
      DOUBLE PRECISION, INTENT(INOUT)  :: ELAY(npoin)
      DOUBLE PRECISION, INTENT(IN)     :: ZR(npoin),ZF(npoin)
      DOUBLE PRECISION,  INTENT(INOUT) :: MS_SABLE(npoin,nomblay)
      DOUBLE PRECISION,  INTENT(INOUT) :: MS_VASE(npoin,nomblay)
!
      DOUBLE PRECISION,  INTENT(INOUT) :: ES_SABLE(npoin,nomblay)
      DOUBLE PRECISION,  INTENT(INOUT) :: ES_VASE(npoin,nomblay)
!
      DOUBLE PRECISION, INTENT(IN)     :: CONC_VASE(nomblay)
      DOUBLE PRECISION,  INTENT(INOUT) :: CONC(npoin,nomblay)
      DOUBLE PRECISION, INTENT(IN)     :: AVA0(nsicla)
      LOGICAL, INTENT (IN)             :: DEBU, MIXTE
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
      SUBROUTINE init_sediment
     &(nsicla,elay,zf,zr,npoin,avail,fracsed_gf,ava0,
     & lgrafed,calwc,xmvs,xmve,grav,vce,xwc,fdm,
     & calac,ac,sedco,es,es_sable, es_vase ,nomblay,conc_vase,
     & ms_sable,ms_vase,acladm,unladm,toce_sable,
     & conc,debu,mixte)
      USE bief
      IMPLICIT NONE
      INTEGER,           INTENT(IN)     :: NSICLA,NPOIN,NOMBLAY
      TYPE(bief_obj),    INTENT(INOUT)  :: ELAY,ZF,ZR
      TYPE(bief_obj), INTENT(INOUT)     :: MS_SABLE, MS_VASE
      TYPE(bief_obj),    INTENT(INOUT)  :: ACLADM, UNLADM
      LOGICAL,           INTENT(IN)     :: LGRAFED,CALWC
      LOGICAL,           INTENT(IN)     :: CALAC
      DOUBLE PRECISION,  INTENT(IN)     :: XMVS,XMVE,GRAV,VCE
      DOUBLE PRECISION,  INTENT(INOUT)  :: AVA0(nsicla)
      DOUBLE PRECISION,  INTENT(INOUT)  :: AVAIL(npoin,nomblay,nsicla)
      DOUBLE PRECISION,  INTENT(INOUT)  :: FRACSED_GF(nsicla)
      DOUBLE PRECISION,  INTENT(INOUT)  :: FDM(nsicla),XWC(nsicla)
      DOUBLE PRECISION,  INTENT(INOUT)  :: AC(nsicla),TOCE_SABLE
      LOGICAL,           INTENT(IN)     :: SEDCO(nsicla), DEBU
      LOGICAL,           INTENT(IN)     :: MIXTE
      DOUBLE PRECISION, INTENT(IN)    :: CONC_VASE(nomblay)
      DOUBLE PRECISION, INTENT(INOUT) :: ES(npoin,nomblay)
      DOUBLE PRECISION, INTENT(INOUT) :: ES_SABLE(npoin,nomblay)
      DOUBLE PRECISION, INTENT(INOUT) :: ES_VASE(npoin,nomblay)
      DOUBLE PRECISION, INTENT(INOUT) :: CONC(npoin,nomblay)
      END SUBROUTINE
      END INTERFACE
!
!
      INTERFACE
        SUBROUTINE init_transport
     &(trouve,debu,hiding,nsicla,npoin,
     & t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,
     & charr,qs_c,qsxc,qsyc,calfa_cl,salfa_cl,coefpn,slopeff,
     & susp,qs_s,qs,qscl,qscl_c,qscl_s,qsclxs,qsclys,
     & unorm,u2d,v2d,hn,cf,mu,tob,tobw,uw,tw,thetaw,fw,houle,
     & avail,acladm,unladm,ksp,ksr,ks,
     & icf,hidfac,xmvs,xmve,grav,vce,hmin,karman,
     & zero,pi,ac,imp_inflow_c,zref,icq,cstaeq,csratio,
     & cmax,cs,cs0,seccurrent,bijk,
     & ielmt,fdm,xwc,fd90,sedco,vitce,partheniades,vitcd,
     & u3d,v3d,code)
      USE bief
      USE declarations_sisyphe, ONLY : nomblay,mpm_aray,mpm
      IMPLICIT NONE
      INTEGER, INTENT(IN)              :: NSICLA,NPOIN,TROUVE(*),ICQ
      INTEGER, INTENT(IN)              :: ICF,HIDFAC,IELMT,SLOPEFF
      LOGICAL, INTENT(IN)              :: CHARR,DEBU,SUSP,IMP_INFLOW_C
      LOGICAL, INTENT(IN)              :: SECCURRENT,SEDCO(*)
      LOGICAL, INTENT(IN)              :: HOULE
      TYPE(bief_obj),    INTENT(IN)    :: U2D,V2D,UNORM,HN,CF
      TYPE(bief_obj),    INTENT(IN)    :: MU,TOB,TOBW,UW,TW,THETAW,FW
      TYPE(bief_obj),    INTENT(IN)    :: ACLADM,UNLADM,KSP,KSR,KS
      TYPE(bief_obj),    INTENT(INOUT) :: HIDING
      TYPE(bief_obj),    INTENT(INOUT) :: QS_C, QSXC, QSYC
      TYPE(bief_obj),    INTENT(INOUT) ::  CALFA_CL,SALFA_CL
      TYPE(bief_obj),    INTENT(INOUT) :: T1,T2,T3,T4,T5,T6,T7,T8
      TYPE(bief_obj),    INTENT(INOUT) :: T9,T10,T11,T12
      TYPE(bief_obj),    INTENT(INOUT) :: ZREF,CSTAEQ,CSRATIO
      TYPE(bief_obj),    INTENT(INOUT) :: CS
      TYPE(bief_obj),    INTENT(INOUT) :: QS_S,QS,QSCL_C,QSCL_S
      TYPE(bief_obj),    INTENT(INOUT) :: COEFPN
      TYPE(bief_obj),    INTENT(INOUT) :: QSCLXS,QSCLYS,QSCL
      DOUBLE PRECISION,  INTENT(IN)    :: XMVS,XMVE,GRAV,VCE
      DOUBLE PRECISION,  INTENT(IN)    :: HMIN,KARMAN,ZERO,PI
      DOUBLE PRECISION,  INTENT(IN)    :: PARTHENIADES,BIJK,XWC(nsicla)
      DOUBLE PRECISION,  INTENT(IN)    :: FD90(nsicla),CS0(nsicla)
      DOUBLE PRECISION,  INTENT(IN)    :: VITCE,VITCD
      DOUBLE PRECISION,  INTENT(INOUT) :: AC(nsicla),CMAX,FDM(nsicla)
      DOUBLE PRECISION,  INTENT(INOUT) :: AVAIL(npoin,nomblay,nsicla)
      TYPE(bief_obj),    INTENT(IN)    :: U3D,V3D
      CHARACTER(LEN=24), INTENT(IN)    :: CODE
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE integ ( A , B , IEIN , NPOIN)
        IMPLICIT NONE
        INTEGER, INTENT(IN):: NPOIN
        DOUBLE PRECISION, INTENT(IN)::A(npoin), B(npoin)
        DOUBLE PRECISION, INTENT(INOUT)::IEIN(npoin)
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE layer
     &(zfcl_w,nlayer,zr,zf,estrat,elay,masbas,
     & acladm,nsicla,npoin,elay0,voltot,
     & es,avail,const_alayer,estratnew,nlaynew)
      USE bief_def
      USE declarations_sisyphe, ONLY : nomblay
      IMPLICIT NONE
      type(bief_obj),  INTENT(IN)    :: zfcl_w,zr,zf,masbas,acladm
      INTEGER,          INTENT(IN)    :: NSICLA, NPOIN
      LOGICAL,          INTENT(IN)    :: CONST_ALAYER
      type(bief_obj),  INTENT(INOUT) :: nlayer,estrat,elay
      DOUBLE PRECISION, INTENT(INOUT) :: ELAY0
      DOUBLE PRECISION, INTENT(INOUT) :: ES(npoin,nomblay)
      DOUBLE PRECISION, INTENT(INOUT) :: AVAIL(npoin,nomblay,nsicla)
      DOUBLE PRECISION, INTENT(INOUT) :: VOLTOT(nsicla),ESTRATNEW(npoin)
      INTEGER         , INTENT(INOUT) :: NLAYNEW(npoin)
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE lecdon_sisyphe(MOTCAR,FILE_DESC,PATH,NCAR,CODE,
     & CAS_FILE,DICO_FILE)
          USE declarations_special
          USE declarations_special
          IMPLICIT NONE
          INTEGER, INTENT(IN)               :: NCAR
          CHARACTER(LEN=24), INTENT(IN)     :: CODE
          CHARACTER(LEN=PATH_LEN), INTENT(IN)    :: PATH
          CHARACTER(LEN=PATH_LEN), INTENT(INOUT) :: MOTCAR(maxkeyword)
          CHARACTER(LEN=PATH_LEN), INTENT(INOUT) ::
     & file_desc(4,maxkeyword)
!         API
          CHARACTER(LEN=PATH_LEN), INTENT(IN)    :: CAS_FILE
          CHARACTER(LEN=PATH_LEN), INTENT(IN)    :: DICO_FILE
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE maskab(HN , Q , QU , QV , NPOIN)
        IMPLICIT NONE
        INTEGER, INTENT(IN):: NPOIN
        DOUBLE PRECISION , INTENT(IN)::HN(npoin)
        DOUBLE PRECISION, INTENT(INOUT):: Q(npoin),QU(npoin),QV(npoin)
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE maxslope
     &(slope,zf,zr,xel,yel,nelem,nelmax,npoin,ikle,evol,unsv2d,mesh,
     & zfcl_ms,avail,nomblay,nsicla)
      USE bief_def
      IMPLICIT NONE
      INTEGER, INTENT(IN) :: NELEM,NELMAX,NPOIN,NOMBLAY,NSICLA
      INTEGER, INTENT(IN)             :: IKLE(nelmax,3)
      DOUBLE PRECISION, INTENT(IN   ) :: SLOPE
      DOUBLE PRECISION, INTENT(INOUT) :: ZF(npoin)
      DOUBLE PRECISION, INTENT(IN)    :: ZR(npoin)
      DOUBLE PRECISION, INTENT(IN)    :: XEL(nelmax,3),YEL(nelmax,3)
      DOUBLE PRECISION, INTENT(INOUT) :: AVAIL(npoin,nomblay,nsicla)
      TYPE(bief_obj), INTENT(INOUT)   :: EVOL,ZFCL_MS
      TYPE(bief_obj), INTENT(IN)      :: UNSV2D
      TYPE(bief_mesh) :: MESH
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE mean_grain_size
          USE bief
          IMPLICIT NONE
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE nomvar_sisyphe
     &(texte,textpr,mnemo,nsicla,unite,maxvar,npriv,nomblay,
     & n_names_priv,names_prive,nadvar,names_advar)
      IMPLICIT NONE
      INTEGER, INTENT(IN)              :: NSICLA,MAXVAR,NPRIV,NOMBLAY
      INTEGER, INTENT(IN)              :: N_NAMES_PRIV
      INTEGER, INTENT(IN)              :: NADVAR
      CHARACTER(LEN=8), INTENT(INOUT)  :: MNEMO(maxvar)
      CHARACTER(LEN=32), INTENT(INOUT) :: TEXTE(maxvar),TEXTPR(maxvar)
      CHARACTER(LEN=32), INTENT(IN)    :: NAMES_PRIVE(n_names_priv)
      CHARACTER(LEN=32), INTENT(IN)    :: NAMES_ADVAR(*)
      LOGICAL, INTENT(IN)              :: UNITE
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE noerod
     &  (h , zf , zr , z , x , y , npoin , choix , nliss )
        IMPLICIT NONE
        INTEGER, INTENT(IN):: NPOIN , CHOIX
        INTEGER, INTENT(INOUT):: NLISS
        DOUBLE PRECISION, INTENT(IN)::  Z(npoin) , ZF(npoin)
        DOUBLE PRECISION, INTENT(IN)::  X(npoin) , Y(npoin), H(npoin)
        DOUBLE PRECISION, INTENT(INOUT)::  ZR(npoin)
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE predes(LLT,AAT,YAGOUT,CODE)
          IMPLICIT NONE
          INTEGER, INTENT(IN) :: LLT
          DOUBLE PRECISION, INTENT(IN) :: AAT
          CHARACTER(LEN=24), INTENT(IN):: CODE
          LOGICAL,INTENT(IN)           :: YAGOUT
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE qsform
     &     (u2d, v2d, tob, hn, xmve, tetap, mu, npoin, dm,
     &       dens, grav, dstar, ac, qsc, qss)
        USE bief_def
          IMPLICIT NONE
      TYPE(bief_obj),   INTENT(IN)    :: U2D,V2D,TOB,HN,TETAP,MU
      TYPE(bief_obj),   INTENT(INOUT) :: QSC, QSS
      INTEGER,          INTENT(IN)    :: NPOIN
      DOUBLE PRECISION, INTENT(IN)    :: XMVE, DM, DENS, GRAV, DSTAR, AC
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE read_fic_conc(CGL, WHAT, AT, NFIC, FOUND )
      IMPLICIT NONE
      CHARACTER(LEN=9)     , INTENT(IN)       :: WHAT
      DOUBLE PRECISION, INTENT(IN)       :: AT
      DOUBLE PRECISION, INTENT(INOUT)    :: CGL
      INTEGER         , INTENT(IN)       :: NFIC
      LOGICAL         , INTENT(OUT)      :: FOUND
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
      SUBROUTINE rescue_sisyphe
     &(h,s,zf,zr,es,hw,tw,thetaw,npoin,nomblay,nsicla,
     & trouve,alire,pass,icf,listi,maxvar)
      IMPLICIT NONE
      INTEGER, INTENT(IN) :: MAXVAR,NOMBLAY,NSICLA
      INTEGER, INTENT(IN) :: ALIRE(maxvar),NPOIN,ICF
      LOGICAL, INTENT(IN) :: PASS,LISTI
      DOUBLE PRECISION, INTENT(IN) :: ES(npoin,nomblay)
      INTEGER, INTENT(INOUT) :: TROUVE(maxvar)
      DOUBLE PRECISION, INTENT(INOUT) :: S(npoin) , ZF(npoin), H(npoin)
      DOUBLE PRECISION, INTENT(INOUT) :: ZR(npoin)
      DOUBLE PRECISION, INTENT(INOUT) :: HW(npoin), TW(npoin)
      DOUBLE PRECISION, INTENT(INOUT) :: THETAW(npoin)
      END SUBROUTINE
      END INTERFACE
!
      INTERFACE
      SUBROUTINE rescue_sisyphe_notperma
     &(qu,qv,q,u,v,h,s,zf,hw,tw,thetaw,npoin,trouve,alire,icf,
     & entet,maxvar)
!
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: MAXVAR
      INTEGER, INTENT(IN) :: TROUVE(maxvar),ALIRE(maxvar),NPOIN,ICF
      LOGICAL, INTENT(IN) :: ENTET
!
      DOUBLE PRECISION, INTENT(INOUT) :: QU(npoin), QV(npoin), Q(npoin)
      DOUBLE PRECISION, INTENT(INOUT) :: U(npoin) , V(npoin)
      DOUBLE PRECISION, INTENT(INOUT) :: S(npoin) , ZF(npoin), H(npoin)
      DOUBLE PRECISION, INTENT(INOUT) :: HW(npoin), TW(npoin)
      DOUBLE PRECISION, INTENT(INOUT) :: THETAW(npoin)
!
      END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE ride
     & (ks,tw,uw,unorm,grav,xmve,xmvs,vce,npoin,kspratio,acladm)
        IMPLICIT NONE
        INTEGER, INTENT(IN) ::NPOIN
        DOUBLE PRECISION, INTENT(INOUT) :: KS(npoin)
        DOUBLE PRECISION, INTENT(IN) :: GRAV,XMVE,XMVS, VCE
        DOUBLE PRECISION, INTENT(IN) :: UNORM(npoin)
        DOUBLE PRECISION, INTENT(IN) :: UW(npoin), TW(npoin)
        DOUBLE PRECISION, INTENT(IN) :: KSPRATIO
        DOUBLE PRECISION, INTENT(IN) :: ACLADM(npoin)
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE ride_vr
     & (ksr,ks,unorm,hn,grav,xmve,xmvs,npoin,acladm)
      IMPLICIT NONE
      INTEGER, INTENT(IN)            :: NPOIN
      DOUBLE PRECISION, INTENT(IN)   :: GRAV,XMVE,XMVS
      DOUBLE PRECISION, INTENT(INOUT):: KSR(npoin),KS(npoin)
      DOUBLE PRECISION, INTENT(IN)   :: HN(npoin), UNORM(npoin)
      DOUBLE PRECISION, INTENT(IN)   :: ACLADM(npoin)
        END SUBROUTINE
      END INTERFACE
!
!
      INTERFACE
        SUBROUTINE sisyphe(PART,LOOPCOUNT,GRAFCOUNT,LISTCOUNT,TELNIT,
     &                     U_TEL,V_TEL,H_TEL,HN_TEL,
     &                     ZF_SIS,UETCAR,CF_TEL,KS_TEL,
     &                     CONSTFLOW,NSIS_CFD,SISYPHE_CFD,CODE,PERICOU,
     &                     U3D,V3D,T_TEL,VISC_TEL,
     &                     DT_TEL,CHARR_TEL,SUSP_TEL,FLBOR_TEL,
     &                     SOLSYS,DM1,UCONV_TEL,VCONV_TEL,ZCONV,
     &                     THETAW_TEL,HW_TEL,TW_TEL,UW_TEL,YAGOUT,
     &                     API_ITER,GRCOMP)
          USE bief_def
          IMPLICIT NONE
          INTEGER,          INTENT(IN)   :: PART,LOOPCOUNT,GRAFCOUNT
          INTEGER,          INTENT(IN)   :: LISTCOUNT,TELNIT,PERICOU
          CHARACTER(LEN=24),INTENT(IN)   :: CODE
          TYPE(bief_obj),   INTENT(IN)   :: U_TEL,V_TEL,H_TEL,HN_TEL
          TYPE(bief_obj),   INTENT(INOUT):: ZF_SIS, UETCAR
          INTEGER,          INTENT(INOUT):: NSIS_CFD
          LOGICAL,          INTENT(INOUT):: CONSTFLOW,SISYPHE_CFD
          TYPE(bief_obj),   INTENT(IN)   :: U3D,V3D,VISC_TEL
          TYPE(bief_obj),   INTENT(INOUT):: CF_TEL,KS_TEL
          DOUBLE PRECISION, INTENT(IN)   :: T_TEL
          LOGICAL, INTENT(INOUT)         :: CHARR_TEL,SUSP_TEL
          DOUBLE PRECISION,  INTENT(IN)  :: DT_TEL
          INTEGER,           INTENT(IN)  :: SOLSYS
          TYPE(bief_obj), INTENT(IN)     :: FLBOR_TEL,DM1,ZCONV
          TYPE(bief_obj), INTENT(IN)     :: UCONV_TEL,VCONV_TEL
          TYPE(bief_obj), INTENT(IN)     :: THETAW_TEL,HW_TEL,TW_TEL
          TYPE(bief_obj), INTENT(IN)     :: UW_TEL
          LOGICAL,        INTENT(IN)     :: YAGOUT
          INTEGER, OPTIONAL, INTENT(IN)  :: API_ITER,GRCOMP
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE tassement
     &(npoin,dts,elay,dzf_tass,t2,avail,nsicla,es,xmvs,
     & xkv,trans_mass,conc_vase,nomblay,ms_sable,ms_vase)
      USE bief_def
      IMPLICIT NONE
      INTEGER, INTENT(IN) :: NPOIN,NSICLA,NOMBLAY
      type(bief_obj),  INTENT(INOUT) :: dzf_tass,elay,t2
      DOUBLE PRECISION,  INTENT(INOUT):: MS_SABLE(npoin,nomblay)
      DOUBLE PRECISION,  INTENT(INOUT):: MS_VASE(npoin,nomblay)
      DOUBLE PRECISION, INTENT(IN)    :: DTS
      DOUBLE PRECISION, INTENT(INOUT) :: AVAIL(npoin,nomblay,nsicla)
      DOUBLE PRECISION, INTENT(INOUT) :: ES(npoin,nomblay)
      DOUBLE PRECISION, INTENT(IN)    :: TRANS_MASS(nomblay)
      DOUBLE PRECISION, INTENT(IN)    :: CONC_VASE(nomblay)
      DOUBLE PRECISION, INTENT(IN)    :: XMVS, XKV
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE tassement_2
     &(npoin,dts,elay,dzf_tass,t2,lt,xmvs,xmve,nomblay,
     & es,conc_vase,ms_vase,xwc,coef_n,conc_gel,conc_max)
      USE bief_def
      USE bief
      IMPLICIT NONE
      INTEGER,INTENT(IN)              :: NPOIN
      INTEGER, INTENT(IN)             :: LT,NOMBLAY
      DOUBLE PRECISION, INTENT(IN)    :: DTS
      DOUBLE PRECISION, INTENT(IN)    :: XMVS,XMVE
      type(bief_obj),  INTENT(INOUT) :: dzf_tass,elay,t2
      DOUBLE PRECISION, INTENT(INOUT) :: MS_VASE(npoin,nomblay)
      DOUBLE PRECISION, INTENT(INOUT) :: ES(npoin,nomblay)
      DOUBLE PRECISION, INTENT(IN)    :: CONC_VASE(nomblay)
      DOUBLE PRECISION, INTENT(IN)    :: XWC
      DOUBLE PRECISION, INTENT(IN)    :: COEF_N,CONC_GEL,CONC_MAX
        END SUBROUTINE
      END INTERFACE
!
!
      INTERFACE
        SUBROUTINE tobw_sisyphe(TOBW ,CF, FW, UW,TW,HN,NPOIN,XMVE)
          IMPLICIT NONE
          INTEGER, INTENT(IN) :: NPOIN
          DOUBLE PRECISION, INTENT(IN) :: CF(npoin)
          DOUBLE PRECISION, INTENT(IN) :: UW(npoin),TW(npoin),HN(npoin)
          DOUBLE PRECISION, INTENT(IN)    :: XMVE
          DOUBLE PRECISION, INTENT(INOUT) :: TOBW(npoin),FW(npoin)
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE tob_sisyphe
     & (tob, tobw, mu, ks,ksp, ksr,cf,fw,chestr,uetcar,
     &  cf_tel,ks_tel,code,
     &  kfrot,icr, kspratio, houle,grav,xmve,xmvs, vce, karman,
     &  zero,hmin,hn, acladm, unorm,uw, tw, npoin,kspred,iks)
      USE bief
      IMPLICIT NONE
      INTEGER, INTENT(IN) :: NPOIN,KFROT,ICR,IKS
      LOGICAL, INTENT(IN) :: HOULE,KSPRED
      CHARACTER(LEN=24),  INTENT(IN) :: CODE
      DOUBLE PRECISION,   INTENT(IN) :: XMVE,XMVS, VCE,GRAV,KARMAN
      DOUBLE PRECISION,   INTENT(IN) :: ZERO,HMIN,KSPRATIO
      TYPE(bief_obj), INTENT(IN)   :: UETCAR
      TYPE(bief_obj), INTENT(IN)   :: HN,UNORM
      TYPE(bief_obj), INTENT(IN)   :: TW,UW
      TYPE(bief_obj), INTENT(INOUT)   :: KS,KSP,KSR
      TYPE(bief_obj), INTENT(INOUT)   :: CHESTR,MU
      TYPE(bief_obj), INTENT(IN)   :: ACLADM
      TYPE(bief_obj), INTENT(INOUT) :: CF,TOB
      TYPE(bief_obj), INTENT(INOUT) :: FW,TOBW
      TYPE(bief_obj), INTENT(IN)    :: CF_TEL
      TYPE(bief_obj), INTENT(INOUT) :: KS_TEL
      END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE vitchu_sisyphe( WS , DENS , DM , GRAV , VCE )
          IMPLICIT NONE
          DOUBLE PRECISION, INTENT(IN)    :: DENS,  DM,  GRAV, VCE
          DOUBLE PRECISION, INTENT(INOUT) :: WS
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE user_condim_sisyphe
     & (u      , v       , qu    , qv   , h    , zf , z ,
     &  esomt  , thetawr ,  q    , hwr  , twr  ,
     &  x      , y       , npoin , at   , pmaree)
      IMPLICIT NONE
      INTEGER, INTENT(IN)::NPOIN
      DOUBLE PRECISION, INTENT(IN):: X(npoin),Y(npoin)
      DOUBLE PRECISION, INTENT(IN):: AT , PMAREE
      DOUBLE PRECISION, INTENT(INOUT) ::  ZF(npoin)
      DOUBLE PRECISION, INTENT (INOUT)::  ESOMT(npoin)
      DOUBLE PRECISION, INTENT(INOUT):: Z(npoin) , H(npoin)
      DOUBLE PRECISION, INTENT(INOUT):: U(npoin) , V(npoin)
      DOUBLE PRECISION, INTENT (INOUT)::QU(npoin), QV(npoin), Q(npoin)
      DOUBLE PRECISION, INTENT (INOUT):: HWR(npoin) , TWR(npoin)
      DOUBLE PRECISION, INTENT (INOUT):: THETAWR(npoin)
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE user_conlit
     &(nbor,at)
      USE declarations_sisyphe
      IMPLICIT NONE
      INTEGER, INTENT(IN)          :: NBOR(nptfr)
      DOUBLE PRECISION, INTENT(IN) :: AT
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE user_init_compo_coh
     &(es,conc_vase,conc,npoin,nomblay,nsicla,avail,ava0,
     & epai_vase,epai_sable)
      USE declarations_sisyphe, ONLY : nlaymax
      IMPLICIT NONE
      INTEGER, INTENT(IN)              :: NPOIN,NOMBLAY,NSICLA
      DOUBLE PRECISION, INTENT(INOUT)  :: ES(npoin,nomblay)
      DOUBLE PRECISION, INTENT(IN)     :: CONC_VASE(nomblay)
      DOUBLE PRECISION,  INTENT(INOUT) :: CONC(npoin,nomblay)
      DOUBLE PRECISION, INTENT(INOUT)  :: AVAIL(npoin,nomblay,nsicla)
      DOUBLE PRECISION, INTENT(IN)     :: AVA0(nsicla)
      DOUBLE PRECISION, INTENT(INOUT)  :: EPAI_VASE(nlaymax)
      DOUBLE PRECISION, INTENT(INOUT)  :: EPAI_SABLE(nlaymax)
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE user_init_compo
     &(ncouches)
      IMPLICIT NONE
      INTEGER, INTENT (INOUT)::NCOUCHES(*)
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE user_noerod
     & (h , zf , zr , z , x , y , npoin , choix , nliss )
      IMPLICIT NONE
      INTEGER, INTENT(IN):: NPOIN , CHOIX
      INTEGER, INTENT(INOUT):: NLISS
      DOUBLE PRECISION, INTENT(IN)::  Z(npoin) , ZF(npoin)
      DOUBLE PRECISION , INTENT(IN)::  X(npoin) , Y(npoin), H(npoin)
      DOUBLE PRECISION , INTENT(INOUT)::  ZR(npoin)
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE user_predes
     &(llt,aat,yagout,code,leo,imp)
      IMPLICIT NONE
      INTEGER          , INTENT(IN) :: LLT
      DOUBLE PRECISION , INTENT(IN) :: AAT
      CHARACTER(LEN=24), INTENT(IN) :: CODE
      LOGICAL          , INTENT(IN) :: YAGOUT
      LOGICAL          , INTENT(IN) :: LEO
      LOGICAL          , INTENT(IN) :: IMP
        END SUBROUTINE
      END INTERFACE
!
      INTERFACE
        SUBROUTINE user_qsform
     &(u2d, v2d, tob, hn, xmve, tetap, mu, npoin, dm,
     & dens, grav, dstar, ac, qsc, qss)
      USE bief_def
      IMPLICIT NONE
      TYPE(bief_obj),   INTENT(IN)    :: U2D,V2D,TOB,HN,TETAP,MU
      TYPE(bief_obj),   INTENT(INOUT) :: QSC, QSS
      INTEGER,          INTENT(IN)    :: NPOIN
      DOUBLE PRECISION, INTENT(IN)    :: XMVE, DM, DENS, GRAV, DSTAR, AC
        END SUBROUTINE
      END INTERFACE
!
!======================================================================!
!======================================================================!
!
      END MODULE interface_sisyphe