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

32 lines
949 B
Raw Blame History 

  1. subroutine TopDrive_StartUp

  2. 

  3.     Use TopDrive_VARIABLES

  4.     

  5. 	IMPLICIT NONE

  6.     

  7.     

  8.     

  9.     TDS%MaxRPM            = 200.d0            ![RPM]      !??????? motaghayere voroudi

  10.     TDS%MaxTorque         = 1500.d0           ![ft.lbf]   !??????? motaghayere voroudi

  11.     TDS%time_step         = 0.10d0            ![s]

  12.     

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

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

  15.     TDS%String_JCoef      = 0.d0

  16.     !TDS%Mech_Efficiency  = 0.930d0

  17.     TDS%Torque            = 0.d0

  18.     TDS%Speed             = 0.d0

  19.     TDS%OperationFaultLed = 0

  20.     TDS%OldPowerMode      = 0

  21.     TDS%MotorFaileMalf    = 0

  22.     

  23.     TDS%High_Conv_Ratio   = 4.825d0

  24.     TDS%Low_Conv_Ratio    = 7.310d0

  25.     TDS%Conv_Ratio        = TDS%High_Conv_Ratio

  26.     

  27.     Call TopDrive_OffMode

  28.     

  29.     

  30.     

  31.     

  32. end subroutine