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.
 
 
 
 
 
 

23 lines
681 B

  1. # 1 "/mnt/c/Projects/VSIM/SimulationCore2/CSharp/BasicInputs/Geology/CFormationVariables.f90"
  2. module CFormationVariables
  3. ! !@use ConfigurationVariables, only: Configuration
  4. implicit none
  5. public
  6. ! types
  7. ! Pipe Items in String Array
  8. type, bind(c), public :: CFormationItem
  9. real(8) :: Top
  10. real(8) :: Thickness
  11. real(8) :: Drillablity
  12. real(8) :: Abrasiveness
  13. real(8) :: ThresholdWeight
  14. real(8) :: PorePressureGradient
  15. end type CFormationItem
  16. Type::FormationType
  17. integer :: Count = 0
  18. type(CFormationItem), allocatable :: Formations(:)
  19. End type FormationType
  20. end module CFormationVariables