MODULE TD_StringConnectionData IMPLICIT NONE PUBLIC !==================================================== ! String Connection Info !==================================================== INTEGER :: TD_StringConnectionMode , TD_KellyDriveTypeMode , TD_OldOperationCondition , TD_FluidStringConnectionMode REAL(8) :: TD_ConnectionHeight , TD_TouchConnectionHeight , TD_RigidConnectionHeight , TD_GRigidConnectionHeight , TD_StringVelocity REAL(8) :: TD_HookHeightOld , TD_HookHeight , TD_HookVelocity REAL(8) :: TD_ElevatorHeight , TD_ElevatorConst REAL(8) :: TD_SafetyValveLength , TD_IBOPLength , TD_KellyElementID , TD_KellyElementOD REAL(8) :: TD_KellyConnectionHeight , TD_KellyConst , TD_KellyElementConst REAL(8) :: TD_TDSHeight , TD_TDSElevatorHeight , TD_TDSLength , TD_TDSElevatorLength , TD_TDSToolJointLength , TD_TDSElevatorToolLength REAL(8) :: TD_TDSElevatorECG , TD_ElevatorECG !==================================================== ! Weight Indicator Info !==================================================== INTEGER :: TD_NumOfCables REAL(8) :: TD_WeightIndicator REAL(8) :: TD_WeightTB , TD_WeightTD , TD_KellyWeight INTEGER :: TD_ZeroStringSpeed REAL(8) :: TD_DrawworksLoadInput END MODULE TD_StringConnectionData