interface_sisyphe_suspension.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\sisyphe\interface_sisyphe_suspension.f
00002 !
00009                      MODULE INTERFACE_SISYPHE_SUSPENSION !
00010 !                    *************************************
00011 !
00012 !
00013 !***********************************************************************
00014 ! SISYPHE   V6P2                                   18/06/2012
00015 !***********************************************************************
00016 !
00017 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00018 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00019 !
00020         INTERFACE                           !
00021       ! *********************************** !
00022 !**********************************************************************C
00023 ! SISYPHE RELEASE 5.9  25/06/2008                             F. HUVELIN
00024 !**********************************************************************C
00025              ! ======================================= !
00026              !  INTERFACE FOR THE SISYPHE SUBROUTINE   !
00027              !        FOR THE SUSPENDED TRANSPORT      !
00028              ! ======================================= !
00029 !
00030 ! COPYRIGHT EDF-DTMPL-SOGREAH-LHF-GRADIENT
00031 !**********************************************************************C
00032 !                                                                      C
00033 !                 SSSS I   SSSS Y   Y PPPP  H   H EEEEE                C
00034 !                S     I  S      Y Y  P   P H   H E                    C
00035 !                 SSS  I   SSS    Y   PPPP  HHHHH EEEE                 C
00036 !                    S I      S   Y   P     H   H E                    C
00037 !                SSSS  I  SSSS    Y   P     H   H EEEEE                C
00038 !                                                                      C
00039 !----------------------------------------------------------------------C
00040 !======================================================================!
00041 
00042       !================================================================!
00043       SUBROUTINE SUSPENSION_BILAN
00044      &(MESH,CST,HN,ZFCL_S,MASKEL,IELMT,ITRA,LT,NIT,DT,CSF,
00045      & MASSOU,MASED0,MSK,ENTET,MASTEN,MASTOU,MASINI,T2,
00046      & T3,MASFIN,MASDEPT,MASDEP,AGGLOT,
00047      & VOLU2D,NUMLIQ,NFRLIQ,NPTFR,FLBORTRA)
00048       USE BIEF
00049       IMPLICIT NONE
00050       TYPE(BIEF_MESH),  INTENT(INOUT) :: MESH
00051       TYPE(BIEF_OBJ),   INTENT(IN)    :: CST,HN,VOLU2D
00052       TYPE(BIEF_OBJ),   INTENT(IN)    :: ZFCL_S,MASKEL,FLBORTRA
00053       INTEGER,          INTENT(IN)    :: IELMT,ITRA,LT,NIT
00054       INTEGER,          INTENT(IN)    :: NFRLIQ,NPTFR
00055       INTEGER,          INTENT(IN)    :: NUMLIQ(NPTFR)
00056       DOUBLE PRECISION, INTENT(IN)    :: DT,CSF
00057       DOUBLE PRECISION, INTENT(IN)    :: MASSOU,MASED0,AGGLOT
00058       LOGICAL,          INTENT(IN)    :: MSK,ENTET
00059       DOUBLE PRECISION, INTENT(INOUT) :: MASTEN,MASTOU,MASINI
00060       TYPE(BIEF_OBJ),   INTENT(INOUT) :: T2,T3
00061       DOUBLE PRECISION, INTENT(INOUT) :: MASFIN,MASDEPT,MASDEP
00062       END SUBROUTINE SUSPENSION_BILAN
00063       !================================================================!
00064 !                     ***************************
00065                      SUBROUTINE SUSPENSION_BILAN_COH
00066 !                    ***************************
00067 !
00068      &(MESH,CST,HN,ZFCL_S,MASKEL,IELMT,ITRA,LT,NIT,DT,
00069      &  XMVS,MS_VASE, NOMBLAY,NPOIN,
00070      &  MASSOU,MASED0,MSK,ENTET,MASTEN,MASTOU,MASINI,T1,T2,
00071      &  T3,MASFIN,MASDEPT,MASDEP,AGGLOT,
00072      &  VOLU2D,NUMLIQ,NFRLIQ,NPTFR,FLBORTRA,SEDCO)
00073       USE BIEF
00074       IMPLICIT NONE
00075       TYPE(BIEF_MESH),  INTENT(INOUT) :: MESH
00076       TYPE(BIEF_OBJ),   INTENT(IN)    :: HN,CST
00077       TYPE(BIEF_OBJ),   INTENT(IN)    :: ZFCL_S,MASKEL,FLBORTRA
00078       TYPE(BIEF_OBJ),   INTENT(IN)    :: VOLU2D
00079       INTEGER,          INTENT(IN)    :: IELMT,ITRA,LT,NIT,NFRLIQ,NPTFR
00080       INTEGER,          INTENT(IN)    :: NUMLIQ(NFRLIQ), NOMBLAY,NPOIN
00081       DOUBLE PRECISION, INTENT(IN)    :: DT,XMVS
00082       DOUBLE PRECISION, INTENT(IN)    :: MASSOU,MASED0,AGGLOT
00083       LOGICAL,          INTENT(IN)    :: MSK,ENTET,SEDCO
00084       DOUBLE PRECISION, INTENT(INOUT) :: MASTEN,MASTOU,MASINI
00085       TYPE(BIEF_OBJ),   INTENT(INOUT) :: T2,T3,T1
00086       DOUBLE PRECISION, INTENT(INOUT) :: MASFIN,MASDEPT,MASDEP
00087       DOUBLE PRECISION, INTENT(IN)    :: MS_VASE(NPOIN, NOMBLAY)
00088       END SUBROUTINE SUSPENSION_BILAN_COH
00089 
00090       !================================================================!
00091       SUBROUTINE SUSPENSION_COMPUTATION
00092       ! ********************************* !
00093      &(SLVTRA, HN,HN_TEL,UCONV, VCONV, MU,TOB,FDM, FD90, KSP,KSR,KS,
00094      & ELAY, AVA, AFBOR, BFBOR, LIMDIF, CLT, MASKEL, MASKTR,
00095      & MASKPT, IFAMAS, NPOIN, IELM, NPTFR, ITRA, LT, NIT, RESOL,
00096      & OPTBAN, KENT,KDDL,KDIR,KSORT,KLOG,KINC,KNEU,
00097      & OPTSUP, OPDTRA, DEBUG,CSF_SABLE,
00098      & TETA_SUSP, DT, MASED0, ZERO, XWC, KARMAN, XMVE, XMVS, VCE,GRAV,
00099      & HMIN, VITCD, VITCE,PARTHENIADES, ENTETS,
00100      & BILMA,MSK,CHARR,IMP_INFLOW_C,MESH,ZF,CS,
00101      & CST,CTILD,CBOR,DISP,IT1,IT2,IT3,IT4,TB,T1,T2,T3,
00102      & T4, T5, T6, T7, T8, T9, T10, T11, T12, T14, W1, TE1, TE2, TE3, S,
00103      & AM1_S, AM2_S, MBOR,MASTEN, MASTOU, MASINI, AC,
00104      & ZFCL_S, FLUDPT, FLUDP, FLUER, HPROP, DISP_C, CSTAEQ, CSRATIO,
00105      & MASFIN, MASDEPT, MASDEP, MASSOU,QS_C,ICQ, ZREF,
00106      & CORR_CONV,U2D,V2D,SEDCO,DIFT,DM1,ZCONV,UCONV_TEL,VCONV_TEL,
00107      & SOLSYS,FLBOR_TEL,FLBOR_SIS,FLBORTRA,CODE,
00108      & VOLU2D,V2DPAR,UNSV2D,NUMLIQ,NFRLIQ,LICBOR,MIXTE,AVAIL,NSICLA,
00109      & ES,ES_SABLE,ES_VASE,NOMBLAY,CONC,TOCE_VASE,TOCE_SABLE,
00110      & FLUER_VASE,TOCE_MIXTE,MS_SABLE,MS_VASE,TASS,DIRFLU,QSCLXS,QSCLYS,
00111      & MAXADV)
00112       USE BIEF
00113       IMPLICIT NONE
00114       TYPE (SLVCFG),    INTENT(INOUT) :: SLVTRA
00115       TYPE (BIEF_OBJ),  INTENT(IN)    :: ZF,VOLU2D,V2DPAR,UNSV2D
00116       TYPE (BIEF_OBJ),  INTENT(IN), TARGET    :: HN,HN_TEL
00117       TYPE (BIEF_OBJ),  INTENT(INOUT) :: UCONV,VCONV
00118       TYPE (BIEF_OBJ),  INTENT(IN)    :: MU,KSP,KSR,KS
00119       TYPE (BIEF_OBJ),  INTENT(IN)    :: TOB,LICBOR
00120       TYPE (BIEF_OBJ),  INTENT(INOUT) :: ELAY
00121       TYPE (BIEF_OBJ),  INTENT(IN)    :: AFBOR,BFBOR
00122       TYPE (BIEF_OBJ),  INTENT(IN)    :: MASKEL,MASKPT,IFAMAS
00123       TYPE (BIEF_OBJ),  INTENT(INOUT) :: MASKTR,LIMDIF,CLT
00124       INTEGER,          INTENT(IN)    :: NPOIN,IELM,NPTFR,ITRA,LT
00125       INTEGER,          INTENT(IN)    :: NIT,RESOL,OPTBAN,KENT,KDDL
00126       INTEGER,          INTENT(IN)    :: KDIR,OPTSUP,OPDTRA,SOLSYS
00127       INTEGER,          INTENT(IN)    :: KSORT,KLOG,KINC,KNEU
00128       INTEGER,          INTENT(IN)    :: NFRLIQ,NSICLA,NOMBLAY
00129       INTEGER,          INTENT(IN)    :: DEBUG,DIRFLU,MAXADV
00130       INTEGER,          INTENT(IN)    :: NUMLIQ(NFRLIQ)
00131       DOUBLE PRECISION, INTENT(IN)    :: TETA_SUSP, DT, MASED0
00132       DOUBLE PRECISION, INTENT(IN)    :: XWC,FDM,FD90
00133       DOUBLE PRECISION, INTENT(IN)    :: CSF_SABLE,AVA(NPOIN)
00134       DOUBLE PRECISION, INTENT(IN)    :: KARMAN, XMVE, XMVS,VCE, GRAV
00135       DOUBLE PRECISION, INTENT(IN)    :: VITCD,VITCE,PARTHENIADES,HMIN
00136       LOGICAL,          INTENT(IN)    :: ENTETS,BILMA,MSK,SEDCO
00137       LOGICAL,          INTENT(IN)    :: CHARR, IMP_INFLOW_C,CORR_CONV
00138       LOGICAL,          INTENT(IN)    :: DIFT,MIXTE, TASS
00139       TYPE (BIEF_MESH), INTENT(INOUT) :: MESH
00140       TYPE (BIEF_OBJ),  INTENT(INOUT) :: CS,CST,CTILD,CBOR,FLBOR_SIS
00141       TYPE (BIEF_OBJ),  INTENT(INOUT) :: DISP,IT1,IT2,IT3,IT4,TB
00142       TYPE (BIEF_OBJ),  INTENT(INOUT) :: T2, T3, T4, T5, T6, T7, T8
00143       TYPE (BIEF_OBJ),  INTENT(INOUT), TARGET :: T1
00144       TYPE (BIEF_OBJ),  INTENT(INOUT) :: T9, T10, T11, T12, T14, W1, TE1
00145       TYPE (BIEF_OBJ),  INTENT(INOUT) :: TE2, TE3, S, AM1_S, AM2_S
00146       TYPE (BIEF_OBJ),  INTENT(INOUT) :: MBOR,ZREF
00147       DOUBLE PRECISION, INTENT(INOUT) :: MASTEN, MASTOU, MASINI, AC
00148       TYPE (BIEF_OBJ),  INTENT(INOUT) :: ZFCL_S
00149       TYPE (BIEF_OBJ),  INTENT(IN)    :: UCONV_TEL,VCONV_TEL
00150       TYPE (BIEF_OBJ),  INTENT(INOUT) :: FLUDPT,FLUDP,FLUER,FLBORTRA
00151       TYPE (BIEF_OBJ),  INTENT(INOUT) :: HPROP, DISP_C, CSTAEQ,CSRATIO
00152       TYPE (BIEF_OBJ),  INTENT(INOUT) :: FLUER_VASE,TOCE_MIXTE
00153       TYPE (BIEF_OBJ),  INTENT(INOUT)  :: QSCLXS,QSCLYS
00154 !CV
00155       DOUBLE PRECISION,  INTENT(INOUT) :: MS_SABLE(NPOIN, NOMBLAY)
00156       DOUBLE PRECISION,  INTENT(INOUT) :: MS_VASE(NPOIN, NOMBLAY)
00157       DOUBLE PRECISION, INTENT(INOUT) :: ES_SABLE(NPOIN,NOMBLAY)
00158       DOUBLE PRECISION, INTENT(INOUT) :: ES_VASE(NPOIN,NOMBLAY)
00159 !CV
00160       DOUBLE PRECISION, INTENT(INOUT)  :: MASFIN,MASDEPT,MASDEP
00161       DOUBLE PRECISION, INTENT(IN)    :: ZERO
00162       DOUBLE PRECISION, INTENT(INOUT) :: MASSOU
00163       DOUBLE PRECISION, INTENT(INOUT) :: AVAIL(NPOIN,NOMBLAY,NSICLA)
00164       DOUBLE PRECISION, INTENT(INOUT) :: ES(NPOIN,NOMBLAY),TOCE_SABLE
00165       DOUBLE PRECISION, INTENT(INOUT) :: CONC(NPOIN,NOMBLAY)
00166       DOUBLE PRECISION, INTENT(INOUT) :: TOCE_VASE(NOMBLAY)
00167       TYPE (BIEF_OBJ),  INTENT(IN)    :: QS_C,U2D,V2D,DM1,ZCONV
00168       TYPE (BIEF_OBJ),  INTENT(IN)    :: FLBOR_TEL
00169       INTEGER,          INTENT(IN)    :: ICQ
00170       CHARACTER(LEN=24), INTENT(IN)   :: CODE
00171       !----------------------------------------------------------------!
00172       END SUBROUTINE SUSPENSION_COMPUTATION
00173       !================================================================!
00174 
00175       !================================================================!
00176         SUBROUTINE SUSPENSION_CONV
00177      &(TOB,XMVE,KSR,NPOIN,ZREF,U2D,V2D,HN,HMIN,
00178      & UCONV,VCONV,KARMAN,ZERO,XWC,T1,ALPHA,RESOL,GLOSEG1,GLOSEG2,NSEG,
00179      & FLULIM,YAFLULIM,SOLSYS_SIS,SOLSYS,UCONV_TEL,VCONV_TEL)
00180       USE BIEF_DEF
00181       IMPLICIT NONE
00182       TYPE (BIEF_OBJ),  INTENT(IN)    :: HN,U2D,V2D,ZREF,KSR
00183       TYPE (BIEF_OBJ),  INTENT(INOUT) :: UCONV,VCONV,T1,ALPHA,FLULIM
00184       TYPE (BIEF_OBJ),  INTENT(IN)    :: TOB,UCONV_TEL,VCONV_TEL
00185       INTEGER,          INTENT(IN)    :: NPOIN,RESOL,NSEG,SOLSYS
00186       INTEGER,          INTENT(IN)    :: GLOSEG1(NSEG),GLOSEG2(NSEG)
00187       INTEGER,          INTENT(INOUT) :: SOLSYS_SIS
00188       DOUBLE PRECISION, INTENT(IN)    :: ZERO,XWC,HMIN
00189       DOUBLE PRECISION, INTENT(IN)    :: KARMAN,XMVE
00190       LOGICAL, INTENT(INOUT)          :: YAFLULIM
00191       !----------------------------------------------------------------!
00192       END SUBROUTINE SUSPENSION_CONV
00193       !================================================================!
00194 
00195       !================================================================!
00196       SUBROUTINE SUSPENSION_DISPERSION
00197       !----------------------------------------------------------------!
00198      & (TOB, XMVE,HN,  OPTDIF, NPOIN, XKX, XKY,
00199      &   T1, T2, T3, KX, KY, KZ, DISP,U2D,V2D,VISC_TEL,CODE)
00200       !----------------------------------------------------------------!
00201       USE BIEF
00202       IMPLICIT NONE
00203       TYPE (BIEF_OBJ),  INTENT(IN)    :: TOB, HN,VISC_TEL
00204       INTEGER,          INTENT(IN)    :: OPTDIF, NPOIN
00205       DOUBLE PRECISION, INTENT(IN)    :: XMVE, XKX, XKY
00206       TYPE (BIEF_OBJ),  INTENT(INOUT) :: T1, T2, T3
00207       TYPE (BIEF_OBJ),  INTENT(INOUT) :: KX, KY, KZ, DISP
00208       TYPE (BIEF_OBJ),  INTENT(IN)    :: U2D,V2D
00209       CHARACTER(LEN=24), INTENT(IN)   :: CODE
00210       !----------------------------------------------------------------!
00211       END SUBROUTINE SUSPENSION_DISPERSION
00212       !================================================================!
00213 
00214       !==============================!
00215       SUBROUTINE SUSPENSION_DEPOT    !
00216       ! **************************** !
00217      &(TOB,HN, NPOIN, HMIN,XWC,VITCD,
00218      & ZERO,KARMAN,FDM,FD90,XMVE, T1,T2,ZREF,FLUDPT,DEBUG,SEDCO,CSTAEQ)
00219       USE BIEF
00220       IMPLICIT NONE
00221       TYPE (BIEF_OBJ),  INTENT(IN)    :: HN, TOB, CSTAEQ
00222       INTEGER,          INTENT(IN)    :: NPOIN,DEBUG
00223       LOGICAL,          INTENT(IN)    :: SEDCO
00224       DOUBLE PRECISION, INTENT(IN)    :: HMIN
00225       DOUBLE PRECISION, INTENT(IN)    :: FDM,FD90,XWC
00226       DOUBLE PRECISION, INTENT(IN)    :: VITCD
00227       DOUBLE PRECISION, INTENT(IN)    :: ZERO, KARMAN,XMVE
00228       TYPE (BIEF_OBJ),  INTENT(INOUT) :: T1,T2
00229       TYPE (BIEF_OBJ),  INTENT(IN)    :: ZREF
00230       TYPE (BIEF_OBJ),  INTENT(INOUT) :: FLUDPT
00231       !----------------------------------------------------------------!
00232       END SUBROUTINE SUSPENSION_DEPOT
00233       !================================================================!
00234 
00235       !================================!
00236         SUBROUTINE SUSPENSION_EROSION  !
00237       ! ****************************** !
00238 
00239      &(TAUP,HN,FDM,FD90,AVA,NPOIN,CHARR,XMVE,XMVS,VCE,GRAV,HMIN,XWC,
00240      & ZERO,ZREF,AC,FLUER,CSTAEQ,QSC,ICQ,U2D,V2D,CSRATIO,T14,DEBUG)
00241 !
00242       USE BIEF
00243       IMPLICIT NONE
00244       TYPE (BIEF_OBJ),  INTENT(IN)    :: TAUP,HN,U2D,V2D,CSRATIO,T14
00245       INTEGER,          INTENT(IN)    :: NPOIN,DEBUG
00246       LOGICAL,          INTENT(IN)    :: CHARR
00247       DOUBLE PRECISION, INTENT(IN)    :: XMVE,XMVS,GRAV,VCE,HMIN
00248       DOUBLE PRECISION, INTENT(IN)    :: XWC,ZERO,AVA(NPOIN),FDM,FD90
00249       TYPE (BIEF_OBJ),  INTENT(IN)    :: ZREF
00250       DOUBLE PRECISION, INTENT(INOUT) :: AC
00251       TYPE (BIEF_OBJ),  INTENT(INOUT) :: FLUER,CSTAEQ
00252       TYPE(BIEF_OBJ),   INTENT(IN)    :: QSC
00253       INTEGER,          INTENT (IN)   :: ICQ
00254       !----------------------------------------------------------------!
00255       END SUBROUTINE SUSPENSION_EROSION
00256       !================================================================!
00257 
00258       !================================!
00259       SUBROUTINE SUSPENSION_EROSION_COH
00260       ! ****************************** !
00261      &(TAUP,NPOIN,XMVS,PARTHENIADES,ZERO,
00262      & FLUER, TOCE_VASE, NOMBLAY, DT, MS_VASE)
00263 !!
00264       USE BIEF_DEF
00265       USE DECLARATIONS_SISYPHE, ONLY : NLAYMAX
00266       IMPLICIT NONE
00267       INTEGER,          INTENT(IN)     :: NOMBLAY
00268       INTEGER,          INTENT(IN)     :: NPOIN
00269       DOUBLE PRECISION, INTENT(IN)     :: XMVS
00270       DOUBLE PRECISION, INTENT(IN)     :: ZERO,PARTHENIADES
00271       DOUBLE PRECISION,  INTENT(INOUT) :: MS_VASE(NPOIN,NOMBLAY)
00272       DOUBLE PRECISION, INTENT(IN)     :: TOCE_VASE(NOMBLAY), DT
00273       TYPE (BIEF_OBJ),  INTENT(INOUT)  :: FLUER
00274       TYPE (BIEF_OBJ),  INTENT(IN)     :: TAUP
00275 !
00276 !
00277       !----------------------------------------------------------------!
00278       END SUBROUTINE SUSPENSION_EROSION_COH
00279       !================================================================!
00280 
00281       !================================!
00282         SUBROUTINE SUSPENSION_FLUX_MIXTE
00283       ! ****************************** !
00284      &  (TAUP,HN,FDM,NPOIN,
00285      &   CHARR,XMVE,XMVS,VCE,GRAV,HMIN,XWC,
00286      &   ZERO,PARTHENIADES,FLUER_SABLE,FLUER_VASE,ZREF,
00287      &   AC,CSTAEQ,QSC,ICQ,DEBUG,AVAIL,NSICLA,ES,
00288      &   TOCE_VASE,TOCE_SABLE,
00289      &   NOMBLAY,DT,TOCE_MIXTE,MS_SABLE,MS_VASE)
00290 
00291       USE BIEF_DEF
00292       IMPLICIT NONE
00293       TYPE (BIEF_OBJ),  INTENT(IN)    :: TAUP,HN
00294       INTEGER,          INTENT(IN)    :: NPOIN,DEBUG,NSICLA
00295       INTEGER,          INTENT(IN)    :: NOMBLAY
00296       LOGICAL,          INTENT(IN)    :: CHARR
00297       DOUBLE PRECISION, INTENT(IN)    :: XMVE, XMVS, VCE,GRAV, HMIN
00298       DOUBLE PRECISION, INTENT(IN)    ::  XWC,FDM
00299       DOUBLE PRECISION, INTENT(IN)    :: ZERO, PARTHENIADES
00300       TYPE (BIEF_OBJ),  INTENT(IN)    :: ZREF
00301       DOUBLE PRECISION, INTENT(INOUT) :: AC,AVAIL(NPOIN,NOMBLAY,NSICLA)
00302       DOUBLE PRECISION, INTENT(INOUT) :: ES(NPOIN,NOMBLAY)
00303       TYPE (BIEF_OBJ),  INTENT(INOUT) :: CSTAEQ
00304       TYPE (BIEF_OBJ),  INTENT(INOUT) :: FLUER_SABLE,FLUER_VASE
00305       DOUBLE PRECISION,  INTENT(INOUT) :: MS_SABLE(NPOIN,NOMBLAY)
00306       DOUBLE PRECISION,  INTENT(INOUT) :: MS_VASE(NPOIN,NOMBLAY)
00307       DOUBLE PRECISION,  INTENT(INOUT) ::TOCE_MIXTE(NPOIN,NOMBLAY)
00308       DOUBLE PRECISION, INTENT(IN)      :: DT
00309       TYPE(BIEF_OBJ),   INTENT(IN)       ::  QSC
00310       INTEGER,          INTENT (IN)      :: ICQ
00311       DOUBLE PRECISION, INTENT(IN)     :: TOCE_VASE(NOMBLAY)
00312       DOUBLE PRECISION, INTENT(IN)     :: TOCE_SABLE
00313       !----------------------------------------------------------------!
00314       END SUBROUTINE
00315       !================================================================!
00316 
00317       !================================================================!
00318       SUBROUTINE SUSPENSION_FREDSOE
00319       !----------------------------------------------------------------!
00320      &  (FDM, TAUP, NPOIN, GRAV, XMVE, XMVS, ZERO, AC,  CSTAEQ)
00321       USE BIEF
00322       IMPLICIT NONE
00323       TYPE(BIEF_OBJ),   INTENT(IN)    ::  TAUP
00324       INTEGER,          INTENT(IN)    :: NPOIN
00325       DOUBLE PRECISION, INTENT(IN)    ::  GRAV, XMVE, XMVS
00326       DOUBLE PRECISION, INTENT(IN)    :: ZERO,FDM
00327       DOUBLE PRECISION, INTENT(IN)    :: AC
00328       TYPE(BIEF_OBJ),   INTENT(INOUT) ::  CSTAEQ
00329       !----------------------------------------------------------------!
00330       END SUBROUTINE SUSPENSION_FREDSOE
00331       !================================================================!
00332 
00333 
00334       !================================================================!
00335       SUBROUTINE SUSPENSION_LISTING
00336       !----------------------------------------------------------------!
00337      &  (MESH,CST,ZFCL_S,UCONV,VCONV,MASKEL,IELMT,DT,MSK,T1)
00338       !----------------------------------------------------------------!
00339       USE BIEF
00340       IMPLICIT NONE
00341       TYPE(BIEF_MESH),  INTENT(INOUT) :: MESH
00342       TYPE(BIEF_OBJ),   INTENT(IN)    :: CST, ZFCL_S
00343       TYPE(BIEF_OBJ),   INTENT(IN)    :: UCONV, VCONV, MASKEL
00344       INTEGER,          INTENT(IN)    :: IELMT
00345       DOUBLE PRECISION, INTENT(IN)    :: DT
00346       LOGICAL,          INTENT(IN)    :: MSK
00347       TYPE(BIEF_OBJ),   INTENT(INOUT) :: T1
00348       !----------------------------------------------------------------!
00349       END SUBROUTINE SUSPENSION_LISTING
00350       !================================================================!
00351 
00352         SUBROUTINE SUSPENSION_MAIN
00353       ! ************************** !
00354 
00355      &(SLVTRA,HN,HN_TEL,MU,TOB,FDM,FD90,KSP,KSR,KS,VOLU2D,V2DPAR,UNSV2D,
00356      & AFBOR,BFBOR,ZF,LICBOR,IFAMAS,MASKEL,MASKPT,U2D,V2D,NSICLA,NPOIN,
00357      & NPTFR,IELMT,OPTDIF,RESOL,LT,NIT,OPTBAN,OPTSUP,OPDTRA,
00358      & KENT,KSORT,KLOG,KINC,KNEU,KDIR,KDDL,DEBUG,
00359      & DTS,CSF_SABLE,ZERO,GRAV,XKX,XKY,KARMAN,
00360      & XMVE,XMVS,VCE,HMIN,XWC,VITCD,VITCE,PARTHENIADES,BILMA,MSK,
00361      & CHARR,IMP_INFLOW_C,MESH,ZF_S,CS,CST,CTILD,CBOR,DISP,
00362      & IT1,IT2,IT3,IT4,TB,T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T14,W1,
00363      & TE1,CLT,TE2,TE3,S,AM1_S,AM2_S,MBOR,ELAY,LIMDIF,
00364      & MASKTR, TETA_SUSP, AC, MASED0, MASINI, MASTEN,
00365      & MASTOU, ES,ES_SABLE, ES_VASE,AVAIL,  ENTETS, PASS, ZFCL_S,
00366      & HPROP, FLUDPT, FLUDP, FLUER, DISP_C, KX, KY,
00367      & KZ, UCONV, VCONV,QSXS, QSYS, QSCLXS, QSCLYS, QSCL_S,
00368      & QS_S,QS_C,CSTAEQ,CSRATIO,ICQ,MASTCP,MASFIN,MASDEPT,MASDEP,MASSOU,
00369      & CORR_CONV,ZREF,SEDCO,VISC_TEL,CODE,
00370      & DIFT,DM1,UCONV_TEL,VCONV_TEL,ZCONV,SOLSYS,FLBOR_TEL,FLBOR_SIS,
00371      & FLBORTRA,NUMLIQ,NFRLIQ,MIXTE,NOMBLAY,CONC,
00372      & TOCE_VASE,TOCE_SABLE,FLUER_VASE,TOCE_MIXTE,MS_SABLE,MS_VASE,TASS,
00373      & DIRFLU,MAXADV)
00374       USE BIEF
00375       IMPLICIT NONE
00376       TYPE (SLVCFG),    INTENT(INOUT) :: SLVTRA
00377       TYPE (BIEF_OBJ),  INTENT(IN)    :: HN,HN_TEL,MU,TOB
00378       TYPE (BIEF_OBJ),  INTENT(IN)    :: KSP,KSR,KS
00379       TYPE (BIEF_OBJ),  INTENT(IN)    :: VOLU2D,AFBOR,BFBOR,ZF
00380       TYPE (BIEF_OBJ),  INTENT(IN)    :: V2DPAR,UNSV2D
00381       TYPE (BIEF_OBJ),  INTENT(IN)    :: LICBOR, IFAMAS, MASKEL, MASKPT
00382       TYPE (BIEF_OBJ),  INTENT(IN)    :: U2D, V2D,DM1,ZCONV,FLBOR_TEL
00383       INTEGER,          INTENT(IN)    :: NSICLA, NPOIN, NPTFR, IELMT
00384       INTEGER,          INTENT(IN)    :: OPTDIF, RESOL,LT, NIT
00385       INTEGER,          INTENT(IN)    :: OPTBAN,OPTSUP,OPDTRA,NFRLIQ
00386       INTEGER,          INTENT(IN)    :: KENT, KSORT, KLOG, KINC, KNEU
00387       INTEGER,          INTENT(IN)    :: KDIR,KDDL
00388       INTEGER,          INTENT(IN)    :: DEBUG,SOLSYS,NOMBLAY,MAXADV
00389       INTEGER,          INTENT(IN)    :: NUMLIQ(NFRLIQ)
00390       DOUBLE PRECISION, INTENT(IN)    :: DTS,CSF_SABLE
00391       DOUBLE PRECISION, INTENT(IN)    :: ZERO,GRAV
00392       DOUBLE PRECISION, INTENT(IN)    :: FDM(NSICLA),FD90(NSICLA)
00393       DOUBLE PRECISION, INTENT(IN)    :: XKX,XKY,KARMAN,VCE
00394       DOUBLE PRECISION, INTENT(IN)    :: XMVE, XMVS, HMIN, XWC(NSICLA)
00395       DOUBLE PRECISION, INTENT(IN)    :: VITCD, VITCE
00396       DOUBLE PRECISION, INTENT(IN)    :: PARTHENIADES
00397       LOGICAL,          INTENT(IN)    :: BILMA, MSK, CHARR
00398       LOGICAL,          INTENT(IN)    :: IMP_INFLOW_C
00399       LOGICAL,          INTENT(IN)    :: SEDCO(NSICLA),MIXTE,TASS
00400       TYPE(BIEF_MESH),  INTENT(INOUT) :: MESH
00401       TYPE (BIEF_OBJ),  INTENT(INOUT) :: ZF_S,CS,CST,CTILD,CBOR
00402       TYPE (BIEF_OBJ),  INTENT(INOUT) :: DISP,IT1,IT2,IT3,IT4,TB
00403       TYPE (BIEF_OBJ),  INTENT(INOUT) :: T1,T2,T3,T4,T5,T6,T7,T8
00404       TYPE (BIEF_OBJ),  INTENT(INOUT) :: T9,T10,T11,T12,T14,W1,TE1,CLT
00405       TYPE (BIEF_OBJ),  INTENT(INOUT) :: TE2,TE3,S,AM1_S,AM2_S,MBOR
00406       TYPE (BIEF_OBJ),  INTENT(INOUT) :: ELAY, LIMDIF,FLBORTRA
00407       TYPE (BIEF_OBJ),  INTENT(INOUT) :: MASKTR
00408       DOUBLE PRECISION, INTENT(INOUT) :: TETA_SUSP, AC(NSICLA)
00409       DOUBLE PRECISION, INTENT(INOUT) :: MASED0(NSICLA), MASINI(NSICLA)
00410       DOUBLE PRECISION, INTENT(INOUT) :: MASTEN(NSICLA), MASTOU(NSICLA)
00411       DOUBLE PRECISION, INTENT(INOUT) :: ES(NPOIN,NOMBLAY)
00412       DOUBLE PRECISION, INTENT(INOUT) :: ES_SABLE(NPOIN,NOMBLAY)
00413       DOUBLE PRECISION, INTENT(INOUT) :: ES_VASE(NPOIN,NOMBLAY)
00414       DOUBLE PRECISION, INTENT(INOUT) :: CONC(NPOIN,NOMBLAY)
00415       DOUBLE PRECISION, INTENT(INOUT) :: TOCE_VASE(NOMBLAY)
00416       DOUBLE PRECISION, INTENT(INOUT) :: TOCE_SABLE
00417       DOUBLE PRECISION, INTENT(INOUT) :: AVAIL(NPOIN,NOMBLAY,NSICLA)
00418       LOGICAL,          INTENT(INOUT) :: ENTETS, PASS
00419       TYPE (BIEF_OBJ),  INTENT(INOUT) :: ZFCL_S,HPROP,ZREF
00420       TYPE (BIEF_OBJ),  INTENT(INOUT) :: FLUDPT,FLUDP,FLUER
00421       TYPE (BIEF_OBJ),  INTENT(INOUT) :: DISP_C,KX,KY,KZ,UCONV
00422       TYPE (BIEF_OBJ),  INTENT(INOUT) :: VCONV,FLBOR_SIS
00423       TYPE (BIEF_OBJ),  INTENT(INOUT) :: QSXS,QSYS,QSCLXS,QSCLYS
00424       TYPE (BIEF_OBJ),  INTENT(INOUT) :: QSCL_S,QS_S,CSTAEQ,CSRATIO
00425       TYPE (BIEF_OBJ),  INTENT(INOUT) :: FLUER_VASE,TOCE_MIXTE
00426       TYPE (BIEF_OBJ),  INTENT(INOUT) :: MS_SABLE,MS_VASE
00427       TYPE (BIEF_OBJ),  INTENT(IN)    :: QS_C,VISC_TEL
00428       TYPE (BIEF_OBJ),  INTENT(IN)    :: UCONV_TEL,VCONV_TEL
00429       DOUBLE PRECISION, INTENT(OUT)   :: MASTCP(NSICLA),MASFIN(NSICLA)
00430       DOUBLE PRECISION, INTENT(OUT)   :: MASDEPT(NSICLA),MASDEP(NSICLA)
00431       DOUBLE PRECISION, INTENT(OUT)   :: MASSOU
00432       INTEGER, INTENT(IN)             :: ICQ,DIRFLU
00433       LOGICAL, INTENT (IN)            :: CORR_CONV,DIFT
00434       CHARACTER(LEN=24), INTENT(IN)   :: CODE
00435 !
00436       !----------------------------------------------------------------!
00437       END SUBROUTINE SUSPENSION_MAIN
00438       !================================================================!
00439 
00440 
00441       !================================================================!
00442         SUBROUTINE SUSPENSION_ROUSE
00443       !================================================================!
00444 
00445      & (USTAR,HN,NPOIN,KARMAN,HMIN,ZERO,XWC,ZREF,T2)
00446       USE BIEF
00447       IMPLICIT NONE
00448       TYPE(BIEF_OBJ),   INTENT(IN) :: USTAR,HN,ZREF
00449       INTEGER,          INTENT(IN) :: NPOIN
00450       DOUBLE PRECISION, INTENT(IN) :: KARMAN,XWC,HMIN,ZERO
00451       TYPE(BIEF_OBJ),   INTENT(INOUT) :: T2
00452       !----------------------------------------------------------------!
00453       END SUBROUTINE SUSPENSION_ROUSE
00454       !================================================================!
00455 
00456       !================================================================!
00457         SUBROUTINE SUSPENSION_BIJKER
00458       !================================================================!
00459 
00460      &  (TAUP, HN, NPOIN, CHARR, QSC, ZREF, ZERO, HMIN, CSTAEQ, XMVE)
00461 
00462 
00463       USE BIEF
00464       IMPLICIT NONE
00465       TYPE(BIEF_OBJ),   INTENT(IN)    :: TAUP, HN,QSC
00466       TYPE (BIEF_OBJ),  INTENT(IN)    :: ZREF
00467       INTEGER,          INTENT(IN)    :: NPOIN
00468       LOGICAL,          INTENT(IN)    :: CHARR
00469       DOUBLE PRECISION, INTENT(IN)    :: ZERO
00470       DOUBLE PRECISION, INTENT(IN)    :: HMIN, XMVE
00471       TYPE(BIEF_OBJ),   INTENT(INOUT) :: CSTAEQ
00472       !----------------------------------------------------------------!
00473       END SUBROUTINE SUSPENSION_BIJKER
00474       !================================================================!
00475       ! ************************** !
00476         SUBROUTINE SUSPENSION_EVOL
00477       ! ************************** !
00478 
00479      &(ZFCL_S,FLUDP,FLUER,DT, NPOIN,XMVS, QFLUX,MS_VASE,ES_VASE,
00480      & CONC,NOMBLAY)
00481 !
00482       USE BIEF
00483       IMPLICIT NONE
00484       TYPE (BIEF_OBJ),  INTENT(INOUT)   :: ZFCL_S,FLUDP,FLUER,QFLUX
00485       DOUBLE PRECISION, INTENT(IN)      :: DT, XMVS
00486       INTEGER, INTENT(IN)               :: NPOIN,NOMBLAY
00487       DOUBLE PRECISION, INTENT(INOUT)   :: CONC(NPOIN,NOMBLAY)
00488       DOUBLE PRECISION,  INTENT(INOUT)  :: MS_VASE(NPOIN,NOMBLAY)
00489       DOUBLE PRECISION,  INTENT(INOUT)  :: ES_VASE(NPOIN,NOMBLAY)
00490 
00491       END SUBROUTINE SUSPENSION_EVOL
00492       ! ***************************** !
00493         SUBROUTINE SUSPENSION_VANRIJN ! (_IMP_)
00494       ! ***************************** !
00495 
00496      &  (FDM, TAUP, NPOIN, GRAV,
00497      &   XMVE, XMVS,VCE, ZERO, AC, CSTAEQ,ZREF)
00498 
00499       USE BIEF
00500       IMPLICIT NONE
00501       TYPE(BIEF_OBJ),   INTENT(IN)    :: TAUP,ZREF
00502       INTEGER,          INTENT(IN)    :: NPOIN
00503       DOUBLE PRECISION, INTENT(IN)    ::  GRAV,  XMVE, XMVS,VCE
00504       DOUBLE PRECISION, INTENT(IN)    :: ZERO,AC,FDM
00505       TYPE(BIEF_OBJ),   INTENT(INOUT) :: CSTAEQ
00506 
00507       END SUBROUTINE SUSPENSION_VANRIJN
00508 
00509       ! ***************************** !
00510         SUBROUTINE SUSPENSION_SANDFLOW ! (_IMP_)
00511       ! ***************************** !
00512 !
00513      &  (FDM, FD90, TAUP, NPOIN, GRAV,
00514      &   XMVE, XMVS, ZERO, AC, CSTAEQ,ZREF,HN,U2D,V2D,CSRATIO)
00515 !
00516       USE BIEF
00517       USE DECLARATIONS_SISYPHE, ONLY : VCE,UW,HOULE,PRIVE
00518       IMPLICIT NONE
00519       TYPE(BIEF_OBJ),   INTENT(IN)    :: TAUP,ZREF,HN,U2D,V2D,CSRATIO
00520       INTEGER,          INTENT(IN)    :: NPOIN
00521       DOUBLE PRECISION, INTENT(IN)    :: GRAV, XMVE, XMVS
00522       DOUBLE PRECISION, INTENT(IN)    :: ZERO,AC, FDM, FD90
00523       TYPE(BIEF_OBJ),   INTENT(INOUT) :: CSTAEQ
00524 !
00525       END SUBROUTINE SUSPENSION_SANDFLOW
00526 !
00527 !======================================================================!
00528 !======================================================================!
00529 
00530 !================================================================!
00531       SUBROUTINE SUSPENSION_MILES
00532     !================================================================!
00533 !
00534      & (HN,NPOIN,KARMAN,HMIN,ZERO,FDM,FD90,XWC,ZREF,T2)
00535       USE BIEF
00536       IMPLICIT NONE
00537       TYPE(BIEF_OBJ),   INTENT(IN) :: HN,ZREF
00538       INTEGER,          INTENT(IN) :: NPOIN
00539       DOUBLE PRECISION, INTENT(IN) :: FDM,FD90,KARMAN,XWC,HMIN,ZERO
00540       TYPE(BIEF_OBJ),   INTENT(INOUT) :: T2
00541       !----------------------------------------------------------------!
00542       END SUBROUTINE SUSPENSION_MILES
00543       !================================================================!
00544 
00545       END INTERFACE
00546       END MODULE INTERFACE_SISYPHE_SUSPENSION
00547 !
00548 !#######################################################################
00549 !

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