subroutine lagcar |
( |
integer |
nvar, |
|
|
integer |
nscal, |
|
|
integer |
nvlsta, |
|
|
integer |
iprev, |
|
|
double precision, dimension(ncelet) |
dt, |
|
|
double precision, dimension(nbpart) |
taup, |
|
|
double precision, dimension(nbpart,3) |
tlag, |
|
|
double precision, dimension(nbpart,3) |
piil, |
|
|
double precision, dimension(nbpart,3,2) |
bx, |
|
|
double precision, dimension(nbpart,2) |
tempct, |
|
|
double precision, dimension(ncelet,nvlsta) |
statis, |
|
|
double precision, dimension(3,ncelet) |
gradpr, |
|
|
double precision, dimension(3,3,ncelet) |
gradvf, |
|
|
double precision, dimension(ncelet) |
energi, |
|
|
double precision, dimension(ncelet) |
dissip |
|
) |
| |