SimulationCore2/Equipments/Drawworks/DWFixModeMotion.f90

subroutine DWFixModeMotion
    
    use SimulationVariables !@
    
	IMPLICIT NONE
    
    
    
    !data%State%Drawworks%Hook_Height_final = data%State%Drawworks%Hook_Height_final                ![ft]
    data%State%Drawworks%HookLinearVelocity_final = 0.d0     ![ft/s]
    !data%State%Drawworks%Hook_Height       = data%State%Drawworks%Hook_Height_final/3.280839895d0  ![m]
    data%State%Drawworks%HookLinearVelocity = data%State%Drawworks%HookLinearVelocity_final/3.280839895d0  ![m/s]
    data%State%Drawworks%w_drum            = 0.d0
    data%State%Drawworks%w_old_drum        = 0.d0
    data%State%Drawworks%motion            = 0
    
    
    
    
End subroutine