Simulation Core
Non puoi selezionare più di 25 argomenti Gli argomenti devono iniziare con una lettera o un numero, possono includere trattini ('-') e possono essere lunghi fino a 35 caratteri.
 
 
 
 
 
 

38 righe
1.1 KiB

  1. # 1 "/mnt/c/Projects/VSIM/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