library(oce)
# Values in m^2/s, a unit that is often used instead of W/(m*degC).
swThermalConductivity(35, 10, 100) / (swRho(35,10,100) * swSpecificHeat(35,10,100)) # ocean
swThermalConductivity(0, 20, 0) / (swRho(0, 20, 0) * swSpecificHeat(0, 20, 0)) # lab
# Comparison with Caldwell Table 1.
swThermalConductivity(31.5,10,1.0e4) / 418.4 * 1e6 # cf Caldwell table 1
Run the code above in your browser using DataLab