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.
 
 
 
 
 
 

28 lines
1012 B

  1. module CStandPipeManifoldVariables
  2. implicit none
  3. public
  4. !TODO: check and remove is unused
  5. Type::StandPipeManifoldType
  6. ! Input vars
  7. logical :: StandPipeManifoldValve1
  8. logical :: StandPipeManifoldValve2
  9. logical :: StandPipeManifoldValve3
  10. logical :: StandPipeManifoldValve4
  11. logical :: StandPipeManifoldValve5
  12. logical :: StandPipeManifoldValve6
  13. logical :: StandPipeManifoldValve7
  14. logical :: StandPipeManifoldValve8
  15. logical :: StandPipeManifoldValve9
  16. logical :: StandPipeManifoldValve10
  17. logical :: StandPipeManifoldValve11
  18. logical :: StandPipeManifoldValve12
  19. logical :: StandPipeManifoldValve13
  20. logical :: StandPipeManifoldValve14
  21. logical :: StandPipeManifoldValve15
  22. ! Output vars
  23. real(8) :: StandPipeGauge1
  24. real(8) :: StandPipeGauge2
  25. End type StandPipeManifoldType
  26. end module CStandPipeManifoldVariables