SimulationCore2/Equipments/RotaryTable/RTable_StartUp.f90

subroutine RTable_StartUp

    use CDrillingConsoleVariables
    use RTable_VARIABLES
    
	IMPLICIT NONE
    
    
    
    !RTable%=0.
    
    RTable%Inertia_Moment  = 23.261341e0                                            ! 23.261341 [kg.m^2] = 552 [lb.ft^2]
    RTable%J_coef          = RTable%Inertia_Moment+(1.e0*(RTable%Inertia_Moment))   ! [kg.m^2]???????????
    RTable%String_JCoef    = 0.e0                             !???????????????
    RTable%Mech_Efficiency = 0.93e0
    !RTable%ConstLoad       = 2000.e0                          ![lb.in]
    !RTable%ConstLoad       = 0.112984829e0*RTable%ConstLoad   ![N.m]
    RTable%Torque          = 0.0e0
    
    
    RTable%High_Conv_Ratio = 4.825e0
    RTable%Low_Conv_Ratio  = 7.31e0
    RTable%Conv_Ratio      = RTable%Low_Conv_Ratio
    RTable%time_step       = 0.1e0
    
    
    RTable%w     = 0.e0
    RTable%w_new = 0.e0
    RTable%K_throttle = 0
    
    
    
    
    RT_OldTransMode  = DrillingConsole%RTTransmissionLever

    
    
    call RTable_OffMode
    
    
    
    
end subroutine RTable_StartUp