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.
 
 
 
 
 
 

36 lines
1.0 KiB

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