SimulationCore2/Equipments/Pumps/PumpsMain.i90

# 1 "/home/admin/SimulationCore2/Equipments/Pumps/PumpsMain.f90"
module PumpsMain
    use SimulationVariables
    implicit none 
    public
    contains
!             ****************************************
!             ***** subroutine Pump1MainBody *****
!             ****************************
! subroutine Pump1_Setup()
!     use CSimulationVariables
!     implicit none
!     call OnSimulationInitialization%Add(Pump1_Init)
!     call OnSimulationStop%Add(Pump1_Init)
!     call OnPump1Step%Add(Pump1_Step)
!     call OnPump1Output%Add(Pump1_Output)
!     call OnPump1Main%Add(Pump1MainBody)
! end subroutine
    
    subroutine Pump1_Init
        Call Pumps_StartUp
    end subroutine Pump1_Init
    
    subroutine Pump1_Step
        Call Pump1_MainSolver
    end subroutine Pump1_Step
    
    subroutine Pumps_MainSolver
    
        use SimulationVariables
        
        Implicit none
        
        Call DrillingConsole_ScrLEDs  !koja bezaramesh?????
        Call Pumps_Inputs
        Call Pump1_MainSolver
        Call Pump2_MainSolver
        Call Pump3_MainSolver
        Call Pumps_TotalSolver
        Call Pumps_Outputs
                  
    end subroutine Pumps_MainSolver
    
    subroutine Pumps_Inputs
    
        use CDrillingConsoleVariables
        use SimulationVariables
        Use MudSystemModule
        
        IMPLICIT NONE
        
        
        
!>>>>>>>>>>>>>>>>>>>>>>>  PUMP 1  <<<<<<<<<<<<<<<<<<<<<<<<<<<
    
!data%State%Pump(1)%BlowPopOffMalf     = 0                  !??????? motaghayere voroudi
        
        if ( data%State%Pump(1)%BlowPopOffMalf==1 ) then            ! Pump1 Malfunction ----> Blow Pop-offs (Relief Valves)
            data%State%Pump(1)%StandPipe_Pressure = 0.d0
        else
            data%State%Pump(1)%StandPipe_Pressure = PumpPressure1   ![psi]
            if ( data%State%Pump(1)%StandPipe_Pressure<=14.d0 ) then
                data%State%Pump(1)%StandPipe_Pressure = 14.d0
            end if
        end if
        
        data%State%Pump(1)%AssignmentSwitchh  = data%Equipments%DrillingConsole%AssignmentSwitch
        
        data%State%Pump(1)%Switch             = data%Equipments%DrillingConsole%MP1CPSwitch
        
        data%State%Pump(1)%Throttle           = data%Equipments%DrillingConsole%MP1Throttle                    ![SPM]    0<MP1Throttle<data%State%Pump(1)%MaxSPM
        data%State%Pump(1)%Throttle           = data%State%Pump(1)%Throttle*data%State%Pump(1)%Trans_Ratio     ![RPM]    0<Pump(1)%Throttle<965 rpm
        
!data%State%Pump(1)%PowerFailMalf     = 0                   !??????? motaghayere voroudi   (Pump1 Malfunction ----> Power Failure) !dar CPumpProblemsVariables meghdardehi mishavad
        
        data%State%Pump(1)%Failure            = data%Warnings%Pump1Failure        !(Pump1 Warning ----> Failure)
            
        data%State%Pump(1)%N_new              = data%State%Pump(1)%Throttle 
        
        
        
        
    
        
        
!>>>>>>>>>>>>>>>>>>>>>>>  PUMP 2  <<<<<<<<<<<<<<<<<<<<<<<<<<<
    
!data%State%Pump(2)%BlowPopOffMalf     = 0                  !??????? motaghayere voroudi
        
        if ( data%State%Pump(2)%BlowPopOffMalf==1 ) then            ! Pump2 Malfunction ----> Blow Pop-offs (Relief Valves)
            data%State%Pump(2)%StandPipe_Pressure = 0.d0
        else
            data%State%Pump(2)%StandPipe_Pressure = PumpPressure2   ![psi]
            if ( data%State%Pump(2)%StandPipe_Pressure<=14.d0 ) then
                data%State%Pump(2)%StandPipe_Pressure = 14.d0
            end if
        end if
        
        data%State%Pump(2)%AssignmentSwitchh  = data%Equipments%DrillingConsole%AssignmentSwitch
        
        data%State%Pump(2)%Switch             = data%Equipments%DrillingConsole%MP2Switch
        
        data%State%Pump(2)%Throttle           = data%Equipments%DrillingConsole%MP2Throttle                    ![SPM]    0<MP2Throttle<data%State%Pump(2)%MaxSPM
        data%State%Pump(2)%Throttle           = data%State%Pump(2)%Throttle*data%State%Pump(2)%Trans_Ratio     ![RPM]    0<Pump(2)%Throttle<965 rpm
        
!data%State%Pump(2)%PowerFailMalf     = 0                   !??????? motaghayere voroudi   (Pump2 Malfunction ----> Power Failure) !dar CPumpProblemsVariables meghdardehi mishavad
        
        data%State%Pump(2)%Failure            = data%Warnings%Pump2Failure        !(Pump2 Warning ----> Failure)
        
        data%State%Pump(2)%N_new              = data%State%Pump(2)%Throttle                       
        
!!>>>>>>>>>>>>>>>>>>>>>>>  PUMP 3  <<<<<<<<<<<<<<<<<<<<<<<<<<<
    
!data%State%Pump(3)%BlowPopOffMalf     = 0                  !??????? motaghayere voroudi
        
        if ( data%State%Pump(3)%BlowPopOffMalf==1 ) then            ! Pump3 Malfunction ----> Blow Pop-offs (Relief Valves)
            data%State%Pump(3)%StandPipe_Pressure = 0.d0
        else
            data%State%Pump(3)%StandPipe_Pressure = PumpPressure3   ![psi]
            if ( data%State%Pump(3)%StandPipe_Pressure<=14.d0 ) then
                data%State%Pump(3)%StandPipe_Pressure = 14.d0
            end if
        end if
            
        data%State%Pump(3)%Switch             = data%Equipments%DrillingConsole%MP1CPSwitch
        
        data%State%Pump(3)%Throttle           = data%Equipments%DrillingConsole%MP1Throttle                    ![SPM]    0<MP1Throttle<data%State%Pump(3)%MaxSPM
        data%State%Pump(3)%Throttle           = data%State%Pump(3)%Throttle*data%State%Pump(3)%Trans_Ratio     ![RPM]    0<Pump(3)%Throttle<965 rpm
        
!data%State%Pump(3)%PowerFailMalf     = 0                   !??????? motaghayere voroudi   (Pump3 Malfunction ----> Power Failure) !dar CPumpProblemsVariables meghdardehi mishavad
        
        data%State%Pump(3)%Failure            = data%Warnings%Pump3Failure        !(Pump1 Warning ----> Failure)
            
        data%State%Pump(3)%N_new              = data%State%Pump(3)%Throttle                       
        
!>>>>>>>>>>>>>>>>>>>>>>>  Total Pumps  <<<<<<<<<<<<<<<<<<<<<<<<<<<
        
    end subroutine Pumps_Inputs

    subroutine DrillingConsole_ScrLEDs
    
        use CDrillingConsoleVariables
        use SimulationVariables
        use SimulationVariables
        use SimulationVariables !@
        
        IMPLICIT NONE
        
        
        
!===> Torque Limit
        data%Equipments%DrillingConsole%RTTorqueLimitGauge  = sngl(1-data%State%RTable%TorqueLimitGaugeMalf)*(data%Equipments%DrillingConsole%RTTorqueLimitKnob/10.d0)*7000.d0   !tabdile bazeye 0-10 be 0-7000 taghribi anjam shode, baadan eslah shavad ??????
        
        
        
        
        
        if((any(data%Equipments%DrillingConsole%AssignmentSwitch==(/1,2,3,4,8,9,10,11/)))) then
            
            data%Equipments%DrillingConsole%SCR1LED=1
            data%Equipments%DrillingConsole%SCR2LED=1
            data%Equipments%DrillingConsole%SCR3LED=1
            data%Equipments%DrillingConsole%SCR4LED=1
            
        else if (data%Equipments%DrillingConsole%AssignmentSwitch == 5) then
            
            data%Equipments%DrillingConsole%SCR1LED=1
            data%Equipments%DrillingConsole%SCR2LED=1
            data%Equipments%DrillingConsole%SCR3LED=0
            data%Equipments%DrillingConsole%SCR4LED=1
            
        else if (data%Equipments%DrillingConsole%AssignmentSwitch == 7) then
            
            data%Equipments%DrillingConsole%SCR1LED=1
            data%Equipments%DrillingConsole%SCR2LED=1
            data%Equipments%DrillingConsole%SCR3LED=1
            data%Equipments%DrillingConsole%SCR4LED=0
            
        else
            data%Equipments%DrillingConsole%SCR1LED=0
            data%Equipments%DrillingConsole%SCR2LED=0
            data%Equipments%DrillingConsole%SCR3LED=0
            data%Equipments%DrillingConsole%SCR4LED=0
            
        end if
        
        
        
        
    end subroutine DrillingConsole_ScrLEDs

    subroutine Pump1_MainSolver
    
        use SimulationVariables
        
        Implicit none
        
        
        
                  
        if (data%State%Pump(1)%Throttle<=0.d0) then
            data%State%Pump(1)%K_throttle = 1
        end if
        
        
        if((any(data%State%Pump(1)%AssignmentSwitchh==(/1,2,3,4,9,10/))) .and. (data%State%Pump(1)%Switch==-1) .and. (data%State%Pump(1)%K_throttle==1) .and. (data%State%Pump(1)%PowerFailMalf==0) .and. (data%State%Pump(1)%Failure==0)) then
            
            data%State%Pump(1)%SoundBlower = .true.
            data%State%Pump(1)%BLWR        = 1
            
!========================== Pump 1 Rate limit ==========================
            if (((data%State%Pump(1)%N_new-data%State%Pump(1)%N_old)/data%State%Pump(1)%time_step)>data%State%Pump(1)%RateChange) then
                data%State%Pump(1)%Speed =(data%State%Pump(1)%RateChange*data%State%Pump(1)%time_step)+data%State%Pump(1)%N_old                 ![RPM]
            else if (((data%State%Pump(1)%N_old-data%State%Pump(1)%N_new)/data%State%Pump(1)%time_step)>data%State%Pump(1)%RateChange) then
                data%State%Pump(1)%Speed = (-data%State%Pump(1)%RateChange*data%State%Pump(1)%time_step)+data%State%Pump(1)%N_old
            else
                data%State%Pump(1)%Speed = data%State%Pump(1)%N_new
            end if
!=======================================================================
            
            Call Pump_OnMode_Solver(1)
            
        else
            
            if ((any(data%State%Pump(1)%AssignmentSwitchh==(/1,2,3,4,9,10/))) .and. (data%State%Pump(1)%Switch==-1)) then
                data%State%Pump(1)%SoundBlower = .true.
            else
                data%State%Pump(1)%SoundBlower = .false.
            end if
            
            if ((any(data%State%Pump(1)%AssignmentSwitchh==(/1,2,3,4,9,10/))) .and. (data%State%Pump(1)%Switch==-1) .and. (data%State%Pump(1)%PowerFailMalf==0) .and. (data%State%Pump(1)%Failure==0)) then
                data%State%Pump(1)%BLWR = 1
            else
                data%State%Pump(1)%BLWR = 0
            end if
            
            
            Call Pump_OffMode_Solver(1)
            data%State%Pump(1)%K_throttle = 0
        
        end if
        
        
        data%State%Pump(1)%N_old = data%State%Pump(1)%Speed
        
                  
                  
    end subroutine Pump1_MainSolver

    subroutine Pump2_MainSolver
    
        use SimulationVariables
        
        Implicit none
        
        
        
                  
        if (data%State%Pump(2)%Throttle<=0.d0) then
            data%State%Pump(2)%K_throttle = 1
        end if
        
        
        if((any(data%State%Pump(2)%AssignmentSwitchh==(/1,2,3,4,5,7,8,11/))) .and. (data%State%Pump(2)%Switch==-1) .and. (data%State%Pump(2)%K_throttle==1) .and. (data%State%Pump(2)%PowerFailMalf==0) .and. (data%State%Pump(2)%Failure==0)) then
        
            data%State%Pump(2)%SoundBlower = .true.
            data%State%Pump(2)%BLWR        = 1
            
!========================== Pump 2 Rate limit ==========================
            if (((data%State%Pump(2)%N_new-data%State%Pump(2)%N_old)/data%State%Pump(2)%time_step)>data%State%Pump(2)%RateChange) then
                data%State%Pump(2)%Speed =(data%State%Pump(2)%RateChange*data%State%Pump(2)%time_step)+data%State%Pump(2)%N_old              ![RPM]
            else if (((data%State%Pump(2)%N_old-data%State%Pump(2)%N_new)/data%State%Pump(2)%time_step)>data%State%Pump(2)%RateChange) then
                data%State%Pump(2)%Speed = (-data%State%Pump(2)%RateChange*data%State%Pump(2)%time_step)+data%State%Pump(2)%N_old
            else
                data%State%Pump(2)%Speed = data%State%Pump(2)%N_new
            end if
!=======================================================================
            
            Call Pump_OnMode_Solver(2)
            
        else
            
            if ((any(data%State%Pump(2)%AssignmentSwitchh==(/1,2,3,4,5,7,8,11/))) .and. (data%State%Pump(2)%Switch==-1)) then
                data%State%Pump(2)%SoundBlower = .true.
            else
                data%State%Pump(2)%SoundBlower = .false.
            end if
            
            if ((any(data%State%Pump(2)%AssignmentSwitchh==(/1,2,3,4,5,7,8,11/))) .and. (data%State%Pump(2)%Switch==-1) .and. (data%State%Pump(2)%PowerFailMalf==0) .and. (data%State%Pump(2)%Failure==0)) then
                data%State%Pump(2)%BLWR = 1
            else
                data%State%Pump(2)%BLWR = 0
            end if
            
            
            Call Pump_OffMode_Solver(2)
            data%State%Pump(2)%K_throttle = 0
        
        end if
        
        
        data%State%Pump(2)%N_old = data%State%Pump(2)%Speed
        
                  
                  
    end subroutine Pump2_MainSolver

    subroutine Pump3_MainSolver
    
        use SimulationVariables
        
        Implicit none
        
        
        
                  
        if (data%State%Pump(3)%Throttle<=0.d0) then
            data%State%Pump(3)%K_throttle = 1
        end if
                  
                  
        if((data%State%Pump(3)%Switch==1) .and. (data%State%Pump(3)%K_throttle==1) .and. (data%State%Pump(3)%PowerFailMalf==0) .and. (data%State%Pump(3)%Failure==0)) then
                       
!========================== Pump 3 Rate limit ==========================
            if (((data%State%Pump(3)%N_new-data%State%Pump(3)%N_old)/data%State%Pump(3)%time_step)>data%State%Pump(3)%RateChange) then
                data%State%Pump(3)%Speed =(data%State%Pump(3)%RateChange*data%State%Pump(3)%time_step)+data%State%Pump(3)%N_old                     ![RPM]
            else if (((data%State%Pump(3)%N_old-data%State%Pump(3)%N_new)/data%State%Pump(3)%time_step)>data%State%Pump(3)%RateChange) then
                data%State%Pump(3)%Speed = (-data%State%Pump(3)%RateChange*data%State%Pump(3)%time_step)+data%State%Pump(3)%N_old
            else
                data%State%Pump(3)%Speed = data%State%Pump(3)%N_new
            end if
!=======================================================================
                           
            Call Pump_OnMode_Solver(3)
            
        else
            
            Call Pump_OffMode_Solver(3)
            data%State%Pump(3)%K_throttle = 0
        
        end if
        
        
        data%State%Pump(3)%N_old = data%State%Pump(3)%Speed
        
                  
                  
    end subroutine Pump3_MainSolver

    subroutine Pumps_TotalSolver
    
        use SimulationVariables
        
        Implicit none
        
        
        
        data%Equipments%MPumps%Total_Pump_Gpm = data%State%Pump(1)%Flow_Rate+data%State%Pump(2)%Flow_Rate+data%State%Pump(3)%Flow_Rate    ![gpm]
        data%Equipments%MPumps%Total_Pump_SPM = (data%State%Pump(1)%Speed/data%State%Pump(1)%Trans_Ratio)+(data%State%Pump(2)%Speed/data%State%Pump(2)%Trans_Ratio)+(data%State%Pump(3)%Speed/data%State%Pump(3)%Trans_Ratio)     ![stk/min]
        
        
                  
    end subroutine Pumps_TotalSolver

    subroutine Pumps_Outputs    
        use CDataDisplayConsole
        use SimulationVariables
        Use MudSystemModule
        Use CSounds
        
        IMPLICIT NONE
!>>>>>>>>>>>>>>>>>>>>>>>  PUMP 1  <<<<<<<<<<<<<<<<<<<<<<<<<<<
        
        If (data%State%Pump(1)%Open_Close==1) then
            Call OpenPump1()
        Else if (data%State%Pump(1)%Open_Close==0) then
            Call ClosePump1()
        End if
        
        data%Equipments%DrillingConsole%MP1BLWR = data%State%Pump(1)%BLWR
        
        Call SetSoundBlowerMP1( data%State%Pump(1)%SoundBlower )         !.true. or .false.
        Call SetSoundMP1( data%State%Pump(1)%SoundSPM )                  ![SPM] , integer
        
        if ((data%State%Pump(1)%Switch==-1) .or. (data%State%Pump(1)%Switch==0)) then
            Call Set_MP1SPMGauge( sngl(1-data%State%Pump(1)%SPMGaugeMalf)*real((data%State%Pump(1)%Speed/data%State%Pump(1)%Trans_Ratio),8) )    ![spm] , real
            data%Equipments%DrillingWatch%SPM1 = data%Equipments%DataDisplayConsole%MP1SPMGauge
        end if
        
!data%State%Pump(1)%Flow_Rate   !to other modules , [gpm]
        
        
        
        
        
        
        
!>>>>>>>>>>>>>>>>>>>>>>>  PUMP 2  <<<<<<<<<<<<<<<<<<<<<<<<<<<
        
        If (data%State%Pump(2)%Open_Close==1) then
            Call OpenPump2()
        Else if (data%State%Pump(2)%Open_Close==0) then
            Call ClosePump2()
        End if
        
        data%Equipments%DrillingConsole%MP2BLWR = data%State%Pump(2)%BLWR
        
        Call SetSoundBlowerMP2( data%State%Pump(2)%SoundBlower )
        Call SetSoundMP2( data%State%Pump(2)%SoundSPM )                                                         ![SPM]
        
        Call Set_MP2SPMGauge( sngl(1-data%State%Pump(2)%SPMGaugeMalf)*real((data%State%Pump(2)%Speed/data%State%Pump(2)%Trans_Ratio),8) )      ![SPM]
        data%Equipments%DrillingWatch%SPM2 = data%Equipments%DataDisplayConsole%MP2SPMGauge
        
!data%State%Pump(2)%Flow_Rate   !to other modules
        
        
        
        
        
        
!!>>>>>>>>>>>>>>>>>>>>>>>  PUMP 3  <<<<<<<<<<<<<<<<<<<<<<<<<<<
    
        If (data%State%Pump(3)%Open_Close==1) then
            Call OpenCementPump()
        Else if (data%State%Pump(3)%Open_Close==0) then
            Call CloseCementPump()
        End if
        
        Call SetSoundMP3( data%State%Pump(3)%SoundSPM )
        
        if (data%State%Pump(3)%Switch==1) then
            Call Set_MP1SPMGauge( real((data%State%Pump(3)%Speed/data%State%Pump(3)%Trans_Ratio),8) )       ![SPM]     SPMGaugeMalf Malf nadarad????
            data%Equipments%DrillingWatch%SPM1 = data%Equipments%DataDisplayConsole%MP1SPMGauge
        end if
        
!data%State%Pump(3)%Flow_Rate   !to other modules
      
        
        
!>>>>>>>>>>>>>>>>>>>>>>>  Total Pumps  <<<<<<<<<<<<<<<<<<<<<<<<<<<
        
!data%Equipments%MPumps%Total_Pump_Gpm = 100.d0    !???????????
!data%Equipments%MPumps%Total_Pump_SPM = 1000.d0  !?????????????
        
!SCR1LED=1
!SCR2LED=1
!SCR3LED=1
!SCR4LED=1
        
        
        
        
    end subroutine Pumps_Outputs

    subroutine Pumps_StartUp
        use CPumpsVariables
        use CPumps
        use SimulationVariables
        IMPLICIT NONE
        
        
!>>>>>>>>>>>>>>>>>>>>>>>  PUMP 1  <<<<<<<<<<<<<<<<<<<<<<<<<<<
        data%State%Pump(1)%FlowRatePerSTK  = data%Configuration%Pumps%MudPump1VolumetricOutput     !.1d0     ![bbl/stk]
        data%State%Pump(1)%RateChange      = data%Configuration%Pumps%MudPump1PumpRateChange                 ![stk/min2  ??]
        data%State%Pump(1)%DelayToShutdown = data%Configuration%Pumps%MudPump1DelayToShutdown                ![min]
        data%State%Pump(1)%Mech_Efficiency = data%Configuration%Pumps%MudPump1MechanicalEfficiency           ![dimensionless]
!data%State%Pump(1)%Vol_Efficiency = MudPump1VolumetricEfficiency         !bayad hazf beshe ?
        data%State%Pump(1)%Max_Pressure    = data%Configuration%Pumps%MudPump1MaximumPressure  !6000.d0      ![psi]
        data%State%Pump(1)%MaxSPM          = data%Configuration%Pumps%MudPump1Maximum                        ![spm]
        data%State%Pump(1)%Trans_Ratio     = 965.d0/data%State%Pump(1)%MaxSPM
        data%State%Pump(1)%time_step       = 0.1d0                                                           !?????? niaz hast ya na??
        
        data%State%Pump(1)%RateChange = (data%State%Pump(1)%RateChange*data%State%Pump(1)%Trans_Ratio)/60.d0 ![rpm/s  ??]    24/60
        data%State%Pump(1)%DelayToShutdown = data%State%Pump(1)%DelayToShutdown/60.d0                        ![s]
        data%State%Pump(1)%K_throttle = 0
        data%State%Pump(1)%N_old      = 0.d0
        Call Pump_OffMode_Solver(1)  
        
        
!>>>>>>>>>>>>>>>>>>>>>>>  PUMP 2  <<<<<<<<<<<<<<<<<<<<<<<<<<<
        data%State%Pump(2)%FlowRatePerSTK  = data%Configuration%Pumps%MudPump2VolumetricOutput     !.1d0     ![bbl/stk]
        data%State%Pump(2)%RateChange      = data%Configuration%Pumps%MudPump2PumpRateChange                 ![stk/min2  ??]
        data%State%Pump(2)%DelayToShutdown = data%Configuration%Pumps%MudPump2DelayToShutdown                ![min]
        data%State%Pump(2)%Mech_Efficiency = data%Configuration%Pumps%MudPump2MechanicalEfficiency           ![dimensionless]
!data%State%Pump(2)%Vol_Efficiency = MudPump2VolumetricEfficiency         !bayad hazf beshe ?
        data%State%Pump(2)%Max_Pressure    = data%Configuration%Pumps%MudPump2MaximumPressure  !6000.d0      ![psi]
        data%State%Pump(2)%MaxSPM          = data%Configuration%Pumps%MudPump2Maximum                        ![spm]
        data%State%Pump(2)%Trans_Ratio     = 965.d0/data%State%Pump(2)%MaxSPM
        data%State%Pump(2)%time_step       = 0.1d0                                                           !?????? niaz hast ya na??
        
        data%State%Pump(2)%RateChange = (data%State%Pump(2)%RateChange*data%State%Pump(2)%Trans_Ratio)/60.d0 ![rpm/s  ??]
        data%State%Pump(2)%DelayToShutdown = data%State%Pump(2)%DelayToShutdown/60.d0                        ![s]
        data%State%Pump(2)%K_throttle = 0
        data%State%Pump(2)%N_old      = 0.d0
        Call Pump_OffMode_Solver(2)
        
        
!!>>>>>>>>>>>>>>>>>>>>>>>  PUMP 3  <<<<<<<<<<<<<<<<<<<<<<<<<<<
        data%State%Pump(3)%FlowRatePerSTK  = data%Configuration%Pumps%CementPumpVolumetricOutput     !.1d0     ![bbl/stk]
        data%State%Pump(3)%RateChange      = data%Configuration%Pumps%CementPumpPumpRateChange                 ![stk/min2  ??]
        data%State%Pump(3)%DelayToShutdown = data%Configuration%Pumps%CementPumpDelayToShutdown                ![min]
        data%State%Pump(3)%Mech_Efficiency = data%Configuration%Pumps%CementPumpMechanicalEfficiency           ![dimensionless]
!data%State%Pump(3)%Vol_Efficiency = CementPumpVolumetricEfficiency       !bayad hazf beshe ?
        data%State%Pump(3)%Max_Pressure    = data%Configuration%Pumps%CementPumpMaximumPressure  !6000.d0      ![psi]
        data%State%Pump(3)%MaxSPM          = data%Configuration%Pumps%CementPumpMaximum                        ![spm]
        data%State%Pump(3)%Trans_Ratio     = 965.d0/data%State%Pump(3)%MaxSPM
        data%State%Pump(3)%time_step       = 0.1d0                                                             !?????? niaz hast ya na??
        
        data%State%Pump(3)%RateChange = (data%State%Pump(3)%RateChange*data%State%Pump(3)%Trans_Ratio)/60.d0   ![rpm/s  ??]
        data%State%Pump(3)%DelayToShutdown = data%State%Pump(3)%DelayToShutdown/60.d0                          ![s]
        data%State%Pump(3)%K_throttle = 0
        data%State%Pump(3)%N_old      = 0.d0
        Call Pump_OffMode_Solver(3)  
        
        
    end subroutine Pumps_StartUp

    subroutine Pump_OffMode_Solver(Pump_No)
    
        use SimulationVariables
        
        IMPLICIT NONE
        INTEGER :: Pump_No
        
        
        
        data%State%Pump(Pump_No)%N_new = 0.d0
        
!========================== Pump Rate limit ==========================
        if (((data%State%Pump(Pump_No)%N_new-data%State%Pump(Pump_No)%N_old)/data%State%Pump(Pump_No)%time_step)>data%State%Pump(Pump_No)%RateChange) then
            data%State%Pump(Pump_No)%Speed =(data%State%Pump(Pump_No)%RateChange*data%State%Pump(Pump_No)%time_step)+data%State%Pump(Pump_No)%N_old
        else if (((data%State%Pump(Pump_No)%N_old-data%State%Pump(Pump_No)%N_new)/data%State%Pump(Pump_No)%time_step)>data%State%Pump(Pump_No)%RateChange) then
            data%State%Pump(Pump_No)%Speed = (-data%State%Pump(Pump_No)%RateChange*data%State%Pump(Pump_No)%time_step)+data%State%Pump(Pump_No)%N_old
        else
            data%State%Pump(Pump_No)%Speed = data%State%Pump(Pump_No)%N_new
        end if
!=======================================================================
             
            
        data%State%Pump(Pump_No)%Flow_Rate = data%State%Pump(Pump_No)%FlowRatePerSTK*4118.d0*0.01d0*(data%State%Pump(Pump_No)%Speed/data%State%Pump(Pump_No)%Trans_Ratio)                                 ![gpm]
        data%State%Pump(Pump_No)%HorsePower = ((data%State%Pump(Pump_No)%Flow_Rate/0.01d0)*data%State%Pump(Pump_No)%StandPipe_Pressure)/(168067.d0*data%State%Pump(Pump_No)%Mech_Efficiency)              ![HHP]
!data%State%Pump(Pump_No)%Max_Horsepower = ((data%State%Pump(Pump_No)%Flow_Rate/0.01d0)*data%State%Pump(Pump_No)%Max_Pressure)/(168067.d0*data%State%Pump(Pump_No)%Mech_Efficiency)               ![HHP]
        data%State%Pump(Pump_No)%Max_Horsepower = (data%State%Pump(Pump_No)%Flow_Rate*data%State%Pump(Pump_No)%Max_Pressure)/(1714.d0*data%State%Pump(Pump_No)%Mech_Efficiency)
        if ( data%State%Pump(Pump_No)%StandPipe_Pressure>data%State%Pump(Pump_No)%Max_Pressure ) then   ! in shart check shavad
!if ( (data%State%Pump(Pump_No)%StandPipe_Pressure*data%State%Pump(Pump_No)%Flow_Rate)>(1714.d0*data%State%Pump(Pump_No)%Max_Horsepower*data%State%Pump(Pump_No)%Mech_Efficiency) ) then
            data%State%Pump(Pump_No)%Flow_Rate = (1714.d0*data%State%Pump(Pump_No)%Mech_Efficiency*data%State%Pump(Pump_No)%Max_Horsepower)/data%State%Pump(Pump_No)%StandPipe_Pressure                   ![gpm]
            data%State%Pump(Pump_No)%Speed     = ( data%State%Pump(Pump_No)%Flow_Rate/(data%State%Pump(Pump_No)%FlowRatePerSTK*4118.d0*0.01d0) )*data%State%Pump(Pump_No)%Trans_Ratio                     ![rpm]
        end if
            
        data%State%Pump(Pump_No)%SoundSPM = INT(data%State%Pump(Pump_No)%Speed/data%State%Pump(Pump_No)%Trans_Ratio)            ![SPM]
            
        If (data%State%Pump(Pump_No)%Flow_Rate>0.d0) Then
            data%State%Pump(Pump_No)%Open_Close = 1
        Else
            data%State%Pump(Pump_No)%Open_Close = 0
        End if
            
       
        
            
           
            
    end subroutine Pump_OffMode_Solver

    subroutine Pump_OnMode_Solver(Pump_No)
    
        use SimulationVariables
        
        IMPLICIT NONE
        INTEGER :: Pump_No
        
        
        
        data%State%Pump(Pump_No)%Flow_Rate = data%State%Pump(Pump_No)%FlowRatePerSTK*4118.d0*0.01d0*(data%State%Pump(Pump_No)%Speed/data%State%Pump(Pump_No)%Trans_Ratio)                                 ![gpm]
        data%State%Pump(Pump_No)%Max_FlowRate = data%State%Pump(Pump_No)%FlowRatePerSTK*4118.d0*0.01d0*data%State%Pump(Pump_No)%MaxSPM                                                                    ![gpm]
        data%State%Pump(Pump_No)%HorsePower = ((data%State%Pump(Pump_No)%Flow_Rate/0.01d0)*data%State%Pump(Pump_No)%StandPipe_Pressure)/(168067.d0*data%State%Pump(Pump_No)%Mech_Efficiency)              ![HHP]
!data%State%Pump(Pump_No)%Max_Horsepower = ((data%State%Pump(Pump_No)%Flow_Rate/0.01d0)*data%State%Pump(Pump_No)%Max_Pressure)/(168067.d0*data%State%Pump(Pump_No)%Mech_Efficiency)               ![HHP]
        data%State%Pump(Pump_No)%Max_Horsepower = (data%State%Pump(Pump_No)%Flow_Rate*data%State%Pump(Pump_No)%Max_Pressure)/(1714.d0*data%State%Pump(Pump_No)%Mech_Efficiency)
        if ( data%State%Pump(Pump_No)%StandPipe_Pressure>data%State%Pump(Pump_No)%Max_Pressure ) then   ! in shart check shavad
!if ( (data%State%Pump(Pump_No)%StandPipe_Pressure*data%State%Pump(Pump_No)%Flow_Rate)>(1714.d0*data%State%Pump(Pump_No)%Max_Horsepower*data%State%Pump(Pump_No)%Mech_Efficiency) ) then
            data%State%Pump(Pump_No)%Flow_Rate = (1714.d0*data%State%Pump(Pump_No)%Mech_Efficiency*data%State%Pump(Pump_No)%Max_Horsepower)/data%State%Pump(Pump_No)%StandPipe_Pressure                   ![gpm]
            data%State%Pump(Pump_No)%Speed     = ( data%State%Pump(Pump_No)%Flow_Rate/(data%State%Pump(Pump_No)%FlowRatePerSTK*4118.d0*0.01d0) )*data%State%Pump(Pump_No)%Trans_Ratio                     ![rpm]
        end if
            
        data%State%Pump(Pump_No)%SoundSPM = INT(data%State%Pump(Pump_No)%Speed/data%State%Pump(Pump_No)%Trans_Ratio)              ![SPM]                                                                        ![spm]
        
        If (data%State%Pump(Pump_No)%Flow_Rate>0.d0) Then
            data%State%Pump(Pump_No)%Open_Close = 1
        Else
            data%State%Pump(Pump_No)%Open_Close = 0
        End if
            
    end subroutine Pump_OnMode_Solver
! subroutine Pump1_Output
!     implicit none
! end subroutine Pump1_Output
    
! subroutine Pump1MainBody
!     use ifport
!     use ifmt
!     implicit none
        
        
!     Call Pumps_StartUp
        
        
!     loop1 : do
         
!         Call Pumps_MainSolver

!     end do loop1
        
        
! end subroutine Pump1MainBody
    
    
    
    
    
!             ****************************************
!                ***** subroutine Pump2MainBody *****
!                   ****************************
!    subroutine Pump2_Setup()
!        use CSimulationVariables
!        implicit none
!        call OnSimulationInitialization%Add(Pump2_Init)
!        call OnSimulationStop%Add(Pump2_Init)
!        call OnPump2Step%Add(Pump2_Step)
!        call OnPump2Output%Add(Pump2_Output)
!        call OnPump2Main%Add(Pump2MainBody)
!    end subroutine
!
!    subroutine Pump2_Init
!        implicit none
!    end subroutine Pump2_Init
!
!    subroutine Pump2_Step
!        call Pump2_MainSolver
!    end subroutine Pump2_Step
!
!    subroutine Pump2_Output
!        implicit none
!    end subroutine Pump2_Output
!
!    subroutine Pump2MainBody
!        use ifport
!        use ifmt
!        use CWarnings
!        implicit none
!
!        integer,dimension(8) :: MP_START_TIME, MP_END_TIME
!        INTEGER              :: MP_SolDuration
!
!        Call Pump_StartUp
!
!        loop1 : do
!
!            Call DATE_AND_TIME(values=MP_START_TIME)
!
!            Call Pump2_MainSolver
!
!            Call DATE_AND_TIME(values=MP_END_TIME)
!            MP_SolDuration = 100-(MP_END_TIME(5)*3600000+MP_END_TIME(6)*60000+MP_END_TIME(7)*1000+MP_END_TIME(8)-MP_START_TIME(5)*3600000-MP_START_TIME(6)*60000-MP_START_TIME(7)*1000-MP_START_TIME(8))
!            if(MP_SolDuration > 0.0) then
!    Call sleepqq(MP_SolDuration)
!            end if
!
!            if (IsStopped == .true.) then
!                exit loop1
!            end if
!
!          end do loop1
!
!
!    end subroutine Pump2MainBody
!
!
!
!
!!             ****************************************
!!               ***** subroutine Pump3MainBody *****
!!                   ****************************
!    subroutine Pump3_Setup()
!        use CSimulationVariables
!        implicit none
!        call OnSimulationInitialization%Add(Pump3_Init)
!        call OnSimulationStop%Add(Pump3_Init)
!        call OnPump3Step%Add(Pump3_Step)
!        call OnPump3Output%Add(Pump3_Output)
!        call OnPump3Main%Add(Pump3MainBody)
!    end subroutine
!
!    subroutine Pump3_Init
!        implicit none
!    end subroutine Pump3_Init
!
!    subroutine Pump3_Step
!        implicit none
!    end subroutine Pump3_Step
!
!    subroutine Pump3_Output
!        implicit none
!    end subroutine Pump3_Output
!
!    subroutine Pump3MainBody
!        use ifport
!        use ifmt
!        implicit none
!
!
!        integer,dimension(8) :: MP_START_TIME, MP_END_TIME
!        INTEGER              :: MP_SolDuration
!
!        !Call Pump_StartUp
!        !loop1 : do
!        !
!        !      Call sleepqq(10)
!        !
!        !      !!! Pump3 Malfunction ----> Power Failure
!        !      !!if (data%State%Pump(1)%PowerFailMalf==1) then
!        !      !!    !MP1BLWR=0
!        !      !!    Call Pump3_OffMode_Solver
!        !      !!    Call ClosePump1()
!        !      !!end if
!        !
!        !      !if( (MP1CPSwitch==1) .and. (MP1Throttle==0.) .and. (data%State%Pump(3)%PowerFailMalf==0) ) then
!        !!
!        !!           loop2: do
!        !!
!        !!               Call DATE_AND_TIME(values=MP_START_TIME)
!        !!
!        !!!!               ! Pump3 Malfunction ----> Power Failure
!        !!!!               if (data%State%Pump(1)%PowerFailMalf==1) then
!        !!!!                   !MP1BLWR=0
!        !!!!                   Pump3_OffMode_Solver
!        !!!!                   Call ClosePump1()
!        !!!!                   exit loop2
!        !!!!               end if
!        !!
!        !!               data%State%Pump(3)%N_new     = MP1Throttle
!        !!               if (((data%State%Pump(3)%N_new-data%State%Pump(3)%N_old)/data%State%Pump(3)%time_step)>193.) then
!        !!                   data%State%Pump(3)%N_ref =(193.*data%State%Pump(3)%time_step)+data%State%Pump(3)%N_old
!        !!               else if (((data%State%Pump(3)%N_old-data%State%Pump(3)%N_new)/data%State%Pump(3)%time_step)>193.) then
!        !!                   data%State%Pump(3)%N_ref = (-193.*data%State%Pump(3)%time_step)+data%State%Pump(3)%N_old
!        !!               else
!        !!                   data%State%Pump(3)%N_ref = data%State%Pump(3)%N_new
!        !!               end if
!        !!
!        !!               Call Pump3_OnMode_Solver
!        !!
!        !!               IF (data%State%Pump(3)%Flow_Rate>0.) Then
!        !!                   Call OpenCementPump()
!        !!               Else
!        !!                   Call CloseCementPump()
!        !!               End if
!        !!
!        !!               data%State%Pump(3)%N_old = data%State%Pump(3)%N_ref
!        !!
!        !!               Call DATE_AND_TIME(values=MP_END_TIME)
!        !!               MP_SolDuration = 100-(MP_END_TIME(6)*60000+MP_END_TIME(7)*1000+MP_END_TIME(8)-MP_START_TIME(6)*60000-MP_START_TIME(7)*1000-MP_START_TIME(8))
!        !!               !if(print_log) print*, 'MPtime=', MP_SolDuration
!        !!               if(MP_SolDuration > 0.0) then
!        !!                   Call sleepqq(MP_SolDuration)
!        !!               end if
!        !!
!        !!               if ((MP1CPSwitch==0) .or. (IsStopped == .true.)) then
!        !!                   Call Pump3_OffMode_Solver
!        !!                   Call CloseCementPump()
!        !!                   exit loop2
!        !!               end if
!        !!           end do loop2
!        !
!        !      else
!        !
!        !           !Call Pump3_OffMode_Solver
!        !           !Call CloseCementPump()
!        !
!        !      end if
!        !
!        !      if (IsStopped == .true.) then
!        !          exit loop1
!        !      end if
!        !
!        !end do loop1
!
!
!    end subroutine Pump3MainBody
    
end module PumpsMain