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

Go to the source code of this file.

Functions/Subroutines

subroutine leclim (LIHBOR, LIUBOR, LIVBOR, LITBOR, HBOR, UBOR, VBOR, TBOR, CHBORD, ATBOR, BTBOR, NPTFR, CODE, TRAC, FFORMAT, NGEO, KENT, KENTU, KSORT, KADH, KLOG, KINC, NUMLIQ, MESH, BOUNDARY_COLOUR, NPTFR2)
 

Function/Subroutine Documentation

◆ leclim()

subroutine leclim ( integer, dimension(nptfr), intent(inout)  LIHBOR,
integer, dimension(nptfr), intent(inout)  LIUBOR,
integer, dimension(nptfr), intent(inout)  LIVBOR,
integer, dimension(*), intent(inout)  LITBOR,
double precision, dimension(nptfr), intent(inout)  HBOR,
double precision, dimension(*), intent(inout)  UBOR,
double precision, dimension(*), intent(inout)  VBOR,
double precision, dimension(*), intent(inout)  TBOR,
double precision, dimension(nptfr), intent(inout)  CHBORD,
double precision, dimension(*), intent(inout)  ATBOR,
double precision, dimension(*), intent(inout)  BTBOR,
integer, intent(in)  NPTFR,
character(len=3), intent(in)  CODE,
logical, intent(in)  TRAC,
character(len=8), intent(in)  FFORMAT,
integer, intent(in)  NGEO,
integer, intent(in)  KENT,
integer, intent(in)  KENTU,
integer, intent(in)  KSORT,
integer, intent(in)  KADH,
integer, intent(in)  KLOG,
integer, intent(in)  KINC,
integer, dimension(*), intent(inout)  NUMLIQ,
type(bief_mesh), intent(inout)  MESH,
integer, dimension(nptfr), intent(inout), optional  BOUNDARY_COLOUR,
integer, intent(in), optional  NPTFR2 
)
Parameters
[in]ngeoNPTFR Number of boundary points
[in]CODE3 letter name of the code
[in]TRACIf yes, there are tracers
[in]FFORMATFile format
[in]NGEOLogical unit of boundary conditions file
[in]KENTConvention for liquid input with prescribed value
[in]KENTUConvention for liquid input with prescribed velocity
[in]KSORTConvention for free output
[in]KADHConvention for no slip boundary condition
[in]KLOGConvention for solid boundary
[in]KINCConvention for incident wave boundary condition
[in]NUMLIQLiquid boundary number of boundary points
[in]MESHMesh structure
[out]BOUNDARY_COLOURColour of boundary point (default: its rank)
[in]NPTFR2Number of quadratic boundary points
[in]kentNPTFR Number of boundary points
[in]CODE3 letter name of the code
[in]TRACIf yes, there are tracers
[in]FFORMATFile format
[in]NGEOLogical unit of boundary conditions file
[in]KENTConvention for liquid input with prescribed value
[in]KENTUConvention for liquid input with prescribed velocity
[in]KSORTConvention for free output
[in]KADHConvention for no slip boundary condition
[in]KLOGConvention for solid boundary
[in]KINCConvention for incident wave boundary condition
[in]NUMLIQLiquid boundary number of boundary points
[in]MESHMesh structure
[out]BOUNDARY_COLOURColour of boundary point (default: its rank)
[in]NPTFR2Number of quadratic boundary points
[in]ksortNPTFR Number of boundary points
[in]CODE3 letter name of the code
[in]TRACIf yes, there are tracers
[in]FFORMATFile format
[in]NGEOLogical unit of boundary conditions file
[in]KENTConvention for liquid input with prescribed value
[in]KENTUConvention for liquid input with prescribed velocity
[in]KSORTConvention for free output
[in]KADHConvention for no slip boundary condition
[in]KLOGConvention for solid boundary
[in]KINCConvention for incident wave boundary condition
[in]NUMLIQLiquid boundary number of boundary points
[in]MESHMesh structure
[out]BOUNDARY_COLOURColour of boundary point (default: its rank)
[in]NPTFR2Number of quadratic boundary points
[in]kadhNPTFR Number of boundary points
[in]CODE3 letter name of the code
[in]TRACIf yes, there are tracers
[in]FFORMATFile format
[in]NGEOLogical unit of boundary conditions file
[in]KENTConvention for liquid input with prescribed value
[in]KENTUConvention for liquid input with prescribed velocity
[in]KSORTConvention for free output
[in]KADHConvention for no slip boundary condition
[in]KLOGConvention for solid boundary
[in]KINCConvention for incident wave boundary condition
[in]NUMLIQLiquid boundary number of boundary points
[in]MESHMesh structure
[out]BOUNDARY_COLOURColour of boundary point (default: its rank)
[in]NPTFR2Number of quadratic boundary points
[in]klogNPTFR Number of boundary points
[in]CODE3 letter name of the code
[in]TRACIf yes, there are tracers
[in]FFORMATFile format
[in]NGEOLogical unit of boundary conditions file
[in]KENTConvention for liquid input with prescribed value
[in]KENTUConvention for liquid input with prescribed velocity
[in]KSORTConvention for free output
[in]KADHConvention for no slip boundary condition
[in]KLOGConvention for solid boundary
[in]KINCConvention for incident wave boundary condition
[in]NUMLIQLiquid boundary number of boundary points
[in]MESHMesh structure
[out]BOUNDARY_COLOURColour of boundary point (default: its rank)
[in]NPTFR2Number of quadratic boundary points
[in]kincNPTFR Number of boundary points
[in]CODE3 letter name of the code
[in]TRACIf yes, there are tracers
[in]FFORMATFile format
[in]NGEOLogical unit of boundary conditions file
[in]KENTConvention for liquid input with prescribed value
[in]KENTUConvention for liquid input with prescribed velocity
[in]KSORTConvention for free output
[in]KADHConvention for no slip boundary condition
[in]KLOGConvention for solid boundary
[in]KINCConvention for incident wave boundary condition
[in]NUMLIQLiquid boundary number of boundary points
[in]MESHMesh structure
[out]BOUNDARY_COLOURColour of boundary point (default: its rank)
[in]NPTFR2Number of quadratic boundary points
[in]kentuNPTFR Number of boundary points
[in]CODE3 letter name of the code
[in]TRACIf yes, there are tracers
[in]FFORMATFile format
[in]NGEOLogical unit of boundary conditions file
[in]KENTConvention for liquid input with prescribed value
[in]KENTUConvention for liquid input with prescribed velocity
[in]KSORTConvention for free output
[in]KADHConvention for no slip boundary condition
[in]KLOGConvention for solid boundary
[in]KINCConvention for incident wave boundary condition
[in]NUMLIQLiquid boundary number of boundary points
[in]MESHMesh structure
[out]BOUNDARY_COLOURColour of boundary point (default: its rank)
[in]NPTFR2Number of quadratic boundary points

Definition at line 10 of file leclim.f.

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