interface_sisyphe_bedload.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\sisyphe\interface_sisyphe_bedload.f
00002 !
00009                      MODULE INTERFACE_SISYPHE_BEDLOAD !
00010 !                    **********************************
00011 !
00012 !
00013 !***********************************************************************
00014 ! SISYPHE   V7P0                                   03/06/2014
00015 !***********************************************************************
00016 !
00017 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00018 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00019 !
00020         INTERFACE
00021 !
00022 !**********************************************************************C
00023 ! SISYPHE RELEASE 5.6  12/01/05  F. HUVELIN                            C
00024 !**********************************************************************C
00025 !
00026 ! ======================================= !
00027 !  INTERFACE FOR THE SISYPHE SUBROUTINE   !
00028 !         FOR BEDLOAD TRANSPORT           !
00029 ! ======================================= !
00030 !
00031 ! COPYRIGHT EDF-DTMPL-SOGREAH-LHF-GRADIENT
00032 !**********************************************************************C
00033 !                                                                      C
00034 !                 SSSS I   SSSS Y   Y PPPP  H   H EEEEE                C
00035 !                S     I  S      Y Y  P   P H   H E                    C
00036 !                 SSS  I   SSS    Y   PPPP  HHHHH EEEE                 C
00037 !                    S I      S   Y   P     H   H E                    C
00038 !                SSSS  I  SSSS    Y   P     H   H EEEEE                C
00039 !                                                                      C
00040 !----------------------------------------------------------------------C
00041 !======================================================================!
00042 !======================================================================!
00043 !
00044       !================================================================!
00045       SUBROUTINE BEDLOAD_BAILARD !
00046       !----------------------------------------------------------------!
00047      &(U2D,V2D,UCMOY,TOB,TOBW,THETAW,UW,FW,CF,NPOIN,PI,
00048      & XMVE,GRAV,DENS,XWC,ALPHAW,QSCX,QSCY,QSSX,QSSY,
00049      & UC3X,UC3Y,US4X,US4Y,THETAC,FCW,QSC,QSS,HOULE)
00050       USE BIEF_DEF
00051       IMPLICIT NONE
00052       TYPE(BIEF_OBJ),   INTENT(IN)    :: U2D,V2D,UCMOY, TOB
00053       TYPE(BIEF_OBJ),   INTENT(IN)    :: TOBW, THETAW, UW, FW, CF
00054       INTEGER,          INTENT(IN)    :: NPOIN
00055       LOGICAL,          INTENT(IN)    :: HOULE
00056       DOUBLE PRECISION, INTENT(IN)    :: PI, XMVE, GRAV, DENS, XWC
00057       TYPE(BIEF_OBJ),   INTENT(INOUT) :: ALPHAW  ! WORK ARRAY BEDLOAD_EB
00058       TYPE(BIEF_OBJ),   INTENT(INOUT) :: QSCX, QSCY    ! WORK ARRAY T3 AND T4
00059       TYPE(BIEF_OBJ),   INTENT(INOUT) :: QSSX, QSSY    ! WORK ARRAY T5 AND T6
00060       TYPE(BIEF_OBJ),   INTENT(INOUT) :: UC3X, UC3Y    ! WORK ARRAY T7 AND T8
00061       TYPE(BIEF_OBJ),   INTENT(INOUT) :: US4X, US4Y    ! WORK ARRAY T9 AND T10
00062       TYPE(BIEF_OBJ),   INTENT(INOUT)   :: THETAC, FCW   ! WORK ARRAY T11 AND T12
00063       TYPE(BIEF_OBJ),   INTENT(INOUT)   :: QSC, QSS
00064       !----------------------------------------------------------------!
00065       END SUBROUTINE BEDLOAD_BAILARD
00066 !
00067       !================================================================!
00068 !
00069 !
00070       !================================================================!
00071       SUBROUTINE BEDLOAD_BIJKER
00072       !----------------------------------------------------------------!
00073      &  (TOBW,TOB,MU,KSP,KSR,HN,NPOIN,DM,DENS,XMVE,GRAV,XWC,
00074      &     KARMAN,ZERO,T4,T7,T8,T9,QSC,QSS,BIJK,HOULE)
00075       !----------------------------------------------------------------!
00076       USE BIEF
00077       IMPLICIT NONE
00078       TYPE(BIEF_OBJ),   INTENT(IN)    :: TOBW, TOB, MU,KSP,KSR,HN
00079       INTEGER,          INTENT(IN)    :: NPOIN
00080       DOUBLE PRECISION, INTENT(IN)    :: DM, DENS, XMVE, GRAV, XWC
00081       DOUBLE PRECISION, INTENT(IN)    :: KARMAN, ZERO
00082       LOGICAL,          INTENT(IN)    :: HOULE
00083       TYPE(BIEF_OBJ),   INTENT(INOUT) :: T4
00084       TYPE(BIEF_OBJ),   INTENT(INOUT) :: T7, T8, T9
00085       TYPE(BIEF_OBJ),   INTENT(INOUT)  :: QSC, QSS
00086       DOUBLE PRECISION, INTENT(IN)     :: BIJK
00087       !----------------------------------------------------------------!
00088       END SUBROUTINE BEDLOAD_BIJKER
00089       !================================================================!
00090 !
00091 !
00092       !================================================================!
00093       SUBROUTINE BEDLOAD_CALCDW
00094       !----------------------------------------------------------------!
00095      &  (UCW, UW, TW, NPOIN, PI, UW1, UW2, TW1, TW2)
00096       !----------------------------------------------------------------!
00097       USE BIEF
00098       IMPLICIT NONE
00099       TYPE(BIEF_OBJ),   INTENT(IN)  :: UCW, UW, TW
00100       INTEGER,          INTENT(IN)  :: NPOIN
00101       DOUBLE PRECISION, INTENT(IN)  :: PI
00102       TYPE(BIEF_OBJ),   INTENT(INOUT) :: UW1, UW2, TW1, TW2
00103       !----------------------------------------------------------------!
00104       END SUBROUTINE BEDLOAD_CALCDW
00105       !================================================================!
00106 !
00107 !
00108       !================================================================!
00109       SUBROUTINE BEDLOAD_DIBWAT !
00110       !----------------------------------------------------------------!
00111 !
00112      &  (U2D,V2D,UCMOY, CF, TOB, TOBW, UW, TW, FW, THETAW, NPOIN,
00113      &   XMVE, DENS, GRAV, DM, XWC, PI, ALPHAW, T2, T3, UCW, UCN,
00114      &   UW1, UW2, TW1, TW2, THETAC, FCW, QSC,HOULE)
00115 !
00116       USE BIEF_DEF
00117       IMPLICIT NONE
00118 !
00119       TYPE(BIEF_OBJ),   INTENT(IN)    :: U2D,V2D,UCMOY, CF, TOB, TOBW
00120       TYPE(BIEF_OBJ),   INTENT(IN)    :: UW, TW, FW
00121       TYPE(BIEF_OBJ),   INTENT(IN)    :: THETAW
00122       INTEGER,          INTENT(IN)    :: NPOIN
00123       LOGICAL,          INTENT(IN)    :: HOULE
00124       DOUBLE PRECISION, INTENT(IN)    :: XMVE, DENS, GRAV, DM, XWC, PI
00125       TYPE(BIEF_OBJ),   INTENT(INOUT) :: ALPHAW          ! WORK ARRAY T1
00126       TYPE(BIEF_OBJ),   INTENT(INOUT) :: T2, T3          !
00127       TYPE(BIEF_OBJ),   INTENT(INOUT) ::  UCW, UCN ! WORK ARRAY T4, T5, T6
00128       TYPE(BIEF_OBJ),   INTENT(INOUT) :: UW1, UW2, TW1   ! WORK ARRAY T7, T8, T9
00129       TYPE(BIEF_OBJ),   INTENT(INOUT) :: TW2, THETAC     ! WORK ARRAY T10, T11
00130       TYPE(BIEF_OBJ),   INTENT(INOUT) :: FCW, QSC        ! WORK ARRAY T12
00131       !----------------------------------------------------------------!
00132       END SUBROUTINE BEDLOAD_DIBWAT
00133       !================================================================!
00134 !
00135 !
00136       !================================================================!
00137       SUBROUTINE BEDLOAD_DIFFIN
00138 !     *************************
00139 !
00140      &(U, V, NBOR, XNEBOR, YNEBOR, MASKEL, NELBOR, NPTFR,
00141      & KENT, KSORT, KLOG, KDIR, KDDL, KNEU, MSK, CLT, LITBOR,
00142      & MASKTR, LIMTRA,IKLBOR,NELEB,NELEBX)
00143       USE BIEF_DEF
00144       IMPLICIT NONE
00145       TYPE(BIEF_OBJ), INTENT(IN)    :: U,V,NBOR,XNEBOR,YNEBOR
00146       TYPE(BIEF_OBJ), INTENT(IN)    :: MASKEL,NELBOR
00147       INTEGER,        INTENT(IN)    :: NPTFR,KENT,KSORT,KLOG
00148       INTEGER,        INTENT(IN)    :: KDIR,KDDL,KNEU,NELEB,NELEBX
00149       INTEGER,        INTENT(IN)    :: IKLBOR(NELEBX,2)
00150       LOGICAL,        INTENT(IN)    :: MSK
00151       TYPE(BIEF_OBJ), INTENT(INOUT) :: CLT
00152       TYPE(BIEF_OBJ), INTENT(INOUT) :: LITBOR, MASKTR, LIMTRA
00153       !----------------------------------------------------------------!
00154       END SUBROUTINE BEDLOAD_DIFFIN
00155       !================================================================!
00156 !
00157 !
00158       !================================================================!
00159       SUBROUTINE BEDLOAD_DIRECTION
00160       !----------------------------------------------------------------!
00161      &  (QU, QV, NPOIN, PI, THETAC)
00162       !----------------------------------------------------------------!
00163       USE BIEF
00164       IMPLICIT NONE
00165       TYPE(BIEF_OBJ),   INTENT(IN)  :: QU, QV
00166       INTEGER,          INTENT(IN)  :: NPOIN
00167       DOUBLE PRECISION, INTENT(IN)  :: PI
00168       TYPE(BIEF_OBJ),   INTENT(INOUT) :: THETAC
00169       !----------------------------------------------------------------!
00170       END SUBROUTINE BEDLOAD_DIRECTION
00171       !================================================================!
00172 !
00173 !
00174 !
00175       !================================================================!
00176         SUBROUTINE BEDLOAD_EFFPNT !
00177       !----------------------------------------------------------------!
00178 !
00179      &(MASKEL,LIQBOR,S,ZF,U2D,V2D,UCMOY,NPOIN,NPTFR,IELMT,
00180      & KENT,BETA,PI,MSK,MESH,DZFDX,DZFDY,EPSIX,EPSIY,
00181      & COEF,CALFA,SALFA,SLOPEFF,PHISED,DEVIA,BETA2,
00182      & TOB,XMVS,XMVE,DM,GRAV,UNSV2D)
00183 !
00184       USE BIEF_DEF
00185       IMPLICIT NONE
00186 !
00187       TYPE(BIEF_OBJ),   INTENT(IN)    :: MASKEL,LIQBOR,S,UNSV2D
00188       TYPE(BIEF_OBJ),   INTENT(IN)    :: ZF,U2D,V2D,UCMOY,TOB
00189       INTEGER,          INTENT(IN)    :: NPOIN,NPTFR,IELMT,KENT
00190       INTEGER,          INTENT(IN)    :: SLOPEFF,DEVIA
00191       DOUBLE PRECISION, INTENT(IN)    :: BETA,PI,PHISED,BETA2
00192       DOUBLE PRECISION, INTENT(IN)    :: XMVS,XMVE,GRAV,DM
00193       LOGICAL,          INTENT(IN)    :: MSK
00194       TYPE(BIEF_MESH),  INTENT(INOUT) :: MESH
00195       TYPE(BIEF_OBJ),   INTENT(INOUT) :: DZFDX,DZFDY
00196       TYPE(BIEF_OBJ),   INTENT(INOUT) :: EPSIX,EPSIY
00197       TYPE(BIEF_OBJ),   INTENT(INOUT) :: COEF,CALFA,SALFA
00198 !
00199       !----------------------------------------------------------------!
00200       END SUBROUTINE BEDLOAD_EFFPNT
00201       !================================================================!
00202 !
00203 !
00204       !================================================================!
00205       SUBROUTINE BEDLOAD_EINST
00206       !----------------------------------------------------------------!
00207      &  (TETAP, NPOIN, DENS, GRAV, DM, DSTAR, QSC)
00208       !----------------------------------------------------------------!
00209       USE BIEF
00210       IMPLICIT NONE
00211       TYPE(BIEF_OBJ),   INTENT(IN)    :: TETAP
00212       INTEGER,          INTENT(IN)    :: NPOIN
00213       DOUBLE PRECISION, INTENT(IN)    :: DENS, GRAV, DM, DSTAR
00214       TYPE(BIEF_OBJ),   INTENT(INOUT)   :: QSC
00215       !----------------------------------------------------------------!
00216       END SUBROUTINE BEDLOAD_EINST
00217       !================================================================!
00218 !
00219 !
00220       !================================================================!
00221       SUBROUTINE BEDLOAD_ENGEL
00222       !----------------------------------------------------------------!
00223      &        (TOB, CF, DENS, GRAV, DM, XMVE, T1, QSC)
00224       !----------------------------------------------------------------!
00225       USE BIEF
00226       IMPLICIT NONE
00227       TYPE(BIEF_OBJ),   INTENT(IN)    :: TOB, CF
00228       DOUBLE PRECISION, INTENT(IN)    :: DENS, GRAV, DM, XMVE
00229       TYPE(BIEF_OBJ),   INTENT(INOUT) :: T1! WORK ARRAY T1
00230       TYPE(BIEF_OBJ),   INTENT(INOUT) :: QSC
00231       !----------------------------------------------------------------!
00232       END SUBROUTINE BEDLOAD_ENGEL
00233       !================================================================!
00234 !
00235 !
00236       !================================================================!
00237       SUBROUTINE BEDLOAD_ENGEL_CC
00238       !----------------------------------------------------------------!
00239      &   (TETAP,CF,NPOIN,GRAV,DM,DENS,TETA,QSC)
00240       !----------------------------------------------------------------!
00241       USE BIEF_DEF
00242       IMPLICIT NONE
00243 !
00244       TYPE(BIEF_OBJ),   INTENT(IN)    :: TETAP, CF
00245       INTEGER,          INTENT(IN)    :: NPOIN
00246       DOUBLE PRECISION, INTENT(IN)    :: GRAV, DM, DENS
00247       TYPE(BIEF_OBJ),   INTENT(INOUT) :: TETA ! WORK ARRAY T1, T2
00248       TYPE(BIEF_OBJ),   INTENT(INOUT) :: QSC
00249       !----------------------------------------------------------------!
00250       END SUBROUTINE BEDLOAD_ENGEL_CC
00251       !================================================================!
00252 !
00253 !
00254       !================================================================!
00255         SUBROUTINE BEDLOAD_EVOL
00256       !----------------------------------------------------------------!
00257 !
00258      &(HN,Q,S,ELAY,ACLADM, AVA,COEFPN,CALFA,SALFA,LIMTEC,EBOR,
00259      & MASKEL,MASK,MASBAS,UNSV2D,DEBUG,NPOIN,NPTFR,
00260      & IELMT,KENT,KDIR,KDDL,LOADMETH,
00261      & DTS,DM,D90,HMIN,LS0,GRAV,XMVS,XMVE,VCE,
00262      & VF,ENTET,MSK,CONST_ALAYER,LCONDIS,MESH,
00263      & QS,T1, T2, T3, T4, T5, T6, T7, T8, T9,
00264      & T10,T11,T12,T13,CSF_SABLE,BREACH,QSX,QSY,ZFCL,SLOPEFF,ICLA,
00265      & FLBCLA,LIQBOR,QBOR,MAXADV)
00266       USE BIEF_DEF
00267       IMPLICIT NONE
00268       TYPE(BIEF_OBJ),   INTENT(IN)    :: HN,Q,S,UNSV2D
00269       TYPE(BIEF_OBJ),   INTENT(IN)    :: ELAY,ACLADM
00270       TYPE(BIEF_OBJ),   INTENT(IN)    :: COEFPN,CALFA,SALFA
00271       TYPE(BIEF_OBJ),   INTENT(INOUT) :: LIMTEC
00272       TYPE(BIEF_OBJ),   INTENT(IN)    :: MASKEL, MASK,MASBAS
00273       INTEGER,          INTENT(IN)    :: DEBUG,SLOPEFF,ICLA
00274       INTEGER,          INTENT(IN)    :: NPOIN, NPTFR,MAXADV
00275       INTEGER,          INTENT(IN)    :: IELMT,KENT,KDIR
00276       INTEGER,          INTENT(IN)    :: LOADMETH,KDDL
00277       DOUBLE PRECISION, INTENT(IN)    :: DTS, DM, D90, HMIN, LS0
00278       DOUBLE PRECISION, INTENT(IN)    :: GRAV,XMVS,XMVE,VCE,AVA(NPOIN)
00279       LOGICAL,          INTENT(IN)    :: VF,ENTET,MSK
00280       LOGICAL,          INTENT(IN)    :: CONST_ALAYER, LCONDIS
00281       TYPE(BIEF_MESH),  INTENT(INOUT) :: MESH
00282       TYPE(BIEF_OBJ),   INTENT(INOUT) :: QS,EBOR,FLBCLA
00283       TYPE(BIEF_OBJ),   INTENT(INOUT) :: T1, T2, T3, T4, T5, T6, T7
00284       TYPE(BIEF_OBJ),   INTENT(INOUT) :: T8, T9, T10, T11, T12, T13
00285       DOUBLE PRECISION, INTENT(IN)    :: CSF_SABLE
00286       TYPE(BIEF_OBJ),   INTENT(INOUT) :: BREACH,QSX,QSY,ZFCL
00287       TYPE(BIEF_OBJ),   INTENT(IN)    :: LIQBOR,QBOR
00288 !
00289       !----------------------------------------------------------------!
00290       END SUBROUTINE BEDLOAD_EVOL
00291       !================================================================!
00292 !
00293 !
00294       !============================!
00295         SUBROUTINE BEDLOAD_FORMULA !
00296       !----------------------------------------------------------------!
00297 !
00298      &  (U2D, V2D,UCMOY, HN, CF, MU,TOB, TOBW, UW, TW, THETAW, FW,
00299      &   ACLADM, UNLADM,KSP,KSR, AVA,  NPOIN, ICF, HIDFAC, XMVS, XMVE,
00300      &   DM, GRAV, VCE,  HMIN, XWC, D90, KARMAN, ZERO,
00301      &   PI, SUSP, AC, HIDING, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10,
00302      &   T11,CFP, QSC, QSS,IELMT,SECCURRENT,SLOPEFF,
00303      &   COEFPN, BIJK,HOULE)
00304 !
00305       USE BIEF_DEF
00306       IMPLICIT NONE
00307       TYPE(BIEF_OBJ),   INTENT(IN)    :: U2D, V2D, UCMOY,HN, CF, TOB
00308       TYPE(BIEF_OBJ),   INTENT(IN)    :: MU,TOBW, UW, TW, THETAW, FW
00309       TYPE(BIEF_OBJ),   INTENT(IN)    :: ACLADM, UNLADM, KSP,KSR
00310       INTEGER,          INTENT(IN)    :: NPOIN, ICF, HIDFAC,IELMT
00311       DOUBLE PRECISION, INTENT(IN)    :: XMVS, XMVE, DM, GRAV, VCE
00312       DOUBLE PRECISION, INTENT(IN)    :: HMIN, XWC, D90
00313       DOUBLE PRECISION, INTENT(IN)    :: KARMAN, ZERO, PI
00314       LOGICAL,          INTENT(IN)    :: SUSP,SECCURRENT,HOULE
00315       DOUBLE PRECISION, INTENT(INOUT) :: AC
00316       TYPE(BIEF_OBJ),   INTENT(INOUT) :: HIDING
00317       TYPE(BIEF_OBJ),   INTENT(INOUT) :: T1, T2, T3, T4, T5, T6, T7
00318       TYPE(BIEF_OBJ),   INTENT(INOUT) :: T8, T9, T10,T11
00319       TYPE(BIEF_OBJ),   INTENT(INOUT) :: CFP ! WORK ARRAY T12
00320       TYPE(BIEF_OBJ),   INTENT(INOUT) :: QSC, QSS
00321       TYPE(BIEF_OBJ),   INTENT(INOUT) ::  COEFPN
00322       INTEGER,          INTENT(IN)    :: SLOPEFF
00323       DOUBLE PRECISION, INTENT (IN)   :: BIJK,AVA(NPOIN)
00324 !
00325       !----------------------------------------------------------------!
00326       END SUBROUTINE BEDLOAD_FORMULA
00327       !================================================================!
00328 !
00329 !
00330       !================================================================!
00331       SUBROUTINE BEDLOAD_HIDING_FACTOR
00332       !----------------------------------------------------------------!
00333      &  (ACLADM, HIDFAC, NPOIN, HIDI, DM, KARIM_HOLLY_YANG, HIDING)
00334       !----------------------------------------------------------------!
00335       USE BIEF
00336       IMPLICIT NONE
00337       TYPE(BIEF_OBJ),   INTENT(IN)  :: ACLADM
00338       INTEGER,          INTENT(IN)  :: HIDFAC, NPOIN
00339       DOUBLE PRECISION, INTENT(IN)  :: HIDI, DM, KARIM_HOLLY_YANG
00340       TYPE(BIEF_OBJ),   INTENT(INOUT) :: HIDING
00341       !----------------------------------------------------------------!
00342       END SUBROUTINE BEDLOAD_HIDING_FACTOR
00343       !================================================================!
00344 !
00345 !
00346       !================================================================!
00347       SUBROUTINE BEDLOAD_HUNZ_MEYER
00348       !----------------------------------------------------------------!
00349      &  (TOB,MU, ACLADM, UNLADM, NPOIN, DENS, XMVE, GRAV, DM, AC,
00350      &    TETAP, AHUNZI, ACP, HIDING, QSC)
00351       !----------------------------------------------------------------!
00352       USE BIEF
00353       IMPLICIT NONE
00354       TYPE(BIEF_OBJ),   INTENT(IN)    :: TOB, MU, ACLADM, UNLADM
00355       INTEGER,          INTENT(IN)    :: NPOIN
00356       DOUBLE PRECISION, INTENT(IN)    :: DENS, XMVE, GRAV, DM, AC
00357       TYPE(BIEF_OBJ),   INTENT(INOUT) :: TETAP, AHUNZI ! WORK ARRAY T1, T2
00358       TYPE(BIEF_OBJ),   INTENT(INOUT) :: ACP           ! WORK ARRAY T3
00359       TYPE(BIEF_OBJ),   INTENT(INOUT)   :: HIDING, QSC
00360       !----------------------------------------------------------------!
00361       END SUBROUTINE BEDLOAD_HUNZ_MEYER
00362       !================================================================!
00363 !
00364 !
00365       !================================================================!
00366       SUBROUTINE BEDLOAD_INTERACT
00367       !----------------------------------------------------------------!
00368      &  (UCMOY, TOBW, TOB, ALPHAW, FW, CF, UW, NPOIN, XMVE, FCW)
00369       !----------------------------------------------------------------!
00370       USE BIEF
00371       IMPLICIT NONE
00372       TYPE(BIEF_OBJ),   INTENT(IN)  :: UCMOY, TOBW, TOB, ALPHAW
00373       TYPE(BIEF_OBJ),   INTENT(IN)  :: FW, CF, UW
00374       INTEGER,          INTENT(IN)  :: NPOIN
00375       DOUBLE PRECISION, INTENT(IN)  :: XMVE
00376       TYPE(BIEF_OBJ),   INTENT(INOUT) :: FCW
00377       !----------------------------------------------------------------!
00378       END SUBROUTINE BEDLOAD_INTERACT
00379       !================================================================!
00380 !
00381 !
00382       !================================================================!
00383         SUBROUTINE BEDLOAD_MAIN !
00384       !----------------------------------------------------------------!
00385 !
00386      &  (ACLADM,KSP,KSR, MASBAS,UNSV2D,CF,EBOR,FW,HN,LIQBOR,
00387      &   MASK, MASKEL, MASKPT, Q, QBOR, U2D,
00388      &   V2D, S,UNLADM,UW,THETAW,MU,TOB,TOBW,TW,ZF,
00389      &   DEBUG, HIDFAC, ICF, IELMT, ISOUS, KDDL, KDIR,
00390      &   KENT, KINC, KLOG, KNEU, KSORT, LOADMETH, LT,
00391      &   NPOIN, NPTFR, NSICLA, OPTBAN, LS0, BETA, FD90, FDM,
00392      &   GRAV, HIDI, HMIN, VCE, CSF_SABLE, XMVE, XMVS, XWC,
00393      &   PI, KARMAN, ZERO, KARIM_HOLLY_YANG,MSK, SUSP, VF,
00394      &   ENTET, CONST_ALAYER, LCONDIS, LGRAFED, MESH,
00395      &   ELAY, LIEBOR, LIMTEC, MASKTR,
00396      &   IT1, T1, T2, T3, T4, T5, T6, T7, T8, T9, T10, T11,
00397      &   T12,T13,UNORM,AC, AT0, DTS, ELAY0, FRACSED_GF,
00398      &   AVAIL, BREACH, CALFA, COEFPN,
00399      &   DZF_GF, HIDING, QSCL_C, QSCL_S, QS_C,
00400      &   QSCLXC, QSXC, QSCLYC, QSYC, SALFA, ZF_C, ZFCL_C, NSOUS,
00401      &   ENTETS, SECCURRENT, SLOPEFF,
00402      &   PHISED, DEVIA, BETA2, BIJK,SEDCO,HOULE,
00403      &   U3D,V3D,CODE,FLBCLA,MAXADV)
00404 !
00405       USE BIEF_DEF
00406       USE DECLARATIONS_SISYPHE, ONLY : NOMBLAY
00407       IMPLICIT NONE
00408 !
00409       TYPE(BIEF_OBJ),   INTENT(IN)    :: ACLADM, KSR,MASBAS,UNSV2D
00410       TYPE(BIEF_OBJ),   INTENT(IN)    :: CF,FW,KSP,HN,LIQBOR
00411       TYPE(BIEF_OBJ),   INTENT(IN)    :: MASK, MASKEL, MASKPT
00412       TYPE(BIEF_OBJ),   INTENT(IN)    :: Q, QBOR
00413       TYPE(BIEF_OBJ),   INTENT(INOUT) :: U2D, V2D,TOB, MU,UNORM,EBOR
00414       TYPE(BIEF_OBJ),   INTENT(IN)    :: S,UNLADM
00415       TYPE(BIEF_OBJ),   INTENT(IN)    :: UW, THETAW,  TOBW, TW
00416       TYPE(BIEF_OBJ),   INTENT(IN)    :: ZF
00417       INTEGER,          INTENT(IN)    :: DEBUG, HIDFAC, ICF
00418       INTEGER,          INTENT(IN)    :: IELMT, ISOUS, KDDL, KDIR, KENT
00419       INTEGER,          INTENT(IN)    :: KINC, KLOG, KNEU, KSORT
00420       INTEGER,          INTENT(IN)    :: LOADMETH, LT,NPOIN, NPTFR
00421       INTEGER,          INTENT(IN)    :: NSICLA, OPTBAN,MAXADV
00422       DOUBLE PRECISION, INTENT(IN)    :: LS0, BETA, FD90(NSICLA)
00423       DOUBLE PRECISION, INTENT(IN)    :: FDM(NSICLA),GRAV
00424       DOUBLE PRECISION, INTENT(IN)    :: HIDI(NSICLA),HMIN,VCE
00425       DOUBLE PRECISION, INTENT(IN)    :: CSF_SABLE,XMVE,XMVS,XWC(NSICLA)
00426       DOUBLE PRECISION, INTENT(IN)    :: PI,KARMAN,ZERO
00427       DOUBLE PRECISION, INTENT(IN)    :: KARIM_HOLLY_YANG
00428       LOGICAL,          INTENT(IN)    :: MSK, SUSP, VF
00429       LOGICAL,          INTENT(IN)    :: ENTET, CONST_ALAYER
00430       LOGICAL,          INTENT(IN)    :: LCONDIS, LGRAFED,SECCURRENT
00431       LOGICAL,          INTENT(IN)    :: SEDCO(NSICLA),HOULE
00432       TYPE(BIEF_MESH),  INTENT(INOUT) :: MESH
00433       TYPE(BIEF_OBJ),   INTENT(INOUT) :: ELAY,FLBCLA
00434       TYPE(BIEF_OBJ),   INTENT(INOUT) :: LIEBOR, LIMTEC, MASKTR
00435       TYPE(BIEF_OBJ),   INTENT(INOUT) :: IT1,T1,T2,T3,T4,T5,T6,T7
00436       TYPE(BIEF_OBJ),   INTENT(INOUT) :: T8,T9,T10,T11,T12,T13
00437       DOUBLE PRECISION, INTENT(INOUT) :: AC(NSICLA), AT0, DTS, ELAY0
00438       DOUBLE PRECISION, INTENT(INOUT) :: FRACSED_GF(NSICLA)
00439       DOUBLE PRECISION, INTENT(INOUT) :: AVAIL(NPOIN,NOMBLAY,NSICLA)
00440       TYPE(BIEF_OBJ),   INTENT(INOUT) :: BREACH,CALFA,COEFPN
00441       TYPE(BIEF_OBJ),   INTENT(INOUT) :: DZF_GF
00442       TYPE(BIEF_OBJ),   INTENT(INOUT) :: HIDING
00443       TYPE(BIEF_OBJ),   INTENT(INOUT) :: QSCL_C,QSCL_S
00444       TYPE(BIEF_OBJ),   INTENT(INOUT) :: QS_C, QSCLXC, QSXC, QSCLYC
00445       TYPE(BIEF_OBJ),   INTENT(INOUT) :: QSYC, SALFA, ZF_C, ZFCL_C
00446       INTEGER,          INTENT(INOUT) :: NSOUS
00447       LOGICAL,          INTENT(INOUT) :: ENTETS
00448       DOUBLE PRECISION,   INTENT(IN)  :: BETA2, PHISED
00449       INTEGER, INTENT (IN)            :: SLOPEFF, DEVIA
00450       DOUBLE PRECISION, INTENT(IN)    :: BIJK
00451 !
00452 !RK
00453       TYPE(BIEF_OBJ),    INTENT(IN)    :: U3D,V3D
00454       CHARACTER(LEN=24), INTENT(IN)    :: CODE
00455 !
00456       !----------------------------------------------------------------!
00457       END SUBROUTINE BEDLOAD_MAIN
00458       !================================================================!
00459 !
00460 !
00461       !================================================================!
00462         SUBROUTINE BEDLOAD_MEYER !
00463       !----------------------------------------------------------------!
00464      &  (TETAP, HIDING, HIDFAC, DENS, GRAV, DM, AC,
00465      &   ACP, QSC, SLOPEFF, COEFPN)
00466 !
00467       USE BIEF_DEF
00468       IMPLICIT NONE
00469 !
00470       ! 2/ GLOBAL VARIABLES
00471       ! -------------------
00472       ! -------------------
00473       TYPE(BIEF_OBJ),   INTENT(IN)    :: TETAP, HIDING
00474       INTEGER,          INTENT(IN)    :: HIDFAC, SLOPEFF
00475       DOUBLE PRECISION, INTENT(IN)    :: DENS, GRAV, DM, AC
00476       TYPE(BIEF_OBJ),   INTENT(INOUT) :: ACP ! WORK ARRAY T1
00477       TYPE(BIEF_OBJ),   INTENT(INOUT)   :: QSC, COEFPN
00478       !----------------------------------------------------------------!
00479       END SUBROUTINE BEDLOAD_MEYER
00480       !================================================================!
00481 !
00482 !
00483       !================================================================!
00484       SUBROUTINE BEDLOAD_NEQ_BED_LOAD !
00485       !----------------------------------------------------------------!
00486 !
00487      &  (HN, Q, S, CALFA, SALFA, MASK,LOADMETH, NPOIN, IELMT,
00488      &   LS0, DM, XMVE, XMVS, GRAV, VCE, D90, MESH, QSLO, T1, T2, T3,
00489      &   T4, T5, T6, T7, T8, T9, T10,MSK,MASKEL)
00490 !
00491       USE BIEF_DEF
00492       IMPLICIT NONE
00493       TYPE (BIEF_OBJ),   INTENT(IN)    :: HN, Q, S, CALFA, SALFA, MASK
00494       TYPE (BIEF_OBJ),   INTENT(IN)    :: MASKEL
00495       INTEGER,           INTENT(IN)    :: LOADMETH, NPOIN, IELMT
00496       DOUBLE PRECISION,  INTENT(IN)    :: LS0
00497       DOUBLE PRECISION,  INTENT(IN)    :: DM, XMVE, XMVS, GRAV, VCE, D90
00498       TYPE (BIEF_MESH),  INTENT(INOUT) :: MESH
00499       TYPE (BIEF_OBJ),   INTENT(INOUT) :: QSLO
00500       TYPE (BIEF_OBJ),   INTENT(INOUT) :: T1,T2,T3,T4,T5
00501       TYPE (BIEF_OBJ),   INTENT(INOUT) :: T6,T7,T8,T9,T10
00502       LOGICAL, INTENT(IN)              :: MSK
00503       !----------------------------------------------------------------!
00504       END SUBROUTINE BEDLOAD_NEQ_BED_LOAD
00505       !================================================================!
00506 !
00507 !
00508       !================================================================!
00509       SUBROUTINE BEDLOAD_NERBED_VF !
00510      &(MESH,LIEBOR,KSORT,ELAY,V2DPAR,QSX,QSY,AVA,NPOIN,NSEG,NPTFR,
00511      & DT,QS,T1,T2,T3,BREACH,CSF_SABLE,NUBO,VNOIN)
00512       USE BIEF_DEF
00513       IMPLICIT NONE
00514       TYPE(BIEF_MESH),  INTENT(INOUT) :: MESH
00515       TYPE(BIEF_OBJ),   INTENT(IN)    :: LIEBOR
00516       TYPE(BIEF_OBJ),   INTENT(IN)    :: QSX, QSY
00517       INTEGER,          INTENT(IN)    :: NPOIN, NSEG, NPTFR,KSORT
00518       DOUBLE PRECISION, INTENT(IN)    :: DT
00519       TYPE(BIEF_OBJ),   INTENT(INOUT) :: QS, T1, T2, T3
00520       TYPE(BIEF_OBJ),   INTENT(INOUT) :: BREACH
00521       DOUBLE PRECISION, INTENT(IN)    :: ELAY(NPOIN),V2DPAR(NPOIN)
00522       DOUBLE PRECISION, INTENT(IN)    :: AVA(NPOIN), CSF_SABLE
00523       INTEGER, INTENT(IN)             :: NUBO(2,NSEG)
00524       DOUBLE PRECISION, INTENT(IN)    :: VNOIN(3,NSEG)
00525       !----------------------------------------------------------------!
00526       END SUBROUTINE BEDLOAD_NERBED_VF
00527       !================================================================!
00528 !
00529 !
00530       !================================================================!
00531         SUBROUTINE BEDLOAD_SOLIDISCHARGE !
00532       !----------------------------------------------------------------!
00533 !
00534      &  (MESH, U2D, V2D, UNORM, HN,  TW, UW, MU,TOB, CF, TOBW, FW,
00535      &   THETAW, AVA,  MASKPT, MASKEL, ACLADM, UNLADM,KSP, KSR,LIQBOR,
00536      &   QBOR, DEBUG, NPOIN, NPTFR, IELMT, ICF, KENT, OPTBAN,
00537      &   HIDFAC, GRAV, DM, D90, XWC, XMVE, XMVS, VCE, HMIN,
00538      &   HIDI,KARMAN, ZERO, PI, KARIM_HOLLY_YANG,
00539      &   SUSP, MSK,T1, T2, T3, T4, T5, T6, T7, T8, T9, T10,
00540      &   T11,T12, AC,HIDING, QSC, QSS,
00541      &   SLOPEFF, COEFPN, PHISED, CALFA, SALFA, BETA, ZF_C, S,
00542      &   DEVIA, BETA2, SECCURRENT,BIJK,HOULE,UNSV2D,
00543      &   U3D,V3D,CODE)
00544       USE BIEF_DEF
00545       IMPLICIT NONE
00546 !
00547       TYPE(BIEF_MESH),  INTENT(INOUT) :: MESH
00548       TYPE(BIEF_OBJ),   INTENT(IN)    :: U2D, V2D,  HN, TW, UW
00549       TYPE(BIEF_OBJ),   INTENT(IN)    :: UNORM,MU,TOB
00550       TYPE(BIEF_OBJ),   INTENT(IN)    :: KSP, CF, TOBW, FW, THETAW
00551       TYPE(BIEF_OBJ),   INTENT(IN)    :: MASKPT, MASKEL
00552       TYPE(BIEF_OBJ),   INTENT(IN)    :: ACLADM, UNLADM,KSR,LIQBOR, QBOR
00553       INTEGER,          INTENT(IN)    :: DEBUG
00554       INTEGER,          INTENT(IN)    :: NPOIN, NPTFR, IELMT, ICF
00555       INTEGER,          INTENT(IN)    :: KENT, OPTBAN,HIDFAC
00556       DOUBLE PRECISION, INTENT(IN)    :: GRAV, DM, D90, XWC, XMVE, XMVS
00557       DOUBLE PRECISION, INTENT(IN)    ::  VCE, HMIN,HIDI
00558       DOUBLE PRECISION, INTENT(IN)    :: KARMAN, ZERO, PI
00559       DOUBLE PRECISION, INTENT(IN)    :: KARIM_HOLLY_YANG
00560       LOGICAL,          INTENT(IN)    :: SUSP, MSK,SECCURRENT,HOULE
00561       TYPE(BIEF_OBJ),   INTENT(INOUT) :: T1,T2,T3,T4,T5,T6
00562       TYPE(BIEF_OBJ),   INTENT(INOUT) :: T7,T8,T9,T10,T11,T12
00563       DOUBLE PRECISION, INTENT(INOUT) :: AC
00564       TYPE(BIEF_OBJ),   INTENT(INOUT) :: HIDING,QSC,QSS
00565       INTEGER,          INTENT(IN)    :: SLOPEFF,DEVIA
00566       DOUBLE PRECISION, INTENT(IN)    :: PHISED,BETA,BETA2
00567       TYPE(BIEF_OBJ),   INTENT(IN)    :: ZF_C,S,UNSV2D
00568       TYPE(BIEF_OBJ),   INTENT(INOUT) :: CALFA,SALFA,COEFPN
00569       DOUBLE PRECISION, INTENT(IN)    :: BIJK,AVA(NPOIN)
00570 !
00571       TYPE(BIEF_OBJ),    INTENT(IN)    :: U3D,V3D
00572       CHARACTER(LEN=24), INTENT(IN)    :: CODE
00573 !
00574       !----------------------------------------------------------------!
00575       END SUBROUTINE BEDLOAD_SOLIDISCHARGE
00576       !================================================================!
00577 !
00578 !
00579       !================================================================!
00580       SUBROUTINE BEDLOAD_SOULSBY !
00581       !----------------------------------------------------------------!
00582      &(UCMOY,HN,UW,NPOIN,DENS,GRAV,DM,DSTAR,HMIN,D90,QSC,QSS)
00583       USE BIEF_DEF
00584       IMPLICIT NONE
00585       INTEGER LNG,LU
00586       COMMON/INFO/LNG,LU
00587       TYPE(BIEF_OBJ),   INTENT(IN)  :: HN, UCMOY, UW
00588       INTEGER,          INTENT(IN)  :: NPOIN
00589       DOUBLE PRECISION, INTENT(IN)  :: DENS, GRAV, DM, DSTAR, HMIN, D90
00590       TYPE(BIEF_OBJ),   INTENT(INOUT) :: QSC, QSS
00591       !----------------------------------------------------------------!
00592       END SUBROUTINE BEDLOAD_SOULSBY
00593       !================================================================!
00594 !
00595 !
00596       !================================================================!
00597       SUBROUTINE BEDLOAD_SOLVS_FE
00598       !----------------------------------------------------------------!
00599      &(MESH,S,EBOR,MASKEL,MASK,
00600      & QSX,QSY,IELMT,NPOIN,NPTFR,KENT,KDIR,KDDL,LIMTEC,DT,
00601      & MSK,ENTET,T1,T2,T3,T4,T8,
00602      & ZFCL,HZ,HZN,GLOSEG,DIMGLO,FLODEL,FLULIM,NSEG,UNSV2D,CSF_SABLE,
00603      & ICLA,FLBCLA,AVA,LIQBOR,QBOR,MAXADV)
00604       USE BIEF_DEF
00605       IMPLICIT NONE
00606       TYPE(BIEF_MESH), INTENT(INOUT)  :: MESH
00607       TYPE(BIEF_OBJ),   INTENT(IN)    :: S,MASKEL,MASK,QSX,QSY
00608       INTEGER,          INTENT(IN)    :: IELMT,NPOIN,NPTFR,KENT,KDIR
00609       INTEGER,          INTENT(IN)    :: DIMGLO,NSEG,ICLA,KDDL,MAXADV
00610       INTEGER,          INTENT(IN)    :: GLOSEG(DIMGLO,2)
00611       DOUBLE PRECISION, INTENT(IN)    :: DT,CSF_SABLE,AVA(NPOIN)
00612       DOUBLE PRECISION, INTENT(INOUT) :: FLULIM(NSEG)
00613       LOGICAL,          INTENT(IN)    :: MSK,ENTET
00614       TYPE(BIEF_OBJ),   INTENT(INOUT) :: FLODEL,T1,T2,T3,T4,T8
00615       TYPE(BIEF_OBJ),   INTENT(INOUT) :: HZ,EBOR,LIMTEC
00616       TYPE(BIEF_OBJ),   INTENT(INOUT) :: ZFCL,FLBCLA
00617       TYPE(BIEF_OBJ),   INTENT(IN)    :: HZN,UNSV2D,LIQBOR,QBOR
00618       !----------------------------------------------------------------!
00619       END SUBROUTINE BEDLOAD_SOLVS_FE
00620       !================================================================!
00621 !
00622 !
00623       !================================================================!
00624       SUBROUTINE BEDLOAD_SOLVS_VF
00625      &(MESH,QSX,QSY,LIMTEC,UNSV2D,EBOR,BREACH,NSEG,NPTFR,NPOIN,
00626      & KENT,KDIR,KDDL,DT,T10,ZFCL,FLUX,CSF_SABLE,FLBCLA,AVA,LIQBOR,QBOR,
00627      & NUBO,VNOIN)
00628       USE BIEF_DEF
00629       IMPLICIT NONE
00630       TYPE(BIEF_MESH),  INTENT(INOUT) :: MESH
00631       TYPE(BIEF_OBJ),   INTENT(IN)    :: QSX,QSY,LIMTEC,UNSV2D,EBOR
00632       TYPE(BIEF_OBJ),   INTENT(IN)    :: BREACH,LIQBOR,QBOR
00633       INTEGER,          INTENT(IN)    :: NSEG,NPTFR,NPOIN,KENT,KDIR,KDDL
00634       DOUBLE PRECISION, INTENT(IN)    :: DT,CSF_SABLE
00635       DOUBLE PRECISION, INTENT(IN)    :: AVA(NPOIN)
00636       TYPE(BIEF_OBJ),   INTENT(INOUT) :: T10,FLBCLA,ZFCL,FLUX
00637       INTEGER, INTENT(IN)             :: NUBO(2,NSEG)
00638       DOUBLE PRECISION, INTENT(IN)    :: VNOIN(3,NSEG)
00639       !----------------------------------------------------------------!
00640       END SUBROUTINE BEDLOAD_SOLVS_VF
00641       !================================================================!
00642 !
00643 !
00644       !================================================================!
00645       SUBROUTINE BEDLOAD_VANRIJN
00646      &  (TOB,MU, NPOIN, DM, DENS, GRAV, DSTAR, AC, QSC)
00647 !
00648       USE BIEF_DEF
00649       IMPLICIT NONE
00650       TYPE(BIEF_OBJ),   INTENT(IN)  :: TOB,MU
00651       INTEGER,          INTENT(IN)  :: NPOIN
00652       DOUBLE PRECISION, INTENT(IN)  :: DM, DENS, GRAV, DSTAR, AC
00653       TYPE(BIEF_OBJ),   INTENT(INOUT) :: QSC
00654 !
00655       !----------------------------------------------------------------!
00656       END SUBROUTINE BEDLOAD_VANRIJN
00657       !================================================================!
00658 !
00659 !
00660 !======================================================================!
00661 !======================================================================!
00662 !
00663       END INTERFACE
00664       END MODULE INTERFACE_SISYPHE_BEDLOAD

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