SimulationCore2/Equipments/Drawworks/DWBrakeSound.f90

subroutine DWBrakeSound
    
 !   Use Drawworks_VARIABLES
 !   Use CSounds
 !   
	!IMPLICIT NONE
 !   
 !   Real :: DW_MainBrakeTorque , DW_DrumRPM
 !  
 !   
 !   
 !   DW_MainBrakeTorque = ((Drawworks%Diameter/2.0d0)*Drawworks%BreakLoad)*(Drawworks%ManualBreak/100.0d0)   ![N.m]
 !   DW_MainBrakeTorque = DW_MainBrakeTorque/800.d0   ! Scaling: 0<=DW_MainBrakeTorque=<100
 !   !print*, 'DW_MainBrakeTorque0=' , DW_MainBrakeTorque
 !   if ( DW_MainBrakeTorque>100. ) then
 !       DW_MainBrakeTorque = 100.d0
 !   end if
 !   
 !   
 !   
 !   DW_DrumRPM = Drawworks%w_drum
 !   DW_DrumRPM = DW_DrumRPM*10.d0+(Drawworks%ManualBreak/100.0d0)                   ! Scaling: 0<=DW_DrumRPM=<1000
 !   !print*, 'DW_DrumRPM0=' , DW_DrumRPM
 !   !if ( DW_DrumRPM>=0. .and. DW_DrumRPM<=1. ) then
 !   !    DW_DrumRPM = 1.0
 !   !end if
 !   if ( DW_DrumRPM>1000.d0 ) then
 !       DW_DrumRPM = 1000.d0
 !   end if
 !   
 !   
 !   Drawworks%SoundDwBrake = INT((DW_MainBrakeTorque*DW_DrumRPM))  ! 0<=SoundDWBrake=<100000
 !   Call SetSoundDwBrake( Drawworks%SoundDwBrake )  
 !   
 !   
 !   !print*, 'Drawworks%SoundDwBrake=' , Drawworks%SoundDwBrake
 !   !print*, 'DW_DrumRPM=' , DW_DrumRPM
 !   !print*, 'DW_MainBrakeTorque=' , DW_MainBrakeTorque
 !   !print*, 'Drawworks%ManualBreak=' , Drawworks%ManualBreak
    
    
    
    
    
    Use Drawworks_VARIABLES
    Use CSounds
    Use TD_StringConnectionData
    
	IMPLICIT NONE
    
    Real :: DW_MainBrakeTorque , DW_DrumRPM
   
    
    
    !DW_MainBrakeTorque = ((Drawworks%Diameter/2.0d0)*Drawworks%BreakLoad)*(Drawworks%ManualBreak/100.0d0)   ![N.m]
    !DW_MainBrakeTorque = DW_MainBrakeTorque/800.d0   ! Scaling: 0<=DW_MainBrakeTorque=<100
    !print*, 'DW_MainBrakeTorque0=' , DW_MainBrakeTorque
    !if ( DW_MainBrakeTorque>100. ) then
    !    DW_MainBrakeTorque = 100.d0
    !end if
    
    
    
    DW_DrumRPM = Drawworks%w_drum
    !DW_DrumRPM = DW_DrumRPM*10.d0+(Drawworks%ManualBreak/100.0d0)                   ! Scaling: 0<=DW_DrumRPM=<1000
    !print*, 'DW_DrumRPM0=' , DW_DrumRPM
    !!if ( DW_DrumRPM>=0. .and. DW_DrumRPM<=1. ) then
    !!    DW_DrumRPM = 1.0
    !!end if
    !if ( DW_DrumRPM>1000.d0 ) then
    !    DW_DrumRPM = 1000.d0
    !end if
    
    
    !Drawworks%SoundDwBrake = INT((DW_MainBrakeTorque*DW_DrumRPM))  ! 0<=SoundDWBrake=<100000
    Drawworks%SoundDwBrake = INT((TD_DrawworksLoadInput/20000.)*DW_DrumRPM)
    if ( Drawworks%ManualBreak==0. ) then
        Drawworks%SoundDwBrake = 0
    end if
    Drawworks%SoundDwBrake = Drawworks%SoundDwBrake*10
    Call SetSoundDwBrake( Drawworks%SoundDwBrake )
    
    
    !print*, 'Drawworks%SoundDwBrake=' , Drawworks%SoundDwBrake
    !print*, 'DW_DrumRPM=' , DW_DrumRPM
    !print*, 'TD_DrawworksLoadInput=' , TD_DrawworksLoadInput
    !print*, 'Drawworks%ManualBreak=' , Drawworks%ManualBreak
    
    
    
END subroutine