Simulation Core
25'ten fazla konu seçemezsiniz Konular bir harf veya rakamla başlamalı, kısa çizgiler ('-') içerebilir ve en fazla 35 karakter uzunluğunda olabilir.
 
 
 
 
 
 

33 satır
1.1 KiB

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