Only check FlpCornerFreq if using Flp control, fixes example 05

johnjasa · Jun 29, 2021 · 2ec4e79 · 2ec4e79
1 parent a552a8d
commit 2ec4e79
Showing 1 changed file with 11 additions and 9 deletions.
diff --git a/ROSCO/src/ReadSetParameters.f90 b/ROSCO/src/ReadSetParameters.f90
@@ -618,16 +618,18 @@ SUBROUTINE CheckInputs(LocalVar, CntrPar, avrSWAP, ErrVar, size_avcMSG)
             ErrVar%ErrMsg  = 'F_FlCornerFreq(2) must be greater than zero.'
         ENDIF
 
-        ! F_FlpCornerFreq(1)  (frequency)
-        IF (CntrPar%F_FlpCornerFreq(1) <= 0.0) THEN
-            ErrVar%aviFAIL = -1
-            ErrVar%ErrMsg  = 'F_FlpCornerFreq(1) must be greater than zero.'
-        ENDIF
+        IF (CntrPar%Flp_Mode > 0) THEN
+            ! F_FlpCornerFreq(1)  (frequency)
+            IF (CntrPar%F_FlpCornerFreq(1) <= 0.0) THEN
+                ErrVar%aviFAIL = -1
+                ErrVar%ErrMsg  = 'F_FlpCornerFreq(1) must be greater than zero.'
+            ENDIF
 
-        ! F_FlpCornerFreq(2)  (damping)
-        IF (CntrPar%F_FlpCornerFreq(2) <= 0.0) THEN
-            ErrVar%aviFAIL = -1
-            ErrVar%ErrMsg  = 'F_FlpCornerFreq(2) must be greater than zero.'
+            ! F_FlpCornerFreq(2)  (damping)
+            IF (CntrPar%F_FlpCornerFreq(2) < 0.0) THEN
+                ErrVar%aviFAIL = -1
+                ErrVar%ErrMsg  = 'F_FlpCornerFreq(2) must be greater than or equal to zero.'
+            ENDIF
         ENDIF