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.
 
 
 
 
 
 

43 lines
2.2 KiB

  1. # 1 "/home/admin/SimulationCore2/Rop/sROP_Other_Variables.f90"
  2. module sROP_Other_Variables
  3. implicit none
  4. ! real(8), parameter :: PI = 3.1415926 ! PI Number
  5. TYPE, PUBLIC :: ROPSpecificationInfo
  6. integer :: FormationNumber
  7. real(8) :: FormationTopDepth
  8. !CHARACTER(len=20) :: filename ! Name of file to open ??????????????????????????????????tuye type bemune ya bere biroon???
  9. INTEGER :: name , status ! I/O status
  10. REAL(8) :: H1, H2, H3, wdmax ! The real value read in
  11. ! $$$$$**$$$$$**$$$$$**$$$$$**$$ End of Introduction of Module Inputs $$**$$$$$**$$$$$**$$$$$**$$$$$
  12. !character(len = 20) :: Formation_Type = 'Shale' ! Default = Shale
  13. ! -----**-----**-----**-----**-----** Bit Type: *-----**-----**-----**-----**-----
  14. Integer :: BitClass ! Default = Rollar Cone
  15. real(8) :: DiameterOfBit ! unit : [in.] (Typical Range: 3.0 to 30.0)
  16. Integer :: NumberOfBitNozzles ! (Typical Range: 1 to 10)
  17. real(8) :: DiameterOfBitNozzle ! unit : [1/32 in.] (Typical Values: 8.0 to 32.0)
  18. ! -----**-----**-----**-----**-----** End of Bit Type: *-----**-----**-----**-----**-----
  19. real(8) :: CriticalMudDensity ! unit : [ppg] or [lb/gal] (Typical Range: 0 to 10.0)
  20. real(8) :: CriticalWeightOnBit ! unit : [klb] (Typical Range: 0 to 10)
  21. real(8) :: ReynoldsNumber ! unit : [klb] (Typical Range: 0.1 to 1000.0)
  22. ! -----**-----**-----**-----**-----** Other data%State%ROP_Bit%RateofPenetration Model Variables: *-----**-----**-----**-----**-----
  23. real(8) :: f1, f2, f3, f4, f5, f6, f7, f8
  24. real(8) :: a1, a2, a3, a4, a5, a6, a7, a8
  25. real(8) :: BrCoef
  26. real(8) :: dt , TouH
  27. ! -----**-----**-----**-----**--- End of Other data%State%ROP_Bit%RateofPenetration Model Variables ---**-----**-----**-----**-----
  28. ! $$$$$**$$$$$**$$$$$**$$$$$**$$$$$** End of Variable Definition *$$$$$**$$$$$**$$$$$**$$$$$**$$$$$
  29. END TYPE ROPSpecificationInfo
  30. end module sROP_Other_Variables