SimulationCore2/Equipments/RotaryTable/RTable_StartUp.f90

subroutine RTable_StartUp

    Use SimulationVariables
    
	IMPLICIT NONE
    
    
        
    data%State%RTable%Inertia_Moment  = 23.261341d0       ! 23.261341[kg.m^2] = 552[lb.ft^2]
    data%State%RTable%Mech_Efficiency = 0.93d0
    data%State%RTable%RateChange      = 1.d0              ![Hz/s]     !??????? motaghayere voroudi
    data%State%RTable%High_Conv_Ratio = 4.825d0
    data%State%RTable%Low_Conv_Ratio  = 7.31d0
    data%State%RTable%time_step       = 0.1d0             ![s]
    data%State%RTable%MaxRPM          = 200.d0            ![RPM]      !??????? motaghayere voroudi
    data%State%RTable%MaxTorque       = 1500.d0           ![ft.lbf]   !??????? motaghayere voroudi
    
    
    
    data%State%RTable%RateChange    = data%State%RTable%RateChange*60.d0   ![RPM/s]         ![cycle/min]=[RPM]     !1[Hz]=60[RPM]
    data%State%RTable%J_coef        = data%State%RTable%Inertia_Moment+(1.d0*(data%State%RTable%Inertia_Moment)) 
    data%State%RTable%Conv_Ratio    = data%State%RTable%Low_Conv_Ratio
    data%State%RTable%String_JCoef  = 0.d0  
    data%State%RTable%Torque        = 0.d0
    data%State%RTable%K_throttle    = 0
    data%State%RTable%Speed         = 0.d0
    data%State%RTable%TorqueGaugeOutput = 0.d0
    call RTable_OffMode
    
    
    
end subroutine RTable_StartUp