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.

CTanksVariables.f90 705 B

1 year ago
1234567891011121314151617181920212223242526272829
  1. module CTanksVariables
  2. implicit none
  3. public
  4. Type :: TankType
  5. ! Input vars
  6. real(8) :: WaterRate
  7. real(8) :: CementTankVolume
  8. real(8) :: CementTankDensity
  9. real(8) :: TripTankVolume
  10. real(8) :: TripTankDensity
  11. logical :: ManualPumpPower
  12. logical :: Valve1
  13. logical :: Valve2
  14. logical :: Valve3
  15. logical :: Valve4
  16. logical :: Valve5
  17. logical :: Valve6
  18. logical :: Valve7
  19. logical :: Valve8
  20. logical :: Valve9
  21. logical :: Valve10
  22. logical :: Valve11
  23. End Type TankType
  24. contains
  25. end module CTanksVariables