Simulation Core
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

15 lines
515 B

  1. module sROP_Variables
  2. implicit none
  3. TYPE, PUBLIC :: ROPInfo
  4. real(8) :: WeightOnBit , RotarySpeed , MudDensity , FormationMudDensity , MudViscosity , MudFlowrate, BitFlowrate , DrillingVerticalDepth
  5. real(8) :: BitWearing , RateOfPenetration, BitTorque , ECD , BottomHolePressure
  6. real(8) :: BearingWear , JetImpactForce
  7. real(8) :: OldROPDepth , OldROPValue(4) , SetROPGauge
  8. integer :: NoOfFormations
  9. END TYPE ROPInfo
  10. end module sROP_Variables