|
12345678910111213141516171819202122232425262728293031323334353637 |
- # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/Equipments/ControlPanels/CChokeManifoldVariables.f90"
- module CChokeManifoldVariables
- implicit none
- public
- Type :: ChokeManifoldType
- ! Input vars
- logical :: ChokeManifoldValve1
- logical :: ChokeManifoldValve2
- real(8) :: LeftManualChoke
- logical :: ChokeManifoldValve4
- logical :: ChokeManifoldValve5
- real(8) :: RightManualChoke
- logical :: ChokeManifoldValve7
- logical :: ChokeManifoldValve8
- logical :: ChokeManifoldValve9
- logical :: ChokeManifoldValve10
- logical :: ChokeManifoldValve11
- logical :: ChokeManifoldValve12
- logical :: ChokeManifoldValve13
-
- ! Output vars
- integer :: HydraulicChock1
- integer :: HydraulicChock2
-
- ! Control vars
- logical :: HyChock1OnProblem = .false.
- logical :: HyChock2OnProblem = .false.
- logical :: LeftManChokeOnProblem = .false.
- logical :: RightManChokeOnProblem = .false.
- End Type ChokeManifoldType
-
-
-
- contains
-
-
- endmodule CChokeManifoldVariables
|