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.

CChokeManifoldVariables.i90 1.1 KiB

1 year ago
12345678910111213141516171819202122232425262728293031323334353637
  1. # 1 "/home/admin/SimulationCore2/CSharp/Equipments/ControlPanels/CChokeManifoldVariables.f90"
  2. module CChokeManifoldVariables
  3. implicit none
  4. public
  5. Type :: ChokeManifoldType
  6. ! Input vars
  7. logical :: ChokeManifoldValve1
  8. logical :: ChokeManifoldValve2
  9. real(8) :: LeftManualChoke
  10. logical :: ChokeManifoldValve4
  11. logical :: ChokeManifoldValve5
  12. real(8) :: RightManualChoke
  13. logical :: ChokeManifoldValve7
  14. logical :: ChokeManifoldValve8
  15. logical :: ChokeManifoldValve9
  16. logical :: ChokeManifoldValve10
  17. logical :: ChokeManifoldValve11
  18. logical :: ChokeManifoldValve12
  19. logical :: ChokeManifoldValve13
  20. ! Output vars
  21. integer :: HydraulicChock1
  22. integer :: HydraulicChock2
  23. ! Control vars
  24. logical :: HyChock1OnProblem = .false.
  25. logical :: HyChock2OnProblem = .false.
  26. logical :: LeftManChokeOnProblem = .false.
  27. logical :: RightManChokeOnProblem = .false.
  28. End Type ChokeManifoldType
  29. contains
  30. endmodule CChokeManifoldVariables