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

  1. module CBopStackVariables
  2. implicit none
  3. public
  4. real(8) :: AboveAnnularHeight = 10.0d0
  5. real(8) :: AnnularPreventerHeight = 10.2d0
  6. real(8) :: UpperRamHeight = 14.632d0
  7. real(8) :: LowerRamHeight = 21.35d0
  8. real(8) :: BlindRamHeight = 16.24d0
  9. real(8) :: KillHeight = 18.8d0
  10. real(8) :: KillOpen = 1.5d0
  11. real(8) :: KillClose = 1.5d0
  12. real(8) :: GroundLevel = 30.0d0
  13. real(8) :: LowerRamOpen
  14. real(8) :: LowerRamClose
  15. real(8) :: ChokeOpen
  16. real(8) :: ChokeClose
  17. real(8) :: BlindRamOpen
  18. real(8) :: BlindRamClose
  19. real(8) :: UpperRamOpen
  20. real(8) :: UpperRamClose
  21. real(8) :: AnnularPreventerOpen
  22. real(8) :: AnnularPreventerClose
  23. real(8) :: RamStringDrag
  24. real(8) :: AnnularStringDrag
  25. real(8) :: ChokeLineLength
  26. real(8) :: ChokeLineId
  27. contains
  28. end module CBopStackVariables