Aquifer Derived Type
type, public :: Aquifer
Components
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| type(grid_real), | public | :: | Ks | ||||
| type(grid_real), | public | :: | KsAquitard | ||||
| type(grid_real), | public | :: | bottom | ||||
| type(grid_integer), | public | :: | domainBC | ||||
| type(grid_real), | public | :: | head0 | ||||
| type(grid_real), | public | :: | head1 | ||||
| type(grid_real), | public | :: | sy | ||||
| type(grid_real), | public | :: | top | ||||
| type(grid_real), | public | :: | valueBC |
Source Code
TYPE Aquifer
TYPE(grid_real) :: top
TYPE(grid_real) :: bottom
TYPE(grid_real) :: Ks !hydraulic conductivity (m/s)
TYPE(grid_real) :: sy !specific yield
TYPE(grid_real) :: KsAquitard !hydraulic conductivity of the aquitard
TYPE(grid_integer):: domainBC !set domain and boundary conditions type
TYPE(grid_real) :: valueBC ! value to be used for boundary condition
TYPE(grid_real) :: head0 !head at time t-1
TYPE(grid_real) :: head1 !head at time t
END TYPE Aquifer