SimulationCore2/CSharp/BasicInputs/CMudPropertiesVariables.i90

# 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/BasicInputs/CMudPropertiesVariables.f90"
module CMudPropertiesVariables
    use CIActionReference
!**use CDoubleEventHandlerCollection
    implicit none   
    public        
!constants
    integer, parameter :: WaterBase_MudType = 0
    integer, parameter :: OilBase_MudType = 1    
    integer, parameter :: PowerLaw_RheologyModel = 0
    integer, parameter :: Bingham_RheologyModel = 1
    integer, parameter :: Newtonian_RheologyModel = 2
    INTEGER, PARAMETER :: Herschel_Bulkley_RheologyModel = 3
    
! variables
    Type::MudPropertiesType
        integer :: ActiveMudType
        integer :: ActiveRheologyModel
        real(8) :: ActiveMudVolume
        real(8) :: ActiveMudVolumeGal
        real(8) :: ActiveDensity
        real(8) :: ActivePlasticViscosity
        real(8) :: ActiveYieldPoint
        real(8) :: ActiveThetaThreeHundred
        real(8) :: ActiveThetaSixHundred
        
        integer :: ReserveMudType
        real(8) :: ReserveMudVolume
        real(8) :: ReserveMudVolumeGal
        real(8) :: ReserveDensity
        real(8) :: ReservePlasticViscosity
        real(8) :: ReserveYieldPoint
        real(8) :: ReserveThetaThreeHundred
        real(8) :: ReserveThetaSixHundred
        
        real(8) :: ActiveTotalTankCapacity
        real(8) :: ActiveTotalTankCapacityGal
        real(8) :: ActiveSettledContents
        real(8) :: ActiveSettledContentsGal
! real(8) :: ActiveTotalContents
! real(8) :: ActiveTotalContentsGal
        logical :: ActiveAutoDensity
        real(8) :: InitialTripTankMudVolume
        real(8) :: InitialTripTankMudVolumeGal
        real(8) :: PedalFlowMeter
    End type MudPropertiesType
!     Type(MudPropertiesType)::MudProperties
    
    
    
! subroutine SubscribeActiveMudVolume(a)
! !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeActiveMudVolume
! !DEC$ ATTRIBUTES ALIAS: 'SubscribeActiveMudVolume' :: SubscribeActiveMudVolume
!     implicit none
!     procedure (ActionDouble) :: a
!     ActiveMudVolumePtr => a
! end subroutine
        
! subroutine SubscribeActiveDensity(a)
! !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeActiveDensity
! !DEC$ ATTRIBUTES ALIAS: 'SubscribeActiveDensity' :: SubscribeActiveDensity
!     implicit none
!     procedure (ActionDouble) :: a
!     ActiveDensityPtr => a
! end subroutine
    
! subroutine SubscribeReserveMudVolume(a)
! !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeReserveMudVolume
! !DEC$ ATTRIBUTES ALIAS: 'SubscribeReserveMudVolume' :: SubscribeReserveMudVolume
!     implicit none
!     procedure (ActionDouble) :: a
!     ReserveMudVolumePtr => a
! end subroutine
        
! subroutine SubscribeReserveDensity(a)
! !DEC$ ATTRIBUTES DLLEXPORT :: SubscribeReserveDensity
! !DEC$ ATTRIBUTES ALIAS: 'SubscribeReserveDensity' :: SubscribeReserveDensity
!     implicit none
!     procedure (ActionDouble) :: a
!     ReserveDensityPtr => a
! end subroutine
        
end module CMudPropertiesVariables