@@ -7,22 +7,22 @@ module ReactorModule
77 implicit none
88
99 type, public , extends(AbstractReactor) :: Reactor
10- character (len= 100 ) :: compartment
11- real (dp) :: T_water
12- real (dp), allocatable :: C_spm(:)
13- real (dp), allocatable :: W_settle_spm(:)
14- real :: G
15- real (dp), allocatable :: k_att(:)
16- real (dp) :: alpha_att
17- real (dp) :: velocity
18- contains
19- procedure :: create = > createReactor
20- procedure :: update = > updateReactor
21- procedure :: finalise = > finaliseReactor
22- procedure :: parseInputData = > parseInputDataReactor
23- end type
10+ character (len= 100 ) :: compartment
11+ real (dp) :: T_water
12+ real (dp), allocatable :: C_spm(:)
13+ real (dp), allocatable :: W_settle_spm(:)
14+ real :: G
15+ real (dp), allocatable :: k_att(:)
16+ real (dp) :: alpha_att
17+ real (dp) :: velocity
18+ contains
19+ procedure :: create = > createReactor
20+ procedure :: update = > updateReactor
21+ procedure :: finalise = > finaliseReactor
22+ procedure :: parseInputData = > parseInputDataReactor
23+ end type
2424
25- contains
25+ contains
2626
2727 function createReactor (me , x , y , compartment , contaminant_in , volume , T_water , &
2828 C_spm , W_settle_spm , G , k_att , alpha_att , velocity ) result(r)
0 commit comments