mahmood19227
/
SimulationCore2
1
0
Fork 0
Code Issues 0 Pull Requests 0 Releases 0 Wiki Activity
Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
5 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: 815b3a8c0a
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '815b3a8c0a'
${ noResults }
SimulationCore2/Equipments/RotaryTable/RTable_StartUp.f90

42 lines
1014 B
Raw Blame History 

  1. subroutine RTable_StartUp

  2. 

  3.     use CDrillingConsoleVariables

  4.     use RTable_VARIABLES

  5.     

  6. 	IMPLICIT NONE

  7.     

  8.     

  9.     

  10.     !RTable%=0.

  11.     

  12.     RTable%Inertia_Moment  = 23.261341                                            ! 23.261341 [kg.m^2] = 552 [lb.ft^2]

  13.     RTable%J_coef          = RTable%Inertia_Moment+(1.*(RTable%Inertia_Moment))   ! [kg.m^2]???????????

  14.     RTable%String_JCoef    = 0.                             !???????????????

  15.     RTable%Mech_Efficiency = 0.930

  16.     RTable%ConstLoad       = 2000.                          ![lb.in]

  17.     RTable%ConstLoad       = 0.112984829*RTable%ConstLoad   ![N.m]

  18.     RTable%Torque          = 0.0

  19.     

  20.     

  21.     RTable%High_Conv_Ratio = 4.8250

  22.     RTable%Low_Conv_Ratio  = 7.310

  23.     RTable%Conv_Ratio      = RTable%Low_Conv_Ratio

  24.     RTable%time_step       = .10

  25.     

  26.     

  27.     RTable%w     = 0.0

  28.     RTable%w_new = 0.0

  29.     

  30.     

  31.     

  32.     

  33.     RT_OldTransMode  = RTTransmissionLever

  34. 

  35.     

  36.     

  37.     call RTable_OffMode

  38.     

  39.     

  40.     

  41.     

  42. end subroutine RTable_StartUp