SimulationCore2/Equipments/Drawworks/DrawworksMain.f90

module DrawworksMain
    implicit none
    public
    contains
    
    ! subroutine Drawworks_Setup()
    !     ! use CSimulationVariables
    !     implicit none
    !     call OnSimulationInitialization%Add(Drawworks_Init)
    !     call OnSimulationStop%Add(Drawworks_Init)
    !     call OnDrawworksStep%Add(Drawworks_Step)
    !     call OnDrawworksOutput%Add(Drawworks_Output)
    !     call OnDrawworksMain%Add(DrawworksMainBody)
    ! end subroutine
    
    ! subroutine Drawworks_Init
    !     implicit none
    ! end subroutine Drawworks_Init
    
    subroutine Drawworks_Step
        implicit none
    end subroutine Drawworks_Step
    
    ! subroutine Drawworks_Output
    !     implicit none
    ! end subroutine Drawworks_Output
    
    ! subroutine DrawworksMainBody
    
    !     use CDrillingConsoleVariables
    !     use CDataDisplayConsoleVariables
    !     use CHoistingVariables
    !     ! use CSimulationVariables
    !     use Drawworks_VARIABLES
    !     use CHookVariables
    !     use CWarningsVariables
    !     use CSounds
        
        
    !     implicit none
        
    !     integer,dimension(8) :: DW_START_TIME, DW_END_TIME
    !     INTEGER              :: DW_SolDuration
        
        
        
        
    !     Call Drawworks_StartUp
    !     loopdrawsim : do
        
    !         CALL DATE_AND_TIME(values=DW_START_TIME)
    !         if (IsPortable) then
    !             Drawworks%AssignmentSwitch = 1
    !         else
    !             Drawworks%AssignmentSwitch = DrillingConsole%AssignmentSwitch
    !         end if
    !         if((any(Drawworks%AssignmentSwitch==(/1,2,3,4,5,7,8,9,10,11/))) .and. (DrillingConsole%DWSwitch==-1) .and. (DrillingConsole%DWThrottle==0.)) then
                
                
    !             Drawworks%SoundBlower = .true.
    !             Call SetSoundBlowerDW(Drawworks%SoundBlower)
    !             DrillingConsole%DWBLWR = 1
                
    !             loopDrawworks1 : do
                    
    !                 CALL DATE_AND_TIME(values=DW_START_TIME)
    !                 if (IsPortable) then
    !                     Drawworks%AssignmentSwitch = 1
    !                 else
    !                     Drawworks%AssignmentSwitch = DrillingConsole%AssignmentSwitch
    !                 end if
    !                 if(any(Drawworks%AssignmentSwitch==(/1,2,5,7,8,9,10,11/))) then
    !                     Drawworks%NumberOfTracMotor = 2.0d0
    !                 else if (any(Drawworks%AssignmentSwitch==(/3,4/))) then
    !                     Drawworks%NumberOfTracMotor = 1.0d0
    !                 end if
                    
    !                 Call Drawworks_Solver
    !                 DW_TDHookHeight = Drawworks%Hook_Height_final
    !                 if ( Drawworks%motion==+1 ) then
    !                     Drawworks%SoundRev = 0                      ![rpm] , Integer
    !                     Call SetSoundDwRev( Drawworks%SoundRev )
    !                     Drawworks%SoundFw = INT(Drawworks%w_drum)   ![rpm] , Integer
    !                     Call SetSoundDwFw(Drawworks%SoundFw)     
    !                     Call DWBrakeSound
    !                 else
    !                     Drawworks%SoundFw = 0                       ![rpm] , Integer
    !                     Call SetSoundDwFw(Drawworks%SoundFw)     
    !                     Drawworks%SoundRev = INT(Drawworks%w_drum)  ![rpm] , Integer
    !                     Call SetSoundDwRev( Drawworks%SoundRev )  
    !                     Call DWBrakeSound
    !                 end if
    !                 DW_OldTransMode = DrillingConsole%DWTransmisionLever
                    
    !                 if (IsPortable) then
    !                     Drawworks%AssignmentSwitch = 1
    !                 else
    !                     Drawworks%AssignmentSwitch = DrillingConsole%AssignmentSwitch
    !                 end if
    !                 if ((any(Drawworks%AssignmentSwitch==(/6,12/))) .or. (any(DrillingConsole%DWSwitch==(/0,1/))) .or. (IsStopped == .true.)) then
    !                     Drawworks%SoundBlower = .false.
    !                     Call SetSoundBlowerDW(Drawworks%SoundBlower)
    !                     DrillingConsole%DWBLWR = 0
    !                     !Call Drawworks_Solver_FreeTractionMotor
    !                     exit loopDrawworks1
    !                 end if
                    
    !                 CALL DATE_AND_TIME(values=DW_END_TIME)
    !                 DW_SolDuration = 100-(DW_END_TIME(5)*3600000+DW_END_TIME(6)*60000+DW_END_TIME(7)*1000+DW_END_TIME(8)-DW_START_TIME(5)*3600000-DW_START_TIME(6)*60000-DW_START_TIME(7)*1000-DW_START_TIME(8))
    !                 if(DW_SolDuration > 0.0d0) then
    !                     CALL sleepqq(DW_SolDuration)
    !                 end if
                
    !             end do loopDrawworks1
                
                
    !         else
                
                
    !             if (IsPortable) then
    !                 Drawworks%AssignmentSwitch = 1
    !             else
    !                 Drawworks%AssignmentSwitch = DrillingConsole%AssignmentSwitch
    !             end if
    !             if((any(Drawworks%AssignmentSwitch==(/1,2,3,4,5,7,8,9,10,11/))) .and. (DrillingConsole%DWSwitch==-1)) then
    !                 Drawworks%SoundBlower = .true.
    !                 Call SetSoundBlowerDW(Drawworks%SoundBlower)
    !                 DrillingConsole%DWBLWR = 1
    !             else
    !                 Drawworks%SoundBlower = .false.
    !                 Call SetSoundBlowerDW(Drawworks%SoundBlower)
    !                 DrillingConsole%DWBLWR = 0
    !             end if
                
    !             Call Drawworks_Solver_FreeTractionMotor
    !             DW_TDHookHeight = Drawworks%Hook_Height_final
    !             if ( Drawworks%motion==+1 ) then
    !                 Drawworks%SoundRev = 0                       ![rpm] , Integer
    !                 Call SetSoundDwRev( Drawworks%SoundRev )  
    !                 Drawworks%SoundFw = INT(Drawworks%w_drum)    ![rpm] , Integer
    !                 Call SetSoundDwFw(Drawworks%SoundFw)   
    !                 Call DWBrakeSound
    !             else
    !                 Drawworks%SoundFw = 0                        ![rpm] , Integer
    !                 Call SetSoundDwFw(Drawworks%SoundFw)   
    !                 Drawworks%SoundRev = INT(Drawworks%w_drum)   ![rpm] , Integer
    !                 Call SetSoundDwRev( Drawworks%SoundRev )  
    !                 Call DWBrakeSound
    !             end if
    !             DW_OldTransMode = DrillingConsole%DWTransmisionLever
                
            
    !         end if
            
    !         if (IsStopped == .true.) then
    !             exit loopdrawsim
    !         end if
            
            
    !         CALL DATE_AND_TIME(values=DW_END_TIME) 
    !         DW_SolDuration = 100-(DW_END_TIME(5)*3600000+DW_END_TIME(6)*60000+DW_END_TIME(7)*1000+DW_END_TIME(8)-DW_START_TIME(5)*3600000-DW_START_TIME(6)*60000-DW_START_TIME(7)*1000-DW_START_TIME(8))
    !         !print*, 'time=', DW_SolDuration
    !         if(DW_SolDuration > 0.0d0) then
    !             CALL sleepqq(DW_SolDuration)
    !         end if
                
    !     end do loopdrawsim 
    
    ! end subroutine DrawworksMainBody
        
end module DrawworksMain