Simulation Core
Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.

JetImpactForce.f90 1.0 KiB

il y a 1 an
1234567891011121314151617181920212223242526272829303132
  1. subroutine JetImpactForce
  2. use sROP_Other_Variables
  3. use sROP_Variables
  4. use CStringConfigurationVariables
  5. use CformationVariables
  6. ! use CSimulationVariables
  7. use CmudPropertiesVariables
  8. USE MudSystemVARIABLES
  9. use SimulationVariables !@@@
  10. implicit none
  11. Real(8) :: DeltaPb , NozzleTotalArea , Cd=0.95d0
  12. data%State%ROP_Bit%BitFlowrate = data%State%MudSystem%StringFlowRateFinal ![gpm]
  13. !if(print_log) print*, 'data%State%ROP_Bit%BitFlowrate=' , data%State%ROP_Bit%BitFlowrate
  14. !check :: data%State%ROP_Bit%MudDensity [ppg] ??????????
  15. NozzleTotalArea = data%State%ROP_Spec%NumberOfBitNozzles*(data%State%ROP_Spec%DiameterOfBitNozzle**2)*(PI/4.d0)
  16. DeltaPb = (8.311d-5*data%State%ROP_Bit%MudDensity*(data%State%ROP_Bit%BitFlowrate**2))/((Cd**2)*(NozzleTotalArea**2))
  17. data%State%ROP_Bit%JetImpactForce = 0.01823d0*Cd*data%State%ROP_Bit%BitFlowrate*sqrt(data%State%ROP_Bit%MudDensity*DeltaPb)
  18. end subroutine