subroutine predvv |
( |
integer |
iappel, |
|
|
integer |
nvar, |
|
|
integer |
nscal, |
|
|
integer |
iterns, |
|
|
integer |
ncepdp, |
|
|
integer |
ncesmp, |
|
|
integer, dimension(ncepdp) |
icepdc, |
|
|
integer, dimension(ncesmp) |
icetsm, |
|
|
integer, dimension(ncesmp,nvar) |
itypsm, |
|
|
double precision, dimension(ncelet) |
dt, |
|
|
double precision, dimension(ncelet,*) |
rtp, |
|
|
double precision, dimension(ncelet,*) |
rtpa, |
|
|
double precision, dimension (3 ,ncelet) |
vel, |
|
|
double precision, dimension (3 ,ncelet) |
vela, |
|
|
double precision, dimension(ncelet,*) |
propce, |
|
|
double precision, dimension(nfac,*) |
propfa, |
|
|
double precision, dimension(ndimfb,*) |
propfb, |
|
|
double precision, dimension(nfac) |
flumas, |
|
|
double precision, dimension(nfabor) |
flumab, |
|
|
double precision, dimension(ncelet,*) |
tslagr, |
|
|
double precision, dimension(ndimfb,*) |
coefa, |
|
|
double precision, dimension(ndimfb,*) |
coefb, |
|
|
double precision, dimension(3 ,ndimfb) |
coefav, |
|
|
double precision, dimension(3,3,ndimfb) |
coefbv, |
|
|
double precision, dimension(3 ,ndimfb) |
cofafv, |
|
|
double precision, dimension(3,3,ndimfb) |
cofbfv, |
|
|
double precision, dimension(ncepdp,6) |
ckupdc, |
|
|
double precision, dimension(ncesmp,nvar) |
smacel, |
|
|
double precision, dimension(ncelet,3) |
frcxt, |
|
|
double precision, dimension(ndim,ncelet) |
trava, |
|
|
double precision, dimension(ndim,ndim,ncelet) |
ximpa, |
|
|
double precision, dimension(ndim,ncelet) |
uvwk, |
|
|
double precision, dimension(ncelet,3) |
dfrcxt, |
|
|
double precision, dimension(ndim,ncelet) |
tpucou, |
|
|
double precision, dimension(3,ncelet) |
trav, |
|
|
double precision, dimension(nfac) |
viscf, |
|
|
double precision, dimension(nfabor) |
viscb, |
|
|
double precision, dimension(nfac) |
viscfi, |
|
|
double precision, dimension(nfabor) |
viscbi, |
|
|
double precision, dimension(nfac) |
secvif, |
|
|
double precision, dimension(nfabor) |
secvib, |
|
|
double precision, dimension(ncelet) |
w1, |
|
|
double precision, dimension(ncelet) |
w7, |
|
|
double precision, dimension(ncelet) |
w8, |
|
|
double precision, dimension(ncelet) |
w9, |
|
|
double precision, dimension(ncelet) |
xnormp |
|
) |
| |