From 222dff1d5c882a66398850ef181d6aef0088c2be Mon Sep 17 00:00:00 2001 From: Nikhar Abbas Date: Wed, 13 Nov 2019 18:04:02 -0700 Subject: [PATCH] Read shutdown and flap angle parameters from DISCON.IN --- src/ReadSetParameters.f90 | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/ReadSetParameters.f90 b/src/ReadSetParameters.f90 index eba376a3..2cae8011 100644 --- 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 -----------------------