Define integer

Ben-Mertz · Nov 18, 2019 · dea04f9 · dea04f9
1 parent 07c8292
commit dea04f9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Controllers.f90 b/src/Controllers.f90
@@ -349,7 +349,7 @@ SUBROUTINE FlapControl(avrSWAP, CntrPar, LocalVar, objInst)
         TYPE(ObjectInstances), INTENT(INOUT)      :: objInst
 
         ! Flap control
-        IF (CntrPar%Flp_Mode) THEN
+        IF (CntrPar%Flp_Mode == 1) THEN
             LocalVar%Flp_Angle(1) = CntrPar%Flp_Angle * D2R
             LocalVar%Flp_Angle(2) = CntrPar%Flp_Angle * D2R
             LocalVar%Flp_Angle(3) = CntrPar%Flp_Angle * D2R