22 lines
523 B
Plaintext
22 lines
523 B
Plaintext
|
|
(* @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
|