From 229c2812d79572c00417d32921808c5b518ebb42 Mon Sep 17 00:00:00 2001 From: Nikhar Abbas Date: Wed, 12 Aug 2020 14:05:40 -0600 Subject: [PATCH] Filter WSE by primary corner freq --- src/Filters.f90 | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/Filters.f90 b/src/Filters.f90 index 3f726cbe..14f51052 100644 --- a/src/Filters.f90 +++ b/src/Filters.f90 @@ -290,8 +290,12 @@ SUBROUTINE PreFilterMeasuredSignals(CntrPar, LocalVar, objInst) LocalVar%FA_AccHPF = HPFilter(LocalVar%FA_Acc, LocalVar%DT, CntrPar%FA_HPFCornerFreq, LocalVar%iStatus, .FALSE., objInst%instHPF) - ! Wind Speed Estimator - LocalVar%We_Vw_F = SecLPFilter(LocalVar%WE_Vw,LocalVar%DT,0.21D0,0.7D0,LocalVar%iStatus,.FALSE.,objInst%instSecLPF) ! 30 second time constant + ! Filter Wind Speed Estimator Signal + IF (CntrPar%F_LPFType == 1) THEN + LocalVar%We_Vw_F = LPFilter(LocalVar%WE_Vw, LocalVar%DT, CntrPar%F_LPFCornerFreq, LocalVar%iStatus,.FALSE.,objInst%instSecLPF) ! 30 second time constant + ELSE + LocalVar%We_Vw_F = SecLPFilter(LocalVar%WE_Vw, LocalVar%DT, CntrPar%F_LPFCornerFreq, CntrPar%F_LPFDamping, LocalVar%iStatus,.FALSE.,objInst%instSecLPF) ! 30 second time constant + ENDIF ! Control commands (used by WSE, mostly) LocalVar%VS_LastGenTrqF = SecLPFilter(LocalVar%VS_LastGenTrq, LocalVar%dt, CntrPar%F_LPFCornerFreq, 0.7D0, LocalVar%iStatus, .FALSE., objInst%instSecLPF)