|
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081 |
- subroutine TD_DrillStemStartUp
-
- Use CCasingLinerChokeVariables
- Use CStringConfigurationVariables
- ! Use CSimulationVariables
- Use TD_DrillStemComponents
- Use TD_WellElements
- Use TD_WellGeometry
- Use TD_GeneralData
- Use TD_StringConnectionData
-
-
- implicit none
-
-
-
-
- TD_String%DrillStemTotalLength = 500.d0 !???????????????????
- TD_String%DrillStemTotalLengthIni = 500.d0 !???????????????????
- TD_String%OutOfWellLength = 3.48d0
- TD_String%DrillStemAxialVelocity = 0.d0
- TD_String%DrillStemRotVelocity = 0.d0
- TD_String%WeightOnBit = 0.d0
- TD_String%BitTorque = 0.d0
- TD_String%TotalTorque = 0.d0
- TD_String%StaticHookLoad = 0.d0
- TD_String%DlMax = 0.d0
- TD_String%DlTotal = 0.d0
- TD_String%DlTouch = 1.d0 !(=/0.) because of TD_StringConnectionModes subroutine (initial value for first iteration in if condition)
- TD_String%HookLoad = 0.d0
- TD_String%StringTorque = 0.d0
- TD_String%ToolJointRange = 0.4005d0*3.28d0 ![m]*3.28=[ft] , ToolJointLength=400.5mm
- TD_Vol%RemoveVolume = 0.0d0
-
- TD_String%DrillStemBottom = TD_String%DrillStemTotalLength-TD_String%OutOfWellLength !????????????
- !TD_DrillStems%TopDepth =
- !TD_DrillStems%DownDepth =
- !TD_DrillStems%StartAngle =
- !TD_DrillStems%EndAngle =
- TD_DrillStems%Area = 0.d0
- TD_DrillStems%RCurvature = 0.d0
- TD_DrillStems%RtoolJoint = 0.d0
- TD_DrillStems%ToolJointRange = 0.d0
- TD_DrillStems%HoleDiameter = 0.d0
-
- TD_DrillStems%Force1 = 0.d0
- TD_DrillStems%Force2 = 0.d0
- TD_DrillStems%Torque = 0.d0
- TD_DrillStems%Drag = 0.d0
- TD_DrillStems%CombVelRatio = 0.d0
-
- TD_DrillStems%MudDensityIn = 10.d0*7.48051948d0
- TD_DrillStems%MudDensityOut = 10.d0*7.48051948d0
- TD_DrillStems%MudViscosity = 0.16d0 !????????????????
- TD_DrillStems%MudVisCorrectCoef = 1.d0 !????????????????
- TD_DrillStems%MudWeight = 10.d0
- !TD_DrillStems%MudPlasticVis = !????????????????
- !TD_DrillStems%MudYieldPoint = !????????????????
-
- !TD_DrillStems%FricFactor =
- !TD_DrillStems% =
- !TD_DrillStems% =
-
- !TD_DrillStems%StaticHookLoad =
- !TD_DrillStems%TotalSHookLoad =
- !TD_DrillStems%Dl =
- !TD_DrillStems%DlTotal =
-
- !if (allocated(TD_String%FluidMudDensity)) deallocate(TD_String%FluidMudDensity)
- !if (allocated(TD_String%FluidMudEndX)) deallocate(TD_String%FluidMudEndX)
- !if (allocated(TD_String%FluidMudStartX)) deallocate(TD_String%FluidMudStartX)
- !Allocate (TD_String%FluidMudDensity(1) , TD_String%FluidMudEndX(1) , TD_String%FluidMudStartX(1))
- !TD_String%FluidMudDensity(:) = 10.d0
- !TD_String%FluidMudStartX(:) = -268.d0 !??????????
- !TD_String%FluidMudEndX(:) = 9990.d0 !??????????
-
-
-
-
-
- end subroutine
|