diff --git a/src/Model/GroundWaterFlow/gwf3tvk8.f90 b/src/Model/GroundWaterFlow/gwf3tvk8.f90 index c4c56cfd8d7..e801efdbd6d 100644 --- a/src/Model/GroundWaterFlow/gwf3tvk8.f90 +++ b/src/Model/GroundWaterFlow/gwf3tvk8.f90 @@ -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 diff --git a/src/Model/GroundWaterFlow/gwf3tvs8.f90 b/src/Model/GroundWaterFlow/gwf3tvs8.f90 index 504833dc57a..e516424c4fe 100644 --- a/src/Model/GroundWaterFlow/gwf3tvs8.f90 +++ b/src/Model/GroundWaterFlow/gwf3tvs8.f90 @@ -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