Equation 6 from:
  The International Association for the Properties of Water and Steam
  Milan, Italy
  September 1993
  Release on the Pressure along the Melting and the Sublimation Curves of
  Ordinary Water Substance
  
function sublimationPressure_T extends Modelica.Icons.Function; input SI.Temperature T "Temperature"; output SI.Pressure psubl "sublimation pressure (for T from 190 to 273.16)"; end sublimationPressure_T;