-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathsalt_data_module.f90
25 lines (19 loc) · 1.04 KB
/
salt_data_module.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
module salt_data_module
implicit none
real :: salt_tds_ec !! |total dissolved solids to electrical conductivity conversion factor
type salt_solubility_product_parms
character(len=16) :: salt_solid_name
real :: CaCO3 !! 1/day |solubility product parms for calcium carbonate
real :: MgCO3 !! 1/day |solubility product parms for magnesium carbonate
real :: CaSO4 !! 1/day |solubility product parms for calcium sulfate
real :: MgSO4 !! 1/day |solubility product parms for magnesium sulfate
real :: NaCl !! none |solubility product parms for sodium chloride
end type salt_solubility_product_parms
type (salt_solubility_product_parms), dimension(:), allocatable :: ksp
real :: CaCO3_p(1000)
real :: MgCO3_p(1000)
real :: CaSO4_p(1000)
real :: MgSO4_p(1000)
real :: NaCl_p(1000)
contains
end module salt_data_module