Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

42 lines
1.5 KiB

  1. # 1 "/home/admin/SimulationCore2/Equipments/RotaryTable/RTable_VARIABLES.f90"
  2. MODULE RTable_VARIABLES
  3. IMPLICIT NONE
  4. PUBLIC
  5. ! REAL, PARAMETER :: pi=3.14159265
  6. !****************************************************************************************************
  7. !**************** Define Rotary Table Array ****************************************************
  8. TYPE, PUBLIC :: RTable_Var
  9. !********* RTable_VARIABLES *************************
  10. INTEGER :: AssignmentSwitch , Switch , K_throttle , RotaryMode
  11. INTEGER :: MotorFaileMalf , OverideTorqueLimitMalf , RpmGaugeMalf , TorqueGaugeMalf , TorqueLimitGaugeMalf
  12. REAL(8) :: RpmGaugeOutput , TorqueGaugeOutput
  13. REAL :: Throttle, RateChange
  14. REAL :: Speed, Inertia_Moment, Mech_Efficiency, Torque, MaxRPM, MaxTorque
  15. REAL :: Conv_Ratio, High_Conv_Ratio, Low_Conv_Ratio
  16. REAL :: String_Torque, String_JCoef
  17. REAL :: time_step, J_coef
  18. REAL :: N_new, N_old, N_ref ! N(rpm) , w(rad/s)
  19. !********* Traction Motor_VARIABLES *****************
  20. !******************************************************
  21. INTEGER :: BLWR ! On=1 , Off=0
  22. !************* Sound_VARIABLES **********************
  23. INTEGER :: SoundRPM
  24. Logical :: SoundBlower
  25. END TYPE RTable_Var
  26. !***********************************************************************************************
  27. !****************************************************************************************************
  28. END MODULE RTable_VARIABLES