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.
6 Commits
2 Branches
134 MiB
 
 
 
 
 
 
Tree: e0184c4093
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'e0184c4093'
${ noResults }
SimulationCore2/Equipments/RotaryTable/RTable_StartUp.f90

43 lines
1.0 KiB
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.261341e0                                            ! 23.261341 [kg.m^2] = 552 [lb.ft^2]

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

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

  15.     RTable%Mech_Efficiency = 0.93e0

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

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

  18.     RTable%Torque          = 0.0e0

  19.     

  20.     

  21.     RTable%High_Conv_Ratio = 4.825e0

  22.     RTable%Low_Conv_Ratio  = 7.31e0

  23.     RTable%Conv_Ratio      = RTable%Low_Conv_Ratio

  24.     RTable%time_step       = 0.1e0

  25.     

  26.     

  27.     RTable%w     = 0.e0

  28.     RTable%w_new = 0.e0

  29.     RTable%K_throttle = 0

  30.     

  31.     

  32.     

  33.     

  34.     RT_OldTransMode  = RTTransmissionLever

  35. 

  36.     

  37.     

  38.     call RTable_OffMode

  39.     

  40.     

  41.     

  42.     

  43. end subroutine RTable_StartUp