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.
 
 
 
 
 
 

31 lines
747 B

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