SimulationCore2/CSharp/Problems/CChokeProblemsVariables.f90

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