From d159336fa60831063953c6cddfea784f9382d594 Mon Sep 17 00:00:00 2001 From: wpbonelli Date: Wed, 28 Feb 2024 10:44:43 -0500 Subject: [PATCH] fprettify --- src/mf6core.f90 | 2 -- src/mf6lists.f90 | 1 - 2 files changed, 3 deletions(-) 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()