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.
 
 
 
 
 
 

25 lines
781 B

  1. module CReservoirVariables
  2. implicit none
  3. public
  4. !constants
  5. ! integer :: Gas_FluidType = 0
  6. ! integer :: Oil_FluidType = 1
  7. ! integer :: Water_FluidType = 2
  8. Type :: ReservoirType
  9. ! variables
  10. integer :: FormationNo
  11. real(8) :: FormationTop
  12. real(8) :: PressureGradient
  13. real(8) :: FormationPermeability
  14. real(8) :: GeothermalGradient
  15. integer :: FluidType
  16. real(8) :: FluidGradient
  17. real(8) :: FluidViscosity
  18. logical :: InactiveInflux
  19. logical :: IsAutoMigrationRateSelected
  20. real(8) :: AutoMigrationRate
  21. logical :: MakeKickSinglePacket
  22. End type ReservoirType
  23. Type(ReservoirType)::Reservoir
  24. end module CReservoirVariables