Вы не можете выбрать более 25 тем
Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.
|
- module CChokeProblemsVariables
- use CProblemDifinition
-
- implicit none
- public
-
- ! Input vars
- type:: ChokeProblemsType
- type(CProblem) :: HydraulicChoke1Plugged
- type(CProblem) :: HydraulicChoke1Fail
- type(CProblem) :: HydraulicChoke1Washout
- type(CProblem) :: HydraulicChoke2Plugged
- type(CProblem) :: HydraulicChoke2Fail
- type(CProblem) :: HydraulicChoke2Washout
- type(CProblem) :: ManualChoke1Plugged
- type(CProblem) :: ManualChoke1Fail
- type(CProblem) :: ManualChoke1Washout
- type(CProblem) :: ManualChoke2Plugged
- type(CProblem) :: ManualChoke2Fail
- type(CProblem) :: ManualChoke2Washout
- type(CProblem) :: ChokePanelAirFail
-
- integer :: ManualChoke1PluggedPercent
- integer :: HydraulicChoke2PluggedPercent
- integer :: HydraulicChoke1PluggedPercent
- integer :: ManualChoke2PluggedPercent
- end type ChokeProblemsType
-
- contains
-
- end module CChokeProblemsVariables
|