subroutine init_transport |
( |
integer, dimension(*), intent(in) |
TROUVE, |
|
|
logical, intent(in) |
DEBU, |
|
|
type(bief_obj), intent(inout) |
HIDING, |
|
|
integer, intent(in) |
NSICLA, |
|
|
integer, intent(in) |
NPOIN, |
|
|
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, |
|
|
logical, intent(in) |
CHARR, |
|
|
type(bief_obj), intent(inout) |
QS_C, |
|
|
type(bief_obj), intent(inout) |
QSXC, |
|
|
type(bief_obj), intent(inout) |
QSYC, |
|
|
type(bief_obj), intent(inout) |
CALFA_CL, |
|
|
type(bief_obj), intent(inout) |
SALFA_CL, |
|
|
type(bief_obj), intent(inout) |
COEFPN, |
|
|
integer, intent(in) |
SLOPEFF, |
|
|
logical, intent(in) |
SUSP, |
|
|
type(bief_obj), intent(inout) |
QS_S, |
|
|
type(bief_obj), intent(inout) |
QS, |
|
|
type(bief_obj), intent(inout) |
QSCL, |
|
|
type(bief_obj), intent(inout) |
QSCL_C, |
|
|
type(bief_obj), intent(inout) |
QSCL_S, |
|
|
type(bief_obj), intent(inout) |
QSCLXS, |
|
|
type(bief_obj), intent(inout) |
QSCLYS, |
|
|
type(bief_obj), intent(in) |
UNORM, |
|
|
type(bief_obj), intent(in) |
U2D, |
|
|
type(bief_obj), intent(in) |
V2D, |
|
|
type(bief_obj), intent(in) |
HN, |
|
|
type(bief_obj), intent(in) |
CF, |
|
|
type(bief_obj), intent(in) |
MU, |
|
|
type(bief_obj), intent(in) |
TOB, |
|
|
type(bief_obj), intent(in) |
TOBW, |
|
|
type(bief_obj), intent(in) |
UW, |
|
|
type(bief_obj), intent(in) |
TW, |
|
|
type(bief_obj), intent(in) |
THETAW, |
|
|
type(bief_obj), intent(in) |
FW, |
|
|
logical, intent(in) |
HOULE, |
|
|
double precision, dimension(npoin,nomblay,nsicla), intent(inout) |
AVAIL, |
|
|
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) |
KS, |
|
|
integer, intent(in) |
ICF, |
|
|
integer, intent(in) |
HIDFAC, |
|
|
double precision, intent(in) |
XMVS, |
|
|
double precision, intent(in) |
XMVE, |
|
|
double precision, intent(in) |
GRAV, |
|
|
double precision, intent(in) |
VCE, |
|
|
double precision, intent(in) |
HMIN, |
|
|
double precision, intent(in) |
KARMAN, |
|
|
double precision, intent(in) |
ZERO, |
|
|
double precision, intent(in) |
PI, |
|
|
double precision, dimension(nsicla), intent(inout) |
AC, |
|
|
logical, intent(in) |
IMP_INFLOW_C, |
|
|
type(bief_obj), intent(inout) |
ZREF, |
|
|
integer, intent(in) |
ICQ, |
|
|
type(bief_obj), intent(inout) |
CSTAEQ, |
|
|
type(bief_obj), intent(inout) |
CSRATIO, |
|
|
double precision, intent(inout) |
CMAX, |
|
|
type(bief_obj), intent(inout) |
CS, |
|
|
double precision, dimension(nsicla), intent(in) |
CS0, |
|
|
logical, intent(in) |
SECCURRENT, |
|
|
double precision, intent(in) |
BIJK, |
|
|
integer, intent(in) |
IELMT, |
|
|
double precision, dimension(nsicla), intent(inout) |
FDM, |
|
|
double precision, dimension(nsicla), intent(in) |
XWC, |
|
|
double precision, dimension(nsicla), intent(in) |
FD90, |
|
|
logical, dimension(*), intent(in) |
SEDCO, |
|
|
double precision, intent(in) |
VITCE, |
|
|
double precision, intent(in) |
PARTHENIADES, |
|
|
double precision, intent(in) |
VITCD, |
|
|
type(bief_obj), intent(in) |
U3D, |
|
|
type(bief_obj), intent(in) |
V3D, |
|
|
character(len=24), intent(in) |
CODE |
|
) |
| |