powered by
C.P <- sw.specific.heat(S, t, p);
Millero et. al., UNESCO report 38 (1981), 99-188.
C.P <- sw.specific.heat(40, 40, 10000) # 3949.500
Run the code above in your browser using DataLab