The TELEMAC-MASCARET system  trunk
source_icover.f File Reference

Go to the source code of this file.


subroutine source_icover (NPOIN, FU, FV, H, U, V, T1, T2, T3, GRAV, KARMAN, CHESTR, DT, AT)

Function/Subroutine Documentation

◆ source_icover()

subroutine source_icover ( integer, intent(in)  NPOIN,
type(bief_obj), intent(inout)  FU,
type(bief_obj), intent(inout)  FV,
type(bief_obj), intent(in)  H,
type(bief_obj), intent(in)  U,
type(bief_obj), intent(in)  V,
type(bief_obj), intent(inout)  T1,
type(bief_obj), intent(inout)  T2,
type(bief_obj), intent(inout)  T3,
double precision, intent(in)  GRAV,
double precision, intent(in)  KARMAN,
type(bief_obj), intent(in)  CHESTR,
double precision, intent(in)  DT,
double precision, intent(in)  AT 
[in]npoinAT Time in seconds
[in]CHESTRFriction coefficient
[in]DTTime step
[in,out]FUSource terms on velocity u
[in,out]FVSource terms on velocity v
[in]HWater depth
[in]KARMANVon karman's constant
[in]NPOINNumber of nodes in the mesh
[in,out]T1Working array
[in,out]T2Working array
[in,out]T3Working array
[in]UX component of the velocity
[in]VY component of the velocity
[in,out]WINDXFirst component of wind velocity
[in,out]WINDYSecond component of wind velocity

Definition at line 6 of file source_icover.f.

+ Here is the call graph for this function:
+ Here is the caller graph for this function: