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 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))
!        !!               !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