Simulation Core
Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.
 
 
 
 
 
 

18 рядки
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