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
998 B

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