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.
 
 
 
 
 
 

20 lines
547 B

  1. # 1 "/home/admin/SimulationCore2/CSharp/BasicInputs/RigSpecifications/CHoistingVariables.f90"
  2. module CHoistingVariables
  3. implicit none
  4. public
  5. !constants
  6. integer :: TopDrive_DriveType = 0
  7. integer :: Kelly_DriveType = 1
  8. ! variables
  9. Type::HoistingType
  10. integer :: DriveType
  11. real(8) :: TravelingBlockWeight
  12. real(8) :: TopDriveWeight
  13. real(8) :: KellyWeight
  14. integer :: NumberOfLine
  15. real(8) :: DrillingLineBreakingLoad
  16. End type HoistingType
  17. end module CHoistingVariables