(* @PATH := '\/Functions_Collection' *)
(* @SYMFILEFLAGS := '0' *)
FUNCTION CO2_Solubility : REAL
VAR_INPUT
	i_Temp				: REAL ;
END_VAR
VAR
	mT_Cub				: REAL ;
	mT_Quad			: REAL ;
END_VAR


(* @END_DECLARATION := '0' *)
(* This function calculates the CO2 absorption for a complete saturation *)
mT_Cub := EXPT(i_Temp, 3) ;
mT_Quad := EXPT(i_Temp, 2) ;
IF gCO2_Density<>0 THEN
	CO2_Solubility := (-1.41118E-06 * mT_Cub + 0.000202893 * mT_Quad -0.011685848 * i_Temp + 0.331474668) / gCO2_Density * 10 ;
END_IF
END_FUNCTION