Simulation Core
No puede seleccionar más de 25 temas Los temas deben comenzar con una letra o número, pueden incluir guiones ('-') y pueden tener hasta 35 caracteres de largo.
 
 
 
 
 
 

18 líneas
532 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. TYPE(ROPInfo) :: ROP_Bit
  11. end module sROP_Variables