Simulation Core
Du kannst nicht mehr als 25 Themen auswählen Themen müssen entweder mit einem Buchstaben oder einer Ziffer beginnen. Sie können Bindestriche („-“) enthalten und bis zu 35 Zeichen lang sein.

CChokeProblemsVariables.f90 1.0 KiB

vor 1 Jahr
123456789101112131415161718192021222324252627282930
  1. module CChokeProblemsVariables
  2. use CProblemDifinition
  3. implicit none
  4. public
  5. ! Input vars
  6. type:: ChokeProblemsType
  7. type(CProblem) :: HydraulicChoke1Plugged
  8. type(CProblem) :: HydraulicChoke1Fail
  9. type(CProblem) :: HydraulicChoke1Washout
  10. integer :: HydraulicChoke1PluggedPercent
  11. type(CProblem) :: HydraulicChoke2Plugged
  12. type(CProblem) :: HydraulicChoke2Fail
  13. type(CProblem) :: HydraulicChoke2Washout
  14. integer :: HydraulicChoke2PluggedPercent
  15. type(CProblem) :: ManualChoke1Plugged
  16. type(CProblem) :: ManualChoke1Fail
  17. type(CProblem) :: ManualChoke1Washout
  18. integer :: ManualChoke1PluggedPercent
  19. type(CProblem) :: ManualChoke2Plugged
  20. type(CProblem) :: ManualChoke2Fail
  21. type(CProblem) :: ManualChoke2Washout
  22. integer :: ManualChoke2PluggedPercent
  23. type(CProblem) :: ChokePanelAirFail
  24. end type ChokeProblemsType
  25. contains
  26. end module CChokeProblemsVariables