|
123456789101112131415161718192021222324252627282930313233343536 |
- 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
|