Try to update flap controller

Ben-Mertz · Oct 3, 2024 · c137a8c · c137a8c
1 parent fdbb260
commit c137a8c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/rosco/controller/src/Controllers.f90 b/rosco/controller/src/Controllers.f90
@@ -601,6 +601,7 @@ SUBROUTINE FlapControl(avrSWAP, CntrPar, LocalVar, objInst)
         REAL(DbKi)                  :: axisTilt_1P, axisYaw_1P    ! Direct axis and quadrature axis outputted by Coleman transform, 1P
         REAL(DbKi)                  :: Flp_axisTilt_1P, Flp_axisYaw_1P ! Flap command in direct and quadrature axis coordinates
         ! Flap control
+        PRINT *, "Gets to this point in flap control"
         IF (CntrPar%Flp_Mode > 0) THEN
             IF (LocalVar%iStatus == 0) THEN
                 LocalVar%RootMyb_Last(1) = 0 - LocalVar%rootMOOP(1)
@@ -667,7 +668,7 @@ SUBROUTINE ActiveWakeControl(CntrPar, LocalVar, DebugVar)
         TYPE(LocalVariables), INTENT(INOUT)       :: LocalVar
 
         ! Local vars
-        REAL(DbKi), PARAMETER      :: phi1 = 0.0                       ! Phase difference from first to first blade
+        REAL(DbKi), PARAMETER     1 :: phi1 = 0.0                       ! Phase difference from first to first blade
         REAL(DbKi), PARAMETER      :: phi2 = 2.0/3.0*PI                ! Phase difference from first to second blade
         REAL(DbKi), PARAMETER      :: phi3 = 4.0/3.0*PI                ! Phase difference from first to third blade
         REAL(DbKi), DIMENSION(3)                        :: AWC_angle