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
441 B

  1. module CPowerVariables
  2. implicit none
  3. public
  4. ! variables
  5. Type::PowerType
  6. integer :: NumberOfgenerators
  7. real(8) :: GeneratorPowerRating
  8. real(8) :: MudPump1
  9. real(8) :: MudPump2
  10. real(8) :: CementPump
  11. real(8) :: RotaryTable
  12. real(8) :: Drawworks
  13. real(8) :: TopDrive
  14. End type PowerType
  15. ! Type(PowerType)::Power
  16. end module CPowerVariables