User subroutine dedicated the use of ALE (Arbitrary Lagrangian Eulerian) Method:
More...
|
subroutine | usalcl (itrale, nvar, nscal, icodcl, itypfb, ialtyb, impale, dt, rcodcl, xyzno0, disale) |
|
User subroutine dedicated the use of ALE (Arbitrary Lagrangian Eulerian) Method:
◆ usalcl()
subroutine usalcl |
( |
integer |
itrale, |
|
|
integer |
nvar, |
|
|
integer |
nscal, |
|
|
integer, dimension(nfabor,nvar) |
icodcl, |
|
|
integer, dimension(nfabor) |
itypfb, |
|
|
integer, dimension(nfabor) |
ialtyb, |
|
|
integer, dimension(nnod) |
impale, |
|
|
double precision, dimension(ncelet) |
dt, |
|
|
double precision, dimension(nfabor,nvar,3) |
rcodcl, |
|
|
double precision, dimension(3,nnod) |
xyzno0, |
|
|
double precision, dimension(3,nnod) |
disale |
|
) |
| |
- Parameters
-
[in] | itrale | number of iterations for ALE method |
[in] | nvar | total number of variables |
[in] | nscal | total number of scalars |
[out] | icodcl | boundary condition code: |
[in,out] | itypfb | boundary face types |
[out] | ialtyb | boundary face types for mesh velocity |
[in] | impale | indicator for fixed node displacement |
[in] | dt | time step (per cell) |
[in,out] | rcodcl | boundary condition values:
- rcodcl(1) value of the dirichlet
- rcodcl(2) value of the exterior exchange coefficient (infinite if no exchange)
- rcodcl(3) value flux density
|
[in] | xyzno0 | vertex coordinates of initial mesh |
[in,out] | disale | nodes total displacement (from time 0 to n) |