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.
 
 
 
 
 
 

40 lines
1.5 KiB

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