Initialize max torque

Ben-Mertz · Dec 2, 2020 · dbf0c3b · dbf0c3b
1 parent 6f052fa
commit dbf0c3b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ReadSetParameters.f90 b/src/ReadSetParameters.f90
@@ -575,7 +575,7 @@ SUBROUTINE SetParameters(avrSWAP, aviFAIL, accINFILE, ErrMsg, size_avcMSG, CntrP
                 LocalVar%GenTq = min(CntrPar%VS_RtTq, CntrPar%VS_Rgn2K*LocalVar%GenSpeed*LocalVar%GenSpeed)
             ENDIF            
             LocalVar%VS_LastGenTrq = LocalVar%GenTq       
-
+            LocalVar%VS_MaxTq      = CntrPar%VS_MaxTq
             ! Check validity of input parameters:
             CALL Assert(LocalVar, CntrPar, avrSWAP, aviFAIL, ErrMsg, size_avcMSG)