The TELEMAC-MASCARET system  trunk
Functions/Subroutines
disimp.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine disimp (Q, Q2BOR, NUMLIQ, IFRLIQ, NSOLDIS, WORK1, QBOR, NPTFR, MASK, MESH)
 

Function/Subroutine Documentation

◆ disimp()

subroutine disimp ( double precision, intent(in)  Q,
type(bief_obj), intent(in)  Q2BOR,
integer, dimension(nptfr), intent(in)  NUMLIQ,
integer, intent(in)  IFRLIQ,
integer, intent(in)  NSOLDIS,
type(bief_obj), intent(inout)  WORK1,
type(bief_obj), intent(inout)  QBOR,
integer, intent(in)  NPTFR,
double precision, dimension(nptfr), intent(in)  MASK,
type(bief_mesh), intent(inout)  MESH 
)
Parameters
[in]nptfrIFRLIQ Rank of liquid boundary
[in]MASKBlock of masks for boundary conditions
[in]MESHMesh structure
[in]NPTFRNumber of boundary points
[in]NSOLDISNumber of solid discharges given in parameter FILE
[in]NUMLIQLiquid boundary number of boundary points
[in]QPrescribed value of discharge
[out]Q2BORPrescribed solid discharge
[out]RATIORatio, qbor will be ratio*q2bor
[in,out]WORK1Work bief_obj structure
[in,out]QBORThe resulting discharge in m3/s
[in]ifrliqIFRLIQ Rank of liquid boundary
[in]MASKBlock of masks for boundary conditions
[in]MESHMesh structure
[in]NPTFRNumber of boundary points
[in]NSOLDISNumber of solid discharges given in parameter FILE
[in]NUMLIQLiquid boundary number of boundary points
[in]QPrescribed value of discharge
[out]Q2BORPrescribed solid discharge
[out]RATIORatio, qbor will be ratio*q2bor
[in,out]WORK1Work bief_obj structure
[in,out]QBORThe resulting discharge in m3/s
[in]nsoldisIFRLIQ Rank of liquid boundary
[in]MASKBlock of masks for boundary conditions
[in]MESHMesh structure
[in]NPTFRNumber of boundary points
[in]NSOLDISNumber of solid discharges given in parameter FILE
[in]NUMLIQLiquid boundary number of boundary points
[in]QPrescribed value of discharge
[out]Q2BORPrescribed solid discharge
[out]RATIORatio, qbor will be ratio*q2bor
[in,out]WORK1Work bief_obj structure
[in,out]QBORThe resulting discharge in m3/s

Definition at line 7 of file disimp.f.

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