SimulationCore2/TorqueDrag/TD_DrillingSubs/TD_RemoveComponents.f90

subroutine TD_RemoveComponents
    
    Use CStringConfigurationVariables
    use UnitySignalVariables
    ! Use CStringUpdateVariables
    ! Use CSafetyValveEnumVariables
    ! Use CIbopEnumVariables
    ! Use COperationConditionEnumVariables
    ! Use CKellyConnectionEnumVariables
    ! Use CElevatorConnectionEnumVariables
    Use COperationScenariosVariables
    ! Use CTdsConnectionModesEnumVariables
    ! Use CTdsElevatorModesEnumVariables
    Use CHoistingVariables
    Use TD_DrillStemComponents
    Use TD_WellGeometry
    Use TD_GeneralData
    Use TD_StringConnectionData
  
   

   implicit none
   
   integer :: i , TD_NumOfRemovedComponents
   
   
   
!====================================================
!    Remove Safety Valve & Kelly (OPERATION_DRILL)
!====================================================
   
   if ( Hoisting%DriveType==1 .and. Get_OperationCondition()==OPERATION_DRILL .and. Get_KellyConnection() /= KELLY_CONNECTION_STRING ) then
       TD_Count%KellyNewRemove = 1
   else
       TD_Count%KellyNewRemove = 0
       TD_Count%KellyOldRemove = 0
    end if
   if ( Hoisting%DriveType==1 .and. Get_OperationCondition()==OPERATION_DRILL .and. Get_KellyConnection() /= KELLY_CONNECTION_STRING .and. TD_Count%KellyNewRemove/=TD_Count%KellyOldRemove ) then
       !print* , 'Remove Safety Valve & Kelly='
       TD_NumOfRemovedComponents = 1
       Do i= TD_String%DrillStemComponentsNumbs , (TD_String%DrillStemComponentsNumbs-TD_NumOfRemovedComponents+1) , -1
         TD_DrillStems(i)%ComponentType   = 0       !????????????
         TD_DrillStems(i)%Id              = 0.
         TD_DrillStems(i)%Od              = 0.
         TD_DrillStems(i)%Area            = 0.
         TD_DrillStems(i)%RtoolJoint      = 0.
         TD_DrillStems(i)%ToolJointRange  = 0.
         TD_DrillStems(i)%Length          = 0.
         TD_DrillStems(i)%LengthIni       = 0.
         TD_DrillStems(i)%WeightperLength = 0.
         TD_DrillStems(i)%Weight          = 0.
       End Do
       TD_String%DrillStemComponentsNumbs = TD_String%DrillStemComponentsNumbs-TD_NumOfRemovedComponents
       
       
       i = TD_String%StringConfigurationCount
       if ( TD_DrillStem(i)%Numbs>1 ) then
           TD_DrillStem(i)%ComponentType   = 6
           TD_DrillStem(i)%Numbs           = TD_DrillStem(i)%Numbs-1
           TD_DrillStem(i)%Id              = TD_DrillStem(i)%Id           ![ft]
           TD_DrillStem(i)%Od              = TD_DrillStem(i)%Od           ![ft]
           TD_DrillStem(i)%Length          = TD_DrillStem(i)%Length       ![ft]
           TD_DrillStem(i)%WeightperLength = TD_DrillStem(i)%WeightperLength  
           TD_DrillStem(i)%TotalLength     = TD_DrillStem(i)%Numbs*TD_DrillStem(i)%Length
           TD_DrillStem(i)%TotalWeight     = TD_DrillStem(i)%TotalLength*TD_DrillStem(i)%WeightperLength
           TD_String%StringConfigurationCount     = TD_String%StringConfigurationCount
       else if ( TD_DrillStem(i)%Numbs==1 ) then
           TD_DrillStem(i)%ComponentType   = 6  
           TD_DrillStem(i)%Numbs           = 0
           TD_DrillStem(i)%Id              = 0.   
           TD_DrillStem(i)%Od              = 0.   
           TD_DrillStem(i)%Length          = 0.
           TD_DrillStem(i)%WeightperLength = 0.
           TD_DrillStem(i)%TotalLength     = 0.
           TD_DrillStem(i)%TotalWeight     = 0.
           TD_String%StringConfigurationCount     = TD_String%StringConfigurationCount-1
       end if
       
       
       TD_Count%KellyOldRemove = TD_Count%KellyNewRemove
       !print* , 'Remove Safety Valve & Kelly (OPERATION_DRILL)'
   end if
   
   
   
   
   
   
   
!====================================================
!                   Remove Single
!====================================================
   
   if ( Get_StringUpdate() == STRING_UPDATE_REMOVE_SINGLE ) then
       !print* , 'STRING_UPDATE_REMOVE_SINGLE='
       TD_NumOfRemovedComponents = 1
       Do i= TD_String%DrillStemComponentsNumbs , (TD_String%DrillStemComponentsNumbs-TD_NumOfRemovedComponents+1) , -1
         TD_DrillStems(i)%ComponentType   = 0       !????????????
         TD_DrillStems(i)%Id              = 0.
         TD_DrillStems(i)%Od              = 0.
         TD_DrillStems(i)%Area            = 0.
         TD_DrillStems(i)%RtoolJoint      = 0.
         TD_DrillStems(i)%ToolJointRange  = 0.
         TD_DrillStems(i)%Length          = 0.
         TD_DrillStems(i)%LengthIni       = 0.
         TD_DrillStems(i)%WeightperLength = 0.
         TD_DrillStems(i)%Weight          = 0.
       End Do
       TD_String%DrillStemComponentsNumbs = TD_String%DrillStemComponentsNumbs-TD_NumOfRemovedComponents
       
       
       i = TD_String%StringConfigurationCount
       if ( TD_DrillStem(i)%Numbs>1 ) then
           TD_DrillStem(i)%ComponentType   = 3     
           TD_DrillStem(i)%Numbs           = TD_DrillStem(i)%Numbs-1
           TD_DrillStem(i)%Id              = TD_DrillStem(i)%Id   ![ft]
           TD_DrillStem(i)%Od              = TD_DrillStem(i)%Od   ![ft]
           TD_DrillStem(i)%Length          = TD_DrillStem(i)%Length
           TD_DrillStem(i)%WeightperLength = TD_DrillStem(i)%WeightperLength
           TD_DrillStem(i)%TotalLength     = TD_DrillStem(i)%Numbs*TD_DrillStem(i)%Length
           TD_DrillStem(i)%TotalWeight     = TD_DrillStem(i)%TotalLength*TD_DrillStem(i)%WeightperLength
           TD_String%StringConfigurationCount     = TD_String%StringConfigurationCount
       else if ( TD_DrillStem(i)%Numbs==1 ) then
           TD_DrillStem(i)%ComponentType   = 3
           TD_DrillStem(i)%Numbs           = 0
           TD_DrillStem(i)%Id              = 0.   
           TD_DrillStem(i)%Od              = 0.   
           TD_DrillStem(i)%Length          = 0.
           TD_DrillStem(i)%WeightperLength = 0.
           TD_DrillStem(i)%TotalLength     = 0.
           TD_DrillStem(i)%TotalWeight     = 0.
           TD_String%StringConfigurationCount     = TD_String%StringConfigurationCount-1
       end if
       
       
       Call Set_StringUpdate(STRING_UPDATE_NEUTRAL)
       !print* , 'Remove Single'
   end if
   
   
   
   
   
   
   
   
!====================================================
!                   Remove Stand
!====================================================
   
   if ( Get_StringUpdate() == STRING_UPDATE_REMOVE_STAND ) then
       
       TD_NumOfRemovedComponents = 3
       Do i= TD_String%DrillStemComponentsNumbs , (TD_String%DrillStemComponentsNumbs-TD_NumOfRemovedComponents+1) , -1
         TD_DrillStems(i)%ComponentType   = 0       !????????????
         TD_DrillStems(i)%Id              = 0.
         TD_DrillStems(i)%Od              = 0.
         TD_DrillStems(i)%Area            = 0.
         TD_DrillStems(i)%RtoolJoint      = 0.
         TD_DrillStems(i)%ToolJointRange  = 0.
         TD_DrillStems(i)%Length          = 0.
         TD_DrillStems(i)%LengthIni       = 0.
         TD_DrillStems(i)%WeightperLength = 0.
         TD_DrillStems(i)%Weight          = 0.
       End Do
       TD_String%DrillStemComponentsNumbs = TD_String%DrillStemComponentsNumbs-TD_NumOfRemovedComponents
       
       
       i = TD_String%StringConfigurationCount
       if ( TD_DrillStem(i)%Numbs>3 ) then
           TD_DrillStem(i)%ComponentType   = 3
           TD_DrillStem(i)%Numbs           = TD_DrillStem(i)%Numbs-3
           TD_DrillStem(i)%Id              = TD_DrillStem(i)%Id   ![ft]
           TD_DrillStem(i)%Od              = TD_DrillStem(i)%Od   ![ft]
           TD_DrillStem(i)%Length          = TD_DrillStem(i)%Length
           TD_DrillStem(i)%WeightperLength = TD_DrillStem(i)%WeightperLength
           TD_DrillStem(i)%TotalLength     = TD_DrillStem(i)%Numbs*TD_DrillStem(i)%Length
           TD_DrillStem(i)%TotalWeight     = TD_DrillStem(i)%TotalLength*TD_DrillStem(i)%WeightperLength
           TD_String%StringConfigurationCount     = TD_String%StringConfigurationCount
       else if ( TD_DrillStem(i)%Numbs==3 ) then
           TD_DrillStem(i)%ComponentType   = 3
           TD_DrillStem(i)%Numbs           = 0
           TD_DrillStem(i)%Id              = 0.  
           TD_DrillStem(i)%Od              = 0.   
           TD_DrillStem(i)%Length          = 0.
           TD_DrillStem(i)%WeightperLength = 0.
           TD_DrillStem(i)%TotalLength     = 0.
           TD_DrillStem(i)%TotalWeight     = 0.
           TD_String%StringConfigurationCount     = TD_String%StringConfigurationCount-1
       end if
       
       
       
       Call Set_StringUpdate(STRING_UPDATE_NEUTRAL)
       !print* , 'Remove Stand'
   end if
   
   
   
   
   

   
   
!====================================================
!                   Remove IBOP
!====================================================
   
   !if ( Get_Ibop() == IBOP_REMOVE ) then
   !    TD_Count%IBOPNewRemove = 1
   !else
   !    TD_Count%IBOPNewRemove = 0
   !    TD_Count%IBOPOldRemove = 0
   !end if
   if ( Get_Ibop() == IBOP_REMOVE .and. TD_Count%IBOPOldRemove==0 ) then
       
       TD_NumOfRemovedComponents = 1
       Do i= TD_String%DrillStemComponentsNumbs , (TD_String%DrillStemComponentsNumbs-TD_NumOfRemovedComponents+1) , -1
         TD_DrillStems(i)%ComponentType   = 0       !????????????
         TD_DrillStems(i)%Id              = 0.
         TD_DrillStems(i)%Od              = 0.
         TD_DrillStems(i)%Area            = 0.
         TD_DrillStems(i)%RtoolJoint      = 0.
         TD_DrillStems(i)%ToolJointRange  = 0.
         TD_DrillStems(i)%Length          = 0.
         TD_DrillStems(i)%LengthIni       = 0.
         TD_DrillStems(i)%WeightperLength = 0.
         TD_DrillStems(i)%Weight          = 0.
       End Do
       TD_String%DrillStemComponentsNumbs = TD_String%DrillStemComponentsNumbs-TD_NumOfRemovedComponents
       
       
       i = TD_String%StringConfigurationCount
       if ( TD_DrillStem(i)%Numbs>1 ) then
           TD_DrillStem(i)%ComponentType   = 5
           TD_DrillStem(i)%Numbs           = TD_DrillStem(i)%Numbs-1
           TD_DrillStem(i)%Id              = TD_DrillStem(i)%Id           ![ft]
           TD_DrillStem(i)%Od              = TD_DrillStem(i)%Od           ![ft]
           TD_DrillStem(i)%Length          = TD_DrillStem(i)%Length       ![ft]
           TD_DrillStem(i)%WeightperLength = TD_DrillStem(i)%WeightperLength  
           TD_DrillStem(i)%TotalLength     = TD_DrillStem(i)%Numbs*TD_DrillStem(i)%Length
           TD_DrillStem(i)%TotalWeight     = TD_DrillStem(i)%TotalLength*TD_DrillStem(i)%WeightperLength
           TD_String%StringConfigurationCount     = TD_String%StringConfigurationCount
       else if ( TD_DrillStem(i)%Numbs==1 ) then
           TD_DrillStem(i)%ComponentType   = 5
           TD_DrillStem(i)%Numbs           = 0
           TD_DrillStem(i)%Id              = 0.
           TD_DrillStem(i)%Od              = 0. 
           TD_DrillStem(i)%Length          = 0.
           TD_DrillStem(i)%WeightperLength = 0.
           TD_DrillStem(i)%TotalLength     = 0.
           TD_DrillStem(i)%TotalWeight     = 0.
           TD_String%StringConfigurationCount     = TD_String%StringConfigurationCount-1
       end if
       

       !TD_Count%IBOPOldRemove = TD_Count%IBOPNewRemove
       
       if ( Get_ElevatorConnection() /= ELEVATOR_CONNECTION_STRING .or. (Get_TdsConnectionModes()/=TDS_CONNECTION_NOTHING .and. Get_TdsElevatorModes()/=TDS_ELEVATOR_CONNECTION_STRING) ) then
           TD_StConn%ConnectionHeight = TD_StConn%ConnectionHeight-TD_StConn%IBOPLength
       end if
       !print* , 'Remove IBOP'
   end if
   
   if ( Get_Ibop() == IBOP_REMOVE ) then
       TD_Count%IBOPOldRemove = 1
   else
       TD_Count%IBOPOldRemove = 0
   end if
   
    
   
   
   
   
   

!====================================================
!       Remove Safety Valve (OPERATION_TRIP)
!====================================================
   
   !if ( TD_StConn%OldOperationCondition==1 .and. TD_StConn%KellyDriveTypeMode==1 .and. Get_SafetyValve() == SAFETY_VALVE_REMOVE ) then
   !    TD_Count%SafetyValveNewRemove = 1
   !else
   !    TD_Count%SafetyValveNewRemove = 0
   !    TD_Count%SafetyValveOldRemove = 0
   !end if
   !print* , 'Get_SafetyValve()=' , Get_SafetyValve()
   if ( TD_StConn%KellyDriveTypeMode/=0 .and. TD_StConn%OldOperationCondition/=0 .and. Get_SafetyValve() == SAFETY_VALVE_REMOVE .and. TD_Count%SafetyValveOldRemove==0 ) then
       
       TD_NumOfRemovedComponents = 1
       Do i= TD_String%DrillStemComponentsNumbs , (TD_String%DrillStemComponentsNumbs-TD_NumOfRemovedComponents+1) , -1
         TD_DrillStems(i)%ComponentType   = 0       !????????????
         TD_DrillStems(i)%Id              = 0.
         TD_DrillStems(i)%Od              = 0.
         TD_DrillStems(i)%Area            = 0.
         TD_DrillStems(i)%RtoolJoint      = 0.
         TD_DrillStems(i)%ToolJointRange  = 0.
         TD_DrillStems(i)%Length          = 0.
         TD_DrillStems(i)%LengthIni       = 0.
         TD_DrillStems(i)%WeightperLength = 0.
         TD_DrillStems(i)%Weight          = 0.
       End Do
       TD_String%DrillStemComponentsNumbs = TD_String%DrillStemComponentsNumbs-TD_NumOfRemovedComponents
       
       
       i = TD_String%StringConfigurationCount
       if ( TD_DrillStem(i)%Numbs>1 ) then
           TD_DrillStem(i)%ComponentType   = 7
           TD_DrillStem(i)%Numbs           = TD_DrillStem(i)%Numbs-1
           TD_DrillStem(i)%Id              = TD_DrillStem(i)%Id           ![ft]
           TD_DrillStem(i)%Od              = TD_DrillStem(i)%Od           ![ft]
           TD_DrillStem(i)%Length          = TD_DrillStem(i)%Length       ![ft]
           TD_DrillStem(i)%WeightperLength = TD_DrillStem(i)%WeightperLength
           TD_DrillStem(i)%TotalLength     = TD_DrillStem(i)%Numbs*TD_DrillStem(i)%Length
           TD_DrillStem(i)%TotalWeight     = TD_DrillStem(i)%TotalLength*TD_DrillStem(i)%WeightperLength
           TD_String%StringConfigurationCount     = TD_String%StringConfigurationCount
       else if ( TD_DrillStem(i)%Numbs==1 ) then
           TD_DrillStem(i)%ComponentType   = 7
           TD_DrillStem(i)%Numbs           = 0
           TD_DrillStem(i)%Id              = 0.
           TD_DrillStem(i)%Od              = 0.  
           TD_DrillStem(i)%Length          = 0.
           TD_DrillStem(i)%WeightperLength = 0.
           TD_DrillStem(i)%TotalLength     = 0.
           TD_DrillStem(i)%TotalWeight     = 0.
           TD_String%StringConfigurationCount     = TD_String%StringConfigurationCount-1
       end if
   !print* , 'Get_OperationCondition()=' , Get_OperationCondition()
   !print* , 'TD_StConn%OldOperationCondition=' , TD_StConn%OldOperationCondition
   !print* , 'TD_Count%SafetyValveNewRemove=' , TD_Count%SafetyValveNewRemove
   !print* , 'TD_Count%SafetyValveOldRemove=' , TD_Count%SafetyValveOldRemove
       !TD_Count%SafetyValveOldRemove = TD_Count%SafetyValveNewRemove
       
       if ( Get_ElevatorConnection() /= ELEVATOR_CONNECTION_STRING .or. (Get_TdsConnectionModes()/=TDS_CONNECTION_NOTHING .and. Get_TdsElevatorModes()/=TDS_ELEVATOR_CONNECTION_STRING) ) then
           TD_StConn%ConnectionHeight = TD_StConn%ConnectionHeight-TD_StConn%SafetyValveLength
       end if
       
   end if
   
   if ( Get_SafetyValve() == SAFETY_VALVE_REMOVE ) then
       TD_Count%SafetyValveOldRemove = 1
   else
       TD_Count%SafetyValveOldRemove = 0
   end if
   
   if ( TD_StConn%KellyDriveTypeMode==1 ) then
       TD_StConn%OldOperationCondition = 1
   else
       TD_StConn%OldOperationCondition = 0
   end if
   
   !print* , 'TD_StConn%KellyDriveTypeMode=' , TD_StConn%KellyDriveTypeMode
   !print* , 'TD_StConn%OldOperationCondition2=' , TD_StConn%OldOperationCondition
   !print* , 'TD_Count%SafetyValveNewRemove2=' , TD_Count%SafetyValveNewRemove
   !print* , 'TD_Count%SafetyValveOldRemove2=' , TD_Count%SafetyValveOldRemove
   
   
end subroutine