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.
 
 
 
 
 
 

26 lines
792 B

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