Simulation Core
Вы не можете выбрать более 25 тем Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.
 
 
 
 
 
 

50 строки
1.4 KiB

  1. subroutine TopDrive_INPUTS
  2. use CDrillingConsoleVariables
  3. use CDataDisplayConsoleVariables
  4. use CSimulationVariables
  5. use CTopDrivePanelVariables
  6. use CTdsConnectionModesEnumVariables
  7. use TopDrive_VARIABLES
  8. use TD_DrillStemComponents
  9. use CUnityInputs
  10. use CSlipsEnumVariables
  11. IMPLICIT NONE
  12. integer :: i
  13. TDS%String_Torque = TD_StringTorque*12.d0 ![lb.ft]*12 ---> [lb.in] ?????????
  14. !TDS%String_Torque = 20000.
  15. TDS%String_Torque = 0.112984829*TDS%String_Torque ![N.m]
  16. !===> TDS%String_JCoef Calculation
  17. if ( (TopDriveDrillTorqueState==-1) .and. ((Get_TdsConnectionModes()==TDS_CONNECTION_STRING).or.(Get_TdsConnectionModes()==TDS_CONNECTION_SPINE)) ) then !if TopDrive connected to string
  18. TDS%String_JCoef = 0.0
  19. Do i = 1,TD_StringConfigurationCount
  20. TDS%String_JCoef = TDS%String_JCoef+( (TD_DrillStem(i)%TotalWeight*((TD_DrillStem(i)%Id**2)+(TD_DrillStem(i)%Od**2)))/8.0 ) ![lb.ft^2] , Jz=(1/2)*m*(r1^2+r2^2)
  21. End Do
  22. TDS%String_JCoef = TDS%String_JCoef*0.0421401 ![kg.m^2]
  23. else
  24. TDS%String_JCoef = 0.0
  25. TDS%String_Torque = 0.0
  26. end if
  27. TDS%String_JCoef = TDS%String_JCoef/10. !???????? /10: bi dalil, check it
  28. !print*, 'TDS%String_JCoef=', TDS%String_JCoef
  29. TDS%Conv_Ratio = TDS%High_Conv_Ratio
  30. end subroutine