SimulationCore2/Equipments/TopDrive/TopDrive_StartUp.f90

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