Go to the source code of this file.
Functions/Subroutines | |
| subroutine | positive_depths (T1, T2, T3, T4, H, HN, MESH, FLODEL, COMPUTE_FLODEL, FLBOR, DT, UNSV2D, NPOIN, GLOSEG1, GLOSEG2, NBOR, NPTFR, SMH, YASMH, PLUIE, RAIN, OPTSOU, FLULIM, LIMPRO, HBOR, KDIR, INFO, FLOPOINT, NAMECODE, OPTION, NITMAX, DOFLULIM, FLULIMEBE, DOFLULIMEBE) |
Function/Subroutine Documentation
◆ positive_depths()
| subroutine positive_depths | ( | type(bief_obj), intent(inout) | T1, |
| type(bief_obj), intent(inout) | T2, | ||
| type(bief_obj), intent(inout) | T3, | ||
| type(bief_obj), intent(inout) | T4, | ||
| type(bief_obj), intent(inout) | H, | ||
| type(bief_obj), intent(in) | HN, | ||
| type(bief_mesh), intent(inout) | MESH, | ||
| type(bief_obj), intent(inout) | FLODEL, | ||
| logical, intent(in) | COMPUTE_FLODEL, | ||
| type(bief_obj), intent(inout) | FLBOR, | ||
| double precision, intent(in) | DT, | ||
| type(bief_obj), intent(in) | UNSV2D, | ||
| integer, intent(in) | NPOIN, | ||
| integer, dimension(*), intent(in) | GLOSEG1, | ||
| integer, dimension(*), intent(in) | GLOSEG2, | ||
| integer, dimension(nptfr), intent(in) | NBOR, | ||
| integer, intent(in) | NPTFR, | ||
| type(bief_obj), intent(in) | SMH, | ||
| logical, intent(in) | YASMH, | ||
| type(bief_obj), intent(inout) | PLUIE, | ||
| logical, intent(in) | RAIN, | ||
| integer, intent(in) | OPTSOU, | ||
| double precision, dimension(*), intent(inout) | FLULIM, | ||
| integer, dimension(nptfr), intent(in) | LIMPRO, | ||
| double precision, dimension(nptfr), intent(in) | HBOR, | ||
| integer, intent(in) | KDIR, | ||
| logical, intent(in) | INFO, | ||
| double precision, dimension(mesh%nelmax,3), intent(inout) | FLOPOINT, | ||
| character(len=24) | NAMECODE, | ||
| integer, intent(in) | OPTION, | ||
| integer, intent(in) | NITMAX, | ||
| logical, intent(in), optional | DOFLULIM, | ||
| double precision, dimension(mesh%nelmax,3), intent(inout), optional, target | FLULIMEBE, | ||
| logical, intent(in), optional | DOFLULIMEBE | ||
| ) |
- Parameters
-
[in] npoin COMPUTE_FLODEL If yes, compute flodel here [in] DOFLULIM Optional, if yes does array flulim [in] DOFLULIMEBE Optional, if yes does array flulimebe [in] DT Time step [in,out] FLBOR Boundary fluxes [in,out] FLODEL Fluxes given by segment MAY BE COMPUTED HERE (SEE COMPUTE-FLODEL) OR SIMPLY GIVEN. AT THE EXIT, THE REAL FLUX TRANSMITTED IS GIVEN BACK. [in] FLOPOINT Fluxes given by points (element by element) [out] FLULIM Per segment: percentage of flux that has not BEEN TRANSMITTED AT THE END OF THE ALGORITHM [out] FLULIMEBE As flulim but given per element HENCE FLULIMEBE(NELMAX,3) [in] GLOSEG1 First point of segments [in] GLOSEG2 Second point of segments [in,out] H New depth [in] HBOR Prescribed depths at boundaries [in] HN Old depth [in] INFO If yes, printing information on listing [in] KDIR Convention for dirichlet boundary condition [in] LIMPRO Type of boundary conditions IF EQUAL TO KDIR: PRESCRIBED DEPTH. [in,out] MESH Mesh structure [in] NAMECODE Name of calling code (sisyphe, telemec2d, etc.) [in] NBOR Global numbers of boundary points [in] NITMAX Maximum number of iterations [in] NPOIN Number of points in the mesh [in] NPTFR Number of boundary points [in] OPTION Option of algorithm for edge-based advection 1: TRIANGLES, COMPATIBLE WITH ERIA 2: SEGMENTS, COMPATIBLE WITH NERD [in] OPTSOU Option for sources 1: normal 2: dirac [in] PLUIE Rain in a bief_obj, in m/s. [in] RAIN If yes, there is rain or evaporation [in] SMH Source terms [in] T1 Work array [in] T2 Work array [in] T3 Work array [in] T4 Work array [in] UNSV2D Inverse of integral of basis functions [in] YASMH If(yes) smh must be taken into account [in] nptfr COMPUTE_FLODEL If yes, compute flodel here [in] DOFLULIM Optional, if yes does array flulim [in] DOFLULIMEBE Optional, if yes does array flulimebe [in] DT Time step [in,out] FLBOR Boundary fluxes [in,out] FLODEL Fluxes given by segment MAY BE COMPUTED HERE (SEE COMPUTE-FLODEL) OR SIMPLY GIVEN. AT THE EXIT, THE REAL FLUX TRANSMITTED IS GIVEN BACK. [in] FLOPOINT Fluxes given by points (element by element) [out] FLULIM Per segment: percentage of flux that has not BEEN TRANSMITTED AT THE END OF THE ALGORITHM [out] FLULIMEBE As flulim but given per element HENCE FLULIMEBE(NELMAX,3) [in] GLOSEG1 First point of segments [in] GLOSEG2 Second point of segments [in,out] H New depth [in] HBOR Prescribed depths at boundaries [in] HN Old depth [in] INFO If yes, printing information on listing [in] KDIR Convention for dirichlet boundary condition [in] LIMPRO Type of boundary conditions IF EQUAL TO KDIR: PRESCRIBED DEPTH. [in,out] MESH Mesh structure [in] NAMECODE Name of calling code (sisyphe, telemec2d, etc.) [in] NBOR Global numbers of boundary points [in] NITMAX Maximum number of iterations [in] NPOIN Number of points in the mesh [in] NPTFR Number of boundary points [in] OPTION Option of algorithm for edge-based advection 1: TRIANGLES, COMPATIBLE WITH ERIA 2: SEGMENTS, COMPATIBLE WITH NERD [in] OPTSOU Option for sources 1: normal 2: dirac [in] PLUIE Rain in a bief_obj, in m/s. [in] RAIN If yes, there is rain or evaporation [in] SMH Source terms [in] T1 Work array [in] T2 Work array [in] T3 Work array [in] T4 Work array [in] UNSV2D Inverse of integral of basis functions [in] YASMH If(yes) smh must be taken into account [in] optsou COMPUTE_FLODEL If yes, compute flodel here [in] DOFLULIM Optional, if yes does array flulim [in] DOFLULIMEBE Optional, if yes does array flulimebe [in] DT Time step [in,out] FLBOR Boundary fluxes [in,out] FLODEL Fluxes given by segment MAY BE COMPUTED HERE (SEE COMPUTE-FLODEL) OR SIMPLY GIVEN. AT THE EXIT, THE REAL FLUX TRANSMITTED IS GIVEN BACK. [in] FLOPOINT Fluxes given by points (element by element) [out] FLULIM Per segment: percentage of flux that has not BEEN TRANSMITTED AT THE END OF THE ALGORITHM [out] FLULIMEBE As flulim but given per element HENCE FLULIMEBE(NELMAX,3) [in] GLOSEG1 First point of segments [in] GLOSEG2 Second point of segments [in,out] H New depth [in] HBOR Prescribed depths at boundaries [in] HN Old depth [in] INFO If yes, printing information on listing [in] KDIR Convention for dirichlet boundary condition [in] LIMPRO Type of boundary conditions IF EQUAL TO KDIR: PRESCRIBED DEPTH. [in,out] MESH Mesh structure [in] NAMECODE Name of calling code (sisyphe, telemec2d, etc.) [in] NBOR Global numbers of boundary points [in] NITMAX Maximum number of iterations [in] NPOIN Number of points in the mesh [in] NPTFR Number of boundary points [in] OPTION Option of algorithm for edge-based advection 1: TRIANGLES, COMPATIBLE WITH ERIA 2: SEGMENTS, COMPATIBLE WITH NERD [in] OPTSOU Option for sources 1: normal 2: dirac [in] PLUIE Rain in a bief_obj, in m/s. [in] RAIN If yes, there is rain or evaporation [in] SMH Source terms [in] T1 Work array [in] T2 Work array [in] T3 Work array [in] T4 Work array [in] UNSV2D Inverse of integral of basis functions [in] YASMH If(yes) smh must be taken into account [in] kdir COMPUTE_FLODEL If yes, compute flodel here [in] DOFLULIM Optional, if yes does array flulim [in] DOFLULIMEBE Optional, if yes does array flulimebe [in] DT Time step [in,out] FLBOR Boundary fluxes [in,out] FLODEL Fluxes given by segment MAY BE COMPUTED HERE (SEE COMPUTE-FLODEL) OR SIMPLY GIVEN. AT THE EXIT, THE REAL FLUX TRANSMITTED IS GIVEN BACK. [in] FLOPOINT Fluxes given by points (element by element) [out] FLULIM Per segment: percentage of flux that has not BEEN TRANSMITTED AT THE END OF THE ALGORITHM [out] FLULIMEBE As flulim but given per element HENCE FLULIMEBE(NELMAX,3) [in] GLOSEG1 First point of segments [in] GLOSEG2 Second point of segments [in,out] H New depth [in] HBOR Prescribed depths at boundaries [in] HN Old depth [in] INFO If yes, printing information on listing [in] KDIR Convention for dirichlet boundary condition [in] LIMPRO Type of boundary conditions IF EQUAL TO KDIR: PRESCRIBED DEPTH. [in,out] MESH Mesh structure [in] NAMECODE Name of calling code (sisyphe, telemec2d, etc.) [in] NBOR Global numbers of boundary points [in] NITMAX Maximum number of iterations [in] NPOIN Number of points in the mesh [in] NPTFR Number of boundary points [in] OPTION Option of algorithm for edge-based advection 1: TRIANGLES, COMPATIBLE WITH ERIA 2: SEGMENTS, COMPATIBLE WITH NERD [in] OPTSOU Option for sources 1: normal 2: dirac [in] PLUIE Rain in a bief_obj, in m/s. [in] RAIN If yes, there is rain or evaporation [in] SMH Source terms [in] T1 Work array [in] T2 Work array [in] T3 Work array [in] T4 Work array [in] UNSV2D Inverse of integral of basis functions [in] YASMH If(yes) smh must be taken into account [in] option COMPUTE_FLODEL If yes, compute flodel here [in] DOFLULIM Optional, if yes does array flulim [in] DOFLULIMEBE Optional, if yes does array flulimebe [in] DT Time step [in,out] FLBOR Boundary fluxes [in,out] FLODEL Fluxes given by segment MAY BE COMPUTED HERE (SEE COMPUTE-FLODEL) OR SIMPLY GIVEN. AT THE EXIT, THE REAL FLUX TRANSMITTED IS GIVEN BACK. [in] FLOPOINT Fluxes given by points (element by element) [out] FLULIM Per segment: percentage of flux that has not BEEN TRANSMITTED AT THE END OF THE ALGORITHM [out] FLULIMEBE As flulim but given per element HENCE FLULIMEBE(NELMAX,3) [in] GLOSEG1 First point of segments [in] GLOSEG2 Second point of segments [in,out] H New depth [in] HBOR Prescribed depths at boundaries [in] HN Old depth [in] INFO If yes, printing information on listing [in] KDIR Convention for dirichlet boundary condition [in] LIMPRO Type of boundary conditions IF EQUAL TO KDIR: PRESCRIBED DEPTH. [in,out] MESH Mesh structure [in] NAMECODE Name of calling code (sisyphe, telemec2d, etc.) [in] NBOR Global numbers of boundary points [in] NITMAX Maximum number of iterations [in] NPOIN Number of points in the mesh [in] NPTFR Number of boundary points [in] OPTION Option of algorithm for edge-based advection 1: TRIANGLES, COMPATIBLE WITH ERIA 2: SEGMENTS, COMPATIBLE WITH NERD [in] OPTSOU Option for sources 1: normal 2: dirac [in] PLUIE Rain in a bief_obj, in m/s. [in] RAIN If yes, there is rain or evaporation [in] SMH Source terms [in] T1 Work array [in] T2 Work array [in] T3 Work array [in] T4 Work array [in] UNSV2D Inverse of integral of basis functions [in] YASMH If(yes) smh must be taken into account
Definition at line 10 of file positive_depths.f.
Here is the call graph for this function: Here is the caller graph for this function: