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) |