Files
Uniper_PLC/PLC/POUs/FB_String.TcPOU
2024-04-11 19:06:45 +02:00

590 lines
17 KiB
XML

<?xml version="1.0" encoding="utf-8"?>
<TcPlcObject Version="1.1.0.1" ProductVersion="3.1.4024.12">
<POU Name="FB_String" Id="{46501225-f446-4674-bfed-3be64273e576}" SpecialFunc="None">
<Declaration><![CDATA[FUNCTION_BLOCK FB_String
VAR_INPUT
// Enable
xEnable : BOOL;
// String in safety check mode
xInSafetyCheckMode : BOOL;
// Module 1 HMI interface
stHMIInterface : REFERENCE TO ST_STRING_HMI_INTERFACE;
// Emergency stop ok
xEmergencyStopOk : BOOL;
// Reset Safety
xResetSafety : BOOL;
// Release alarms
xReleaseErrors : BOOL;
// Release analog io limit errors
xReleaseLimitErrors : BOOL;
// Release manual mode
xReleaseManualMode : BOOL;
// Input to confirm all errors
xConfirmAlarms : BOOL;
END_VAR
VAR_OUTPUT
// Current string voltage
rCurrentVoltage : REAL;
// Module in shutdown segment discharge mode
xInShutdownDischargeMode : BOOL;
// Module can be discharged during shutdown sequence
xShutdownDischargeAllowed : BOOL;
// String ready
xReady : BOOL;
// String completely off
xOff : BOOL;
// Signal to close dc circuit breaker
xCloseDCCB AT %Q* : BOOL;
// Signal that dc circuit breakers are closed
xDCCBOpen AT %I* : BOOL;
// Reset signal for safety dc circuit breaker
xResetSafetyDCCB AT %Q* : BOOL;
// All safetyinterlocks are ok
xSafetyIntlksOk : BOOL;
// All modules in automatic mode
xAllModulesInAutoMode : BOOL;
xError : BOOL;
xWarning : BOOL;
eStatus : E_COMPONENT_STATUS;
END_VAR
VAR
_fbModule1 : FB_Module('Module 1');
_fbModule2 : FB_Module('Module 2');
_fbModule3 : FB_Module('Module 3');
// All modules are ready
_xAllModulesReady : BOOL;
// All modules in shutdown discharge mode
_xAllModulesInShutdownDischargeMode : BOOL;
// Flag for module balance checking
_xBalanceOk : BOOL;
// Modules out of balance alarm message
_fbModulesOutOfBalanceAlarm : Fb_TcAlarm;
// Safetyinterlocks pending alarm
_fbSafetyInterlocksNotOkAlarm : FB_TcAlarm;
// State for start and stop
_iState : INT := 0;
// Timer for result pulse to safety
_tonResetPulseLength : TON := (PT := T#250MS);
// Error timer for not closing dc relais
_tonErrorDCCBNotClosed : TON := (PT := T#5S);
// String name
_sName : STRING;
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[// Reset error flag
xError := FALSE;
// Reset all modules in automatic mode
xAllModulesInAutoMode := TRUE;
// Reset safety interlocks flag
xSafetyIntlksOk := TRUE;
// Reset Safety
xResetSafetyDCCB := xResetSafety;
// ===============================
// Module 1
// ===============================
_fbModule1(
xEnable := xEnable,
xInSafetyCheckMode := xInSafetyCheckMode,
xEmergencyStopOk:= xEmergencyStopOk,
stHMIInterface:= stHMIInterface.stHMIInterfaceModule1,
xReleaseErrors:= xReleaseErrors,
xReleaseLimitErrors:= xReleaseLimitErrors,
xReleaseManualMode := xReleaseManualMode,
xConfirmAlarms:= xConfirmAlarms);
IF _fbModule1.xWarning THEN
xWarning := TRUE;
END_IF
IF _fbModule1.xError THEN
xError := TRUE;
END_IF
IF NOT _fbModule1.xSafetyIntlksOk THEN
xSafetyIntlksOk := FALSE;
END_IF
IF NOT _fbModule1.xAllUnitsInAutomatic THEN
xAllModulesInAutoMode := FALSE;
END_IF
// ===============================
// Module 2
// ===============================
_fbModule2(
xEnable := xEnable,
xInSafetyCheckMode := xInSafetyCheckMode,
xEmergencyStopOk:= xEmergencyStopOk,
stHMIInterface:= stHMIInterface.stHMIInterfaceModule2,
xReleaseErrors:= xReleaseErrors,
xReleaseLimitErrors:= xReleaseLimitErrors,
xReleaseManualMode := xReleaseManualMode,
xConfirmAlarms:= xConfirmAlarms);
IF _fbModule2.xWarning THEN
xWarning := TRUE;
END_IF
IF _fbModule2.xError THEN
xError := TRUE;
END_IF
IF NOT _fbModule2.xSafetyIntlksOk THEN
xSafetyIntlksOk := FALSE;
END_IF
IF NOT _fbModule2.xAllUnitsInAutomatic THEN
xAllModulesInAutoMode := FALSE;
END_IF
// ===============================
// Module 3
// ===============================
_fbModule3(
xEnable := xEnable,
xInSafetyCheckMode := xInSafetyCheckMode,
xEmergencyStopOk:= xEmergencyStopOk,
stHMIInterface:= stHMIInterface.stHMIInterfaceModule3,
xReleaseErrors:= xReleaseErrors,
xReleaseLimitErrors:= xReleaseLimitErrors,
xReleaseManualMode := xReleaseManualMode,
xConfirmAlarms:= xConfirmAlarms);
IF _fbModule3.xWarning THEN
xWarning := TRUE;
END_IF
IF _fbModule3.xError THEN
xError := TRUE;
END_IF
IF NOT _fbModule3.xSafetyIntlksOk THEN
xSafetyIntlksOk := FALSE;
END_IF
IF NOT _fbModule3.xAllUnitsInAutomatic THEN
xAllModulesInAutoMode := FALSE;
END_IF
// ===============================
// Handle safety interlock alarm
// ===============================
IF NOT xSafetyIntlksOk AND NOT _fbSafetyInterlocksNotOkAlarm.bRaised THEN
_fbSafetyInterlocksNotOkAlarm.Raise(0);
END_IF
IF xSafetyIntlksOk AND _fbSafetyInterlocksNotOkAlarm.bRaised THEN
_fbSafetyInterlocksNotOkAlarm.Clear(0, TRUE);
END_IF
// ===============================
// Modules ready check
// ===============================
_xAllModulesReady := _fbModule1.xReady AND _fbModule3.xReady; // _fbModule2.xReady AND
// ===============================
// Modules in shutdown discharge mode
// ===============================
xInShutdownDischargeMode := _fbModule1.xInShutdownDischargeMode AND _fbModule2.xInShutdownDischargeMode AND _fbModule3.xInShutdownDischargeMode;
// ===============================
// Units shutdown discharge allowed
// ===============================
xShutdownDischargeAllowed := _fbModule1.xShutdownDischargeAllowed AND _fbModule2.xShutdownDischargeAllowed AND _fbModule3.xShutdownDischargeAllowed;
// ===============================
// All modules off
// ===============================
xOff := _fbModule1.xOff AND _fbModule2.xOff AND _fbModule3.xOff;
// ===============================
// Calculate string voltage
// ===============================
rCurrentVoltage := _fbModule1.rCurrentVoltage + _fbModule2.rCurrentVoltage + _fbModule3.rCurrentVoltage;
stHMIInterface.rVoltage := rCurrentVoltage;
// ===============================
// String balance check
// ===============================
// Reset balance ok flag
_xBalanceOk := TRUE;
// Test module 1 with module 2
IF ABS(_fbModule1.rCurrentVoltage - _fbModule2.rCurrentVoltage) > GVL_CONFIG.rMaxAbsDiffVoltageModulesInString THEN
_xBalanceOk := FALSE;
END_IF
// Test module 1 with module 3
IF ABS(_fbModule1.rCurrentVoltage - _fbModule3.rCurrentVoltage) > GVL_CONFIG.rMaxAbsDiffVoltageModulesInString THEN
_xBalanceOk := FALSE;
END_IF
// Test module 2 with module 3
IF ABS(_fbModule2.rCurrentVoltage - _fbModule3.rCurrentVoltage) > GVL_CONFIG.rMaxAbsDiffVoltageModulesInString THEN
_xBalanceOk := FALSE;
END_IF
// Signal an error if all units are ready and module is out of balance
IF _xAllModulesReady AND (NOT _xBalanceOk) THEN
xError := TRUE;
END_IF
// Raise error
IF (NOT _xBalanceOk) AND (NOT _fbModulesOutOfBalanceAlarm.bRaised) THEN
_fbModulesOutOfBalanceAlarm.Raise(0);
END_IF
// Clear error
IF _xBalanceOk AND _fbModulesOutOfBalanceAlarm.bRaised THEN
_fbModulesOutOfBalanceAlarm.Clear(0, FALSE);
END_IF
// Confirm error
IF _fbModulesOutOfBalanceAlarm.eConfirmationState = TcEventConfirmationState.WaitForConfirmation AND xConfirmAlarms THEN
_fbModulesOutOfBalanceAlarm.Confirm(0);
END_IF
// ===============================
// String ready validation check
// ===============================
_tonResetPulseLength();
_tonErrorDCCBNotClosed();
CASE _iState OF
0: // Idle
IF _xAllModulesReady AND _xBalanceOk AND xAllModulesInAutoMode THEN
xCloseDCCB := TRUE;
xResetSafetyDCCB := TRUE;
_tonResetPulseLength.IN := TRUE;
_iState := 10;
END_IF
10: // Reset safety from sensors
IF _tonResetPulseLength.Q THEN
_tonResetPulseLength.IN := FALSE;
xResetSafetyDCCB := FALSE;
_tonErrorDCCBNotClosed.IN := TRUE;
_iState := 20;
END_IF
20: // Check if DC relais closed
IF NOT xDCCBOpen THEN
xReady := TRUE;
_iState := 30;
END_IF
IF _tonErrorDCCBNotClosed.Q THEN
_tonErrorDCCBNotClosed.IN := FALSE;
xReady := FALSE;
_iState := 1000;
END_IF
30: // All modules ready
// !!! ATTENTION !!!
// BMS HAS TO SHUT DOWN THE INVERTER BEFORE DISSABLING THE STRING
// OTHERWISE THE DC CIRCUIT BREAKERS WILL OPEN WHILE THE INVERTER IS STILL ACTIVE
// THIS CAN DAMAGE THE INVERTER
IF NOT xEnable THEN
xCloseDCCB := FALSE;
_iState := 0;
ELSIF NOT _xAllModulesReady OR NOT _xBalanceOk THEN
xError := TRUE;
END_IF
1000: // Error state
// Leave error state only if modules are deactivated
IF NOT xEnable THEN
_tonResetPulseLength.IN := FALSE;
_tonErrorDCCBNotClosed.IN := FALSE;
_iState := 0;
END_IF
END_CASE
IF _xAllModulesReady AND _xBalanceOk AND (_iState = 30) THEN
xReady := TRUE;
ELSE
xReady := FALSE;
END_IF
// ===============================
// String status sum
// ===============================
IF xOff THEN
eStatus := E_COMPONENT_STATUS.OFF;
END_IF
IF xReady THEN
eStatus := E_COMPONENT_STATUS.ON;
END_IF
IF xError THEN
eStatus := E_COMPONENT_STATUS.ERROR;
END_IF]]></ST>
</Implementation>
<Method Name="FB_init" Id="{9e8494eb-1b40-4be9-91c8-810ecbdf7f0c}">
<Declaration><![CDATA[METHOD FB_init : BOOL
VAR_INPUT
bInitRetains : BOOL; // if TRUE, the retain variables are initialized (warm start / cold start)
bInCopyCode : BOOL; // if TRUE, the instance afterwards gets moved into the copy code (online change)
sName : STRING;
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[_sName := sName;
// Set names for modules
_fbModule1.Name := Concat(_sName, ' - Module 1');
_fbModule2.Name := Concat(_sName, ' - Module 2');
_fbModule3.Name := Concat(_sName, ' - Module 3');
// Create out of balance alarm
_fbModulesOutOfBalanceAlarm.CreateEx(stEventEntry := TC_EVENTS.BMSEvents.StringImbalance, bWithConfirmation := TRUE, 0);
_fbModulesOutOfBalanceAlarm.ipArguments.Clear().AddString(_sName);
// Create safetyinterlocks active alarm
_fbSafetyInterlocksNotOkAlarm.CreateEx(stEventEntry := TC_EVENTS.BMSEvents.SafetyIntlksActive, bWithConfirmation := FALSE, 0);
_fbSafetyInterlocksNotOkAlarm.ipArguments.Clear().AddString(_sName);]]></ST>
</Implementation>
</Method>
<Property Name="Name" Id="{19fcb6d4-fd4b-49f9-9791-1e4c931b9e69}">
<Declaration><![CDATA[PROPERTY Name : String]]></Declaration>
<Get Name="Get" Id="{a4b6ba34-8ad9-46b1-939c-45cef957fd9a}">
<Declaration><![CDATA[VAR
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[Name := _sName;]]></ST>
</Implementation>
</Get>
<Set Name="Set" Id="{c32997c5-bac4-4ef0-bc87-edcbbb2e542f}">
<Declaration><![CDATA[VAR
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[_sName := Name;
// Set modules names
_fbModule1.Name := CONCAT(_sName, ' - Module 1');
_fbModule2.Name := CONCAT(_sName, ' - Module 2');
_fbModule3.Name := CONCAT(_sName, ' - Module 3');
// Create alarm messages
_fbModulesOutOfBalanceAlarm.ipArguments.Clear().AddString(_sName);
_fbSafetyInterlocksNotOkAlarm.ipArguments.Clear().AddString(_sName);]]></ST>
</Implementation>
</Set>
</Property>
<LineIds Name="FB_String">
<LineId Id="266" Count="0" />
<LineId Id="268" Count="0" />
<LineId Id="758" Count="0" />
<LineId Id="757" Count="0" />
<LineId Id="759" Count="0" />
<LineId Id="335" Count="0" />
<LineId Id="334" Count="0" />
<LineId Id="336" Count="0" />
<LineId Id="867" Count="0" />
<LineId Id="866" Count="0" />
<LineId Id="870" Count="0" />
<LineId Id="267" Count="0" />
<LineId Id="69" Count="0" />
<LineId Id="67" Count="1" />
<LineId Id="47" Count="0" />
<LineId Id="140" Count="0" />
<LineId Id="875" Count="0" />
<LineId Id="48" Count="0" />
<LineId Id="50" Count="2" />
<LineId Id="600" Count="0" />
<LineId Id="53" Count="0" />
<LineId Id="58" Count="0" />
<LineId Id="62" Count="0" />
<LineId Id="64" Count="0" />
<LineId Id="66" Count="0" />
<LineId Id="63" Count="0" />
<LineId Id="59" Count="2" />
<LineId Id="338" Count="0" />
<LineId Id="337" Count="0" />
<LineId Id="339" Count="1" />
<LineId Id="761" Count="0" />
<LineId Id="760" Count="0" />
<LineId Id="762" Count="1" />
<LineId Id="71" Count="4" />
<LineId Id="871" Count="0" />
<LineId Id="76" Count="0" />
<LineId Id="141" Count="0" />
<LineId Id="876" Count="0" />
<LineId Id="77" Count="3" />
<LineId Id="601" Count="0" />
<LineId Id="81" Count="7" />
<LineId Id="70" Count="0" />
<LineId Id="342" Count="2" />
<LineId Id="341" Count="0" />
<LineId Id="765" Count="2" />
<LineId Id="764" Count="0" />
<LineId Id="90" Count="5" />
<LineId Id="142" Count="0" />
<LineId Id="877" Count="0" />
<LineId Id="96" Count="3" />
<LineId Id="602" Count="0" />
<LineId Id="100" Count="7" />
<LineId Id="89" Count="0" />
<LineId Id="346" Count="2" />
<LineId Id="345" Count="0" />
<LineId Id="769" Count="2" />
<LineId Id="768" Count="0" />
<LineId Id="433" Count="1" />
<LineId Id="432" Count="0" />
<LineId Id="435" Count="4" />
<LineId Id="441" Count="2" />
<LineId Id="440" Count="0" />
<LineId Id="183" Count="5" />
<LineId Id="245" Count="4" />
<LineId Id="244" Count="0" />
<LineId Id="261" Count="4" />
<LineId Id="260" Count="0" />
<LineId Id="270" Count="4" />
<LineId Id="269" Count="0" />
<LineId Id="190" Count="3" />
<LineId Id="182" Count="0" />
<LineId Id="199" Count="5" />
<LineId Id="198" Count="0" />
<LineId Id="209" Count="0" />
<LineId Id="208" Count="0" />
<LineId Id="230" Count="1" />
<LineId Id="211" Count="0" />
<LineId Id="232" Count="0" />
<LineId Id="210" Count="0" />
<LineId Id="234" Count="1" />
<LineId Id="233" Count="0" />
<LineId Id="213" Count="0" />
<LineId Id="212" Count="0" />
<LineId Id="237" Count="1" />
<LineId Id="236" Count="0" />
<LineId Id="215" Count="5" />
<LineId Id="353" Count="13" />
<LineId Id="352" Count="0" />
<LineId Id="221" Count="3" />
<LineId Id="704" Count="0" />
<LineId Id="725" Count="1" />
<LineId Id="690" Count="0" />
<LineId Id="692" Count="0" />
<LineId Id="694" Count="1" />
<LineId Id="710" Count="0" />
<LineId Id="703" Count="0" />
<LineId Id="697" Count="0" />
<LineId Id="696" Count="0" />
<LineId Id="698" Count="2" />
<LineId Id="705" Count="0" />
<LineId Id="711" Count="0" />
<LineId Id="735" Count="0" />
<LineId Id="712" Count="0" />
<LineId Id="706" Count="0" />
<LineId Id="713" Count="0" />
<LineId Id="719" Count="0" />
<LineId Id="734" Count="0" />
<LineId Id="745" Count="0" />
<LineId Id="739" Count="1" />
<LineId Id="720" Count="0" />
<LineId Id="744" Count="0" />
<LineId Id="746" Count="0" />
<LineId Id="727" Count="1" />
<LineId Id="718" Count="0" />
<LineId Id="714" Count="0" />
<LineId Id="750" Count="3" />
<LineId Id="741" Count="0" />
<LineId Id="749" Count="0" />
<LineId Id="742" Count="1" />
<LineId Id="716" Count="1" />
<LineId Id="729" Count="1" />
<LineId Id="738" Count="0" />
<LineId Id="731" Count="0" />
<LineId Id="736" Count="1" />
<LineId Id="732" Count="1" />
<LineId Id="693" Count="0" />
<LineId Id="691" Count="0" />
<LineId Id="689" Count="0" />
<LineId Id="225" Count="0" />
<LineId Id="747" Count="0" />
<LineId Id="239" Count="1" />
<LineId Id="214" Count="0" />
<LineId Id="512" Count="0" />
<LineId Id="511" Count="0" />
<LineId Id="513" Count="4" />
<LineId Id="521" Count="0" />
<LineId Id="520" Count="0" />
<LineId Id="522" Count="1" />
<LineId Id="525" Count="0" />
<LineId Id="524" Count="0" />
<LineId Id="526" Count="1" />
</LineIds>
<LineIds Name="FB_String.FB_init">
<LineId Id="7" Count="0" />
<LineId Id="33" Count="0" />
<LineId Id="32" Count="0" />
<LineId Id="34" Count="2" />
<LineId Id="16" Count="0" />
<LineId Id="15" Count="0" />
<LineId Id="17" Count="0" />
<LineId Id="20" Count="0" />
<LineId Id="31" Count="0" />
<LineId Id="29" Count="1" />
<LineId Id="28" Count="0" />
</LineIds>
<LineIds Name="FB_String.Name.Get">
<LineId Id="2" Count="0" />
</LineIds>
<LineIds Name="FB_String.Name.Set">
<LineId Id="2" Count="0" />
<LineId Id="9" Count="0" />
<LineId Id="6" Count="2" />
<LineId Id="5" Count="0" />
<LineId Id="13" Count="0" />
<LineId Id="11" Count="0" />
<LineId Id="10" Count="0" />
<LineId Id="12" Count="0" />
</LineIds>
</POU>
</TcPlcObject>