Go to the source code of this file.
Functions/Subroutines | |
| subroutine | fonstr (H, ZF, Z, CHESTR, NGEO, FFORMAT, NFON, NOMFON, MESH, FFON, LISTIN, N_NAMES_PRIV, NAMES_PRIVE, PRIVE) |
Function/Subroutine Documentation
◆ fonstr()
| subroutine fonstr | ( | type(bief_obj), intent(inout) | H, |
| type(bief_obj), intent(inout) | ZF, | ||
| type(bief_obj), intent(inout) | Z, | ||
| type(bief_obj), intent(inout) | CHESTR, | ||
| integer, intent(in) | NGEO, | ||
| character(len=8), intent(in) | FFORMAT, | ||
| integer, intent(in) | NFON, | ||
| character(len=72), intent(in) | NOMFON, | ||
| type(bief_mesh), intent(in) | MESH, | ||
| double precision, intent(in) | FFON, | ||
| logical, intent(in) | LISTIN, | ||
| integer, intent(in) | N_NAMES_PRIV, | ||
| character(len=32), dimension(4), intent(in) | NAMES_PRIVE, | ||
| type(bief_obj), intent(inout) | PRIVE | ||
| ) |
- Parameters
-
[in,out] h [out] CHESTR Friction coefficient (depending on friction law) [in] FFON Friction coefficient if constant [out] H Water depth [in] LISTIN If yes, will give a report [in] MESH Mesh structure [in] N_NAMES_PRIV Number of private arrays with given names [in] NAMES_PRIV Names of private arrays given by user [in] NFON Logical unit of bottom file [in] NGEO Logical unit of geometry file [in] NOMFON Name of bottom file [in,out] PRIVE Block of private arrays [out] Z Free surface elevation [in] ZF Elevation of bottom [in,out] zf [out] CHESTR Friction coefficient (depending on friction law) [in] FFON Friction coefficient if constant [out] H Water depth [in] LISTIN If yes, will give a report [in] MESH Mesh structure [in] N_NAMES_PRIV Number of private arrays with given names [in] NAMES_PRIV Names of private arrays given by user [in] NFON Logical unit of bottom file [in] NGEO Logical unit of geometry file [in] NOMFON Name of bottom file [in,out] PRIVE Block of private arrays [out] Z Free surface elevation [in] ZF Elevation of bottom [in,out] z [out] CHESTR Friction coefficient (depending on friction law) [in] FFON Friction coefficient if constant [out] H Water depth [in] LISTIN If yes, will give a report [in] MESH Mesh structure [in] N_NAMES_PRIV Number of private arrays with given names [in] NAMES_PRIV Names of private arrays given by user [in] NFON Logical unit of bottom file [in] NGEO Logical unit of geometry file [in] NOMFON Name of bottom file [in,out] PRIVE Block of private arrays [out] Z Free surface elevation [in] ZF Elevation of bottom [in,out] chestr [out] CHESTR Friction coefficient (depending on friction law) [in] FFON Friction coefficient if constant [out] H Water depth [in] LISTIN If yes, will give a report [in] MESH Mesh structure [in] N_NAMES_PRIV Number of private arrays with given names [in] NAMES_PRIV Names of private arrays given by user [in] NFON Logical unit of bottom file [in] NGEO Logical unit of geometry file [in] NOMFON Name of bottom file [in,out] PRIVE Block of private arrays [out] Z Free surface elevation [in] ZF Elevation of bottom [in,out] prive [out] CHESTR Friction coefficient (depending on friction law) [in] FFON Friction coefficient if constant [out] H Water depth [in] LISTIN If yes, will give a report [in] MESH Mesh structure [in] N_NAMES_PRIV Number of private arrays with given names [in] NAMES_PRIV Names of private arrays given by user [in] NFON Logical unit of bottom file [in] NGEO Logical unit of geometry file [in] NOMFON Name of bottom file [in,out] PRIVE Block of private arrays [out] Z Free surface elevation [in] ZF Elevation of bottom
Definition at line 8 of file fonstr.f.
Here is the call graph for this function: Here is the caller graph for this function: