Simulation Core
Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.
 
 
 
 
 
 

36 lignes
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