Binary mobility factor for H2O and N2
function k_H2O_N2 import Modelica.Media.IdealGases.Common.FluidData; extends BaseClasses.k(final T_crit = sqrt(FluidData.H2O.criticalTemperature*FluidData.N2.criticalTemperature)*U.K, final p_crit = sqrt(FluidData.H2O.criticalPressure*FluidData.N2.criticalPressure)*U.Pa, redeclare package A = H2O.Gas, redeclare package B = N2.Gas, redeclare function pDstar = BaseClasses.pDstar_polar); end k_H2O_N2;