SimulationCore2/Equipments/TopDrive/TopDrive_INPUTS.f90

subroutine TopDrive_Inputs
    
    ! Use CSimulationVariables
    Use CTopDrivePanelVariables
    Use CTdsConnectionModesEnumVariables
    Use TopDrive_VARIABLES
    Use TD_DrillStemComponents
    
    IMPLICIT NONE
    
    integer :: i
    
    
    
    TDS%String_Torque    = TD_String%StringTorque*12.d0         ![lb.ft]*12 ---> [lb.in]  ?????????
    !TDS%String_Torque   = 20000.         
    TDS%String_Torque    = 0.112984829d0*TDS%String_Torque      ![N.m]
    TDS%PowerState       = TopDrivePanel%TopDriveTdsPowerState
    TDS%RpmKnob          = TopDrivePanel%RpmKnob
    !TDS%MotorFaileMalf    ! jayi meghdardehi nashode ??????????????????
    TDS%RateChange       = 193.d0     ![RPM/s] motaghayere voroudi ???
    TDS%DrillTorqueState = TopDrivePanel%TopDriveDrillTorqueState
    TDS%TorqueLimitKnob  = TopDrivePanel%TopDriveTorqueLimitKnob     ! bayad hazf shavad??????????????/
    
    
    
    !===> TDS%String_JCoef Calculation
    if ( (TDS%DrillTorqueState==-1) .and. ((Get_TdsConnectionModes()==TDS_CONNECTION_STRING).or.(Get_TdsConnectionModes()==TDS_CONNECTION_SPINE)) ) then    !if TopDrive connected to string
        TDS%String_JCoef = 0.d0
        Do i = 1,TD_String%StringConfigurationCount
            TDS%String_JCoef = TDS%String_JCoef+( (TD_DrillStem(i)%TotalWeight*((TD_DrillStem(i)%Id**2.d0)+(TD_DrillStem(i)%Od**2.d0)))/8.d0 )              ![lb.ft^2] , Jz=(1/2)*m*(r1^2+r2^2)
        End Do
        TDS%String_JCoef  = TDS%String_JCoef*0.0421401d0   ![kg.m^2]
    else
        TDS%String_JCoef  = 0.d0
        TDS%String_Torque = 0.d0
    end if
    TDS%String_JCoef = TDS%String_JCoef/10.d0  !???????? /10: bi dalil, check it
    
    
    
    
    
end subroutine