subroutine bedload_solidischarge |
( |
type(bief_mesh), intent(inout) |
MESH, |
|
|
type(bief_obj), intent(in) |
U2D, |
|
|
type(bief_obj), intent(in) |
V2D, |
|
|
type(bief_obj), intent(in) |
UNORM, |
|
|
type(bief_obj), intent(in) |
HN, |
|
|
type(bief_obj), intent(in) |
TW, |
|
|
type(bief_obj), intent(in) |
UW, |
|
|
type(bief_obj), intent(in) |
MU, |
|
|
type(bief_obj), intent(in) |
TOB, |
|
|
type(bief_obj), intent(in) |
CF, |
|
|
type(bief_obj), intent(in) |
TOBW, |
|
|
type(bief_obj), intent(in) |
FW, |
|
|
type(bief_obj), intent(in) |
THETAW, |
|
|
double precision, dimension(npoin), intent(in) |
AVA, |
|
|
type(bief_obj), intent(in) |
MASKPT, |
|
|
type(bief_obj), intent(in) |
MASKEL, |
|
|
type(bief_obj), intent(in) |
ACLADM, |
|
|
type(bief_obj), intent(in) |
UNLADM, |
|
|
type(bief_obj), intent(in) |
KSP, |
|
|
type(bief_obj), intent(in) |
KSR, |
|
|
type(bief_obj), intent(in) |
LIQBOR, |
|
|
integer, intent(in) |
DEBUG, |
|
|
integer, intent(in) |
NPOIN, |
|
|
integer, intent(in) |
NPTFR, |
|
|
integer, intent(in) |
IELMT, |
|
|
integer, intent(in) |
ICF, |
|
|
integer, intent(in) |
KENT, |
|
|
integer, intent(in) |
OPTBAN, |
|
|
integer, intent(in) |
HIDFAC, |
|
|
double precision, intent(in) |
GRAV, |
|
|
double precision, intent(in) |
DM, |
|
|
double precision, intent(in) |
D90, |
|
|
double precision, intent(in) |
XWC, |
|
|
double precision, intent(in) |
XMVE, |
|
|
double precision, intent(in) |
XMVS, |
|
|
double precision, intent(in) |
VCE, |
|
|
double precision, intent(in) |
HMIN, |
|
|
double precision, intent(in) |
HIDI, |
|
|
double precision, intent(in) |
KARMAN, |
|
|
double precision, intent(in) |
ZERO, |
|
|
double precision, intent(in) |
PI, |
|
|
double precision, intent(in) |
KARIM_HOLLY_YANG, |
|
|
logical, intent(in) |
SUSP, |
|
|
logical, intent(in) |
MSK, |
|
|
type(bief_obj), intent(inout) |
T1, |
|
|
type(bief_obj), intent(inout) |
T2, |
|
|
type(bief_obj), intent(inout) |
T3, |
|
|
type(bief_obj), intent(inout) |
T4, |
|
|
type(bief_obj), intent(inout) |
T5, |
|
|
type(bief_obj), intent(inout) |
T6, |
|
|
type(bief_obj), intent(inout) |
T7, |
|
|
type(bief_obj), intent(inout) |
T8, |
|
|
type(bief_obj), intent(inout) |
T9, |
|
|
type(bief_obj), intent(inout) |
T10, |
|
|
type(bief_obj), intent(inout) |
T11, |
|
|
type(bief_obj), intent(inout) |
T12, |
|
|
double precision, intent(inout) |
AC, |
|
|
type(bief_obj), intent(inout) |
HIDING, |
|
|
type(bief_obj), intent(inout) |
QSC, |
|
|
type(bief_obj), intent(inout) |
QSS, |
|
|
integer, intent(in) |
SLOPEFF, |
|
|
type(bief_obj), intent(inout) |
COEFPN, |
|
|
double precision, intent(in) |
PHISED, |
|
|
type(bief_obj), intent(inout) |
CALFA, |
|
|
type(bief_obj), intent(inout) |
SALFA, |
|
|
double precision, intent(in) |
BETA, |
|
|
type(bief_obj), intent(in) |
ZF_C, |
|
|
type(bief_obj), intent(in) |
S, |
|
|
integer, intent(in) |
DEVIA, |
|
|
double precision, intent(in) |
BETA2, |
|
|
logical, intent(in) |
SECCURRENT, |
|
|
double precision, intent(in) |
BIJK, |
|
|
logical, intent(in) |
HOULE, |
|
|
type(bief_obj), intent(in) |
UNSV2D, |
|
|
type(bief_obj), intent(in) |
U3D, |
|
|
type(bief_obj), intent(in) |
V3D, |
|
|
character(len=24), intent(in) |
CODE, |
|
|
double precision, dimension(npoin), intent(in) |
SANFRA |
|
) |
| |