SimulationCore2/Equipments/TopDrive/TopDrive_StartUp.f90

subroutine TopDrive_StartUp

    use CTopDrivePanelVariables
    use TopDrive_VARIABLES
    
	IMPLICIT NONE
    
    
    TopDriveOperationFaultLed = 0
    TDS_OldPowerMode = 0
    
    
    
    !TDS%=0.
    
    TDS%Inertia_Moment  = 23.261341                                            ! 23.261341 [kg.m^2] = 552 [lb.ft^2]
    TDS%J_coef          = TDS%Inertia_Moment+(1.*(TDS%Inertia_Moment))   ! [kg.m^2]???????????
    TDS%String_JCoef    = 0.                             !???????????????
    TDS%Mech_Efficiency = 0.930
    TDS%ConstLoad       = 2000.                          ![lb.in]
    TDS%ConstLoad       = 0.112984829*TDS%ConstLoad   ![N.m]
    TDS%Torque          = 0.0
    
    
    TDS%High_Conv_Ratio = 4.8250
    TDS%Low_Conv_Ratio  = 7.310
    TDS%Conv_Ratio      = TDS%High_Conv_Ratio
    TDS%time_step       = .10
    
    
    TDS%w     = 0.0
    TDS%w_new = 0.0

    
    
    
    !TDS_OldTransMode  = RTTransmissionLever   ??????

    
    
    call TopDrive_OffMode
    
    
    
    
end subroutine