The TELEMAC-MASCARET system  trunk
user_calcs2d_degradation.f File Reference

Go to the source code of this file.


subroutine user_calcs2d_degradation (NPOIN, TN, TEXP, TIMP, HPROP, NWAQ_DEGRA, RANK_DEGRA, LOITRAC, COEF1TRAC)

Function/Subroutine Documentation

◆ user_calcs2d_degradation()

subroutine user_calcs2d_degradation ( integer, intent(in)  NPOIN,
type(bief_obj), intent(in)  TN,
type(bief_obj), intent(inout)  TEXP,
type(bief_obj), intent(inout)  TIMP,
type(bief_obj), intent(in)  HPROP,
integer, intent(in)  NWAQ_DEGRA,
integer, dimension(*), intent(in)  RANK_DEGRA,
integer, dimension(*), intent(in)  LOITRAC,
double precision, dimension(*), intent(in)  COEF1TRAC 
[in]npoinCOEF1TRAC Coefficient 1 for law of tracers degradation
[in]HPROPPropagation depth
[in]LOITRACLaw of tracers degradation
[in]NPOINNumber of nodes in the mesh
[in]NWAQ_DEGRANumber of tracers with a degradation law
[in]RANK_DEGRAGroup tracers with a degradation law
[in]TEXPExplicit source term
[in]TIMPImplicit source term
[in]TNTracers at time n

Definition at line 8 of file user_calcs2d_degradation.f.