Force PC_MinPitch

Ben-Mertz · Jan 21, 2020 · 063b062 · 063b062
1 parent 2186682
commit 063b062
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Controllers.f90 b/src/Controllers.f90
@@ -95,6 +95,7 @@ SUBROUTINE PitchControl(avrSWAP, CntrPar, LocalVar, objInst)
         ! Peak Shaving
         IF (CntrPar%PS_Mode == 1) THEN
             LocalVar%PC_MinPit = PitchSaturation(LocalVar,CntrPar,objInst)
+            LocalVar%PC_MinPit = max(LocalVar%PC_MinPit, CntrPar%PC_MinPit)
         ELSE
             LocalVar%PC_MinPit = CntrPar%PC_MinPit
         ENDIF