SimulationCore2/Equipments/MudSystem/MudSystemMain.f90

module MudSystemMain
    implicit none
    public
    contains
    
    ! subroutine MudSystem_Setup()
    !     ! use CSimulationVariables
    !     use MudSystemModule
    !     implicit none
    !     call SetupMudSystem()
    !     call OnSimulationStop%Add(MudSystem_Stop)
    !     call OnMudSystemStart%Add(MudSystem_Start)
    !     call OnMudSystemStep%Add(MudSystem_Step)
    !     call OnMudSystemMain%Add(MudSystemMainBody)
    ! end subroutine
    
    subroutine MudSystem_Stop
        implicit none
        !if(print_log) print* , 'MudSystem_Stop'
        CALL DEALLOCATE_ARRAYS_MudSystem()
    end subroutine MudSystem_Stop
    
    subroutine MudSystem_Init
        implicit none
        !if(print_log) print* , 'MudSystem_Start'
        CALL MudSystem_StartUp()
    end subroutine MudSystem_Init
    
    subroutine MudSystem_Step
        use MudSystemModule
		use CManifolds
        implicit none
        !if(print_log) print* , 'MudSystem_Step'
        !CALL main
		if(data%state%manifold%IsTraverse) then
            call LineupAndPath()
            data%state%manifold%IsTraverse = .false.
        endif
        call main()
    end subroutine MudSystem_Step

    ! subroutine MudSystemMainBody
    !     ! use CSimulationVariables
    !     use MudSystemModule       
    !     implicit none
        
!        INTEGER :: MudDuration
!        integer,dimension(8) :: MudStartTime , MudEndTime
!        
!CALL MudSystem_StartUp()
!        loop1: DO
!            
!            CALL DATE_AND_TIME(values=MudStartTime)
! !WRITE (*,*) '***MudSys_timeCounter', MudSys_timeCounter
!            
!            
!            CALL main
!            
!            CALL DATE_AND_TIME(values=MudEndTime)
!            
!            MudDuration = 3600000 * (MudEndTime(5) - MudStartTime(5)) + 60000 * (MudEndTime(6) - MudStartTime(6)) + 1000 * (MudEndTime(7) - MudStartTime(7)) + (MudEndTime(8) - MudStartTime(8))
!            
!            if (MudDuration < 100) then
!            ELSE
!                WRITE (*,*) 'Mud System run duration exceeded 100 ms and =', MudDuration
!            end if
!            
!            IF (IsStopped==.true.) THEN
!                EXIT loop1
!            ENDIF
!            
!            !CALL DATE_AND_TIME(values=FlowEndTime)
!            !WRITE (*,*) 'FlowEndTime=' , FlowEndTime
!            
!            !FlowDuration = FlowEndTime(8) - FlowStartTime(8)
!            
!            !WRITE (*,*) 'FlowDuration Mud system=' , FlowDuration
!            
!        ENDDO loop1 
!        
!            CALL DEALLOCATE_ARRAYS_MudSystem()
        
    ! end subroutine MudSystemMainBody
    
end module MudSystemMain