SimulationCore2/Equipments/Drawworks/DWFixModeMotion.f90

subroutine DWFixModeMotion
    
    Use Drawworks_VARIABLES
    Use CHookVariables
    
	IMPLICIT NONE
    
    
    
    Drawworks%Hook_Height_final = Drawworks%Hook_Height_final       ![ft]
    Call Set_HookHeight(real(Drawworks%Hook_Height_final))
    Drawworks%Hook_Height= Drawworks%Hook_Height_final/3.280839895  ![m]
    Drawworks%w_drum      = 0.
    Drawworks%w_old_drum  = 0.
    Drawworks%w           = 0.
    Drawworks%w_old       = 0.
    !Drawworks%ia         = 0.    ??????????
    !Drawworks%ia_old     = 0.    ??????????
    !Drawworks%x          = 0.    ??????????
    !Drawworks%x_old      = 0.    ??????????
    !Drawworks%y          = 0.    ??????????
    !Drawworks%y_old      = 0.    ??????????
    Drawworks%motion      = 0
    
    
    
    
END subroutine