SimulationCore2/TorqueDrag/TD_StartUp/TD_DrillStemStartUp.f90

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_DrillStemTotalLength    = 500.d0     !???????????????????
   TD_DrillStemTotalLengthIni = 500.d0     !???????????????????
   TD_OutOfWellLength         = 3.48d0
   TD_DrillStemAxialVelocity  = 0.d0
   TD_DrillStemRotVelocity    = 0.d0
   TD_WeightOnBit             = 0.d0
   TD_BitTorque               = 0.d0
   TD_TotalTorque             = 0.d0
   TD_StaticHookLoad          = 0.d0
   TD_DlMax                   = 0.d0
   TD_DlTotal                 = 0.d0
   TD_DlTouch                 = 1.d0           !(=/0.) because of TD_StringConnectionModes subroutine  (initial value for first iteration in if condition)
   TD_HookLoad                = 0.d0
   TD_StringTorque            = 0.d0
   TD_ToolJointRange          = 0.4005d0*3.28  ![m]*3.28=[ft]  ,  ToolJointLength=400.5mm
   TD_RemoveVolume            = 0.0d0
   
   TD_DrillStemBottom           = TD_DrillStemTotalLength-TD_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_FluidMudDensity))  deallocate(TD_FluidMudDensity)
   !if (allocated(TD_FluidMudEndX))     deallocate(TD_FluidMudEndX)
   !if (allocated(TD_FluidMudStartX))   deallocate(TD_FluidMudStartX)
   !Allocate (TD_FluidMudDensity(1) , TD_FluidMudEndX(1) , TD_FluidMudStartX(1))
   !TD_FluidMudDensity(:) = 10.d0
   !TD_FluidMudStartX(:)  = -268.d0     !??????????
   !TD_FluidMudEndX(:)    = 9990.d0     !??????????
   
   
   
   
  
end subroutine