# 1 "/home/admin/SimulationCore2/Equipments/Drawworks/Drawworks_Direction.f90"
subroutine Drawworks_Direction
use CDrillingConsoleVariables
use SimulationVariables
use SimulationVariables
use CDataDisplayConsole
use SimulationVariables
use SimulationVariables !@
IMPLICIT NONE
if (data%State%Drawworks%Switch==1) then !Up
data%State%Drawworks%motion = +1
data%State%Drawworks%w_old_drum = data%State%Drawworks%w_drum !(pi*(data%State%Drawworks%N_old/data%State%Drawworks%Conv_Ratio)/30.d0) ?
data%State%Drawworks%w_drum = (pi*(data%State%Drawworks%Speed/data%State%Drawworks%Conv_Ratio)/30.d0) ![rad/s]
data%State%Drawworks%Hook_Height = data%State%Drawworks%Hook_Height+(((data%State%Drawworks%Diameter/2.0)*(data%State%Drawworks%time_step*0.5d0*(data%State%Drawworks%w_drum+data%State%Drawworks%w_old_drum)))/data%State%Drawworks%NumberOfLine) ![m]
else if (data%State%Drawworks%Switch==-1) then !Down
data%State%Drawworks%motion = -1
data%State%Drawworks%w_old_drum = data%State%Drawworks%w_drum !(pi*(data%State%Drawworks%N_old/data%State%Drawworks%Conv_Ratio)/30.d0) ?
data%State%Drawworks%w_drum = (pi*(data%State%Drawworks%Speed/data%State%Drawworks%Conv_Ratio)/30.d0) ![rad/s]
data%State%Drawworks%Hook_Height = data%State%Drawworks%Hook_Height-(((data%State%Drawworks%Diameter/2.0)*(data%State%Drawworks%time_step*0.5d0*(data%State%Drawworks%w_drum+data%State%Drawworks%w_old_drum)))/data%State%Drawworks%NumberOfLine) ![m]
!else if (data%State%Drawworks%Switch==0) then !Off
! data%State%Drawworks%motion = 0
! data%State%Drawworks%w_old_drum = 0.d0
! data%State%Drawworks%w_drum = 0.d0
! data%State%Drawworks%Hook_Height = data%State%Drawworks%Hook_Height
end if
!if (data%State%Drawworks%Conv_Ratio==1.d0) then
!
!
! IF (data%State%Drawworks%motion==+1) THEN
! Call Drawworks_Free_Traction_motor_Dir
! if (data%State%Drawworks%w_drum_Dir<=0.) then
! data%State%Drawworks%motion = 0
! else
! data%State%Drawworks%motion = +1
! Call Drawworks_Free_Traction_motor
! data%State%Drawworks%w = data%State%Drawworks%w_drum*data%State%Drawworks%Conv_Ratio
! data%State%Drawworks%w_old = data%State%Drawworks%w_old_drum*data%State%Drawworks%Conv_Ratio
! end if
! ELSE
! if (((data%State%Drawworks%F_fastline*(data%State%Drawworks%Diameter/2.0d0))-(((data%State%Drawworks%Diameter/2.0d0)*data%State%Drawworks%BreakLoad)*(data%State%Drawworks%ManualBreak/100.0d0)))<=0.) then
! data%State%Drawworks%motion = 0
! data%State%Drawworks%w_drum = 0.0d0
! data%State%Drawworks%w_old_drum = 0.0d0
! data%State%Drawworks%w = data%State%Drawworks%w_drum*data%State%Drawworks%Conv_Ratio
! data%State%Drawworks%w_old = data%State%Drawworks%w_old_drum*data%State%Drawworks%Conv_Ratio
! data%State%Drawworks%Hook_Height = data%State%Drawworks%Hook_Height
!
! data%State%Drawworks%ia = 0.
! data%State%Drawworks%ia_old = 0.
! data%State%Drawworks%x = 0.
! data%State%Drawworks%x_old = 0.
! data%State%Drawworks%y = 0.
! data%State%Drawworks%y_old = 0.
! else
! data%State%Drawworks%motion = -1
! Call Drawworks_Free_Traction_motor_dawn_motion
! data%State%Drawworks%w = data%State%Drawworks%w_drum*data%State%Drawworks%Conv_Ratio
! data%State%Drawworks%w_old = data%State%Drawworks%w_old_drum*data%State%Drawworks%Conv_Ratio
! end if
!
! END IF
!
!
!else
!
! IF (data%State%Drawworks%motion==-1) THEN
! data%State%Drawworks%w = -data%State%Drawworks%w
! data%State%Drawworks%w_old = -data%State%Drawworks%w_old
! data%State%Drawworks%w_drum = -data%State%Drawworks%w_drum
! data%State%Drawworks%w_old_drum = -data%State%Drawworks%w_old_drum
! END IF
! Call Drawworks_Traction_motor_ClutchMode_Dir
! IF (data%State%Drawworks%w_Dir>0.d0) then
!
! data%State%Drawworks%motion = +1
! Call Drawworks_Traction_motor_ClutchMode
! data%State%Drawworks%w_drum = data%State%Drawworks%w/data%State%Drawworks%Conv_Ratio
! data%State%Drawworks%w_old_drum = data%State%Drawworks%w_old/data%State%Drawworks%Conv_Ratio
! ELSE
! data%State%Drawworks%EddyTorque = (1.039d5*exp(4.343d-4*(30.0d0*(data%State%Drawworks%w/data%State%Drawworks%Conv_Ratio)/pi)))+(-1.036d5*exp(-.047920d0*(30.0d0*(data%State%Drawworks%w/data%State%Drawworks%Conv_Ratio)/pi))) !Lbf.ft
! if (data%State%Drawworks%EddyTorque>115000.) then
! data%State%Drawworks%EddyTorque = 115000.0d0
! end if
! data%State%Drawworks%EddyTorque = 1.355817948*data%State%Drawworks%EddyTorque ![N.m]
! if ((data%State%Drawworks%F_fastline*(data%State%Drawworks%Diameter/2.0d0))>((((data%State%Drawworks%Diameter/2.0d0)*data%State%Drawworks%BreakLoad)*(data%State%Drawworks%ManualBreak/100.0d0))+(data%State%Drawworks%EddyTorque*(data%State%Drawworks%EddyBreak/100.0d0)))) then
! data%State%Drawworks%motion = -1
!
! IF (data%State%Drawworks%w_drum<0.) THEN
! data%State%Drawworks%w = -data%State%Drawworks%w
! data%State%Drawworks%w_old = -data%State%Drawworks%w_old
! !data%State%Drawworks%w = 0. !???????????????
! !data%State%Drawworks%w_old = 0. !???????????????
! data%State%Drawworks%w_drum = -data%State%Drawworks%w_drum
! data%State%Drawworks%w_old_drum = -data%State%Drawworks%w_old_drum
! END IF
!
! data%State%Drawworks%Conv_Ratio = 1.
! Call Drawworks_Free_Traction_motor_dawn_motion
! data%State%Drawworks%w = data%State%Drawworks%w_drum*data%State%Drawworks%Conv_Ratio
! data%State%Drawworks%w_old = data%State%Drawworks%w_old_drum*data%State%Drawworks%Conv_Ratio
! !data%State%Drawworks%w_drum = data%State%Drawworks%w/data%State%Drawworks%Conv_Ratio
! !data%State%Drawworks%w_old_drum = data%State%Drawworks%w_old/data%State%Drawworks%Conv_Ratio
! else
! data%State%Drawworks%motion = 0
! data%State%Drawworks%w_drum = 0.0d0
! data%State%Drawworks%w_old_drum = 0.0d0
! data%State%Drawworks%w = data%State%Drawworks%w_drum*data%State%Drawworks%Conv_Ratio
! data%State%Drawworks%w_old = data%State%Drawworks%w_old_drum*data%State%Drawworks%Conv_Ratio
! data%State%Drawworks%Hook_Height = data%State%Drawworks%Hook_Height
!
! data%State%Drawworks%ia = 0.
! data%State%Drawworks%ia_old = 0.
! data%State%Drawworks%x = 0.
! data%State%Drawworks%x_old = 0.
! data%State%Drawworks%y = 0.
! data%State%Drawworks%y_old = 0.
! end if
!
! END IF
!
!end if
!Call DWBrakeSound
end subroutine Drawworks_Direction