Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

35 lines
641 B

  1. module COtherProblemsVariables
  2. use CProblemDifinition
  3. implicit none
  4. public
  5. ! Input vars
  6. TYPE:: OtherProblemsType
  7. type(CProblem) :: RigAlarm
  8. type(CProblem) :: RigWaterSupply
  9. type(CProblem) :: RigAir
  10. type(CProblem) :: Gen1
  11. type(CProblem) :: Gen2
  12. type(CProblem) :: Gen3
  13. type(CProblem) :: Gen4
  14. type(CProblem) :: Scr1
  15. type(CProblem) :: Scr2
  16. type(CProblem) :: Scr3
  17. type(CProblem) :: Scr4
  18. end type OtherProblemsType
  19. contains
  20. end module COtherProblemsVariables