Simulation Core
Non puoi selezionare più di 25 argomenti Gli argomenti devono iniziare con una lettera o un numero, possono includere trattini ('-') e possono essere lunghi fino a 35 caratteri.
 
 
 
 
 
 

19 righe
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