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.
 
 
 
 
 
 

16 lines
404 B

  1. module CHoistingVariables
  2. implicit none
  3. public
  4. !constants
  5. integer :: TopDrive_DriveType = 0
  6. integer :: Kelly_DriveType = 1
  7. ! variables
  8. integer :: DriveType
  9. real(8) :: TravelingBlockWeight
  10. real(8) :: TopDriveWeight
  11. real(8) :: KellyWeight
  12. integer :: NumberOfLine
  13. real(8) :: DrillingLineBreakingLoad
  14. contains
  15. end module CHoistingVariables