interface_sisyphe.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\sisyphe\interface_sisyphe.f
00002 !
00009         MODULE INTERFACE_SISYPHE
00010 !
00011 !
00012 !***********************************************************************
00013 ! SISYPHE   V6P3                                   12/02/2013
00014 !***********************************************************************
00015 !
00016 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00017 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00018 !
00019       USE INTERFACE_SISYPHE_BEDLOAD
00020       USE INTERFACE_SISYPHE_SUSPENSION
00021 !
00022       INTERFACE
00023         SUBROUTINE AFFECT_MAT(IELMU)
00024           USE BIEF_DEF
00025           IMPLICIT NONE
00026           INTEGER, INTENT(IN) :: IELMU
00027         END SUBROUTINE
00028       END INTERFACE
00029 !
00030       INTERFACE
00031         SUBROUTINE SIS_ARRET
00032      &(ESM,EMAX,HN,VARSOR,NPOIN,MN,NRES,FMTRES,MAXVAR,AT0,RC,HIST,
00033      & BINRESSIS,TEXTE,SORLEO,SORIMP,T1,T2)
00034         USE BIEF_DEF
00035         IMPLICIT NONE
00036       TYPE(BIEF_OBJ),    INTENT(IN)    :: ESM, EMAX, HN, VARSOR
00037       INTEGER,           INTENT(IN)    :: NPOIN, MN, NRES, MAXVAR
00038       DOUBLE PRECISION,  INTENT(IN)    :: AT0, RC, HIST(1)
00039       CHARACTER(LEN=3),  INTENT(IN)    :: BINRESSIS
00040       CHARACTER(LEN=32), INTENT(IN)    :: TEXTE(MAXVAR)
00041       CHARACTER(LEN=8),  INTENT(IN)    :: FMTRES
00042       LOGICAL,           INTENT(IN)    :: SORLEO(*), SORIMP(*)
00043       TYPE(BIEF_OBJ),    INTENT(INOUT) :: T1, T2
00044         END SUBROUTINE
00045       END INTERFACE
00046 !
00047       INTERFACE
00048         SUBROUTINE BILAN_SISYPHE
00049      &(E,ESOMT,MESH,MSK,MASKEL,T1,T2,S,IELMU,VCUMU,DT,NPTFR,
00050      & INFO,ZFCL_C,ZFCL_S,ZFCL_MS,
00051      & QSCLXC,QSCLYC,NSICLA,VOLTOT,DZF_GF,MASS_GF,LGRAFED,
00052      & NUMLIQ,NFRLIQ,FLBCLA,VF,LT,NIT,NPOIN,VOLU2D,CSF_SABLE,MASDEP,
00053      & MASDEPT,CHARR,SUSP,SLIDE)
00054       USE BIEF_DEF
00055       IMPLICIT NONE
00056       INTEGER, INTENT(IN)          :: NPTFR,NFRLIQ,IELMU,NSICLA,LT,NIT
00057       INTEGER, INTENT(IN)          :: NPOIN,NUMLIQ(NPTFR)
00058       DOUBLE PRECISION, INTENT(IN) :: DT
00059       LOGICAL, INTENT(IN)          :: MSK,INFO,VF,SUSP,SLIDE,CHARR
00060       LOGICAL, INTENT(IN)          :: LGRAFED
00061       DOUBLE PRECISION, INTENT(INOUT) :: MASS_GF,VCUMU
00062       DOUBLE PRECISION, INTENT(IN)    :: CSF_SABLE,VOLTOT(NSICLA)
00063       DOUBLE PRECISION, INTENT(IN)    :: MASDEP(NSICLA)
00064       DOUBLE PRECISION, INTENT(INOUT) :: MASDEPT(NSICLA)
00065       TYPE(BIEF_OBJ), INTENT(IN)    :: MASKEL,S,ZFCL_C,QSCLXC,QSCLYC
00066       TYPE(BIEF_OBJ), INTENT(IN)    :: E,ESOMT,DZF_GF,VOLU2D,ZFCL_S
00067       TYPE(BIEF_OBJ), INTENT(IN)    :: ZFCL_MS
00068       TYPE(BIEF_OBJ), INTENT(INOUT) :: T1,T2,FLBCLA
00069       TYPE(BIEF_MESH) :: MESH
00070         END SUBROUTINE
00071       END INTERFACE
00072 !
00073       INTERFACE
00074         SUBROUTINE CALCUW( UW, H, HW, TW, GRAV ,NPOIN)
00075         IMPLICIT NONE
00076         INTEGER, INTENT(IN) :: NPOIN
00077         DOUBLE PRECISION, INTENT(INOUT) :: UW(NPOIN)
00078         DOUBLE PRECISION, INTENT(IN) :: H(NPOIN)
00079         DOUBLE PRECISION, INTENT(IN) :: TW(NPOIN),HW(NPOIN)
00080         DOUBLE PRECISION, INTENT(IN) :: GRAV
00081         END SUBROUTINE
00082       END INTERFACE
00083 !
00084       INTERFACE
00085         SUBROUTINE CHECK2
00086      &  ( NVAR1 , NVAR   , KNO    , NUMEN  , DT  , ATDEB,
00087      &  NHIST , LOGPRE , NPOIN  , NPRE   , PERMA  , TEXTLU ,
00088      &  STD , CODE )
00089         USE BIEF_DEF
00090         IMPLICIT NONE
00091         INTEGER, INTENT (INOUT) :: NVAR,NVAR1
00092         INTEGER, INTENT (INOUT) ::  KNO,NUMEN
00093         INTEGER, INTENT (IN)    :: LOGPRE,NHIST,NPOIN,NPRE
00094         DOUBLE PRECISION, INTENT (INOUT):: ATDEB, DT
00095         LOGICAL, INTENT(IN):: PERMA
00096         CHARACTER(LEN=24) :: CODE
00097         CHARACTER*3  STD
00098         CHARACTER*32 TEXTLU(26)
00099         END SUBROUTINE
00100       END INTERFACE
00101 !
00102       INTERFACE
00103         SUBROUTINE COEFRO_SISYPHE
00104      &  (CF,H,KFROT,CHESTR,GRAV,NPOIN,HMIN,KARMAN)
00105         USE BIEF_DEF
00106         IMPLICIT NONE
00107         INTEGER, INTENT(IN):: NPOIN,KFROT
00108         DOUBLE PRECISION,INTENT(IN):: GRAV,KARMAN,HMIN
00109         TYPE(BIEF_OBJ), INTENT(INOUT) :: CF
00110         TYPE(BIEF_OBJ),INTENT(IN) :: CHESTR,H
00111         END SUBROUTINE
00112       END INTERFACE
00113 !
00114       INTERFACE
00115         SUBROUTINE CONDIM_SISYPHE
00116      & (U      , V   , QU    , QV  , H   , ZF , Z ,
00117      &  ESOMT   , THETAW ,  Q     , HW  , TW  ,
00118      &  X      , Y   , NPOIN , AT  , PMAREE)
00119         IMPLICIT NONE
00120         INTEGER, INTENT(IN) :: NPOIN
00121         DOUBLE PRECISION, INTENT(IN) :: X(NPOIN) , Y(NPOIN)
00122         DOUBLE PRECISION, INTENT(IN) :: AT , PMAREE
00123         DOUBLE PRECISION, INTENT(INOUT) ::  ZF(NPOIN)
00124         DOUBLE PRECISION, INTENT (INOUT)::  ESOMT(NPOIN)
00125         DOUBLE PRECISION, INTENT(INOUT) ::  Z(NPOIN) , H(NPOIN)
00126         DOUBLE PRECISION, INTENT(INOUT) ::  U(NPOIN) , V(NPOIN)
00127         DOUBLE PRECISION, INTENT (INOUT)::  QU(NPOIN), QV(NPOIN)
00128         DOUBLE PRECISION, INTENT (INOUT):: Q(NPOIN)
00129         DOUBLE PRECISION, INTENT (INOUT)::  HW(NPOIN) , TW(NPOIN)
00130         DOUBLE PRECISION, INTENT (INOUT):: THETAW (NPOIN)
00131         END SUBROUTINE
00132       END INTERFACE
00133 !
00134       INTERFACE
00135         SUBROUTINE CONDIM_SUSP(CS,CS0,NSICLA,X,Y,AT,NPOIN)
00136         USE BIEF_DEF
00137         IMPLICIT NONE
00138         INTEGER, INTENT(IN)           :: NPOIN,NSICLA
00139         DOUBLE PRECISION,INTENT(IN)   :: AT,CS0(NSICLA)
00140         DOUBLE PRECISION,INTENT(IN)   :: X(NPOIN),Y(NPOIN)
00141         TYPE(BIEF_OBJ), INTENT(INOUT) :: CS
00142         END SUBROUTINE
00143       END INTERFACE
00144 !
00145       INTERFACE
00146         SUBROUTINE CONDIS_SISYPHE (CONSTFLOW)
00147         USE BIEF_DEF
00148         IMPLICIT NONE
00149         LOGICAL, INTENT(INOUT) :: CONSTFLOW
00150         END SUBROUTINE
00151       END INTERFACE
00152 !
00153       INTERFACE
00154         SUBROUTINE CONLIT(NBOR,AT)
00155         USE BIEF_DEF
00156         IMPLICIT NONE
00157         INTEGER, INTENT(IN):: NBOR(*)
00158         DOUBLE PRECISION, INTENT(IN):: AT
00159         END SUBROUTINE
00160       END INTERFACE
00161 !
00162       INTERFACE
00163         DOUBLE PRECISION FUNCTION CGL( I , AT)
00164           IMPLICIT NONE
00165           INTEGER, INTENT(IN) :: I
00166           DOUBLE PRECISION, INTENT(IN):: AT
00167         END FUNCTION
00168       END INTERFACE
00169 !
00170       INTERFACE
00171         SUBROUTINE CORSTR_SISYPHE
00172         IMPLICIT NONE
00173         END SUBROUTINE
00174       END INTERFACE
00175 
00176 ! UHM + PAT: required to compile with Python
00177       INTERFACE
00178         DOUBLE PRECISION FUNCTION CVSP_INTEGRATE_VOLUME
00179      &(J,I,Z_HIGH,Z_LOW,A)
00180         IMPLICIT NONE
00181         INTEGER,          INTENT(IN)   :: J
00182         INTEGER,          INTENT(IN)   :: I
00183         DOUBLE PRECISION, INTENT(IN)    :: Z_HIGH
00184         DOUBLE PRECISION, INTENT(IN)    :: Z_LOW
00185         DOUBLE PRECISION, INTENT(OUT)   :: A(*)
00186         END FUNCTION
00187       END INTERFACE
00188 !
00189 
00190 ! UHM + PAT
00191       INTERFACE
00192       LOGICAL FUNCTION CVSP_CHECK_F
00193      &     (J,K, SOMETEXT)
00194       IMPLICIT NONE
00195       INTEGER,          INTENT(IN)    :: J
00196       INTEGER,          INTENT(IN)    :: K
00197       CHARACTER*10,     INTENT(IN)    :: SOMETEXT
00198       END FUNCTION
00199       END INTERFACE
00200 !
00201 
00202 ! UHM + PAT
00203       INTERFACE
00204         DOUBLE PRECISION FUNCTION CVSP_ALT(J, FORMULA)
00205         IMPLICIT NONE
00206         INTEGER,          INTENT(IN)    :: J
00207         INTEGER,          INTENT(IN)    :: FORMULA
00208         END FUNCTION
00209       END INTERFACE
00210 !
00211 
00212 ! UHM + PAT
00213       INTERFACE
00214         LOGICAL FUNCTION DB(J_GLOBAL, TIMESTAMP)
00215         IMPLICIT NONE
00216         INTEGER, INTENT(IN)    :: J_GLOBAL
00217         INTEGER, INTENT(IN)    :: TIMESTAMP
00218         END FUNCTION
00219       END INTERFACE
00220 !
00221 
00222       INTERFACE
00223         SUBROUTINE DEBUG_SISYPHE (NAME, ILOOP, NLOOP)
00224         USE BIEF_DEF
00225         IMPLICIT NONE
00226         INTEGER, PARAMETER :: SIZE =100
00227         CHARACTER(LEN=SIZE)  , INTENT(IN) :: NAME
00228         INTEGER,   INTENT(IN), OPTIONAL :: ILOOP, NLOOP
00229         END SUBROUTINE
00230       END INTERFACE
00231 !
00232       INTERFACE
00233         SUBROUTINE DISIMP
00234      &(Q,Q2BOR,NUMLIQ,IFRLIQ,NSOLDIS,WORK1,QBOR,NPTFR,MASK,MESH)
00235       USE BIEF_DEF
00236       IMPLICIT NONE
00237       INTEGER, INTENT(IN)             :: NPTFR,IFRLIQ,NSOLDIS
00238       INTEGER, INTENT(IN)             :: NUMLIQ(NPTFR)
00239       DOUBLE PRECISION, INTENT(IN)    :: MASK(NPTFR),Q
00240       TYPE(BIEF_MESH), INTENT(INOUT)  :: MESH
00241       TYPE(BIEF_OBJ), INTENT(INOUT)   :: WORK1,QBOR
00242       TYPE(BIEF_OBJ), INTENT(IN)      :: Q2BOR
00243         END SUBROUTINE
00244       END INTERFACE
00245 !
00246       INTERFACE
00247         SUBROUTINE ENTETE_SISYPHE(IETAPE,AT,LT)
00248         IMPLICIT NONE
00249         DOUBLE PRECISION, INTENT(IN) :: AT
00250         INTEGER, INTENT(IN):: LT,IETAPE
00251         END SUBROUTINE
00252       END INTERFACE
00253 !
00254       INTERFACE
00255       SUBROUTINE FLUSEC_SISYPHE
00256      &(U,V,H,QSXC,QSYC,CHARR,QSXS,QSYS,SUSP,
00257      & IKLE,NELMAX,NELEM,X,Y,DT,NCP,CTRLSC,INFO,TPS)
00258         USE BIEF_DEF
00259         IMPLICIT NONE
00260         INTEGER, INTENT(IN)          :: NELMAX,NELEM,NCP
00261         INTEGER, INTENT(IN)          :: IKLE(NELMAX,*)
00262         INTEGER, INTENT(IN)          :: CTRLSC(NCP)
00263         DOUBLE PRECISION, INTENT(IN) :: X(*),Y(*),TPS,DT
00264         LOGICAL, INTENT(IN)          :: INFO,SUSP,CHARR
00265         TYPE(BIEF_OBJ), INTENT(IN)   :: U,V,H,QSXC,QSYC,QSXS,QSYS
00266       END SUBROUTINE
00267       END INTERFACE
00268 !
00269       INTERFACE
00270       SUBROUTINE FLUXPR_SISYPHE
00271      &(NSEC, CTRLSC, FLX, VOLNEG, VOLPOS, INFO, TPS, NSEG, NCSIZE,  !JAJ #### TPS
00272      & FLXS,VOLNEGS,VOLPOSS,SUSP,FLXC,VOLNEGC,VOLPOSC,CHARR)
00273       IMPLICIT NONE
00274       INTEGER, INTENT(IN)          :: NSEC,NCSIZE
00275       INTEGER, INTENT(IN)          :: CTRLSC(*)
00276       INTEGER, INTENT(IN)          :: NSEG(NSEC)
00277       LOGICAL, INTENT(IN)          :: INFO,SUSP,CHARR
00278       DOUBLE PRECISION, INTENT(IN) :: FLX(NSEC), TPS                !JAJ #### TPS
00279       DOUBLE PRECISION, INTENT(IN) :: VOLNEG(NSEC),VOLPOS(NSEC)
00280       DOUBLE PRECISION, INTENT(IN) :: FLXS(NSEC),FLXC(NSEC)
00281       DOUBLE PRECISION, INTENT(IN) :: VOLNEGS(NSEC),VOLPOSS(NSEC)
00282       DOUBLE PRECISION, INTENT(IN) :: VOLNEGC(NSEC),VOLPOSC(NSEC)
00283       END SUBROUTINE
00284       END INTERFACE
00285 !
00286       INTERFACE
00287       SUBROUTINE GF_USER(TBEG_GF,TEND_GF,AT0)
00288       IMPLICIT NONE
00289       DOUBLE PRECISION, INTENT(INOUT) :: TBEG_GF, TEND_GF
00290       DOUBLE PRECISION, INTENT(IN)    :: AT0
00291       END SUBROUTINE
00292       END INTERFACE
00293 !
00294       INTERFACE
00295       SUBROUTINE INIT_AVAI
00296       USE BIEF_DEF
00297       IMPLICIT NONE
00298       END SUBROUTINE
00299       END INTERFACE
00300 !
00301       INTERFACE
00302         SUBROUTINE INIT_COMPO(NCOUCHES)
00303           USE BIEF_DEF
00304           IMPLICIT NONE
00305           INTEGER, INTENT(INOUT):: NCOUCHES(*)
00306         END SUBROUTINE
00307       END INTERFACE
00308 !
00309       INTERFACE
00310         SUBROUTINE INIT_COMPO_COH
00311      &(ES,CONC_VASE,CONC,NPOIN,NOMBLAY,NSICLA,AVAIL,AVA0)
00312         USE BIEF
00313       INTEGER, INTENT(IN)              :: NPOIN,NOMBLAY,NSICLA
00314       DOUBLE PRECISION, INTENT(INOUT)  :: ES(NPOIN,NOMBLAY)
00315       DOUBLE PRECISION, INTENT(IN)     :: CONC_VASE(NOMBLAY)
00316       DOUBLE PRECISION,  INTENT(INOUT) :: CONC(NPOIN,NOMBLAY)
00317       DOUBLE PRECISION, INTENT(INOUT)  :: AVAIL(NPOIN,NOMBLAY,NSICLA)
00318       DOUBLE PRECISION, INTENT(IN)     :: AVA0(NSICLA)
00319         END SUBROUTINE
00320       END INTERFACE
00321 
00322 !
00323       INTERFACE
00324         SUBROUTINE INIT_CONSTANT
00325      &  (KARIM_HOLLY_YANG, KARMAN,  PI)
00326         IMPLICIT NONE
00327         DOUBLE PRECISION, INTENT(INOUT) :: KARIM_HOLLY_YANG
00328         DOUBLE PRECISION, INTENT(INOUT) :: KARMAN
00329         DOUBLE PRECISION, INTENT(INOUT) :: PI
00330 !
00331         END SUBROUTINE
00332       END INTERFACE
00333 !
00334       INTERFACE
00335         SUBROUTINE INIT_MIXTE
00336      &(XMVS,NPOIN,AVAIL,NSICLA,ES,ES_SABLE, ES_VASE,ELAY,NOMBLAY,
00337      & CONC_VASE,MS_SABLE,MS_VASE,ZF,ZR,AVA0,CONC,DEBU,MIXTE)
00338       USE BIEF_DEF
00339       IMPLICIT NONE
00340       INTEGER, INTENT(IN)              :: NPOIN,NSICLA,NOMBLAY
00341       DOUBLE PRECISION, INTENT(IN)     :: XMVS
00342       DOUBLE PRECISION, INTENT(INOUT)  :: AVAIL(NPOIN,NOMBLAY,NSICLA)
00343       DOUBLE PRECISION, INTENT(INOUT)  :: ES(NPOIN,NOMBLAY)
00344       DOUBLE PRECISION, INTENT(INOUT)  :: ELAY(NPOIN)
00345       DOUBLE PRECISION, INTENT(IN)     :: ZR(NPOIN),ZF(NPOIN)
00346       DOUBLE PRECISION,  INTENT(INOUT) :: MS_SABLE(NPOIN,NOMBLAY)
00347       DOUBLE PRECISION,  INTENT(INOUT) :: MS_VASE(NPOIN,NOMBLAY)
00348 !
00349       DOUBLE PRECISION,  INTENT(INOUT) :: ES_SABLE(NPOIN,NOMBLAY)
00350       DOUBLE PRECISION,  INTENT(INOUT) :: ES_VASE(NPOIN,NOMBLAY)
00351 !
00352       DOUBLE PRECISION, INTENT(IN)     :: CONC_VASE(NOMBLAY)
00353       DOUBLE PRECISION,  INTENT(INOUT) :: CONC(NPOIN,NOMBLAY)
00354       DOUBLE PRECISION, INTENT(IN)     :: AVA0(NSICLA)
00355       LOGICAL, INTENT (IN)             :: DEBU, MIXTE
00356         END SUBROUTINE
00357       END INTERFACE
00358 !
00359       INTERFACE
00360       SUBROUTINE INIT_SEDIMENT
00361      &(NSICLA,ELAY,ZF,ZR,NPOIN,AVAIL,FRACSED_GF,AVA0,
00362      & LGRAFED,CALWC,XMVS,XMVE,GRAV,VCE,XWC,FDM,
00363      & CALAC,AC,SEDCO,ES,ES_SABLE, ES_VASE ,NOMBLAY,CONC_VASE,
00364      & MS_SABLE,MS_VASE,ACLADM,UNLADM,TOCE_SABLE,
00365      & CONC,NLAYER,DEBU,MIXTE)
00366       USE BIEF
00367       IMPLICIT NONE
00368       INTEGER,           INTENT(IN)     :: NSICLA,NPOIN,NOMBLAY
00369       TYPE(BIEF_OBJ),    INTENT(INOUT)  :: ELAY,ZF,ZR
00370       TYPE(BIEF_OBJ), INTENT(INOUT)     :: MS_SABLE, MS_VASE
00371       TYPE(BIEF_OBJ),    INTENT(INOUT)  :: ACLADM, UNLADM
00372       TYPE(BIEF_OBJ),    INTENT(INOUT)  :: NLAYER
00373       LOGICAL,           INTENT(IN)     :: LGRAFED,CALWC
00374       LOGICAL,           INTENT(IN)     :: CALAC
00375       DOUBLE PRECISION,  INTENT(IN)     :: XMVS,XMVE,GRAV,VCE
00376       DOUBLE PRECISION,  INTENT(INOUT)  :: AVA0(NSICLA)
00377       DOUBLE PRECISION,  INTENT(INOUT)  :: AVAIL(NPOIN,NOMBLAY,NSICLA)
00378       DOUBLE PRECISION,  INTENT(INOUT)  :: FRACSED_GF(NSICLA)
00379       DOUBLE PRECISION,  INTENT(INOUT)  :: FDM(NSICLA),XWC(NSICLA)
00380       DOUBLE PRECISION,  INTENT(INOUT)  :: AC(NSICLA),TOCE_SABLE
00381       LOGICAL,           INTENT(IN)     :: SEDCO(NSICLA), DEBU
00382       LOGICAL,           INTENT(IN)     :: MIXTE
00383       DOUBLE PRECISION, INTENT(IN)    :: CONC_VASE(NOMBLAY)
00384       DOUBLE PRECISION, INTENT(INOUT) :: ES(NPOIN,NOMBLAY)
00385       DOUBLE PRECISION, INTENT(INOUT) :: ES_SABLE(NPOIN,NOMBLAY)
00386       DOUBLE PRECISION, INTENT(INOUT) :: ES_VASE(NPOIN,NOMBLAY)
00387       DOUBLE PRECISION, INTENT(INOUT) :: CONC(NPOIN,NOMBLAY)
00388       END SUBROUTINE
00389       END INTERFACE
00390 !
00391 !
00392       INTERFACE
00393         SUBROUTINE INIT_TRANSPORT
00394      &  (TROUVE,DEBU,HIDING,NSICLA,NPOIN,
00395      &   T1,T2,T3,T4,T5,T6,T7,T8,T9, T10,T11,T12,T14,
00396      &   CHARR,QS_C,QSXC, QSYC,CALFA,SALFA,COEFPN,SLOPEFF,
00397      &   SUSP, QS_S,QS,QSCL, QSCL_C,QSCL_S,QSCLXS,QSCLYS,
00398      &   UNORM, U2D,V2D,HN,CF,MU,TOB,TOBW,UW,TW,THETAW, FW,HOULE,
00399      &   AVAIL, ACLADM,UNLADM,KSP, KSR,KS,
00400      &   ICF,HIDFAC,XMVS,XMVE,GRAV,VCE,HMIN, KARMAN,
00401      &   ZERO,PI,AC,IMP_INFLOW_C,ZREF,ICQ,CSTAEQ,CSRATIO,
00402      &   CMAX,CS,CS0,UCONV,VCONV,CORR_CONV,SECCURRENT,BIJK,
00403      &   IELMT, MESH, FDM,XWC,FD90,SEDCO,VITCE,PARTHENIADES,VITCD,
00404      &    U3D,V3D,CODE)
00405       USE BIEF
00406       USE DECLARATIONS_SISYPHE, ONLY : NOMBLAY,MPM_ARAY,MPM
00407       IMPLICIT NONE
00408       INTEGER, INTENT(IN)              :: NSICLA,NPOIN,TROUVE(*),ICQ
00409       INTEGER, INTENT(IN)              :: ICF,HIDFAC,IELMT,SLOPEFF
00410       LOGICAL, INTENT(IN)              :: CHARR,DEBU,SUSP,IMP_INFLOW_C
00411       LOGICAL, INTENT(IN)              :: CORR_CONV,SECCURRENT,SEDCO(*)
00412       LOGICAL, INTENT(IN)              :: HOULE
00413       TYPE(BIEF_OBJ), INTENT(IN)    :: U2D,V2D,UNORM, HN,CF
00414       TYPE(BIEF_OBJ), INTENT(IN)    :: MU,TOB,TOBW,UW,TW,THETAW,FW
00415       TYPE(BIEF_OBJ), INTENT(IN)    :: ACLADM,UNLADM,KSP, KSR,KS
00416       TYPE(BIEF_OBJ), INTENT(INOUT) :: HIDING
00417       TYPE(BIEF_OBJ), INTENT(INOUT) :: QS_C, QSXC, QSYC, CALFA,SALFA
00418       TYPE(BIEF_OBJ), INTENT(INOUT) :: T1,T2,T3,T4,T5,T6,T7,T8
00419       TYPE(BIEF_OBJ), INTENT(INOUT) :: T9,T10,T11,T12,T14
00420       TYPE(BIEF_OBJ), INTENT(INOUT) :: ZREF,CSTAEQ,CSRATIO
00421       TYPE(BIEF_OBJ), INTENT(INOUT) :: CS,UCONV,VCONV
00422       TYPE(BIEF_OBJ), INTENT(INOUT) :: QS_S,QS,QSCL_C,QSCL_S
00423       TYPE(BIEF_OBJ),  INTENT(INOUT) :: COEFPN
00424       TYPE(BIEF_OBJ),  INTENT(INOUT) :: QSCLXS,QSCLYS,QSCL
00425       TYPE(BIEF_MESH), INTENT(INOUT) :: MESH
00426       DOUBLE PRECISION, INTENT(IN)    :: XMVS,XMVE,GRAV,VCE
00427       DOUBLE PRECISION, INTENT(IN)    :: HMIN,KARMAN,ZERO,PI
00428       DOUBLE PRECISION,  INTENT(IN)    :: PARTHENIADES,BIJK,XWC(NSICLA)
00429       DOUBLE PRECISION,  INTENT(IN)    :: FD90(NSICLA),CS0(NSICLA)
00430       DOUBLE PRECISION,  INTENT(IN)    :: VITCE,VITCD
00431       DOUBLE PRECISION,  INTENT(INOUT) :: AC(NSICLA),CMAX,FDM(NSICLA)
00432       DOUBLE PRECISION,  INTENT(INOUT) :: AVAIL(NPOIN,NOMBLAY,NSICLA)
00433 !RK
00434       CHARACTER(LEN=24), INTENT(IN)    :: CODE
00435       TYPE(BIEF_OBJ),    INTENT(IN)    :: U3D,V3D
00436         END SUBROUTINE
00437       END INTERFACE
00438 !
00439       INTERFACE
00440         SUBROUTINE INTEG ( A , B , IEIN , NPOIN)
00441         IMPLICIT NONE
00442         INTEGER, INTENT(IN):: NPOIN
00443         DOUBLE PRECISION, INTENT(IN)::A(NPOIN), B(NPOIN)
00444         DOUBLE PRECISION, INTENT(INOUT)::IEIN(NPOIN)
00445         END SUBROUTINE
00446       END INTERFACE
00447 !
00448       INTERFACE
00449         SUBROUTINE LAYER
00450      &(ZFCL_W,NLAYER,ZR,ZF,ESTRAT,ELAY,MASBAS,
00451      & ACLADM,NSICLA,NPOIN,ELAY0,VOLTOT,
00452      & ES,AVAIL,CONST_ALAYER,DTS,ESTRATNEW,NLAYNEW)
00453       USE BIEF_DEF
00454       USE DECLARATIONS_SISYPHE, ONLY : NOMBLAY
00455       IMPLICIT NONE
00456       TYPE (BIEF_OBJ),  INTENT(IN)    :: ZFCL_W,ZR,ZF,MASBAS,ACLADM
00457       INTEGER,          INTENT(IN)    :: NSICLA, NPOIN
00458       DOUBLE PRECISION, INTENT(IN)    :: DTS
00459       LOGICAL,          INTENT(IN)    :: CONST_ALAYER
00460       TYPE (BIEF_OBJ),  INTENT(INOUT) :: NLAYER,ESTRAT,ELAY
00461       DOUBLE PRECISION, INTENT(INOUT) :: ELAY0
00462       DOUBLE PRECISION, INTENT(INOUT) :: ES(NPOIN,NOMBLAY)
00463       DOUBLE PRECISION, INTENT(INOUT) :: AVAIL(NPOIN,NOMBLAY,NSICLA)
00464       DOUBLE PRECISION, INTENT(INOUT) :: VOLTOT(NSICLA),ESTRATNEW(NPOIN)
00465       INTEGER         , INTENT(INOUT) :: NLAYNEW(NPOIN)
00466         END SUBROUTINE
00467       END INTERFACE
00468 !
00469       INTERFACE
00470         SUBROUTINE LECDON_SISYPHE(MOTCAR,FILE_DESC,PATH,NCAR,CODE)
00471           IMPLICIT NONE
00472           INTEGER, INTENT(IN)               :: NCAR
00473           CHARACTER(LEN=24), INTENT(IN)     :: CODE
00474           CHARACTER(LEN=250), INTENT(IN)    :: PATH
00475           CHARACTER*144, INTENT(INOUT)      :: MOTCAR(*)
00476           CHARACTER(LEN=144), INTENT(INOUT) :: FILE_DESC(4,300)
00477         END SUBROUTINE
00478       END INTERFACE
00479 !
00480       INTERFACE
00481         SUBROUTINE LECLIS
00482      &  (LIEBOR,LIHBOR,LIQBOR,EBOR,QBOR,
00483      &   NPTFR,NBOR,STDGEO,NLIM,KENT,ISEG,XSEG,YSEG,
00484      &   NACHB,NUMLIQ,NSICLA,AFBOR,BFBOR,BOUNDARY_COLOUR,MESH)
00485         USE BIEF_DEF
00486         IMPLICIT NONE
00487         INTEGER, INTENT(IN)           :: NPTFR
00488         INTEGER, INTENT(INOUT)        :: LIEBOR(NPTFR),LIHBOR(NPTFR)
00489         INTEGER, INTENT(INOUT)        :: LIQBOR(NPTFR)
00490         INTEGER, INTENT(INOUT)        :: BOUNDARY_COLOUR(NPTFR)
00491         TYPE(BIEF_OBJ),INTENT(INOUT)  :: EBOR,QBOR
00492         INTEGER, INTENT(INOUT)        :: NBOR(NPTFR)
00493         INTEGER, INTENT(IN) ::       STDGEO,NLIM,KENT
00494         INTEGER, INTENT(IN) :: NSICLA
00495         DOUBLE PRECISION, INTENT(INOUT):: XSEG(NPTFR),YSEG(NPTFR)
00496         INTEGER, INTENT(INOUT):: ISEG(NPTFR),NACHB(5,*),NUMLIQ(*)
00497         DOUBLE PRECISION, INTENT(INOUT):: AFBOR(NPTFR),BFBOR(NPTFR)
00498         TYPE(BIEF_MESH), INTENT(INOUT) :: MESH
00499         END SUBROUTINE
00500       END INTERFACE
00501 !
00502       INTERFACE
00503         SUBROUTINE MASKAB(HN , Q , QU , QV , NPOIN)
00504         IMPLICIT NONE
00505         INTEGER, INTENT(IN):: NPOIN
00506         DOUBLE PRECISION , INTENT(IN)::HN(NPOIN)
00507         DOUBLE PRECISION, INTENT(INOUT):: Q(NPOIN),QU(NPOIN),QV(NPOIN)
00508         END SUBROUTINE
00509       END INTERFACE
00510 !
00511       INTERFACE
00512         SUBROUTINE MAXSLOPE
00513      &(SLOPE,ZF,ZR,XEL,YEL,NELEM,NELMAX,NPOIN,IKLE,EVOL,UNSV2D,MESH,
00514      & ZFCL_MS,AVAIL,NOMBLAY,NSICLA)
00515       USE BIEF_DEF
00516       IMPLICIT NONE
00517       INTEGER, INTENT(IN) :: NELEM,NELMAX,NPOIN,NOMBLAY,NSICLA
00518       INTEGER, INTENT(IN)             :: IKLE(NELMAX,3)
00519       DOUBLE PRECISION, INTENT(IN   ) :: SLOPE
00520       DOUBLE PRECISION, INTENT(INOUT) :: ZF(NPOIN)
00521       DOUBLE PRECISION, INTENT(IN)    :: ZR(NPOIN)
00522       DOUBLE PRECISION, INTENT(IN)    :: XEL(NELMAX,3),YEL(NELMAX,3)
00523       DOUBLE PRECISION, INTENT(INOUT) :: AVAIL(NPOIN,NOMBLAY,NSICLA)
00524       TYPE(BIEF_OBJ), INTENT(INOUT)   :: EVOL,ZFCL_MS
00525       TYPE(BIEF_OBJ), INTENT(IN)      :: UNSV2D
00526       TYPE(BIEF_MESH) :: MESH
00527         END SUBROUTINE
00528       END INTERFACE
00529 !
00530       INTERFACE
00531         SUBROUTINE MEAN_GRAIN_SIZE
00532           USE BIEF
00533           IMPLICIT NONE
00534         END SUBROUTINE
00535       END INTERFACE
00536 !
00537       INTERFACE
00538         SUBROUTINE NOMVAR_SISYPHE(TEXTE,TEXTPR,MNEMO,NSICLA,UNIT,
00539      &                            MAXVAR,NPRIV,NOMBLAY)
00540           IMPLICIT NONE
00541           INTEGER, INTENT(IN)         :: NSICLA,MAXVAR,NPRIV,NOMBLAY
00542           CHARACTER*8, INTENT(INOUT)  :: MNEMO(MAXVAR)
00543           CHARACTER*32, INTENT(INOUT) :: TEXTE(MAXVAR),TEXTPR(MAXVAR)
00544           LOGICAL,INTENT(IN)          :: UNIT
00545         END SUBROUTINE
00546       END INTERFACE
00547 !
00548       INTERFACE
00549         SUBROUTINE NOEROD
00550      &  (H , ZF , ZR , Z , X , Y , NPOIN , CHOIX , NLISS )
00551         IMPLICIT NONE
00552         INTEGER, INTENT(IN):: NPOIN , CHOIX
00553         INTEGER, INTENT(INOUT):: NLISS
00554         DOUBLE PRECISION, INTENT(IN)::  Z(NPOIN) , ZF(NPOIN)
00555         DOUBLE PRECISION, INTENT(IN)::  X(NPOIN) , Y(NPOIN), H(NPOIN)
00556         DOUBLE PRECISION, INTENT(INOUT)::  ZR(NPOIN)
00557         END SUBROUTINE
00558       END INTERFACE
00559 !
00560       INTERFACE
00561         SUBROUTINE PREDES(LLT,AAT)
00562           IMPLICIT NONE
00563           INTEGER, INTENT(IN) :: LLT
00564           DOUBLE PRECISION, INTENT(IN) :: AAT
00565         END SUBROUTINE
00566       END INTERFACE
00567 !
00568       INTERFACE
00569         SUBROUTINE QSFORM
00570      &     (U2D, V2D, TOB, HN, XMVE, TETAP, MU, NPOIN, DM,
00571      &       DENS, GRAV, DSTAR, AC, QSC, QSS)
00572         USE BIEF_DEF
00573           IMPLICIT NONE
00574       TYPE(BIEF_OBJ),   INTENT(IN)    :: U2D,V2D,TOB,HN,TETAP,MU
00575       TYPE(BIEF_OBJ),   INTENT(INOUT) :: QSC, QSS
00576       INTEGER,          INTENT(IN)    :: NPOIN
00577       DOUBLE PRECISION, INTENT(IN)    :: XMVE, DM, DENS, GRAV, DSTAR, AC
00578         END SUBROUTINE
00579       END INTERFACE
00580 !
00581       INTERFACE
00582         SUBROUTINE READ_FIC_CONC(CGL, WHAT , AT , NFIC , LISTIN , STAT )
00583       IMPLICIT NONE
00584       CHARACTER*9     , INTENT(IN)       :: WHAT
00585       DOUBLE PRECISION, INTENT(IN)       :: AT
00586       DOUBLE PRECISION, INTENT(INOUT)    :: CGL
00587       INTEGER         , INTENT(IN)       :: NFIC
00588       LOGICAL         , INTENT(IN)       :: LISTIN
00589       LOGICAL         , INTENT(OUT)      :: STAT
00590         END SUBROUTINE
00591       END INTERFACE
00592 !
00593       INTERFACE
00594       SUBROUTINE RESCUE_SISYPHE
00595      &(QU,QV,Q,U,V,H,S,ZF,HW,TW,THETAW,NPOIN,TROUVE,ALIRE,PASS,
00596      & ICF,LISTI,MAXVAR)
00597       IMPLICIT NONE
00598       INTEGER, INTENT(IN) :: MAXVAR
00599       INTEGER, INTENT(IN) :: TROUVE(MAXVAR),ALIRE(MAXVAR),NPOIN,ICF
00600       LOGICAL, INTENT(IN) :: PASS,LISTI
00601       DOUBLE PRECISION, INTENT(INOUT) :: QU(NPOIN), QV(NPOIN), Q(NPOIN)
00602       DOUBLE PRECISION, INTENT(INOUT) :: U(NPOIN) , V(NPOIN)
00603       DOUBLE PRECISION, INTENT(INOUT) :: S(NPOIN) , ZF(NPOIN), H(NPOIN)
00604       DOUBLE PRECISION, INTENT(INOUT) :: HW(NPOIN), TW(NPOIN)
00605       DOUBLE PRECISION, INTENT(INOUT) :: THETAW(NPOIN)
00606       END SUBROUTINE
00607       END INTERFACE
00608 !
00609       INTERFACE
00610       SUBROUTINE RESCUE_SISYPHE_NOTPERMA
00611      &(QU,QV,Q,U,V,H,S,ZF,HW,TW,THETAW,NPOIN,TROUVE,ALIRE,ICF,
00612      & ENTET,MAXVAR)
00613 !
00614       IMPLICIT NONE
00615 !
00616       INTEGER, INTENT(IN) :: MAXVAR
00617       INTEGER, INTENT(IN) :: TROUVE(MAXVAR),ALIRE(MAXVAR),NPOIN,ICF
00618       LOGICAL, INTENT(IN) :: ENTET
00619 !
00620       DOUBLE PRECISION, INTENT(INOUT) :: QU(NPOIN), QV(NPOIN), Q(NPOIN)
00621       DOUBLE PRECISION, INTENT(INOUT) :: U(NPOIN) , V(NPOIN)
00622       DOUBLE PRECISION, INTENT(INOUT) :: S(NPOIN) , ZF(NPOIN), H(NPOIN)
00623       DOUBLE PRECISION, INTENT(INOUT) :: HW(NPOIN), TW(NPOIN)
00624       DOUBLE PRECISION, INTENT(INOUT) :: THETAW(NPOIN)
00625 !
00626       END SUBROUTINE
00627       END INTERFACE
00628 !
00629       INTERFACE
00630         SUBROUTINE RIDE
00631      & (KS,TW,UW,UNORM,GRAV,XMVE,XMVS,VCE,NPOIN,KSPRATIO,ACLADM)
00632         IMPLICIT NONE
00633         INTEGER, INTENT(IN) ::NPOIN
00634         DOUBLE PRECISION, INTENT(INOUT) :: KS(NPOIN)
00635         DOUBLE PRECISION, INTENT(IN) :: GRAV,XMVE,XMVS, VCE
00636         DOUBLE PRECISION, INTENT(IN) :: UNORM(NPOIN)
00637         DOUBLE PRECISION, INTENT(IN) :: UW(NPOIN), TW(NPOIN)
00638         DOUBLE PRECISION, INTENT(IN) :: KSPRATIO
00639         DOUBLE PRECISION, INTENT(IN) :: ACLADM(NPOIN)
00640         END SUBROUTINE
00641       END INTERFACE
00642 !
00643       INTERFACE
00644         SUBROUTINE RIDE_VR
00645      & (KSR,KS,UNORM,HN,GRAV,XMVE,XMVS,NPOIN,ACLADM)
00646       IMPLICIT NONE
00647       INTEGER, INTENT(IN)            :: NPOIN
00648       DOUBLE PRECISION, INTENT(IN)   :: GRAV,XMVE,XMVS
00649       DOUBLE PRECISION, INTENT(INOUT):: KSR(NPOIN),KS(NPOIN)
00650       DOUBLE PRECISION, INTENT(IN)   :: HN(NPOIN), UNORM(NPOIN)
00651       DOUBLE PRECISION, INTENT(IN)   :: ACLADM(NPOIN)
00652         END SUBROUTINE
00653       END INTERFACE
00654 !
00655 !
00656       INTERFACE
00657         SUBROUTINE SISYPHE(PART,LOOPCOUNT,GRAFCOUNT,LISTCOUNT,TELNIT,
00658      &                     U_TEL,V_TEL,H_TEL,HN_TEL,
00659      &                     ZF_SIS,UETCAR,CF_TEL,KS_TEL,
00660      &                     CONSTFLOW,NSIS_CFD,SISYPHE_CFD,CODE,PERICOU,
00661      &                     U3D,V3D,T_TEL,VISC_TEL,
00662      &                     DT_TEL,CHARR_TEL,SUSP_TEL,FLBOR_TEL,
00663      &                     SOLSYS,DM1,UCONV_TEL,VCONV_TEL,ZCONV,
00664      &                     THETAW_TEL,HW_TEL,TW_TEL,UW_TEL)
00665           USE BIEF_DEF
00666           IMPLICIT NONE
00667           INTEGER,          INTENT(IN)   :: PART,LOOPCOUNT,GRAFCOUNT
00668           INTEGER,          INTENT(IN)   :: LISTCOUNT,TELNIT,PERICOU
00669           CHARACTER(LEN=24),INTENT(IN)   :: CODE
00670           TYPE(BIEF_OBJ),   INTENT(IN)   :: U_TEL,V_TEL,H_TEL,HN_TEL
00671           TYPE(BIEF_OBJ),   INTENT(INOUT):: ZF_SIS, UETCAR
00672           INTEGER,          INTENT(INOUT):: NSIS_CFD
00673           LOGICAL,          INTENT(INOUT):: CONSTFLOW,SISYPHE_CFD
00674           TYPE(BIEF_OBJ),   INTENT(IN)   :: U3D,V3D,VISC_TEL
00675           TYPE(BIEF_OBJ),   INTENT(INOUT):: CF_TEL,KS_TEL
00676           DOUBLE PRECISION, INTENT(IN)   :: T_TEL
00677           LOGICAL, INTENT(INOUT)         :: CHARR_TEL,SUSP_TEL
00678           DOUBLE PRECISION,  INTENT(IN)  :: DT_TEL
00679           INTEGER,           INTENT(IN)  :: SOLSYS
00680           TYPE(BIEF_OBJ), INTENT(IN)     :: FLBOR_TEL,DM1,ZCONV
00681           TYPE(BIEF_OBJ), INTENT(IN)     :: UCONV_TEL,VCONV_TEL
00682           TYPE(BIEF_OBJ), INTENT(IN)     :: THETAW_TEL,HW_TEL,TW_TEL
00683           TYPE(BIEF_OBJ), INTENT(IN)     :: UW_TEL
00684         END SUBROUTINE
00685       END INTERFACE
00686 !
00687       INTERFACE
00688         SUBROUTINE TASSEMENT
00689      &(ZF,NPOIN,DTS,ELAY,DZF_TASS,T2,LT,AVAIL,NSICLA,ES,XMVS,
00690      & XKV,TRANS_MASS,CONC_VASE,NOMBLAY,MS_SABLE,MS_VASE)
00691       USE BIEF_DEF
00692       IMPLICIT NONE
00693       INTEGER, INTENT(IN) :: NPOIN,NSICLA,LT,NOMBLAY
00694       TYPE (BIEF_OBJ),  INTENT(INOUT) :: DZF_TASS,ZF,ELAY,T2
00695       DOUBLE PRECISION,  INTENT(INOUT):: MS_SABLE(NPOIN,NOMBLAY)
00696       DOUBLE PRECISION,  INTENT(INOUT):: MS_VASE(NPOIN,NOMBLAY)
00697       DOUBLE PRECISION, INTENT(IN)    :: DTS
00698       DOUBLE PRECISION, INTENT(INOUT) :: AVAIL(NPOIN,NOMBLAY,NSICLA)
00699       DOUBLE PRECISION, INTENT(INOUT) :: ES(NPOIN,NOMBLAY)
00700       DOUBLE PRECISION, INTENT(IN)    :: TRANS_MASS(NOMBLAY)
00701       DOUBLE PRECISION, INTENT(IN)    :: CONC_VASE(NOMBLAY)
00702       DOUBLE PRECISION, INTENT(IN)    :: XMVS, XKV
00703         END SUBROUTINE
00704       END INTERFACE
00705 !
00706       INTERFACE
00707         SUBROUTINE TASSEMENT_2
00708      &(ZF,NPOIN,DTS,ELAY,DZF_TASS,T2,LT,XMVS,XMVE,GRAV,NOMBLAY,
00709      & ES,CONC_VASE,MS_VASE,XWC,COEF_N,CONC_GEL,CONC_MAX)
00710       USE BIEF_DEF
00711       USE BIEF
00712       IMPLICIT NONE
00713       INTEGER,INTENT(IN)              :: NPOIN
00714       INTEGER, INTENT(IN)             :: LT,NOMBLAY
00715       DOUBLE PRECISION, INTENT(IN)    :: DTS
00716       DOUBLE PRECISION, INTENT(IN)    :: XMVS,XMVE,GRAV
00717       TYPE (BIEF_OBJ),  INTENT(INOUT) :: DZF_TASS,ELAY,T2,ZF
00718       DOUBLE PRECISION, INTENT(INOUT) :: MS_VASE(NPOIN,NOMBLAY)
00719       DOUBLE PRECISION, INTENT(INOUT) :: ES(NPOIN,NOMBLAY)
00720       DOUBLE PRECISION, INTENT(IN)    :: CONC_VASE(NOMBLAY)
00721       DOUBLE PRECISION, INTENT(IN)    :: XWC
00722       DOUBLE PRECISION, INTENT(IN)    :: COEF_N,CONC_GEL,CONC_MAX
00723         END SUBROUTINE
00724       END INTERFACE
00725 !
00726 !
00727       INTERFACE
00728         SUBROUTINE TOBW_SISYPHE(TOBW ,CF, FW, UW,TW,HN,NPOIN,XMVE)
00729           IMPLICIT NONE
00730           INTEGER, INTENT(IN) :: NPOIN
00731           DOUBLE PRECISION, INTENT(IN) :: CF(NPOIN)
00732           DOUBLE PRECISION, INTENT(IN) :: UW(NPOIN),TW(NPOIN),HN(NPOIN)
00733           DOUBLE PRECISION, INTENT(IN)    :: XMVE
00734           DOUBLE PRECISION, INTENT(INOUT) :: TOBW(NPOIN),FW(NPOIN)
00735         END SUBROUTINE
00736       END INTERFACE
00737 !
00738       INTERFACE
00739         SUBROUTINE TOB_SISYPHE
00740      & (TOB, TOBW, MU, KS,KSP, KSR,CF,FW,CHESTR,UETCAR,
00741      &  CF_TEL,KS_TEL,CODE,
00742      &  KFROT,ICR, KSPRATIO, HOULE,GRAV,XMVE,XMVS, VCE, KARMAN,
00743      &  ZERO,HMIN,HN, ACLADM, UNORM,UW, TW, NPOIN,KSPRED,IKS)
00744       USE BIEF
00745       IMPLICIT NONE
00746       INTEGER, INTENT(IN) :: NPOIN,KFROT,ICR,IKS
00747       LOGICAL, INTENT(IN) :: HOULE,KSPRED
00748       CHARACTER(LEN=24),  INTENT(IN) :: CODE
00749       DOUBLE PRECISION,   INTENT(IN) :: XMVE,XMVS, VCE,GRAV,KARMAN
00750       DOUBLE PRECISION,   INTENT(IN) :: ZERO,HMIN,KSPRATIO
00751       TYPE(BIEF_OBJ), INTENT(IN)   :: UETCAR
00752       TYPE(BIEF_OBJ), INTENT(IN)   :: HN,UNORM
00753       TYPE(BIEF_OBJ), INTENT(IN)   :: TW,UW
00754       TYPE(BIEF_OBJ), INTENT(INOUT)   :: KS,KSP,KSR
00755       TYPE(BIEF_OBJ), INTENT(INOUT)   :: CHESTR,MU
00756       TYPE(BIEF_OBJ), INTENT(IN)   :: ACLADM
00757       TYPE(BIEF_OBJ), INTENT(INOUT) :: CF,TOB
00758       TYPE(BIEF_OBJ), INTENT(INOUT) :: FW,TOBW
00759       TYPE(BIEF_OBJ), INTENT(IN)    :: CF_TEL
00760       TYPE(BIEF_OBJ), INTENT(INOUT) :: KS_TEL
00761       END SUBROUTINE
00762       END INTERFACE
00763 !
00764       INTERFACE
00765         SUBROUTINE VITCHU_SISYPHE( WS , DENS , DM , GRAV , VCE )
00766           IMPLICIT NONE
00767           DOUBLE PRECISION, INTENT(IN)    :: DENS,  DM,  GRAV, VCE
00768           DOUBLE PRECISION, INTENT(INOUT) :: WS
00769         END SUBROUTINE
00770       END INTERFACE
00771 
00772 !
00773 !======================================================================!
00774 !======================================================================!
00775 !
00776       END MODULE INTERFACE_SISYPHE

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0