Compute the henry constant for a given temperature.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=c_double), | intent(in) | :: | T(size_T) |
Temperature in °C. |
||
type(c_ptr), | intent(in), | value | :: | gas |
Gas. |
|
integer(kind=c_int), | intent(in), | value | :: | heavywater |
Flag if D2O (1) is used or H2O(0). |
|
real(kind=c_double), | intent(inout) | :: | k(size_T) |
Henry constant. Filled with NaNs if gas not found. |
||
integer(kind=c_int), | intent(in), | value | :: | size_gas |
Size of the gas string. |
|
integer(kind=c_size_t), | intent(in), | value | :: | size_T |
Size of T and k. |