Obsidean_VM/04-SIDEL/06 - E5.007363 - Modifica O&U - SAE196 (cip integrato)/Source/source/DeaireationValve.md

FUNCTION "DeaireationValve" : Real
{ S7_Optimized_Access := 'FALSE' }
AUTHOR : 'Author'
FAMILY : 'Function'
NAME : 'Name'
VERSION : 1.0
   VAR_INPUT 
      in_DeaireationFlow : Real;
      in_InletPressure : Real;
      in_FlowCoefficient : Real;
   END_VAR

   VAR_TEMP 
      mAux : Real;
   END_VAR


BEGIN
	(*     Regime Sonico P2 < P1/2          *)
	(*     OV = Flow / 14.3 * kv * P1       *)
	(* classic code: #mAux := #in_FlowCoefficient * 14.3 * (#in_InletPressure + 1.0) ;*)
	#mAux := #in_FlowCoefficient * REAL#14.3 * (#in_InletPressure + REAL#1.0) ;
	
	IF #mAux <> 0 THEN
	    (* classic code: #DeaireationValve := LIMIT (MN:="Blender_Constants".gRVN304_Min , IN:= #in_DeaireationFlow / #mAux, MX:= 100.0) ;*)
	    #DeaireationValve := LIMIT (MN:="Blender_Constants".gRVN304_Min , IN:= #in_DeaireationFlow / #mAux, MX:= REAL#100.0) ; 
	ELSE
	    (* classic code: #DeaireationValve := 0.0;*)
	    #DeaireationValve := REAL#0.0;
	END_IF; 
	
	
END_FUNCTION