Skip to content

Commit de97d41

Browse files
committed
Tweaks
1 parent 6178713 commit de97d41

File tree

2 files changed

+19
-18
lines changed

2 files changed

+19
-18
lines changed

src/Reactor/ReactorModule.f90

Lines changed: 15 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -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)

src/main.f90

Lines changed: 4 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,16 +1,17 @@
11
!-------------------------------------------------------------------------------!
2-
!> NanoFASE model !
2+
!> FASE model !
33
!> -------------- !
4-
!> Contaminant Fate And Speciation in the Environment !
4+
!> Fate And Speciation in the Environment !
55
!> !
66
!> Authors: Sam Harrison ([email protected]) !
7+
!> Cansu Uluseker !
78
!> Stephen Lofts !
89
!> Virginie Keller !
910
!> Michael Hutchins !
1011
!> Richard Williams !
1112
!> Institute: UK Centre for Ecology & Hydrology !
1213
!> Repository: https://github.com/nerc-ceh/nanofase !
13-
!> Documentation: https://github.com/nerc-ceh/nanofase !
14+
!> Documentation: https://nerc-ceh.github.io/nanofase !
1415
!> Changelog: https://github.com/NERC-CEH/nanofase/blob/develop/CHANGELOG.md !
1516
!> License: BSD 3-Clause, !
1617
!> https://github.com/NERC-CEH/nanofase/blob/develop/LICENSE !

0 commit comments

Comments
 (0)