SimulationCore2/FluidFlow/String_Property_Calculator.f90

SUBROUTINE StringPropertyCalculator (md, den, pre, tem)
    
    !!! This subroutine gets location of a guage or an observation point and determines information of that point such as pressure, density, velocity and temperature later.
    USE PressureDisplayVARIABLES
    USE Fluid_Flow_Startup_Vars
    !USE MudSystemVARIABLES
    USE FricPressDropVars
    !USE CDataDisplayConsoleVariables ,  StandPipePressureDataDisplay=>StandPipePressure
    !USE CDataDisplayConsoleVariables , CasingPressureDataDisplay=>CasingPressure!, StandPipePressureDataDisplay=>StandPipePressure
    USE CDrillWatchVariables
    
    IMPLICIT NONE
    INTEGER, intent(in) :: md  ! input
    REAL(8) :: TVD
    real(8), intent(inout) :: den  ! output
    real(8), intent(inout) :: pre  ! output
    real(8), intent(inout) :: tem  ! output
    
    INTEGER :: ilocal
    
    CALL TVD_Calculator(md * 1.d0 , TVD)
    
    DO ilocal = StringFirstEl , StringLastEl
        IF (md < INT(FinalFlowEl(ilocal)%EndX)) EXIT
    END DO
    den = FinalFlowEl(ilocal)%Density
    pre = FinalFlowEl(ilocal)%StartPress - (md - FinalFlowEl(ilocal)%StartX) * FinalFlowEl(ilocal)%dPdLfric &
                    + (TVD - FinalFlowEl(ilocal)%StartTVD) * FinalFlowEl(ilocal)%dPdLGrav
    tem = 500
            
    END SUBROUTINE