Simulation Core
Nelze vybrat více než 25 témat Téma musí začínat písmenem nebo číslem, může obsahovat pomlčky („-“) a může být dlouhé až 35 znaků.
 
 
 
 
 
 

19 řádky
495 B

  1. module CPumpProblemsVariables
  2. use CProblemDifinition
  3. implicit none
  4. public
  5. ! Input vars
  6. type :: PumpProblemsType
  7. type(CProblem) :: Pump1PowerFail
  8. type(CProblem) :: Pump1BlowPopOffValve
  9. type(CProblem) :: Pump2PowerFail
  10. type(CProblem) :: Pump2BlowPopOffValve
  11. type(CProblem) :: CementPumpPowerFail
  12. type(CProblem) :: CementPumpBlowPopOffValve
  13. end type PumpProblemsType
  14. contains
  15. end module CPumpProblemsVariables