Simulation Core
Вы не можете выбрать более 25 тем Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.
 
 
 
 
 
 

52 строки
2.0 KiB

  1. integer :: AssignmentSwitch
  2. logical :: EmergencySwitch
  3. real(8) :: RTTorqueLimitKnob
  4. integer :: MP1CPSwitchI = 0 !for not turning on pump1 on simulation start
  5. integer :: MP1CPSwitchT !for not turning on pump1 on simulation start
  6. integer :: MP1CPSwitch
  7. logical :: MP1ThrottleUpdate = .false.
  8. real(8) :: MP1Throttle = -1.0
  9. integer :: MP2SwitchI = 0 !for not turning on pump2 on simulation start
  10. logical :: MP2SwitchT !for not turning on pump2 on simulation start
  11. logical :: MP2Switch
  12. logical :: MP2ThrottleUpdate = .false.
  13. real(8) :: MP2Throttle = -1.0
  14. integer :: DWSwitch
  15. real(8) :: DWThrottle
  16. integer :: RTSwitch
  17. real(8) :: RTThrottle
  18. real(8) :: DWBreak
  19. real(8) :: PreviousDWBreak
  20. logical :: ForceBreak = .false.
  21. real(8) :: DWAcceleretor
  22. real(8) :: DWTransmisionLever
  23. real(8) :: DWPowerLever
  24. real(8) :: TongLever
  25. real(8) :: RTTransmissionLever
  26. real(8) :: DWClutchLever
  27. real(8) :: EddyBreakLever
  28. logical :: AutoDW
  29. logical :: GEN1
  30. logical :: GEN2
  31. logical :: GEN3
  32. logical :: GEN4
  33. logical :: Permission_OpenKellyCock = .false.
  34. logical :: OpenKellyCock
  35. logical :: Permission_CloseKellyCock = .false.
  36. logical :: CloseKellyCock
  37. logical :: Permission_OpenSafetyValve = .false.
  38. logical :: OpenSafetyValve
  39. logical :: Permission_CloseSafetyValve = .false.
  40. logical :: CloseSafetyValve
  41. logical :: Permission_IRSafetyValve = .false.
  42. logical :: IRSafetyValve
  43. logical :: Permission_IRIBop = .false.
  44. logical :: IRIBop
  45. logical :: LatchPipe
  46. logical :: UnlatchPipe
  47. logical :: Swing
  48. logical :: FillMouseHole
  49. logical :: Slips
  50. real :: BrakeLeverCoefficient
  51. logical :: HideDrillingBrake
  52. logical :: ParkingBrakeBtn