mahmood19227
/
SimulationCore2
1
0
Креирај огранак 0
Код Дискусије 0 Захтеви за спајање 0 Издања 0 Вики 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.
29 Комити
2 Гране
136 MiB
 
 
 
 
 
 
Дрво: 368fdac242
Гране Ознаке
${ item.name }
Create branch ${ searchTerm }
from '368fdac242'
${ noResults }
SimulationCore2/Equipments/Drawworks/DWFixModeMotion.f90

18 lines
408 B
Датотека Blame Историја 

  1. subroutine DWFixModeMotion

  2.     

  3.     Use Drawworks_VARIABLES

  4.     

  5. 	IMPLICIT NONE

  6.     

  7.     

  8.     

  9.     Drawworks%Hook_Height_final = Drawworks%Hook_Height_final                ![ft]

  10.     Drawworks%Hook_Height       = Drawworks%Hook_Height_final/3.280839895d0  ![m]

  11.     Drawworks%w_drum            = 0.d0

  12.     Drawworks%w_old_drum        = 0.d0

  13.     Drawworks%motion            = 0

  14.     

  15.     

  16.     

  17.     

  18. End subroutine