ConfigurationToJson Completed

1 year ago · 78c2611488
--- a/CSharp/BasicInputs/CMudPropertiesVariables.f90
+++ b/CSharp/BasicInputs/CMudPropertiesVariables.f90
@@ -2,19 +2,7 @@ module CMudPropertiesVariables
    use CIActionReference
    !**use CDoubleEventHandlerCollection
    implicit none   
    public    
    !pointers
    ! procedure (ActionDouble), pointer :: ActiveMudVolumePtr
    ! procedure (ActionDouble), pointer :: ActiveDensityPtr
    ! procedure (ActionDouble), pointer :: ReserveMudVolumePtr
    ! procedure (ActionDouble), pointer :: ReserveDensityPtr
    !**type(DoubleEventHandlerCollection) :: OnActiveMudVolumeChange
    !**type(DoubleEventHandlerCollection) :: OnActiveDensityChange
    !**type(DoubleEventHandlerCollection) :: OnReserveMudVolumeChange
    !**type(DoubleEventHandlerCollection) :: OnReserveDensityChange
    public        
    !constants
    integer, parameter :: WaterBase_MudType = 0
    integer, parameter :: OilBase_MudType = 1    
@@ -51,60 +39,11 @@ module CMudPropertiesVariables
        real(8) :: ActiveTotalContents
        real(8) :: ActiveTotalContentsGal
        logical :: ActiveAutoDensity
        !real(8) :: ReserveTotalTankCapacity
        !real(8) :: ReserveTotalTankCapacityGal
        !real(8) :: ReserveSettledContents
        !real(8) :: ReserveSettledContentsGal
        !real(8) :: ReserveTotalContents
        !real(8) :: ReserveTotalContentsGal
        real(8) :: InitialTripTankMudVolume
        real(8) :: InitialTripTankMudVolumeGal
        real(8) :: PedalFlowMeter
    End type MudPropertiesType
    Type(MudPropertiesType)::MudProperties
    contains   
    subroutine Set_ActiveMudVolume_StudentStation(v)
        implicit none
        real*8, intent(in) :: v
 #ifdef ExcludeExtraChanges
        if(MudProperties%ActiveMudVolume == v) return
 #endif
        MudProperties%ActiveMudVolume = v   
        ! if(associated(ActiveMudVolumePtr)) call ActiveMudVolumePtr(MudProperties%ActiveMudVolume)
    end subroutine
    subroutine Set_ActiveDensity_StudentStation(v)
        implicit none
        real*8, intent(in) :: v
 #ifdef ExcludeExtraChanges
        if(MudProperties%ActiveDensity == v) return
 #endif
        MudProperties%ActiveDensity = v    
        ! if(associated(ActiveDensityPtr)) call ActiveDensityPtr(MudProperties%ActiveDensity)
    end subroutine
    subroutine Set_ReserveMudVolume_StudentStation(v)
        implicit none
        real*8, intent(in) :: v
 #ifdef ExcludeExtraChanges
        if(MudProperties%ReserveMudVolume == v) return
 #endif
        MudProperties%ReserveMudVolume = v  
        ! if(associated(ReserveMudVolumePtr)) call ReserveMudVolumePtr(MudProperties%ReserveMudVolume)
    end subroutine
    subroutine Set_ReserveDensity_StudentStation(v)
        implicit none
        real*8, intent(in) :: v
 #ifdef ExcludeExtraChanges
        if(MudProperties%ReserveDensity == v) return
 #endif
        MudProperties%ReserveDensity = v   
        ! if(associated(ReserveDensityPtr)) call ReserveDensityPtr(MudProperties%ReserveDensity)
    end subroutine
 !     Type(MudPropertiesType)::MudProperties
--- a/CSharp/BasicInputs/MudProperties.f90
+++ b/CSharp/BasicInputs/MudProperties.f90
@@ -0,0 +1,91 @@
 module MudPropertiesModule
    use SimulationVariables
    use json_module
    implicit none
    contains
    subroutine MudPropertiesToJson(parent)
        type(json_value),pointer :: parent
        type(json_core) :: json
        type(json_value),pointer :: p
        ! 1. create new node
        call json%create_object(p,'Mud')
        ! 2. add member of data type to new node
        call json%add(p,"ActiveMudType",data%Configuration%Mud%ActiveMudType)
        call json%add(p,"ActiveRheologyModel",data%Configuration%Mud%ActiveRheologyModel)
        call json%add(p,"ActiveMudVolume",data%Configuration%Mud%ActiveMudVolume)
        call json%add(p,"ActiveMudVolumeGal",data%Configuration%Mud%ActiveMudVolumeGal)
        call json%add(p,"ActiveDensity",data%Configuration%Mud%ActiveDensity)
        call json%add(p,"ActivePlasticViscosity",data%Configuration%Mud%ActivePlasticViscosity)
        call json%add(p,"ActiveYieldPoint",data%Configuration%Mud%ActiveYieldPoint)
        call json%add(p,"ActiveThetaThreeHundred",data%Configuration%Mud%ActiveThetaThreeHundred)
        call json%add(p,"ActiveThetaSixHundred",data%Configuration%Mud%ActiveThetaSixHundred)
        call json%add(p,"ReserveMudType",data%Configuration%Mud%ReserveMudType)
        call json%add(p,"ReserveMudVolume",data%Configuration%Mud%ReserveMudVolume)
        call json%add(p,"ReserveMudVolumeGal",data%Configuration%Mud%ReserveMudVolumeGal)
        call json%add(p,"ReserveDensity",data%Configuration%Mud%ReserveDensity)
        call json%add(p,"ReservePlasticViscosity",data%Configuration%Mud%ReservePlasticViscosity)
        call json%add(p,"ReserveYieldPoint",data%Configuration%Mud%ReserveYieldPoint)
        call json%add(p,"ReserveThetaThreeHundred",data%Configuration%Mud%ReserveThetaThreeHundred)
        call json%add(p,"ReserveThetaSixHundred",data%Configuration%Mud%ReserveThetaSixHundred)
        call json%add(p,"ActiveTotalTankCapacity",data%Configuration%Mud%ActiveTotalTankCapacity)
        call json%add(p,"ActiveTotalTankCapacityGal",data%Configuration%Mud%ActiveTotalTankCapacityGal)
        call json%add(p,"ActiveSettledContents",data%Configuration%Mud%ActiveSettledContents)
        call json%add(p,"ActiveSettledContentsGal",data%Configuration%Mud%ActiveSettledContentsGal)
        call json%add(p,"ActiveTotalContents",data%Configuration%Mud%ActiveTotalContents)
        call json%add(p,"ActiveTotalContentsGal",data%Configuration%Mud%ActiveTotalContentsGal)
        call json%add(p,"ActiveAutoDensity",data%Configuration%Mud%ActiveAutoDensity)
        call json%add(p,"InitialTripTankMudVolume",data%Configuration%Mud%InitialTripTankMudVolume)
        call json%add(p,"InitialTripTankMudVolumeGal",data%Configuration%Mud%InitialTripTankMudVolumeGal)
        call json%add(p,"PedalFlowMeter",data%Configuration%Mud%PedalFlowMeter)
        ! 3. add new node to parent
        call json%add(parent,p)
    end subroutine
    subroutine Set_ActiveMudVolume_StudentStation(v)
        implicit none
        real*8, intent(in) :: v
        #ifdef ExcludeExtraChanges
                if(data%Configuration%Mud%ActiveMudVolume == v) return
        #endif
        data%Configuration%Mud%ActiveMudVolume = v   
        ! if(associated(ActiveMudVolumePtr)) call ActiveMudVolumePtr(data%Configuration%Mud%ActiveMudVolume)
    end subroutine
    subroutine Set_ActiveDensity_StudentStation(v)
        implicit none
        real*8, intent(in) :: v
        #ifdef ExcludeExtraChanges
                if(data%Configuration%Mud%ActiveDensity == v) return
        #endif
        data%Configuration%Mud%ActiveDensity = v    
        ! if(associated(ActiveDensityPtr)) call ActiveDensityPtr(data%Configuration%Mud%ActiveDensity)
    end subroutine
    subroutine Set_ReserveMudVolume_StudentStation(v)
        implicit none
        real*8, intent(in) :: v
        #ifdef ExcludeExtraChanges
                if(data%Configuration%Mud%ReserveMudVolume == v) return
        #endif
        data%Configuration%Mud%ReserveMudVolume = v  
        ! if(associated(ReserveMudVolumePtr)) call ReserveMudVolumePtr(data%Configuration%Mud%ReserveMudVolume)
    end subroutine
    subroutine Set_ReserveDensity_StudentStation(v)
        implicit none
        real*8, intent(in) :: v
        #ifdef ExcludeExtraChanges
                if(data%Configuration%Mud%ReserveDensity == v) return
        #endif
        data%Configuration%Mud%ReserveDensity = v   
        ! if(associated(ReserveDensityPtr)) call ReserveDensityPtr(data%Configuration%Mud%ReserveDensity)
    end subroutine
 end module MudPropertiesModule
--- a/CSharp/BasicInputs/WellProfile/CPathGeneration.f90
+++ b/CSharp/BasicInputs/WellProfile/CPathGeneration.f90
@@ -9,18 +9,37 @@ module CPathGeneration
        type(json_value),pointer :: parent
        type(json_core) :: json
        type(json_value),pointer :: p
        type(json_value),pointer :: ppath,pitems,pdp,p
        integer::i
        ! 1. create new node
        call json%create_object(p,'Path')
        call json%create_object(ppath,'Path')
        call json%create_array(pitems,'Items')
        do i=1,data%Configuration%Path%ItemCount
            call json%create_object(p,'')
            call json%add(p,"HoleType",data%Configuration%Path%items(i)%HoleType)
            call json%add(p,"Angle",data%Configuration%Path%items(i)%Angle)
            call json%add(p,"Length",data%Configuration%Path%items(i)%Length)
            call json%add(p,"FinalAngle",data%Configuration%Path%items(i)%FinalAngle)
            call json%add(p,"TotalLength",data%Configuration%Path%items(i)%TotalLength)
            call json%add(p,"MeasuredDepth",data%Configuration%Path%items(i)%MeasuredDepth)
            call json%add(p,"TotalVerticalDepth",data%Configuration%Path%items(i)%TotalVerticalDepth)
            call json%add(pitems,p)
        end do
        ! 2. add member of data type to new node
        ! call StringConfigurationToJson(p) 
        ! call FormationToJson(p) 
        ! call json%add(p,"",data%Configuration%Formation%Formations(i)%Abrasiveness)
        call json%create_array(pdp,'DataPoints')
        do i=1,data%Configuration%Path%DataPointsCount
            call json%create_object(p,'')
            call json%add(p,"X",data%Configuration%Path%DataPoints(i)%X)
            call json%add(p,"Y",data%Configuration%Path%DataPoints(i)%Y)
            call json%add(pdp,p)
        end do
        ! 3. add new node to parent
        call json%add(parent,p)
        call json%add(ppath,pitems)
        call json%add(ppath,pdp)
        call json%add(parent,ppath)
    end subroutine
 end module CPathGeneration
--- a/CSharp/BasicInputs/WellProfile/CPathGenerationVariables.f90
+++ b/CSharp/BasicInputs/WellProfile/CPathGenerationVariables.f90
@@ -25,6 +25,6 @@ module CPathGenerationVariables
        type(CDataPointItem), allocatable :: DataPoints(:)
    End type PathGenerationType
    Type(PathGenerationType)::PathGeneration
    ! Type(PathGenerationType)::PathGeneration
 end module CPathGenerationVariables
--- a/CSharp/BasicInputs/WellProfile/CWellSurveyData.f90
+++ b/CSharp/BasicInputs/WellProfile/CWellSurveyData.f90
@@ -2,33 +2,33 @@ module CWellSurveyData
    use CWellSurveyDataVariables
    implicit none    
    public    
    contains    
        integer function SetSurveyData(count, array)
        !DEC$ ATTRIBUTES DLLEXPORT::SetSurveyData
        !DEC$ ATTRIBUTES ALIAS: 'SetSurveyData' :: SetSurveyData
            implicit none
            integer, intent(in) :: count
            integer :: i
            type(CSurveyDataItem), intent(inout), target :: array(count)            
 			type(CSurveyDataItem), pointer :: item
            WellSurveyData%Count = count
            if(size(WellSurveyData%Items) > 0) then
                deallocate(WellSurveyData%Items)
            end if
            if(count > 0) then
                allocate(WellSurveyData%Items(count))
                do i = 1, count
 			        item => array(i)
                    WellSurveyData%Items(i)%MeasuredDepth = item%MeasuredDepth  
                    WellSurveyData%Items(i)%Inclination = item%Inclination
                    WellSurveyData%Items(i)%Azimoth = item%Azimoth
                    WellSurveyData%Items(i)%TotalVerticalDepth = item%TotalVerticalDepth 
                    WellSurveyData%Items(i)%X = item%X
                    WellSurveyData%Items(i)%Y = item%Y
                    WellSurveyData%Items(i)%Z = item%Z
                end do  
            end if
    contains
        ! integer function SetSurveyData(count, array)
        ! !DEC$ ATTRIBUTES DLLEXPORT::SetSurveyData
        ! !DEC$ ATTRIBUTES ALIAS: 'SetSurveyData' :: SetSurveyData
        !     implicit none
        !     integer, intent(in) :: count
        !     integer :: i
        !     type(CSurveyDataItem), intent(inout), target :: array(count)            
 		! 	type(CSurveyDataItem), pointer :: item
        !     WellSurveyData%Count = count
        !     if(size(WellSurveyData%Items) > 0) then
        !         deallocate(WellSurveyData%Items)
        !     end if
        !     if(count > 0) then
        !         allocate(WellSurveyData%Items(count))
        !         do i = 1, count
 		! 	        item => array(i)
        !             WellSurveyData%Items(i)%MeasuredDepth = item%MeasuredDepth  
        !             WellSurveyData%Items(i)%Inclination = item%Inclination
        !             WellSurveyData%Items(i)%Azimoth = item%Azimoth
        !             WellSurveyData%Items(i)%TotalVerticalDepth = item%TotalVerticalDepth 
        !             WellSurveyData%Items(i)%X = item%X
        !             WellSurveyData%Items(i)%Y = item%Y
        !             WellSurveyData%Items(i)%Z = item%Z
        !         end do  
        !     end if
            SetSurveyData = 0
        end function SetSurveyData
        !     SetSurveyData = 0
        ! end function SetSurveyData
 end module CWellSurveyData
--- a/Equipments/MudSystem/Elements_Creation.f90
+++ b/Equipments/MudSystem/Elements_Creation.f90
@@ -139,7 +139,7 @@ ALLOCATE (data%State%MudSystem%Xstart_OpSection(data%State%F_Counts%BottomHoleIn
            call data%State%MudSystem%Hz_Mud_Backhead_section%AddToFirst (1)
            call data%State%MudSystem%Hz_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Xend_PipeSection(1))
            call data%State%MudSystem%Hz_Mud_Forehead_section%AddToFirst (1)
            call data%State%MudSystem%Hz_Density%AddToFirst (MudProperties%ActiveDensity)       ! initial(ppg)
            call data%State%MudSystem%Hz_Density%AddToFirst (data%Configuration%Mud%ActiveDensity)       ! initial(ppg)
            call data%State%MudSystem%Hz_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
            call data%State%MudSystem%Hz_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)  
            call data%State%MudSystem%Hz_MudOrKick%AddToFirst (0)  
@@ -150,7 +150,7 @@ ALLOCATE (data%State%MudSystem%Xstart_OpSection(data%State%F_Counts%BottomHoleIn
            call data%State%MudSystem%St_Mud_Backhead_section%AddToFirst (2)
            call data%State%MudSystem%St_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Xend_PipeSection(data%State%F_Counts%StringIntervalCounts))
            call data%State%MudSystem%St_Mud_Forehead_section%AddToFirst (data%State%F_Counts%StringIntervalCounts)
            call data%State%MudSystem%St_Density%AddToFirst (MudProperties%ActiveDensity)       ! initial(ppg)
            call data%State%MudSystem%St_Density%AddToFirst (data%Configuration%Mud%ActiveDensity)       ! initial(ppg)
            call data%State%MudSystem%St_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
            call data%State%MudSystem%St_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)
            call data%State%MudSystem%St_MudOrKick%AddToFirst (0)  
@@ -161,7 +161,7 @@ ALLOCATE (data%State%MudSystem%Xstart_OpSection(data%State%F_Counts%BottomHoleIn
            call data%State%MudSystem%Ann_Mud_Backhead_section%AddToFirst (data%State%F_Counts%StringIntervalCounts+1)
            call data%State%MudSystem%Ann_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Xend_PipeSection(data%State%MudSystem%NoPipeSections))
            call data%State%MudSystem%Ann_Mud_Forehead_section%AddToFirst (data%State%MudSystem%NoPipeSections)
            call data%State%MudSystem%Ann_Density%AddToFirst (MudProperties%ActiveDensity)       ! initial(ppg)
            call data%State%MudSystem%Ann_Density%AddToFirst (data%Configuration%Mud%ActiveDensity)       ! initial(ppg)
            call data%State%MudSystem%Ann_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
            call data%State%MudSystem%Ann_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)
            call data%State%MudSystem%Ann_MudOrKick%AddToFirst (0) 
@@ -177,7 +177,7 @@ ALLOCATE (data%State%MudSystem%Xstart_OpSection(data%State%F_Counts%BottomHoleIn
            call data%State%MudSystem%ChokeLine_Mud_Backhead_section%AddToFirst (1)
            call data%State%MudSystem%ChokeLine_Mud_Forehead_X%AddToFirst (data%Configuration%BopStack%ChokeLineLength)
            call data%State%MudSystem%ChokeLine_Mud_Forehead_section%AddToFirst (1)
            call data%State%MudSystem%ChokeLine_Density%AddToFirst (MudProperties%ActiveDensity)       ! initial(ppg)
            call data%State%MudSystem%ChokeLine_Density%AddToFirst (data%Configuration%Mud%ActiveDensity)       ! initial(ppg)
            call data%State%MudSystem%ChokeLine_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
            call data%State%MudSystem%ChokeLine_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)
            call data%State%MudSystem%ChokeLine_MudOrKick%AddToFirst (0) 
@@ -188,7 +188,7 @@ ALLOCATE (data%State%MudSystem%Xstart_OpSection(data%State%F_Counts%BottomHoleIn
            call data%State%MudSystem%Op_Mud_Backhead_section%AddToFirst (1)
            call data%State%MudSystem%Op_Mud_Forehead_X%AddToFirst (data%State%MudSystem%Xend_OpSection(data%State%F_Counts%BottomHoleIntervalCounts))
            call data%State%MudSystem%Op_Mud_Forehead_section%AddToFirst (data%State%F_Counts%BottomHoleIntervalCounts)
            call data%State%MudSystem%Op_Density%AddToFirst (MudProperties%ActiveDensity)            
            call data%State%MudSystem%Op_Density%AddToFirst (data%Configuration%Mud%ActiveDensity)            
            call data%State%MudSystem%Op_RemainedVolume_in_LastSection%AddToFirst (0.0d0)
            call data%State%MudSystem%Op_EmptyVolume_inBackheadLocation%AddToFirst (0.0d0)  
            call data%State%MudSystem%Op_MudOrKick%AddToFirst (0)  
--- a/Equipments/MudSystem/MudSystem.f90
+++ b/Equipments/MudSystem/MudSystem.f90
@@ -5,7 +5,7 @@ use SimulationVariables !@@@
    use PressureDisplayVARIABLESModule
    USE FricPressDropVarsModule
    USE Fluid_Flow_Startup_Vars
    USE CMudPropertiesVariables
    ! USE CMudPropertiesVariables
    USE CManifolds
    use CPumpsVariables
    use CPumps
@@ -17,6 +17,7 @@ use SimulationVariables !@@@
    use CDataDisplayConsole
    use SimulationVariables
    use CStudentStationVariables   !, PitGainLossReset=>PitGainLossZero
    use MudPropertiesModule
    implicit none
@@ -687,7 +688,7 @@ use SimulationVariables !@
                data%State%MudSystem%ActiveTankVolume= data%State%MudSystem%ActiveTankVolume+ Mp1Coef*data%State%Pump(1)%Flow_Rate*data%State%MudSystem%DeltaT_Mudline/60. + Mp2Coef*data%State%Pump(2)%Flow_Rate*data%State%MudSystem%DeltaT_Mudline/60. 
                !write(*,*) 'active by j15'
            endif
            data%State%MudSystem%ActiveTankVolume=min(data%State%MudSystem%ActiveTankVolume , MudProperties%ActiveTotalTankCapacityGal-MudProperties%ActiveSettledContentsGal)
            data%State%MudSystem%ActiveTankVolume=min(data%State%MudSystem%ActiveTankVolume , data%Configuration%Mud%ActiveTotalTankCapacityGal-data%Configuration%Mud%ActiveSettledContentsGal)
            !if ActiveTankVolume is higher, excess amount is dumped                
        endif
        if (H84 > 0.0) then         !CementPumpToCementTank_Through67            
@@ -1039,7 +1040,7 @@ use SimulationVariables !@
                data%State%MudSystem%ActiveTankVolume= data%State%MudSystem%ActiveTankVolume+ ((0.5*data%State%MUD(6)%Q/60.)*data%State%MudSystem%DeltaT_Mudline)
                data%State%MudSystem%BellNippleVolume= data%State%MudSystem%BellNippleVolume+ ((0.5*data%State%MUD(6)%Q/60.)*data%State%MudSystem%DeltaT_Mudline) 
            endif    
            data%State%MudSystem%ActiveTankVolume=min(data%State%MudSystem%ActiveTankVolume , MudProperties%ActiveTotalTankCapacityGal-MudProperties%ActiveSettledContentsGal)
            data%State%MudSystem%ActiveTankVolume=min(data%State%MudSystem%ActiveTankVolume , data%Configuration%Mud%ActiveTotalTankCapacityGal-data%Configuration%Mud%ActiveSettledContentsGal)
            !if ActiveTankVolume is higher, excess amount is dumped                 
        endif
@@ -1075,17 +1076,17 @@ use SimulationVariables !@
                if (j3 == 1 .and. B71==1) then  !(volumes in galon)
                    data%State%MUD(3)%Q = min(data%State%MUD(3)%Q , data%State%MudSystem%PedalMeter)
                    !write(*,*) 'data%State%MUD(3)%Q=' , data%State%MUD(3)%Q
                    IF (MudProperties%ActiveAutoDensity == .FALSE.) THEN
                    IF (data%Configuration%Mud%ActiveAutoDensity == .FALSE.) THEN
                        data%State%MudSystem%ActiveTankDensity= ((data%State%MudSystem%ActiveTankDensity*data%State%MudSystem%ActiveTankVolume)+(data%State%MudSystem%BellNippleDensity*(data%State%MUD(3)%Q/60.)*data%State%MudSystem%DeltaT_Mudline))/(data%State%MudSystem%ActiveTankVolume+((data%State%MUD(3)%Q/60.)*data%State%MudSystem%DeltaT_Mudline))
                        data%State%MudSystem%ActiveTankVolume= data%State%MudSystem%ActiveTankVolume+ ((data%State%MUD(3)%Q/60.)*data%State%MudSystem%DeltaT_Mudline)
                        !write(*,*) 'active increase bell 1=' , ((data%State%MUD(3)%Q/60.)*DeltaT_Mudline)
                    ELSEIF (MudProperties%ActiveAutoDensity .and. data%State%MudSystem%BellNippleDensity > data%State%MudSystem%ActiveTankDensity) THEN
                    ELSEIF (data%Configuration%Mud%ActiveAutoDensity .and. data%State%MudSystem%BellNippleDensity > data%State%MudSystem%ActiveTankDensity) THEN
                        data%State%MudSystem%ActiveTankVolume= data%State%MudSystem%ActiveTankVolume+ ((20.8d0-data%State%MudSystem%BellNippleDensity)/(20.8d0-data%State%MudSystem%ActiveTankDensity))*((data%State%MUD(3)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)       ! asumed cutting density = 20.8 ppg
                        !write(*,*) 'active increase bell 2=' , ((20.8d0-BellNippleDensity)/(20.8d0-ActiveTankDensity))*((data%State%MUD(3)%Q/60.d0)*DeltaT_Mudline) 
                    ELSEIF (MudProperties%ActiveAutoDensity .and. data%State%MudSystem%BellNippleDensity < 5.0) THEN                                
                    ELSEIF (data%Configuration%Mud%ActiveAutoDensity .and. data%State%MudSystem%BellNippleDensity < 5.0) THEN                                
                        data%State%MudSystem%ActiveTankVolume= data%State%MudSystem%ActiveTankVolume+ ((2.d0-data%State%MudSystem%BellNippleDensity)/(2.d0-data%State%MudSystem%ActiveTankDensity))*((data%State%MUD(3)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)       ! asumed GAS density = 2.0 ppg
                        !write(*,*) 'active increase bell 3=' , ((2.d0-BellNippleDensity)/(2.d0-ActiveTankDensity))*((data%State%MUD(3)%Q/60.d0)*DeltaT_Mudline) 
                    ELSEIF (MudProperties%ActiveAutoDensity .and. 5.0 < data%State%MudSystem%BellNippleDensity .and. data%State%MudSystem%BellNippleDensity <= data%State%MudSystem%ActiveTankDensity) THEN
                    ELSEIF (data%Configuration%Mud%ActiveAutoDensity .and. 5.0 < data%State%MudSystem%BellNippleDensity .and. data%State%MudSystem%BellNippleDensity <= data%State%MudSystem%ActiveTankDensity) THEN
                        !write(*,*) ' Auto true 3'
                        data%State%MudSystem%ActiveTankVolume= data%State%MudSystem%ActiveTankVolume+ ((data%State%MUD(3)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)
                        !write(*,*) 'active increase bell 4=' , ((data%State%MUD(3)%Q/60.d0)*DeltaT_Mudline)
@@ -1093,18 +1094,18 @@ use SimulationVariables !@
                endif
                if (j3 == 1 .and. B77==1) then
                    data%State%MUD(3)%Q = min(data%State%MUD(3)%Q , data%State%MudSystem%PedalMeter)
                    IF (MudProperties%ActiveAutoDensity == .FALSE.) THEN
                    IF (data%Configuration%Mud%ActiveAutoDensity == .FALSE.) THEN
                        data%State%MudSystem%TripTankDensityCalc= ((data%State%MudSystem%TripTankDensityCalc*data%State%MudSystem%TripTankVolumeCalc)+(data%State%MudSystem%BellNippleDensity*(data%State%MUD(3)%Q/60.)*data%State%MudSystem%DeltaT_Mudline))/(data%State%MudSystem%TripTankVolumeCalc+((data%State%MUD(3)%Q/60.)*data%State%MudSystem%DeltaT_Mudline))
                        data%State%MudSystem%TripTankVolumeCalc= data%State%MudSystem%TripTankVolumeCalc+ (data%State%MUD(3)%Q/60.)*data%State%MudSystem%DeltaT_Mudline
                    ELSEIF (MudProperties%ActiveAutoDensity .and. data%State%MudSystem%BellNippleDensity > data%State%MudSystem%ActiveTankDensity) THEN
                    ELSEIF (data%Configuration%Mud%ActiveAutoDensity .and. data%State%MudSystem%BellNippleDensity > data%State%MudSystem%ActiveTankDensity) THEN
                        AddedVolumeToTank= ((20.8d0-data%State%MudSystem%BellNippleDensity)/(20.8d0-data%State%MudSystem%ActiveTankDensity))*((data%State%MUD(3)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)
                        data%State%MudSystem%TripTankDensityCalc= ((data%State%MudSystem%TripTankDensityCalc*data%State%MudSystem%TripTankVolumeCalc)+(data%State%MudSystem%ActiveTankDensity*AddedVolumeToTank))/(data%State%MudSystem%TripTankVolumeCalc+AddedVolumeToTank)    
                        data%State%MudSystem%TripTankVolumeCalc= data%State%MudSystem%TripTankVolumeCalc+ AddedVolumeToTank
                    ELSEIF (MudProperties%ActiveAutoDensity .and. data%State%MudSystem%BellNippleDensity < 5.0) THEN
                    ELSEIF (data%Configuration%Mud%ActiveAutoDensity .and. data%State%MudSystem%BellNippleDensity < 5.0) THEN
                        AddedVolumeToTank= ((2.d0-data%State%MudSystem%BellNippleDensity)/(2.d0-data%State%MudSystem%ActiveTankDensity))*((data%State%MUD(3)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)        ! asumed GAS density = 2.0 ppg
                        data%State%MudSystem%TripTankDensityCalc= ((data%State%MudSystem%TripTankDensityCalc*data%State%MudSystem%TripTankVolumeCalc)+(data%State%MudSystem%ActiveTankDensity*AddedVolumeToTank))/(data%State%MudSystem%TripTankVolumeCalc+AddedVolumeToTank)
                        data%State%MudSystem%TripTankVolumeCalc= data%State%MudSystem%TripTankVolumeCalc+ AddedVolumeToTank
                    ELSEIF (MudProperties%ActiveAutoDensity .and. 5.0 < data%State%MudSystem%BellNippleDensity .and. data%State%MudSystem%BellNippleDensity <= data%State%MudSystem%ActiveTankDensity) THEN
                    ELSEIF (data%Configuration%Mud%ActiveAutoDensity .and. 5.0 < data%State%MudSystem%BellNippleDensity .and. data%State%MudSystem%BellNippleDensity <= data%State%MudSystem%ActiveTankDensity) THEN
                        AddedVolumeToTank= ((data%State%MUD(3)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline) 
                        data%State%MudSystem%TripTankDensityCalc= ((data%State%MudSystem%TripTankDensityCalc*data%State%MudSystem%TripTankVolumeCalc)+(data%State%MudSystem%ActiveTankDensity*AddedVolumeToTank))/(data%State%MudSystem%TripTankVolumeCalc+AddedVolumeToTank)
                        data%State%MudSystem%TripTankVolumeCalc= data%State%MudSystem%TripTankVolumeCalc+ AddedVolumeToTank
@@ -1118,7 +1119,7 @@ use SimulationVariables !@
                        data%State%MUD(3)%Q = min(data%State%MUD(3)%Q , data%State%MudSystem%PedalMeter)
                            IF (MudProperties%ActiveAutoDensity == .FALSE.) THEN
                            IF (data%Configuration%Mud%ActiveAutoDensity == .FALSE.) THEN
                        data%State%MudSystem%ActiveTankDensity= ((data%State%MudSystem%ActiveTankDensity*data%State%MudSystem%ActiveTankVolume)+(data%State%MudSystem%BellNippleDensity*(0.5*data%State%MUD(3)%Q/60.)*data%State%MudSystem%DeltaT_Mudline))/(data%State%MudSystem%ActiveTankVolume+((0.5*data%State%MUD(3)%Q/60.)*data%State%MudSystem%DeltaT_Mudline))
                        data%State%MudSystem%TripTankDensityCalc= ((data%State%MudSystem%TripTankDensityCalc*data%State%MudSystem%TripTankVolumeCalc)+(data%State%MudSystem%BellNippleDensity*(0.5*data%State%MUD(3)%Q/60.)*data%State%MudSystem%DeltaT_Mudline))/(data%State%MudSystem%TripTankVolumeCalc+((0.5*data%State%MUD(3)%Q/60.)*data%State%MudSystem%DeltaT_Mudline))
@@ -1126,7 +1127,7 @@ use SimulationVariables !@
                        data%State%MudSystem%ActiveTankVolume= data%State%MudSystem%ActiveTankVolume+ ((0.5*data%State%MUD(3)%Q/60.)*data%State%MudSystem%DeltaT_Mudline)
                        data%State%MudSystem%TripTankVolumeCalc= data%State%MudSystem%TripTankVolumeCalc+ ((0.5*data%State%MUD(3)%Q/60.)*data%State%MudSystem%DeltaT_Mudline)
                            ELSEIF (MudProperties%ActiveAutoDensity .and. data%State%MudSystem%BellNippleDensity > data%State%MudSystem%ActiveTankDensity) THEN
                            ELSEIF (data%Configuration%Mud%ActiveAutoDensity .and. data%State%MudSystem%BellNippleDensity > data%State%MudSystem%ActiveTankDensity) THEN
                        AddedVolumeToTank= ((20.8d0-data%State%MudSystem%BellNippleDensity)/(20.8d0-data%State%MudSystem%ActiveTankDensity))*((0.5d0*data%State%MUD(3)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)
@@ -1135,7 +1136,7 @@ use SimulationVariables !@
                        data%State%MudSystem%ActiveTankVolume= data%State%MudSystem%ActiveTankVolume+ AddedVolumeToTank
                        data%State%MudSystem%TripTankVolumeCalc= data%State%MudSystem%TripTankVolumeCalc+ AddedVolumeToTank 
                            ELSEIF (MudProperties%ActiveAutoDensity .and. 5.0 < data%State%MudSystem%ActiveTankDensity) THEN
                            ELSEIF (data%Configuration%Mud%ActiveAutoDensity .and. 5.0 < data%State%MudSystem%ActiveTankDensity) THEN
                        AddedVolumeToTank= ((2.d0-data%State%MudSystem%BellNippleDensity)/(2.d0-data%State%MudSystem%ActiveTankDensity))*((0.5d0*data%State%MUD(3)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)      ! asumed GAS density = 2.0 ppg
                        data%State%MudSystem%TripTankDensityCalc= ((data%State%MudSystem%TripTankDensityCalc*data%State%MudSystem%TripTankVolumeCalc)+(data%State%MudSystem%ActiveTankDensity*AddedVolumeToTank))/(data%State%MudSystem%TripTankVolumeCalc+AddedVolumeToTank)
@@ -1143,7 +1144,7 @@ use SimulationVariables !@
                        data%State%MudSystem%ActiveTankVolume= data%State%MudSystem%ActiveTankVolume+ AddedVolumeToTank
                        data%State%MudSystem%TripTankVolumeCalc= data%State%MudSystem%TripTankVolumeCalc+ AddedVolumeToTank
                            ELSEIF (MudProperties%ActiveAutoDensity .and. 5.0 < data%State%MudSystem%BellNippleDensity .and. data%State%MudSystem%BellNippleDensity <= data%State%MudSystem%ActiveTankDensity) THEN
                            ELSEIF (data%Configuration%Mud%ActiveAutoDensity .and. 5.0 < data%State%MudSystem%BellNippleDensity .and. data%State%MudSystem%BellNippleDensity <= data%State%MudSystem%ActiveTankDensity) THEN
                        AddedVolumeToTank= ((data%State%MUD(3)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline) 
                        data%State%MudSystem%TripTankDensityCalc= ((data%State%MudSystem%TripTankDensityCalc*data%State%MudSystem%TripTankVolumeCalc)+(data%State%MudSystem%ActiveTankDensity*AddedVolumeToTank))/(data%State%MudSystem%TripTankVolumeCalc+AddedVolumeToTank)
@@ -1180,7 +1181,7 @@ use SimulationVariables !@
                    data%State%MudSystem%TripTankVolumeCalc = min(data%State%MudSystem%TripTankVolumeCalc,50.*42.)      !50. BBL *42. gal/BBL = gal
                    !if TripTankVolumeCalc>50 BBl, excess value(TripTankVolumeCalc-50) is dumped
                    data%State%MudSystem%ActiveTankVolume = min(data%State%MudSystem%ActiveTankVolume , MudProperties%ActiveTotalTankCapacityGal - MudProperties%ActiveSettledContentsGal)
                    data%State%MudSystem%ActiveTankVolume = min(data%State%MudSystem%ActiveTankVolume , data%Configuration%Mud%ActiveTotalTankCapacityGal - data%Configuration%Mud%ActiveSettledContentsGal)
                    !if ActiveTankVolume is higher, excess amount is dumped                    
                    !write(*,*) 'BellNippleDensity=' , BellNippleDensity
@@ -1284,27 +1285,27 @@ use SimulationVariables !@
                ! IN ALL CONDITIONS EFFECT OF 78 IS COMPUTED BY RealJ4
                    if (C71==1 .and. C77==0) then  !(volumes in galon) RealJ4: 1 OR 2(IF 78 IS OPEN)
                            IF (MudProperties%ActiveAutoDensity == .FALSE.) THEN
                            IF (data%Configuration%Mud%ActiveAutoDensity == .FALSE.) THEN
                        data%State%MudSystem%ActiveTankDensity= ((data%State%MudSystem%ActiveTankDensity*data%State%MudSystem%ActiveTankVolume)+(data%State%MudSystem%ChokeOutletDensity*((1./RealJ4)*data%State%MUD(4)%Q/60.)*data%State%MudSystem%DeltaT_Mudline))/(data%State%MudSystem%ActiveTankVolume+(((1./RealJ4)*data%State%MUD(4)%Q/60.)*data%State%MudSystem%DeltaT_Mudline))
                        data%State%MudSystem%ActiveTankVolume= data%State%MudSystem%ActiveTankVolume+ (((1./RealJ4)*data%State%MUD(4)%Q/60.)*data%State%MudSystem%DeltaT_Mudline) 
                        !write(*,*) 'active increase choke1=' , (((1./RealJ4)*data%State%MUD(4)%Q/60.)*DeltaT_Mudline) 
                        data%State%MudSystem%ChokeManifoldDumpVolume= data%State%MudSystem%ChokeManifoldDumpVolume+ C78*(((1./RealJ4)*data%State%MUD(4)%Q/60.)*data%State%MudSystem%DeltaT_Mudline)
                            ELSEIF (MudProperties%ActiveAutoDensity .and. data%State%MudSystem%ChokeOutletDensity > data%State%MudSystem%ActiveTankDensity) THEN
                            ELSEIF (data%Configuration%Mud%ActiveAutoDensity .and. data%State%MudSystem%ChokeOutletDensity > data%State%MudSystem%ActiveTankDensity) THEN
                        data%State%MudSystem%ActiveTankVolume= data%State%MudSystem%ActiveTankVolume+ ((20.8d0-data%State%MudSystem%ChokeOutletDensity)/(20.8d0-data%State%MudSystem%ActiveTankDensity))*(((1.d0/RealJ4)*data%State%MUD(4)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)       ! asumed cutting density = 20.8 ppg
                        data%State%MudSystem%ChokeManifoldDumpVolume= data%State%MudSystem%ChokeManifoldDumpVolume+ C78*(((1./RealJ4)*data%State%MUD(4)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)
                        !write(*,*) 'active increase choke2=' , ((20.8d0-ChokeOutletDensity)/(20.8d0-ActiveTankDensity))*(((1.d0/RealJ4)*data%State%MUD(4)%Q/60.d0)*DeltaT_Mudline) 
                            ELSEIF (MudProperties%ActiveAutoDensity .and. data%State%MudSystem%ChokeOutletDensity < 5.0) THEN                                
                            ELSEIF (data%Configuration%Mud%ActiveAutoDensity .and. data%State%MudSystem%ChokeOutletDensity < 5.0) THEN                                
                        data%State%MudSystem%ActiveTankVolume= data%State%MudSystem%ActiveTankVolume+ ((2.d0-data%State%MudSystem%ChokeOutletDensity)/(2.d0-data%State%MudSystem%ActiveTankDensity))*(((1.d0/RealJ4)*data%State%MUD(4)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)       ! asumed GAS density = 2.0 ppg
                        data%State%MudSystem%ChokeManifoldDumpVolume= data%State%MudSystem%ChokeManifoldDumpVolume+ C78*(((1.d0/RealJ4)*data%State%MUD(4)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)
                        !write(*,*) 'active increase choke3=' ,((2.d0-ChokeOutletDensity)/(2.d0-ActiveTankDensity))*(((1.d0/RealJ4)*data%State%MUD(4)%Q/60.d0)*DeltaT_Mudline)
                            ELSEIF (MudProperties%ActiveAutoDensity .and. 5.0 < data%State%MudSystem%ChokeOutletDensity .and. data%State%MudSystem%ChokeOutletDensity <= data%State%MudSystem%ActiveTankDensity) THEN
                            ELSEIF (data%Configuration%Mud%ActiveAutoDensity .and. 5.0 < data%State%MudSystem%ChokeOutletDensity .and. data%State%MudSystem%ChokeOutletDensity <= data%State%MudSystem%ActiveTankDensity) THEN
                                !write(*,*) ' Auto true 3'
@@ -1321,13 +1322,13 @@ use SimulationVariables !@
                    if (C77==1 .and. C71==0) then       !RealJ4: 1 OR 2(IF 78 IS OPEN)
                            IF (MudProperties%ActiveAutoDensity == .FALSE.) THEN                      
                            IF (data%Configuration%Mud%ActiveAutoDensity == .FALSE.) THEN                      
                        data%State%MudSystem%TripTankDensityCalc= ((data%State%MudSystem%TripTankDensityCalc*data%State%MudSystem%TripTankVolumeCalc)+(data%State%MudSystem%ChokeOutletDensity*((1./RealJ4)*data%State%MUD(4)%Q/60.)*data%State%MudSystem%DeltaT_Mudline))/(data%State%MudSystem%TripTankVolumeCalc+(((1./RealJ4)*data%State%MUD(4)%Q/60.)*data%State%MudSystem%DeltaT_Mudline))
                        data%State%MudSystem%TripTankVolumeCalc= data%State%MudSystem%TripTankVolumeCalc+ (((1./RealJ4)*data%State%MUD(4)%Q/60.)*data%State%MudSystem%DeltaT_Mudline)
                        data%State%MudSystem%ChokeManifoldDumpVolume= data%State%MudSystem%ChokeManifoldDumpVolume+ C78*(((1./RealJ4)*data%State%MUD(4)%Q/60.)*data%State%MudSystem%DeltaT_Mudline)
                            ELSEIF (MudProperties%ActiveAutoDensity .and. data%State%MudSystem%ChokeOutletDensity > data%State%MudSystem%ActiveTankDensity) THEN
                            ELSEIF (data%Configuration%Mud%ActiveAutoDensity .and. data%State%MudSystem%ChokeOutletDensity > data%State%MudSystem%ActiveTankDensity) THEN
                        AddedVolumeToTank= ((20.8d0-data%State%MudSystem%ChokeOutletDensity)/(20.8d0-data%State%MudSystem%ActiveTankDensity))*(((1.d0/RealJ4)*data%State%MUD(4)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)
                        data%State%MudSystem%TripTankDensityCalc= ((data%State%MudSystem%TripTankDensityCalc*data%State%MudSystem%TripTankVolumeCalc)+(data%State%MudSystem%ActiveTankDensity*AddedVolumeToTank))/(data%State%MudSystem%TripTankVolumeCalc+AddedVolumeToTank)
@@ -1337,7 +1338,7 @@ use SimulationVariables !@
                        data%State%MudSystem%ChokeManifoldDumpVolume= data%State%MudSystem%ChokeManifoldDumpVolume+ C78*(((1.d0/RealJ4)*data%State%MUD(4)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)                        
                            ELSEIF (MudProperties%ActiveAutoDensity .and. data%State%MudSystem%ChokeOutletDensity < 5.0) THEN
                            ELSEIF (data%Configuration%Mud%ActiveAutoDensity .and. data%State%MudSystem%ChokeOutletDensity < 5.0) THEN
                        AddedVolumeToTank= ((2.d0-data%State%MudSystem%ChokeOutletDensity)/(2.d0-data%State%MudSystem%ActiveTankDensity))*(((1.d0/RealJ4)*data%State%MUD(4)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)        ! asumed GAS density = 2.0 ppg
                        data%State%MudSystem%TripTankDensityCalc= ((data%State%MudSystem%TripTankDensityCalc*data%State%MudSystem%TripTankVolumeCalc)+(data%State%MudSystem%ActiveTankDensity*AddedVolumeToTank))/(data%State%MudSystem%TripTankVolumeCalc+AddedVolumeToTank)
@@ -1346,7 +1347,7 @@ use SimulationVariables !@
                        data%State%MudSystem%ChokeManifoldDumpVolume= data%State%MudSystem%ChokeManifoldDumpVolume+ C78*(((1.d0/RealJ4)*data%State%MUD(4)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)      
                            ELSEIF (MudProperties%ActiveAutoDensity .and. 5.0 < data%State%MudSystem%ChokeOutletDensity .and. data%State%MudSystem%ChokeOutletDensity <= data%State%MudSystem%ActiveTankDensity) THEN
                            ELSEIF (data%Configuration%Mud%ActiveAutoDensity .and. 5.0 < data%State%MudSystem%ChokeOutletDensity .and. data%State%MudSystem%ChokeOutletDensity <= data%State%MudSystem%ActiveTankDensity) THEN
                        AddedVolumeToTank= (((1.d0/RealJ4)*data%State%MUD(4)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline) 
                        data%State%MudSystem%TripTankDensityCalc= ((data%State%MudSystem%TripTankDensityCalc*data%State%MudSystem%TripTankVolumeCalc)+(data%State%MudSystem%ActiveTankDensity*AddedVolumeToTank))/(data%State%MudSystem%TripTankVolumeCalc+AddedVolumeToTank)
@@ -1363,7 +1364,7 @@ use SimulationVariables !@
                    if (C71==1 .and. C77==1) then       !RealJ4: 2 OR 3(IF 78 IS OPEN)
                            IF (MudProperties%ActiveAutoDensity == .FALSE.) THEN                     
                            IF (data%Configuration%Mud%ActiveAutoDensity == .FALSE.) THEN                     
                        data%State%MudSystem%ActiveTankDensity= ((data%State%MudSystem%ActiveTankDensity*data%State%MudSystem%ActiveTankVolume)+(data%State%MudSystem%ChokeOutletDensity*((1./RealJ4)*data%State%MUD(4)%Q/60.)*data%State%MudSystem%DeltaT_Mudline))/(data%State%MudSystem%ActiveTankVolume+(((1./RealJ4)*data%State%MUD(4)%Q/60.)*data%State%MudSystem%DeltaT_Mudline))
                        data%State%MudSystem%TripTankDensityCalc= ((data%State%MudSystem%TripTankDensityCalc*data%State%MudSystem%TripTankVolumeCalc)+(data%State%MudSystem%ChokeOutletDensity*((1./RealJ4)*data%State%MUD(4)%Q/60.)*data%State%MudSystem%DeltaT_Mudline))/(data%State%MudSystem%TripTankVolumeCalc+(((1./RealJ4)*data%State%MUD(4)%Q/60.)*data%State%MudSystem%DeltaT_Mudline))
@@ -1372,7 +1373,7 @@ use SimulationVariables !@
                        data%State%MudSystem%ChokeManifoldDumpVolume= data%State%MudSystem%ChokeManifoldDumpVolume+ C78*(((1./RealJ4)*data%State%MUD(4)%Q/60.)*data%State%MudSystem%DeltaT_Mudline)
                            ELSEIF (MudProperties%ActiveAutoDensity .and. data%State%MudSystem%ChokeOutletDensity > data%State%MudSystem%ActiveTankDensity) THEN
                            ELSEIF (data%Configuration%Mud%ActiveAutoDensity .and. data%State%MudSystem%ChokeOutletDensity > data%State%MudSystem%ActiveTankDensity) THEN
                        AddedVolumeToTank= ((20.8d0-data%State%MudSystem%ChokeOutletDensity)/(20.8d0-data%State%MudSystem%ActiveTankDensity))*(((1.d0/RealJ4)*data%State%MUD(4)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)
@@ -1383,7 +1384,7 @@ use SimulationVariables !@
                        data%State%MudSystem%ChokeManifoldDumpVolume= data%State%MudSystem%ChokeManifoldDumpVolume+ C78*(((1.d0/RealJ4)*data%State%MUD(4)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)
                            ELSEIF (MudProperties%ActiveAutoDensity .and. 5.0 < data%State%MudSystem%ActiveTankDensity) THEN
                            ELSEIF (data%Configuration%Mud%ActiveAutoDensity .and. 5.0 < data%State%MudSystem%ActiveTankDensity) THEN
                        AddedVolumeToTank= ((2.d0-data%State%MudSystem%ChokeOutletDensity)/(2.d0-data%State%MudSystem%ActiveTankDensity))*(((1.d0/RealJ4)*data%State%MUD(4)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)      ! asumed GAS density = 2.0 ppg
                        data%State%MudSystem%TripTankDensityCalc= ((data%State%MudSystem%TripTankDensityCalc*data%State%MudSystem%TripTankVolumeCalc)+(data%State%MudSystem%ActiveTankDensity*AddedVolumeToTank))/(data%State%MudSystem%TripTankVolumeCalc+AddedVolumeToTank)
@@ -1393,7 +1394,7 @@ use SimulationVariables !@
                        data%State%MudSystem%ChokeManifoldDumpVolume= data%State%MudSystem%ChokeManifoldDumpVolume+ C78*(((1.d0/RealJ4)*data%State%MUD(4)%Q/60.d0)*data%State%MudSystem%DeltaT_Mudline)
                            ELSEIF (MudProperties%ActiveAutoDensity .and. 5.0 < data%State%MudSystem%ChokeOutletDensity .and. data%State%MudSystem%ChokeOutletDensity <= data%State%MudSystem%ActiveTankDensity) THEN
                            ELSEIF (data%Configuration%Mud%ActiveAutoDensity .and. 5.0 < data%State%MudSystem%ChokeOutletDensity .and. data%State%MudSystem%ChokeOutletDensity <= data%State%MudSystem%ActiveTankDensity) THEN
                        AddedVolumeToTank= ((1.d0/RealJ4)*data%State%MUD(4)%Q/60.d0)
                        data%State%MudSystem%TripTankDensityCalc= ((data%State%MudSystem%TripTankDensityCalc*data%State%MudSystem%TripTankVolumeCalc)+(data%State%MudSystem%ActiveTankDensity*AddedVolumeToTank))/(data%State%MudSystem%TripTankVolumeCalc+AddedVolumeToTank)
@@ -1424,7 +1425,7 @@ use SimulationVariables !@
                    data%State%MudSystem%TripTankVolumeCalc=min(data%State%MudSystem%TripTankVolumeCalc,50.*42.)      !50. BBL *42. gal/BBL = gal
                    !if TripTankVolumeCalc>50 BBl, excess value(TripTankVolumeCalc-50) is dumped
                    data%State%MudSystem%ActiveTankVolume=min(data%State%MudSystem%ActiveTankVolume , MudProperties%ActiveTotalTankCapacityGal-MudProperties%ActiveSettledContentsGal)
                    data%State%MudSystem%ActiveTankVolume=min(data%State%MudSystem%ActiveTankVolume , data%Configuration%Mud%ActiveTotalTankCapacityGal-data%Configuration%Mud%ActiveSettledContentsGal)
                    !if ActiveTankVolume is higher, excess amount is dumped                    
            endif 
@@ -1535,7 +1536,7 @@ use SimulationVariables !@
                    data%State%MudSystem%TripTankVolumeCalc=min(data%State%MudSystem%TripTankVolumeCalc,50.*42.)      !50. BBL *42. gal/BBL = gal
                    !if TripTankVolumeCalc>50 BBl, excess value(TripTankVolumeCalc-50) is dumped
                    data%State%MudSystem%ActiveTankVolume=min(data%State%MudSystem%ActiveTankVolume , MudProperties%ActiveTotalTankCapacityGal-MudProperties%ActiveSettledContentsGal)
                    data%State%MudSystem%ActiveTankVolume=min(data%State%MudSystem%ActiveTankVolume , data%Configuration%Mud%ActiveTotalTankCapacityGal-data%Configuration%Mud%ActiveSettledContentsGal)
                    !if ActiveTankVolume is higher, excess amount is dumped                    
            endif 
@@ -2001,8 +2002,8 @@ use SimulationVariables !@
        IF (Manifold%Valve(67)%Status == .TRUE.) call Activate_Pump3PopOffValveBlown()  !Pump2PopOffValveBlown= .TRUE.
        IF (data%State%MudSystem%ActiveTankVolume >= (MudProperties%ActiveTotalTankCapacityGal-MudProperties%ActiveSettledContentsGal)) THEN
            data%State%MudSystem%ActiveTankVolume = (MudProperties%ActiveTotalTankCapacityGal-MudProperties%ActiveSettledContentsGal)
        IF (data%State%MudSystem%ActiveTankVolume >= (data%Configuration%Mud%ActiveTotalTankCapacityGal-data%Configuration%Mud%ActiveSettledContentsGal)) THEN
            data%State%MudSystem%ActiveTankVolume = (data%Configuration%Mud%ActiveTotalTankCapacityGal-data%Configuration%Mud%ActiveSettledContentsGal)
            call Activate_ActiveTankOverflow()
        ELSE
            call Deactivate_ActiveTankOverflow()
@@ -2502,7 +2503,7 @@ use SimulationVariables !@
        implicit none
        real(8), intent (in) :: v
        !call Log_4('ActiveMudVolumeChanged=', v)
        data%State%MudSystem%ActiveTankVolume=  MudProperties%ActiveMudVolumeGal       ! update from student input 
        data%State%MudSystem%ActiveTankVolume=  data%Configuration%Mud%ActiveMudVolumeGal       ! update from student input 
    end subroutine
    subroutine ActiveDensityChanged(v)
@@ -2510,7 +2511,7 @@ use SimulationVariables !@
        implicit none
        real(8), intent (in) :: v
        !call Log_4('ActiveDensityChanged=', v)
        data%State%MudSystem%ActiveTankDensity=  MudProperties%ActiveDensity       ! update from student input
        data%State%MudSystem%ActiveTankDensity=  data%Configuration%Mud%ActiveDensity       ! update from student input
    end subroutine
    subroutine ReserveMudVolumeChanged(v)
@@ -2518,7 +2519,7 @@ use SimulationVariables !@
        implicit none
        real(8), intent (in) :: v
        !call Log_4('ReserveMudVolumeChanged=', v)
        data%State%MudSystem%ReserveTankVolume= MudProperties%ReserveMudVolumeGal       ! update from student input
        data%State%MudSystem%ReserveTankVolume= data%Configuration%Mud%ReserveMudVolumeGal       ! update from student input
    end subroutine
    subroutine ReserveDensityChanged(v)
@@ -2526,7 +2527,7 @@ use SimulationVariables !@
        implicit none
        real(8), intent (in) :: v
        !call Log_4('ReserveDensityChanged=', v)
        data%State%MudSystem%ReserveTankDensity= MudProperties%ReserveDensity       ! update from student input 
        data%State%MudSystem%ReserveTankDensity= data%Configuration%Mud%ReserveDensity       ! update from student input 
    end subroutine
    ! subroutine SetupMudSystem()
--- a/Equipments/MudSystem/MudSystemStartup.f90
+++ b/Equipments/MudSystem/MudSystemStartup.f90
@@ -94,11 +94,11 @@ data%State%MudSystem%FluidFlowCounter = 0
        imud=1
        data%State%MudSystem%iLoc= 1 ! for Kick
        data%State%MudSystem%Suction_Density_MudSystem= MudProperties%ActiveDensity
        data%State%MudSystem%SuctionDensity_Old= MudProperties%ActiveDensity       ! initial(ppg)        
        data%State%MudSystem%StringDensity_Old= MudProperties%ActiveDensity       ! initial(ppg)
        data%State%MudSystem%AnnulusSuctionDensity_Old= MudProperties%ActiveDensity       ! initial(ppg)
        data%State%MudSystem%ChokeLineDensity_Old= MudProperties%ActiveDensity       ! initial(ppg)
        data%State%MudSystem%Suction_Density_MudSystem= data%Configuration%Mud%ActiveDensity
        data%State%MudSystem%SuctionDensity_Old= data%Configuration%Mud%ActiveDensity       ! initial(ppg)        
        data%State%MudSystem%StringDensity_Old= data%Configuration%Mud%ActiveDensity       ! initial(ppg)
        data%State%MudSystem%AnnulusSuctionDensity_Old= data%Configuration%Mud%ActiveDensity       ! initial(ppg)
        data%State%MudSystem%ChokeLineDensity_Old= data%Configuration%Mud%ActiveDensity       ! initial(ppg)
        data%State%MudSystem%TotalAddedVolume= 0.
@@ -176,12 +176,12 @@ data%State%MudSystem%PressureGauge76 = 0.0
    data%State%MudSystem%TripTank_MaxVol_Allowded= 50. *42.      !(bbl to gal, initial value)
 data%State%MudSystem%ActiveTankFloorArea= (MudProperties%ActiveTotalTankCapacityGal) / (7.48051948*100./12.)     ! (ft^2)  -     Tank Height= 100 inch , 12=inch to ft       7.48051948=gal to ft^3
 data%State%MudSystem%ActiveTankFloorArea= (data%Configuration%Mud%ActiveTotalTankCapacityGal) / (7.48051948*100./12.)     ! (ft^2)  -     Tank Height= 100 inch , 12=inch to ft       7.48051948=gal to ft^3
 data%State%MudSystem%TripTankFloorArea= (50.*42.) / (7.48051948*100./12.)     ! (ft^2)   -     50.*42.=Trip Tank Capacity in BBl*42= Gal ,   Tank Height= 100 inch , 12=inch to ft       7.48051948=gal to ft^3
 data%State%MudSystem%TripTank_Vol= MudProperties%InitialTripTankMudVolumeGal       !(gal)
 data%State%MudSystem%TripTank_Vol= data%Configuration%Mud%InitialTripTankMudVolumeGal       !(gal)
 data%State%MudSystem%TripTank_Dens= 1.
 data%EquipmentControl%DataDisplayConsole%TripTankGauge=0.
@@ -206,8 +206,8 @@ data%State%MudSystem%Mp2Density= 0.0 !(VALVE83)
 data%State%MudSystem%Mp3Density= 0.0 !(VALVE84)
 data%State%MudSystem%ReserveTankVolume= MudProperties%ReserveMudVolumeGal   ! initial volume  (gal)
 data%State%MudSystem%ReserveTankDensity= MudProperties%ReserveDensity   ! initial
 data%State%MudSystem%ReserveTankVolume= data%Configuration%Mud%ReserveMudVolumeGal   ! initial volume  (gal)
 data%State%MudSystem%ReserveTankDensity= data%Configuration%Mud%ReserveDensity   ! initial
@@ -219,21 +219,21 @@ data%State%MudSystem%PumpsDumpFlowRate= 0.0
 data%State%MudSystem%ActiveTankVolume= MudProperties%ActiveMudVolumeGal   ! initial volume  (gal)
 data%State%MudSystem%ActiveTankVolume= data%Configuration%Mud%ActiveMudVolumeGal   ! initial volume  (gal)
 data%State%MudSystem%RefrencePitVolume= data%State%MudSystem%ActiveTankVolume/42.    !(bbl)
 data%State%MudSystem%RefrencePitVolume_DrillWatch= data%State%MudSystem%ActiveTankVolume/42.    !(bbl)
 data%State%MudSystem%MVT_MinVol_Allowded= 0.
 data%State%MudSystem%MVT_MaxVol_Allowded= 0.
 data%State%MudSystem%MudTank1_vol= MudProperties%ActiveMudVolumeGal/3.       ! (gal)
 data%State%MudSystem%MudTank2_vol= MudProperties%ActiveMudVolumeGal/3.       ! (gal)
 data%State%MudSystem%MudTank3_vol= MudProperties%ActiveMudVolumeGal/3.       ! (gal)
 data%State%MudSystem%ActiveTankSettled= MudProperties%ActiveSettledContentsGal ! (gal)
 data%State%MudSystem%MudTank4_vol= MudProperties%InitialTripTankMudVolumeGal       ! (gal)
 data%State%MudSystem%MudTank1_vol= data%Configuration%Mud%ActiveMudVolumeGal/3.       ! (gal)
 data%State%MudSystem%MudTank2_vol= data%Configuration%Mud%ActiveMudVolumeGal/3.       ! (gal)
 data%State%MudSystem%MudTank3_vol= data%Configuration%Mud%ActiveMudVolumeGal/3.       ! (gal)
 data%State%MudSystem%ActiveTankSettled= data%Configuration%Mud%ActiveSettledContentsGal ! (gal)
 data%State%MudSystem%MudTank4_vol= data%Configuration%Mud%InitialTripTankMudVolumeGal       ! (gal)
 data%State%MudSystem%TripTankVolumeCalc= MudProperties%InitialTripTankMudVolumeGal   ! initial volume  (gal)
 data%State%MudSystem%ActiveTankDensity= MudProperties%ActiveDensity       ! initial(ppg)
 data%State%MudSystem%TripTankVolumeCalc= data%Configuration%Mud%InitialTripTankMudVolumeGal   ! initial volume  (gal)
 data%State%MudSystem%ActiveTankDensity= data%Configuration%Mud%ActiveDensity       ! initial(ppg)
 data%State%MudSystem%TripTankDensityCalc= data%EquipmentControl%Tank%TripTankDensity       ! initial(ppg)
 data%State%MudSystem%ChokeManifoldDumpVolume= 0.0
@@ -246,7 +246,7 @@ data%State%MudSystem%FirstSet_Time= .true.
 data%State%MudSystem%PedalMeter= MudProperties%PedalFlowMeter    !1600. !(gpm)
 data%State%MudSystem%PedalMeter= data%Configuration%Mud%PedalFlowMeter    !1600. !(gpm)
 data%State%MudSystem%ReturnFlowRate=0.
--- a/FluidFlow/Flow_Startup.f90
+++ b/FluidFlow/Flow_Startup.f90
@@ -32,7 +32,7 @@ use SimulationVariables !@, pi4 => pi
    KickVARIABLES%MaxChokeDensityChange = 25.0     ! [ppg/min]
    KickVARIABLES%ChokeMinDensity = 2.0
    KickVARIABLES%ChokeDensity = MudProperties%ActiveDensity
    KickVARIABLES%ChokeDensity = data%Configuration%Mud%ActiveDensity
    KickVARIABLES%MinKickVol = 0.5            ! USGal
@@ -71,7 +71,7 @@ use SimulationVariables !@, pi4 => pi
    SoundSpeed = 1530.0 / Convfttom
    data%State%PressureDisplay%PressureTimeStepDelay(1) = INT(2.0 * SUM(data%Configuration%StringConfiguration%StringConfigurations(2:)%ComponentLength) / SoundSpeed / dt)
    data%State%PressureDisplay%PressureTimeStepDelay(2) = INT(PathGeneration%Items(SIZE(PathGeneration%Items))%MeasuredDepth / SoundSpeed / dt)
    data%State%PressureDisplay%PressureTimeStepDelay(2) = INT(data%Configuration%Path%Items(SIZE(data%Configuration%Path%Items))%MeasuredDepth / SoundSpeed / dt)
    data%State%PressureDisplay%PressureTimeStepDelay(3) = INT(Shoe%ShoeDepth / SoundSpeed / dt)
    !WRITE (*,*) SUM(StringConfigurations(2:)%ComponentLength), PathGenerations(SIZE(PathGenerations))%TotalVerticalDepth!, WellSurveyData(SIZE(WellSurveyData))%TotalVerticalDepth
@@ -83,11 +83,11 @@ use SimulationVariables !@, pi4 => pi
    END DO
    DO i = 1 , data%State%PressureDisplay%PressureTimeStepDelay(2)
        CALL BottomHolePressureDelay%AddToFirst(REAL(0.052 * MudProperties%ActiveDensity * PathGeneration%Items(SIZE(PathGeneration%Items))%TotalVerticalDepth))
        CALL BottomHolePressureDelay%AddToFirst(REAL(0.052 * data%Configuration%Mud%ActiveDensity * data%Configuration%Path%Items(SIZE(data%Configuration%Path%Items))%TotalVerticalDepth))
    END DO
    DO i = 1 , data%State%PressureDisplay%PressureTimeStepDelay(3)
        CALL ShoePressureDelay%AddToFirst(REAL(0.052 * MudProperties%ActiveDensity * Shoe%ShoeDepth))
        CALL ShoePressureDelay%AddToFirst(REAL(0.052 * data%Configuration%Mud%ActiveDensity * Shoe%ShoeDepth))
    END DO
@@ -113,8 +113,8 @@ use SimulationVariables !@, pi4 => pi
    data%State%GasType(3)%GasConstant = RUniversal / data%State%GasType(2)%MolarWt
    !!!!!!!! Mud density and viscosity
    Theta600Refrence = MudProperties%ActiveThetaSixHundred
    Theta300Refrence = MudProperties%ActiveThetaThreeHundred
    DensityRefrence = MudProperties%ActiveDensity
    Theta600Refrence = data%Configuration%Mud%ActiveThetaSixHundred
    Theta300Refrence = data%Configuration%Mud%ActiveThetaThreeHundred
    DensityRefrence = data%Configuration%Mud%ActiveDensity
    END SUBROUTINE
--- a/FluidFlow/Frictional_Press_Drop_Calc.f90
+++ b/FluidFlow/Frictional_Press_Drop_Calc.f90
@@ -11,7 +11,7 @@ SUBROUTINE FricPressDrop(iloc)
    USE FricPressDropVarsModule
    USE CMudPropertiesVariables
    USE SimulationVariables
    USE Fluid_Flow_Startup_Vars
    USE CError
@@ -45,9 +45,9 @@ SUBROUTINE FricPressDrop(iloc)
        FlowEl(iloc)%YieldP = 2.0 * FlowEl(iloc)%Theta300 - FlowEl(iloc)%Theta600   ! lbf/100ft**2
        FlowEl(iloc)%nIndex = 3.32 * log10(FlowEl(iloc)%Theta600 / FlowEl(iloc)%Theta300)
        FlowEl(iloc)%kIndex = 510.0 * FlowEl(iloc)%Theta300 / (511.0**FlowEl(iloc)%nIndex)    ! rabete fv2
        IF (MudProperties%ActiveRheologyModel == Herschel_Bulkley_RheologyModel .AND. FlowEl(iloc)%alpha == 0) THEN
        IF (data%Configuration%Mud%ActiveRheologyModel == Herschel_Bulkley_RheologyModel .AND. FlowEl(iloc)%alpha == 0) THEN
            FlowEl(iloc)%kIndex = 1.066 * FlowEl(iloc)%Theta300 / (511.0**FlowEl(iloc)%nIndex)
        ELSE IF (MudProperties%ActiveRheologyModel == Herschel_Bulkley_RheologyModel .AND. FlowEl(iloc)%alpha == 1) THEN
        ELSE IF (data%Configuration%Mud%ActiveRheologyModel == Herschel_Bulkley_RheologyModel .AND. FlowEl(iloc)%alpha == 1) THEN
            FlowEl(iloc)%nIndex = 3.32 * log10((FlowEl(iloc)%Theta600 - TauZero) / (FlowEl(iloc)%Theta300 - TauZero))
            FlowEl(iloc)%kIndex = 1.066 * (FlowEl(iloc)%Theta300 - TauZero) / (511.0**FlowEl(iloc)%nIndex)
        END IF
@@ -75,10 +75,10 @@ SUBROUTINE FricPressDrop(iloc)
        !END IF
        ! Calculating effective or apparent viscosity
        IF (MudProperties%ActiveRheologyModel == Bingham_RheologyModel) THEN   ! Bingham Plastic
        IF (data%Configuration%Mud%ActiveRheologyModel == Bingham_RheologyModel) THEN   ! Bingham Plastic
            FlowEl(iloc)%mueff = FlowEl(iloc)%muPlastic + 5. * FlowEl(iloc)%YieldP * FlowEl(iloc)%Dhyd / FlowEl(iloc)%vel
            !write(*,*) 'pointer1' , FlowEl(iloc)%muPlastic ,  FlowEl(iloc)%YieldP , FlowEl(iloc)%Dhyd , FlowEl(iloc)%vel
        ELSE IF (MudProperties%ActiveRheologyModel == PowerLaw_RheologyModel .OR. MudProperties%ActiveRheologyModel == Herschel_Bulkley_RheologyModel) THEN   ! Power Law
        ELSE IF (data%Configuration%Mud%ActiveRheologyModel == PowerLaw_RheologyModel .OR. data%Configuration%Mud%ActiveRheologyModel == Herschel_Bulkley_RheologyModel) THEN   ! Power Law
            FlowEl(iloc)%Gf = ((3. - FlowEl(iloc)%alpha) * FlowEl(iloc)%nIndex + 1.0) / FlowEl(iloc)%nIndex / (4.0 - FlowEl(iloc)%alpha) * (2.0 + FlowEl(iloc)%alpha) / 2.0
            FlowEl(iloc)%mueff = (FlowEl(iloc)%kIndex) / (1. + FlowEl(iloc)%alpha / 2.) * ((96. * FlowEl(iloc)%vel / FlowEl(iloc)%Dhyd)**(FlowEl(iloc)%nIndex - 1)) * FlowEl(iloc)%Gf**FlowEl(iloc)%nIndex
            !write(*,*) 'pointer2' , FlowEl(iloc)%kIndex ,FlowEl(iloc)%alpha , FlowEl(iloc)%vel ,FlowEl(iloc)%Dhyd,FlowEl(iloc)%nIndex ,FlowEl(iloc)%Gf ,FlowEl(iloc)%nIndex
@@ -99,7 +99,7 @@ SUBROUTINE FricPressDrop(iloc)
        !FlowEl(iloc)%GenRe = 2997 * FlowEl(iloc)%density * FlowEl(iloc)%vel**2 / 19.36 / FlowEl(iloc)%tauW
        ! Calculating friction factor
        IF (MudProperties%ActiveRheologyModel == Bingham_RheologyModel) THEN   ! Bingham Plastic
        IF (data%Configuration%Mud%ActiveRheologyModel == Bingham_RheologyModel) THEN   ! Bingham Plastic
            IF (FlowEl(iloc)%GenRe <= 2000.0) THEN   ! laminar regime
                FlowEl(iloc)%f = 16.0 / FlowEl(iloc)%GenRe
            ELSE IF (FlowEl(iloc)%GenRe >= 4000.0) THEN   ! turbulent regime
@@ -113,7 +113,7 @@ SUBROUTINE FricPressDrop(iloc)
                                + (FlowEl(iloc)%GenRe - 2000.0) / 2000.0 * FlowEl(iloc)%a / FlowEl(iloc)%GenRe**FlowEl(iloc)%b
            END IF
        ELSE IF (MudProperties%ActiveRheologyModel == PowerLaw_RheologyModel) THEN     ! Power law
        ELSE IF (data%Configuration%Mud%ActiveRheologyModel == PowerLaw_RheologyModel) THEN     ! Power law
            FlowEl(iloc)%ReCritLam = 3470. - 1370. * FlowEl(iloc)%nIndex
            FlowEl(iloc)%ReCritTurb = 4270. - 1370. * FlowEl(iloc)%nIndex
@@ -167,7 +167,7 @@ END SUBROUTINE FricPressDrop
 SUBROUTINE PartialDerivativeFricToFlowRate(iloc)
    USE FricPressDropVarsModule
    USE CMudPropertiesVariables
    USE SimulationVariables
    USE Fluid_Flow_Startup_Vars
    use KickVARIABLESModule
    USE CError
@@ -186,7 +186,7 @@ SUBROUTINE PartialDerivativeFricToFlowRate(iloc)
        .AND. (ABS(FlowEl(iloc)%Length) >= PressLengthTolerance) &
        .AND. (FlowEl(iloc)%MaterialType /= 4)) THEN    ! not air
        IF (MudProperties%ActiveRheologyModel == PowerLaw_RheologyModel) THEN     ! Power law
        IF (data%Configuration%Mud%ActiveRheologyModel == PowerLaw_RheologyModel) THEN     ! Power law
            !IF (FlowEl(iloc)%Flowrate == 0.0) THEN
            !    FlowEl(iloc)%Flowrate = 10.0
            !    CALL FricPressDrop(iloc)
@@ -204,7 +204,7 @@ SUBROUTINE PartialDerivativeFricToFlowRate(iloc)
                                                            * ((FlowEl(iloc)%a * FlowEl(iloc)%GenRe**(1. - FlowEl(iloc)%b) - 16.) / 800. / FlowEl(iloc)%f - 1.))
            END IF
        ELSE IF (MudProperties%ActiveRheologyModel == Bingham_RheologyModel) THEN   ! Bingham Plastic
        ELSE IF (data%Configuration%Mud%ActiveRheologyModel == Bingham_RheologyModel) THEN   ! Bingham Plastic
            IF (FlowEl(iloc)%GenRe <= 2000.0 .OR. FlowEl(iloc)%f == 0.0) THEN     ! laminar flow    if f = 0.0, we have no flow in first time flowing
                FlowEl(iloc)%FricToQPartialDiff = (16. * FlowEl(iloc)%muPlastic * REAL(FlowEl(iloc)%Length) * 2.224 * (10.)**(-3)) &
                                                        / (25.81 * 928. * (1 - 0.184 * FlowEl(iloc)%alpha) * FlowEl(iloc)%Dhyd**2 * FlowEl(iloc)%Area)
--- a/Rop/ROP_MainCalculation.f90
+++ b/Rop/ROP_MainCalculation.f90
@@ -168,7 +168,7 @@ use SimulationVariables !@@@
    data%State%ROP_Bit%RateOfPenetration = (data%State%ROP_Spec%f1*data%State%ROP_Spec%f2*data%State%ROP_Spec%f3*data%State%ROP_Spec%f4*data%State%ROP_Spec%f5*data%State%ROP_Spec%f6*data%State%ROP_Spec%f7*data%State%ROP_Spec%f8)    ![ft/h]
    data%State%ROP_Bit%RateOfPenetration = (DINT(data%State%ROP_Bit%RateOfPenetration*10.d0))/10.d0
    if ( (data%State%TD_WellGeneral%WellTotalLength==PathGeneration%Items(PathGeneration%ItemCount)%MeasuredDepth) ) then
    if ( (data%State%TD_WellGeneral%WellTotalLength==data%Configuration%Path%Items(data%Configuration%Path%ItemCount)%MeasuredDepth) ) then
        data%State%ROP_Bit%SetROPGauge = data%State%ROP_Bit%RateOfPenetration
        Call Set_ROP(data%State%ROP_Bit%SetROPGauge)                     ![ft/h]
        data%State%ROP_Bit%OldROPValue(4) = data%State%ROP_Bit%RateOfPenetration
--- a/Simulation/SimulationVariables.f90
+++ b/Simulation/SimulationVariables.f90
@@ -81,9 +81,9 @@ module SimulationVariables
        Type(PumpSpecificationType)::Pumps
        Type(RigSizeType)::RigSize
        Type(CasingLinerChokeType)::CasingLinerChoke
        Type(PathGenerationType)::PathGeneration
        Type(WellSurveyDataType)::WellSurveyData
        Type(MudPropertiesType)::MudProperties
        Type(PathGenerationType)::Path
        ! Type(WellSurveyDataType)::WellSurveyData
        Type(MudPropertiesType)::Mud
    end type ConfigurationType
    type EquipmentControlType
--- a/SimulationCore2.vfproj
+++ b/SimulationCore2.vfproj
@@ -85,7 +85,8 @@
 		<File RelativePath=".\CSharp\BasicInputs\WellProfile\CPathGenerationVariables.f90"/>
 		<File RelativePath=".\CSharp\BasicInputs\WellProfile\CWellSurveyData.f90"/>
 		<File RelativePath=".\CSharp\BasicInputs\WellProfile\CWellSurveyDataVariables.f90"/></Filter>
 		<File RelativePath=".\CSharp\BasicInputs\CMudPropertiesVariables.f90"/></Filter>
 		<File RelativePath=".\CSharp\BasicInputs\CMudPropertiesVariables.f90"/>
 		<File RelativePath=".\CSharp\BasicInputs\MudProperties.f90"/></Filter>
 		<Filter Name="Common">
 		<File RelativePath=".\CSharp\Common\CCommon.f90"/>
 		<File RelativePath=".\CSharp\Common\CCommonVariables.f90"/>
--- a/Text1.txt
+++ b/Text1.txt
@@ -1,15 +1,7 @@
        real(8) :: CasingDepth
        real(8) :: CasingId
        real(8) :: CasingOd
        real(8) :: CasingWeight
        real(8) :: CasingCollapsePressure
        real(8) :: CasingTensileStrength
        real(8) :: LinerTopDepth
        real(8) :: LinerLength
        real(8) :: LinerId
        real(8) :: LinerOd
        real(8) :: LinerWeight
        real(8) :: LinerCollapsePressure
        real(8) :: LinerTensileStrength
        real(8) :: OpenHoleId
        real(8) :: OpenHoleLength
        integer :: HoleType
        real(8) :: Angle
        real(8) :: Length
        real(8) :: FinalAngle
        real(8) :: TotalLength
        real(8) :: MeasuredDepth
        real(8) :: TotalVerticalDepth
--- a/TorqueDrag/TD_ReadDataSubroutines/TD_WellReadData.f90
+++ b/TorqueDrag/TD_ReadDataSubroutines/TD_WellReadData.f90
@@ -9,7 +9,7 @@ subroutine TD_WellReadData
   data%State%TD_WellGeneral%WellIntervalsCount = PathGeneration%ItemCount + 1   ! +1 is belong to ROP hole
   data%State%TD_WellGeneral%WellIntervalsCount = data%Configuration%Path%ItemCount + 1   ! +1 is belong to ROP hole
   if (Allocated(data%State%TD_WellGeo)) deAllocate (data%State%TD_WellGeo)
   Allocate (data%State%TD_WellGeo(data%State%TD_WellGeneral%WellIntervalsCount))
@@ -21,25 +21,25 @@ subroutine TD_WellReadData
 !                Set Well Geometry Data
 !====================================================
   data%State%TD_WellGeo(1)%HoleType      = PathGeneration%Items(1)%HoleType
   data%State%TD_WellGeo(1)%HoleType      = data%Configuration%Path%Items(1)%HoleType
   data%State%TD_WellGeo(1)%StartAngle    = 0.d0                                              ![rad]
   data%State%TD_WellGeo(1)%EndAngle      = PathGeneration%Items(1)%FinalAngle*(pi/180.d0)    ![rad]
   data%State%TD_WellGeo(1)%IntervalLength= PathGeneration%Items(1)%TotalLength               ![ft]
   data%State%TD_WellGeo(1)%EndAngle      = data%Configuration%Path%Items(1)%FinalAngle*(pi/180.d0)    ![rad]
   data%State%TD_WellGeo(1)%IntervalLength= data%Configuration%Path%Items(1)%TotalLength               ![ft]
   !data%State%TD_WellGeo(1)%VerticalDepth = PathGenerations(1)%TotalVerticalDepth 
   data%State%TD_WellGeo(1)%TopDepth      = 0.d0
   data%State%TD_WellGeo(1)%DownDepth     = PathGeneration%Items(1)%MeasuredDepth
   data%State%TD_WellGeo(1)%DownDepth     = data%Configuration%Path%Items(1)%MeasuredDepth
   Do i=2,data%State%TD_WellGeneral%WellIntervalsCount-1
       data%State%TD_WellGeo(i)%HoleType      = PathGeneration%Items(i)%HoleType
       data%State%TD_WellGeo(i)%StartAngle    = PathGeneration%Items(i-1)%FinalAngle*(pi/180.d0)
       data%State%TD_WellGeo(i)%EndAngle      = PathGeneration%Items(i)%FinalAngle*(pi/180.d0)
       data%State%TD_WellGeo(i)%IntervalLength= PathGeneration%Items(i)%TotalLength
       !data%State%TD_WellGeo(i)%VerticalDepth = PathGeneration%Items(i)%TotalVerticalDepth
       data%State%TD_WellGeo(i)%TopDepth      = PathGeneration%Items(i-1)%MeasuredDepth
       data%State%TD_WellGeo(i)%DownDepth     = PathGeneration%Items(i)%MeasuredDepth
       data%State%TD_WellGeo(i)%HoleType      = data%Configuration%Path%Items(i)%HoleType
       data%State%TD_WellGeo(i)%StartAngle    = data%Configuration%Path%Items(i-1)%FinalAngle*(pi/180.d0)
       data%State%TD_WellGeo(i)%EndAngle      = data%Configuration%Path%Items(i)%FinalAngle*(pi/180.d0)
       data%State%TD_WellGeo(i)%IntervalLength= data%Configuration%Path%Items(i)%TotalLength
       !data%State%TD_WellGeo(i)%VerticalDepth = data%Configuration%Path%Items(i)%TotalVerticalDepth
       data%State%TD_WellGeo(i)%TopDepth      = data%Configuration%Path%Items(i-1)%MeasuredDepth
       data%State%TD_WellGeo(i)%DownDepth     = data%Configuration%Path%Items(i)%MeasuredDepth
       !=====> Radius Of Curvature Calculation
       if (data%State%TD_WellGeo(i)%HoleType/=0) then
--- a/TorqueDrag/TD_StartUp/TD_StartUp.f90
+++ b/TorqueDrag/TD_StartUp/TD_StartUp.f90
@@ -26,7 +26,7 @@ subroutine TD_StartUp
 !!                Allocate Modules
 !!====================================================
 !   !=====> Set WellGeo Dimension
 !   data%State%TD_WellGeneral%WellIntervalsCount = PathGeneration%ItemCount + 1    ! +1 is belong to ROP hole
 !   data%State%TD_WellGeneral%WellIntervalsCount = data%Configuration%Path%ItemCount + 1    ! +1 is belong to ROP hole
 !   Allocate (data%State%TD_WellGeo(data%State%TD_WellGeneral%WellIntervalsCount))
 !   
 !   !=====> Set WellGeo Dimension
@@ -37,7 +37,7 @@ subroutine TD_StartUp
   data%State%ROP_Bit%RateOfPenetration  = 0.d0
   data%State%ROP_Bit%BearingWear        = 0.d0
   data%State%ROP_Spec%FormationNumber   = 0
   data%State%ROP_Bit%OldROPDepth        = PathGeneration%Items(PathGeneration%ItemCount)%MeasuredDepth
   data%State%ROP_Bit%OldROPDepth        = data%Configuration%Path%Items(data%Configuration%Path%ItemCount)%MeasuredDepth
   data%State%ROP_Bit%OldROPValue        = 0.d0
   data%State%ROP_Bit%SetROPGauge        = 0.d0
--- a/helper.ipynb
+++ b/helper.ipynb
@@ -2,58 +2,81 @@
 "cells": [
  {
   "cell_type": "code",
   "execution_count": 19,
   "execution_count": 5,
   "metadata": {},
   "outputs": [
    {
     "data": {
      "text/plain": [
       "['        integer :: RigType\\n',\n",
       " '        real(8) :: CrownHeight\\n',\n",
       " '        real(8) :: MonkeyBoandHeight\\n',\n",
       " '        real(8) :: RigFloorHeight\\n']"
      ]
     },
     "execution_count": 19,
     "metadata": {},
     "output_type": "execute_result"
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "{\"BitType\":0,\n",
      "\"BitSize\":0,\n",
      "\"BitCodeHundreds\":0,\n",
      "\"BitCodeTens\":0,\n",
      "\"BitCodeOnes\":0,\n",
      "\"BitNozzleSize\":0,\n",
      "\"BitLength\":0,\n",
      "\"BitWeightPerLength\":0,\n",
      "\"BitNozzleNo\":0,\n",
      "\"FloatValve\":0,\n",
      "\n"
     ]
    }
   ],
   "source": [
    "lines"
    "input = open(\"Text1.txt\")\n",
    "output = \"{\"\n",
    "lines = input.readlines()\n",
    "for line in lines:\n",
    "    name =  line.split(\"::\")[-1].strip()\n",
    "    type = line.split(\"::\")[0].strip()\n",
    "    output += f\"\\\"{name}\\\":0,\\n\" \n",
    "    # name = line.split(\"%\")[-1][:-1]\n",
    "    # print(name)\n",
    "print(output+\"}\")\n"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 23,
   "execution_count": 4,
   "metadata": {},
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "call json%add(p,\"CasingDepth\",data%Configuration%CasingLinerChoke%CasingDepth)\n",
      "call json%add(p,\"CasingId\",data%Configuration%CasingLinerChoke%CasingId)\n",
      "call json%add(p,\"CasingOd\",data%Configuration%CasingLinerChoke%CasingOd)\n",
      "call json%add(p,\"CasingWeight\",data%Configuration%CasingLinerChoke%CasingWeight)\n",
      "call json%add(p,\"CasingCollapsePressure\",data%Configuration%CasingLinerChoke%CasingCollapsePressure)\n",
      "call json%add(p,\"CasingTensileStrength\",data%Configuration%CasingLinerChoke%CasingTensileStrength)\n",
      "call json%add(p,\"\",data%Configuration%CasingLinerChoke%)\n",
      "call json%add(p,\"LinerTopDepth\",data%Configuration%CasingLinerChoke%LinerTopDepth)\n",
      "call json%add(p,\"LinerLength\",data%Configuration%CasingLinerChoke%LinerLength)\n",
      "call json%add(p,\"LinerId\",data%Configuration%CasingLinerChoke%LinerId)\n",
      "call json%add(p,\"LinerOd\",data%Configuration%CasingLinerChoke%LinerOd)\n",
      "call json%add(p,\"LinerWeight\",data%Configuration%CasingLinerChoke%LinerWeight)\n",
      "call json%add(p,\"LinerCollapsePressure\",data%Configuration%CasingLinerChoke%LinerCollapsePressure)\n",
      "call json%add(p,\"LinerTensileStrength\",data%Configuration%CasingLinerChoke%LinerTensileStrength)\n",
      "call json%add(p,\"\",data%Configuration%CasingLinerChoke%)\n",
      "call json%add(p,\"OpenHoleId\",data%Configuration%CasingLinerChoke%OpenHoleId)\n",
      "call json%add(p,\"OpenHoleLength\",data%Configuration%CasingLinerChoke%OpenHoleLength)\n"
      "call json%add(p,\"ActiveMudType\",data%Configuration%Mud%ActiveMudType)\n",
      "call json%add(p,\"ActiveRheologyModel\",data%Configuration%Mud%ActiveRheologyModel)\n",
      "call json%add(p,\"ActiveMudVolume\",data%Configuration%Mud%ActiveMudVolume)\n",
      "call json%add(p,\"ActiveMudVolumeGal\",data%Configuration%Mud%ActiveMudVolumeGal)\n",
      "call json%add(p,\"ActiveDensity\",data%Configuration%Mud%ActiveDensity)\n",
      "call json%add(p,\"ActivePlasticViscosity\",data%Configuration%Mud%ActivePlasticViscosity)\n",
      "call json%add(p,\"ActiveYieldPoint\",data%Configuration%Mud%ActiveYieldPoint)\n",
      "call json%add(p,\"ActiveThetaThreeHundred\",data%Configuration%Mud%ActiveThetaThreeHundred)\n",
      "call json%add(p,\"ActiveThetaSixHundred\",data%Configuration%Mud%ActiveThetaSixHundred)\n",
      "call json%add(p,\"ReserveMudType\",data%Configuration%Mud%ReserveMudType)\n",
      "call json%add(p,\"ReserveMudVolume\",data%Configuration%Mud%ReserveMudVolume)\n",
      "call json%add(p,\"ReserveMudVolumeGal\",data%Configuration%Mud%ReserveMudVolumeGal)\n",
      "call json%add(p,\"ReserveDensity\",data%Configuration%Mud%ReserveDensity)\n",
      "call json%add(p,\"ReservePlasticViscosity\",data%Configuration%Mud%ReservePlasticViscosity)\n",
      "call json%add(p,\"ReserveYieldPoint\",data%Configuration%Mud%ReserveYieldPoint)\n",
      "call json%add(p,\"ReserveThetaThreeHundred\",data%Configuration%Mud%ReserveThetaThreeHundred)\n",
      "call json%add(p,\"ReserveThetaSixHundred\",data%Configuration%Mud%ReserveThetaSixHundred)\n",
      "call json%add(p,\"ActiveTotalTankCapacity\",data%Configuration%Mud%ActiveTotalTankCapacity)\n",
      "call json%add(p,\"ActiveTotalTankCapacityGal\",data%Configuration%Mud%ActiveTotalTankCapacityGal)\n",
      "call json%add(p,\"ActiveSettledContents\",data%Configuration%Mud%ActiveSettledContents)\n",
      "call json%add(p,\"ActiveSettledContentsGal\",data%Configuration%Mud%ActiveSettledContentsGal)\n",
      "call json%add(p,\"ActiveTotalContents\",data%Configuration%Mud%ActiveTotalContents)\n",
      "call json%add(p,\"ActiveTotalContentsGal\",data%Configuration%Mud%ActiveTotalContentsGal)\n",
      "call json%add(p,\"ActiveAutoDensity\",data%Configuration%Mud%ActiveAutoDensity)\n",
      "call json%add(p,\"InitialTripTankMudVolume\",data%Configuration%Mud%InitialTripTankMudVolume)\n",
      "call json%add(p,\"InitialTripTankMudVolumeGal\",data%Configuration%Mud%InitialTripTankMudVolumeGal)\n",
      "call json%add(p,\"PedalFlowMeter\",data%Configuration%Mud%PedalFlowMeter)\n"
     ]
    }
   ],
   "source": [
    "precode = \"\"\"call json%add(p,\"\",data%Configuration%CasingLinerChoke%\"\"\"\n",
    "precode = \"\"\"call json%add(p,\"\",data%Configuration%Mud%\"\"\"\n",
    "input = open(\"Text1.txt\")\n",
    "lines = input.readlines()\n",
    "for line in lines:\n",
--- a/test.json
+++ b/test.json
@@ -1,7 +1,31 @@
 {
  "Configuration": {
    "StringConfiguration": {
      "StringConfigurationItems": [],
      "StringConfigurationItems": [
        {"BitType":0,
        "BitSize":0,
        "BitCodeHundreds":0,
        "BitCodeTens":0,
        "BitCodeOnes":0,
        "BitNozzleSize":0,
        "BitLength":0,
        "BitWeightPerLength":0,
        "BitNozzleNo":0,
        "FloatValve":0
        }
        ,
        {"BitType":0,
        "BitSize":0,
        "BitCodeHundreds":0,
        "BitCodeTens":0,
        "BitCodeOnes":0,
        "BitNozzleSize":0,
        "BitLength":0,
        "BitWeightPerLength":0,
        "BitNozzleNo":0,
        "FloatValve":0
        }
      ],
      "BitDefenition": {
        "BitCodeHundreds": 0,
        "BitCodeOnes": 0,
@@ -15,7 +39,22 @@
        "FloatValve": false
      }
    },
    "Fromations": [],
    "Fromations": [
      {"Top":0,
      "Thickness":0,
      "Drillablity":0,
      "Abrasiveness":0,
      "ThresholdWeight":0,
      "PorePressureGradient":0
      },
      {"Top":0,
      "Thickness":0,
      "Drillablity":0,
      "Abrasiveness":0,
      "ThresholdWeight":0,
      "PorePressureGradient":0
      }            
    ],
    "Reservoir": {
      "AutoMigrationRate": 0.0E+0,
      "FluidGradient": 0.0E+0,
@@ -152,6 +191,33 @@
      "OpenHoleId": 0.0E+0,
      "OpenHoleLength": 0.0E+0
    },
    "Path": {}
    "Path": {
      "Items": [
        {"HoleType":0,
        "Angle":0,
        "Length":0,
        "FinalAngle":0,
        "TotalLength":0,
        "MeasuredDepth":0,
        "TotalVerticalDepth":0
        },
        {"HoleType":0,
        "Angle":0,
        "Length":0,
        "FinalAngle":0,
        "TotalLength":0,
        "MeasuredDepth":0,
        "TotalVerticalDepth":0
        }                
      ],
      "DataPoints": [
        {"X":0,
        "Y":0
        },
        {"X":0,
        "Y":0
        }
      ]
    }
  }
 }