This subroutine computes the explicit contribution of headlosses terms.
More...
|
subroutine | tspdcv (ncepdp, icepdc, vela, ckupdc, trav) |
|
This subroutine computes the explicit contribution of headlosses terms.
◆ tspdcv()
subroutine tspdcv |
( |
integer |
ncepdp, |
|
|
integer, dimension(ncepdp) |
icepdc, |
|
|
double precision, dimension (3 ,ncelet) |
vela, |
|
|
double precision, dimension(6,ncepdp) |
ckupdc, |
|
|
double precision, dimension(3,ncelet) |
trav |
|
) |
| |
- Parameters
-
[in] | ncepdp | number of cells with head loss |
[in] | icepdc | index of cells with head loss |
[in] | vela | velocity at the previous time step |
[in] | ckupdc | work array for the head loss |
[out] | trav | right hand side |