From 9aa326d91f88b8e07c5e0544ce55b78854dff670 Mon Sep 17 00:00:00 2001
From: Raphael Luz <luz@ivt.tugraz.at>
Date: Thu, 26 Mar 2015 17:02:39 +0100
Subject: [PATCH] - Iterative Pwheel reduction to fit full load
---
VECTO/MODcalc/cPower.vb | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/VECTO/MODcalc/cPower.vb b/VECTO/MODcalc/cPower.vb
index a5395ecb8b..739260ab4f 100644
--- a/VECTO/MODcalc/cPower.vb
+++ b/VECTO/MODcalc/cPower.vb
@@ -1157,7 +1157,8 @@ lb_nOK:
If P > Pmax Then
If EngState0 = tEngState.Load Or EngState0 = tEngState.FullLoad Then
If PwheelVorg Then
- P = Pmax
+ MODdata.Vh.Pwheel(jz) *= 0.999
+ GoTo lbGschw
ElseIf Vact > 0.01 Then
Vh.ReduceSpeed(jz, 0.9999)
FirstSecItar = False
--
GitLab