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.
 
 
 
 
 
 

47 lines
1.4 KiB

  1. MODULE TD_StringConnectionData
  2. IMPLICIT NONE
  3. PUBLIC
  4. !====================================================
  5. ! String Connection Info
  6. !====================================================
  7. INTEGER :: TD_StringConnectionMode , TD_KellyDriveTypeMode , TD_OldOperationCondition , TD_FluidStringConnectionMode
  8. REAL(8) :: TD_ConnectionHeight , TD_TouchConnectionHeight , TD_RigidConnectionHeight , TD_GRigidConnectionHeight , TD_StringVelocity
  9. REAL(8) :: TD_HookHeightOld , TD_HookHeight , TD_HookVelocity
  10. REAL(8) :: TD_ElevatorHeight , TD_ElevatorConst
  11. REAL(8) :: TD_SafetyValveLength , TD_IBOPLength , TD_KellyElementID , TD_KellyElementOD
  12. REAL(8) :: TD_KellyConnectionHeight , TD_KellyConst , TD_KellyElementConst
  13. REAL(8) :: TD_TDSHeight , TD_TDSElevatorHeight , TD_TDSLength , TD_TDSElevatorLength , TD_TDSToolJointLength , TD_TDSElevatorToolLength
  14. REAL(8) :: TD_TDSElevatorECG , TD_ElevatorECG
  15. !====================================================
  16. ! Weight Indicator Info
  17. !====================================================
  18. INTEGER :: TD_NumOfCables
  19. REAL(8) :: TD_WeightIndicator
  20. REAL(8) :: TD_WeightTB , TD_WeightTD , TD_KellyWeight
  21. INTEGER :: TD_ZeroStringSpeed
  22. REAL(8) :: TD_DrawworksLoadInput
  23. END MODULE TD_StringConnectionData