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