programmer's documentation
 All Data Structures Files Functions Variables Typedefs Enumerations Enumerator Macros Groups Pages
Functions/Subroutines
turrij.f90 File Reference

Solving the $ R_{ij} - \epsilon $ for incompressible flows or slightly compressible flows for one time step. More...

Functions/Subroutines

subroutine turrij (nvar, nscal, ncepdp, ncesmp, icepdc, icetsm, itypsm, dt, rtp, rtpa, propce, tslagr, ckupdc, smacel)
 

Detailed Description

Solving the $ R_{ij} - \epsilon $ for incompressible flows or slightly compressible flows for one time step.

Function/Subroutine Documentation

subroutine turrij ( integer  nvar,
integer  nscal,
integer  ncepdp,
integer  ncesmp,
integer, dimension(ncepdp)  icepdc,
integer, dimension(ncesmp)  icetsm,
integer, dimension(ncesmp,nvar), target  itypsm,
double precision, dimension(ncelet)  dt,
double precision, dimension(ncelet,nflown:nvar)  rtp,
double precision, dimension(ncelet,nflown:nvar)  rtpa,
double precision, dimension(ncelet,*)  propce,
double precision, dimension(ncelet,ntersl), target  tslagr,
double precision, dimension(ncepdp,6)  ckupdc,
double precision, dimension(ncesmp,nvar), target  smacel 
)
Parameters
[in]nvartotal number of variables
[in]nscaltotal number of scalars
[in]ncepdpnumber of cells with head loss
[in]ncesmpnumber of cells with mass source term
[in]icepdcindex of the ncepdp cells with head loss
[in]icetsmindex of cells with mass source term
[in]itypsmmass source type for the variables (cf. ustsma)
[in]dttime step (per cell)
[in,out]rtpcalculated variables at cell centers (at the current time step)
[in]rtpacalculated variables at cell centers (at the previous time step)
[in]propcephysical properties at cell centers
[in]tslagrcoupling term of the lagangian module
[in]ckupdcwork array for the head loss
[in]smacelvalues of the variables associated to the mass source (for ivar=ipr, smacel is the mass flux)