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.

CHoistingVariables.i90 556 B

12345678910111213141516171819
  1. # 1 "/mnt/c/Projects/VSIM/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