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.
 
 
 
 
 
 

24 lines
592 B

  1. module CCasingLinerChokeVariables
  2. implicit none
  3. public
  4. ! variables
  5. real(8) :: CasingDepth
  6. real(8) :: CasingId
  7. real(8) :: CasingOd
  8. real(8) :: CasingWeight
  9. real(8) :: CasingCollapsePressure
  10. real(8) :: CasingTensileStrength
  11. real(8) :: LinerTopDepth
  12. real(8) :: LinerLength
  13. real(8) :: LinerId
  14. real(8) :: LinerOd
  15. real(8) :: LinerWeight
  16. real(8) :: LinerCollapsePressure
  17. real(8) :: LinerTensileStrength
  18. real(8) :: OpenHoleId
  19. real(8) :: OpenHoleLength
  20. contains
  21. end module CCasingLinerChokeVariables