subroutine TopDrive_StartUp use SimulationVariables IMPLICIT NONE data%State%TDS%MaxRPM = 200.d0 ![RPM] !??????? motaghayere voroudi data%State%TDS%MaxTorque = 1500.d0 ![ft.lbf] !??????? motaghayere voroudi data%State%TDS%time_step = 0.10d0 ![s] data%State%TDS%Inertia_Moment = 23.261341d0 ! 23.261341 [kg.m^2] = 552 [lb.ft^2] data%State%TDS%J_coef = data%State%TDS%Inertia_Moment+(1.d0*(data%State%TDS%Inertia_Moment)) ! [kg.m^2]??????????? data%State%TDS%String_JCoef = 0.d0 !data%State%TDS%Mech_Efficiency = 0.930d0 data%State%TDS%Torque = 0.d0 data%State%TDS%Speed = 0.d0 data%State%TDS%OperationFaultLed = 0 data%State%TDS%OldPowerMode = 0 data%State%TDS%MotorFaileMalf = 0 data%State%TDS%High_Conv_Ratio = 4.825d0 data%State%TDS%Low_Conv_Ratio = 7.310d0 data%State%TDS%Conv_Ratio = data%State%TDS%High_Conv_Ratio Call TopDrive_OffMode end subroutine