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.
 
 
 
 
 
 

33 lines
1.1 KiB

  1. module CGaugesProblemsVariables
  2. use CProblemDifinition
  3. implicit none
  4. public
  5. type :: GaugesProblemsType
  6. type(CProblem) :: WeightIndicator
  7. type(CProblem) :: RotaryRpm
  8. type(CProblem) :: RotaryTorque
  9. type(CProblem) :: StandPipePressure
  10. type(CProblem) :: CasingPressure
  11. type(CProblem) :: Pump1Strokes
  12. type(CProblem) :: Pump2Strokes
  13. type(CProblem) :: ReturnLineTemperature
  14. type(CProblem) :: TripTank
  15. type(CProblem) :: PitGainLoss
  16. type(CProblem) :: MudTankVolume
  17. type(CProblem) :: ReturnMudFlow
  18. type(CProblem) :: TorqueLimit
  19. type(CProblem) :: PowerLimit
  20. type(CProblem) :: AccumulatorPressure
  21. type(CProblem) :: ManifoldPressure
  22. type(CProblem) :: AnnularPressure
  23. type(CProblem) :: RigAirPressure
  24. type(CProblem) :: StandPipe1
  25. type(CProblem) :: StandPipe2
  26. type(CProblem) :: DrillPipePressure
  27. type(CProblem) :: ChokePosition
  28. type(CProblem) :: CasingPressure2
  29. end type GaugesProblemsType
  30. contains
  31. end module CGaugesProblemsVariables