Read shutdown and flap angle parameters from DISCON.IN

Ben-Mertz · Nov 14, 2019 · 222dff1 · 222dff1
1 parent e02c411
commit 222dff1
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/ReadSetParameters.f90 b/src/ReadSetParameters.f90
@@ -188,7 +188,17 @@ SUBROUTINE ReadControlParameterFileSub(CntrPar)
         READ(UnControllerParameters, *) CntrPar%PS_WindSpeeds
         ALLOCATE(CntrPar%PS_BldPitchMin(CntrPar%PS_BldPitchMin_N))
         READ(UnControllerParameters, *) CntrPar%PS_BldPitchMin
+        READ(UnControllerParameters, *) 
 
+        !------------ SHUTDOWN ------------
+        READ(UnControllerParameters, *)      
+        READ(UnControllerParameters, *) CntrPar%SD_MaxPit  
+        READ(UnControllerParameters, *) CntrPar%SD_CornerFreq
+        READ(UnControllerParameters, *) 
+
+        !------------ Flaps ------------
+        READ(UnControllerParameters, *)      
+        READ(UnControllerParameters, *) CntrPar%Flp_Angle  
         ! END OF INPUT FILE    
 
         !------------------- CALCULATED CONSTANTS -----------------------