diff --git a/src/Controllers.f90 b/src/Controllers.f90 index 0036ec81..319896b3 100644 --- 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