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

46 lines
1.0 KiB
Raw Blame History 

  1. subroutine TopDrive_StartUp

  2. 

  3.     use CTopDrivePanelVariables

  4.     use TopDrive_VARIABLES

  5.     

  6. 	IMPLICIT NONE

  7.     

  8.     

  9.     TopDrivePanel%TopDriveOperationFaultLed = 0

  10.     TDS_OldPowerMode = 0

  11.     

  12.     

  13.     

  14.     !TDS%=0.

  15.     

  16.     TDS%Inertia_Moment  = 23.261341                                            ! 23.261341 [kg.m^2] = 552 [lb.ft^2]

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

  18.     TDS%String_JCoef    = 0.                             !???????????????

  19.     TDS%Mech_Efficiency = 0.930

  20.     TDS%ConstLoad       = 2000.                          ![lb.in]

  21.     TDS%ConstLoad       = 0.112984829*TDS%ConstLoad   ![N.m]

  22.     TDS%Torque          = 0.0

  23.     

  24.     

  25.     TDS%High_Conv_Ratio = 4.8250

  26.     TDS%Low_Conv_Ratio  = 7.310

  27.     TDS%Conv_Ratio      = TDS%High_Conv_Ratio

  28.     TDS%time_step       = .10

  29.     

  30.     

  31.     TDS%w     = 0.0

  32.     TDS%w_new = 0.0

  33. 

  34.     

  35.     

  36.     

  37.     !TDS_OldTransMode  = RTTransmissionLever   ??????

  38. 

  39.     

  40.     

  41.     call TopDrive_OffMode

  42.     

  43.     

  44.     

  45.     

  46. end subroutine