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.
 
 
 
 
 
 

28 lines
865 B

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