Go to the source code of this file.
Functions/Subroutines | |
| subroutine | positive_depths_nerd (T1, T2, 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, NITMAX, MAKEFLULIM) |
Function/Subroutine Documentation
◆ positive_depths_nerd()
| subroutine positive_depths_nerd | ( | type(bief_obj), intent(inout) | T1, |
| type(bief_obj), intent(inout) | T2, | ||
| 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%nelem,3), intent(inout) | FLOPOINT, | ||
| character(len=24) | NAMECODE, | ||
| integer, intent(in) | NITMAX, | ||
| logical, intent(in) | MAKEFLULIM | ||
| ) |
- Parameters
-
[in] npoin COMPUTE_FLODEL If yes, compute flodel here [in] DOFLULIM Optional, if yes does array flulim [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 [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] 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] 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] 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 [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] 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] 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] 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 [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] 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] 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] 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 [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] 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] 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_nerd.f.
Here is the call graph for this function: Here is the caller graph for this function: