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.
 
 
 
 
 
 

27 lines
822 B

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