Simulation Core
 
 
 
 
 
 

16 lines
424 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