Learn R Programming

oce (version 1.0-1)

swThermalConductivity: Seawater thermal conductivity

Description

Compute seawater thermal conductivity, in \(W m^{-1\circ}C^{-1}\)

Usage

swThermalConductivity(salinity, temperature = NULL, pressure = NULL)

Arguments

salinity

salinity [PSU], or a ctd object, in which case temperature and pressure will be ignored.

temperature

in-situ temperature [\(^\circ\)C], defined on the ITS-90 scale; see “Temperature units” in the documentation for swRho.

pressure

pressure [dbar]

Value

Conductivity of seawater in \(W m^{-1\,\circ}C^{-1}\).

To calculate thermal diffusivity in \(m^2/s\), divide by the product of density and specific heat, as in the example.

Details

Caldwell's (1974) detailed formulation is used. To be specific, his equation 6 to calculate K, and his two sentences above that equation are used to infer this to be K(0,T,S) in his notation of equation 7. Then, application of his equations 7 and 8 is straightforward. He states an accuracy for this method of 0.3 percent. (See the check against his Table 1 in the “Examples”.)

References

Caldwell, Douglas R., 1974. Thermal conductivity of seawater, Deep-sea Research, 21, 131-137.

See Also

Other functions that calculate seawater properties: T68fromT90, T90fromT48, T90fromT68, swAbsoluteSalinity, swAlphaOverBeta, swAlpha, swBeta, swCSTp, swConservativeTemperature, swDepth, swDynamicHeight, swLapseRate, swN2, swPressure, swRho, swRrho, swSCTp, swSTrho, swSigma0, swSigma1, swSigma2, swSigma3, swSigma4, swSigmaTheta, swSigmaT, swSigma, swSoundAbsorption, swSoundSpeed, swSpecificHeat, swSpice, swTFreeze, swTSrho, swTheta, swViscosity, swZ

Examples

Run this code
# NOT RUN {
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
# Caldwell Table 1 gives 1478e-6 cal/(cm*sec*degC) at 31.5 o/oo, 10degC, 1kbar
joulePerCalorie <- 4.18400
cmPerM <- 100
swThermalConductivity(31.5,10,1000) / joulePerCalorie / cmPerM

# }

Run the code above in your browser using DataLab