Code_Saturne
CFD tool
Functions/Subroutines
lagcou.f90 File Reference

Functions/Subroutines

subroutine lagcou (nvar, nscal, nbpmax, nvp, nvp1, nvep, nivep, ntersl, nvlsta, nvisbr, itepa, indep, ibord, rtp, propce, ettp, ettpa, tepa, taup, tempct, tsfext, tslagr, cpgd1, cpgd2, cpght, tslag, volp, volm, auxl1, auxl2, auxl3)
 

Function/Subroutine Documentation

◆ lagcou()

subroutine lagcou ( integer  nvar,
integer  nscal,
integer  nbpmax,
integer  nvp,
integer  nvp1,
integer  nvep,
integer  nivep,
integer  ntersl,
integer  nvlsta,
integer  nvisbr,
integer, dimension(nbpmax,nivep)  itepa,
integer, dimension(nbpmax)  indep,
integer, dimension(nbpmax)  ibord,
double precision, dimension(ncelet,*)  rtp,
double precision, dimension(ncelet,*)  propce,
double precision, dimension(nbpmax,nvp)  ettp,
double precision, dimension(nbpmax,nvp)  ettpa,
double precision, dimension(nbpmax,nvep)  tepa,
double precision, dimension(nbpmax)  taup,
double precision, dimension(nbpmax,2)  tempct,
double precision, dimension(nbpmax)  tsfext,
double precision, dimension(ncelet,ntersl)  tslagr,
double precision, dimension(nbpmax)  cpgd1,
double precision, dimension(nbpmax)  cpgd2,
double precision, dimension(nbpmax)  cpght,
double precision, dimension(ncelet,ntersl)  tslag,
double precision, dimension(ncelet)  volp,
double precision, dimension(ncelet)  volm,
double precision, dimension(nbpmax)  auxl1,
double precision, dimension(nbpmax)  auxl2,
double precision, dimension(nbpmax)  auxl3 
)