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.

CDrillWatchVariables.f90 845 B

1 year ago
1 year ago
12345678910111213141516171819202122232425262728293031323334
  1. module CDrillWatchVariables
  2. implicit none
  3. public
  4. ! Input vars
  5. Type, Public::DrillingWatchType
  6. ! Output vars
  7. real(8) :: Depth
  8. real(8) :: BitPosition
  9. real(8) :: HookLoad
  10. real(8) :: WeightOnBit
  11. real(8) :: RPM
  12. real(8) :: ROP
  13. real(8) :: Torque
  14. real(8) :: PumpPressure
  15. real(8) :: SPM1
  16. real(8) :: SPM2
  17. !real(8) :: SPM3
  18. real(8) :: CasingPressure
  19. real(8) :: PercentFlow
  20. real(8) :: PitGainLose
  21. real(8) :: PitVolume
  22. real(8) :: KillMudVolume
  23. real(8) :: TripTankVolume
  24. real(8) :: MudWeightIn
  25. real(8) :: FillVolume
  26. real(8) :: MudWeightOut
  27. End Type DrillingWatchType
  28. Type(DrillingWatchType)::DrillingWatch
  29. end module CDrillWatchVariables