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.
25 Commits
2 Branches
136 MiB
 
 
 
 
 
 
Tree: 451aa39cdc
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '451aa39cdc'
${ noResults }
SimulationCore2/Equipments/Drawworks/DWFixModeMotion.f90

18 lines
408 B
Raw Blame History 

  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