diff --git a/src/mf6core.f90 b/src/mf6core.f90 index 795ffd97924..5fd2e524625 100644 --- a/src/mf6core.f90 +++ b/src/mf6core.f90 @@ -143,7 +143,6 @@ subroutine Mf6Finalize() class(BaseExchangeType), pointer :: ep => null() class(SpatialModelConnectionType), pointer :: mc => null() - ! FINAL PROCESSING (FP) ! Final processing for each model do im = 1, basemodellist%Count() @@ -743,7 +742,6 @@ function Mf6FinalizeTimestep() result(hasConverged) ! Check if we're done call converge_check(hasConverged) - end function Mf6FinalizeTimestep end module Mf6CoreModule diff --git a/src/mf6lists.f90 b/src/mf6lists.f90 index 8d5026dafbb..7a9a9bc3991 100644 --- a/src/mf6lists.f90 +++ b/src/mf6lists.f90 @@ -35,7 +35,6 @@ module ListsModule subroutine lists_da() ! Deallocate the lists - call basemodellist%Clear() call basesolutionlist%Clear() call solutiongrouplist%Clear()