SimulationCore2/TorqueDrag/TD_DrillingSubs/TD_WellElementsConfiguration.f90

subroutine TD_WellElementsConfiguration
    
   Use TD_DrillStemComponents
   Use TD_WellElements
   Use TD_WellGeometry
   

   implicit none 

   Integer :: i, j
  

!====================================================
!         Modified Well Elements Data
!====================================================
   
  Do i = 1 , TD_WellEl%ROPHoleNumbs
           !TD_ROPHole(i)%TopDepth        = TD_WellGeo(TD_WellGeneral%WellIntervalsCount)%TopDepth
           TD_ROPHole(i)%DownDepth        = TD_WellGeo(TD_WellGeneral%WellIntervalsCount)%DownDepth
           TD_ROPHole(i)%Length           = TD_WellGeo(TD_WellGeneral%WellIntervalsCount)%IntervalLength
           TD_ROPHole(i)%Id               = TD_ROPHole(i)%Id    !!???????????
  End Do
  
  
  
  
    
end subroutine