Skip to content

Commit

Permalink
forgot to run fprettify in previous commit
Browse files Browse the repository at this point in the history
  • Loading branch information
emorway-usgs committed Nov 27, 2023
1 parent 6d9a980 commit df1e011
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 4 deletions.
4 changes: 2 additions & 2 deletions src/Model/GroundWaterFlow/gwf3tvk8.f90
Original file line number Diff line number Diff line change
Expand Up @@ -31,9 +31,9 @@ module TvkModule
integer(I4B), pointer :: kchangeper => null() !< NPF last stress period in which any node K (or K22, or K33) values were changed (0 if unchanged from start of simulation)
integer(I4B), pointer :: kchangestp => null() !< NPF last time step in which any node K (or K22, or K33) values were changed (0 if unchanged from start of simulation)
integer(I4B), dimension(:), pointer, contiguous :: nodekchange => null() !< NPF grid array of flags indicating for each node whether its K (or K22, or K33) value changed (1) at (kchangeper, kchangestp) or not (0)

contains

procedure :: da => tvk_da
procedure :: ar_set_pointers => tvk_ar_set_pointers
procedure :: read_option => tvk_read_option
Expand Down
4 changes: 2 additions & 2 deletions src/Model/GroundWaterFlow/gwf3tvs8.f90
Original file line number Diff line number Diff line change
Expand Up @@ -27,9 +27,9 @@ module TvsModule
integer(I4B), pointer :: iusesy => null() !< STO flag set if any cell is convertible (0, 1)
real(DP), dimension(:), pointer, contiguous :: ss => null() !< STO specfic storage or storage coefficient
real(DP), dimension(:), pointer, contiguous :: sy => null() !< STO specific yield

contains

procedure :: da => tvs_da
procedure :: ar_set_pointers => tvs_ar_set_pointers
procedure :: read_option => tvs_read_option
Expand Down

0 comments on commit df1e011

Please sign in to comment.