SimulationCore2/Equipments/Drawworks/DWFixModeMotion.f90

subroutine DWFixModeMotion
    
    Use Drawworks_VARIABLES
    
	IMPLICIT NONE
    
    
    
    Drawworks%Hook_Height_final = Drawworks%Hook_Height_final                ![ft]
    Drawworks%Hook_Height       = Drawworks%Hook_Height_final/3.280839895d0  ![m]
    Drawworks%w_drum            = 0.d0
    Drawworks%w_old_drum        = 0.d0
    Drawworks%motion            = 0
    
    
    
    
End subroutine