Skip to content

Commit

Permalink
misc(gwt1.f90): remove commented code and supplement doxygen comment (#…
Browse files Browse the repository at this point in the history
  • Loading branch information
emorway-usgs authored Oct 16, 2023
1 parent f7b6f76 commit 0d26d3a
Showing 1 changed file with 6 additions and 11 deletions.
17 changes: 6 additions & 11 deletions src/Model/GroundWaterTransport/gwt1.f90
Original file line number Diff line number Diff line change
Expand Up @@ -467,7 +467,12 @@ end subroutine gwt_fc

!> @brief GWT Model Final Convergence Check
!!
!! If MVR/MVT is active, call the MVR convergence check subroutines
!! If MVR/MVT is active, call the MVR convergence check subroutines to force
!! at least 2 outer iterations. The other advanced transport packages are
!! solved in the matrix equations directly which means the solver is
!! completing the necessary checks thereby eliminating need to call package
!! cc routines. That is, no need to loop over active packages and run:
!! call packobj%bnd_cc(iend, icnvg, hclose, rclose)
!<
subroutine gwt_cc(this, innertot, kiter, iend, icnvgmod, cpak, ipak, dpak)
! -- dummy
Expand All @@ -479,20 +484,10 @@ subroutine gwt_cc(this, innertot, kiter, iend, icnvgmod, cpak, ipak, dpak)
character(len=LENPAKLOC), intent(inout) :: cpak
integer(I4B), intent(inout) :: ipak
real(DP), intent(inout) :: dpak
! -- local
! class(BndType), pointer :: packobj
! integer(I4B) :: ip
! -- formats
!
! -- If mover is on, then at least 2 outers required
if (this%inmvt > 0) call this%mvt%mvt_cc(kiter, iend, icnvgmod, cpak, dpak)
!
! -- Call package cc routines
! do ip = 1, this%bndlist%Count()
! packobj => GetBndFromList(this%bndlist, ip)
! call packobj%bnd_cc(iend, icnvg, hclose, rclose)
! enddo
!
! -- Return
return
end subroutine gwt_cc
Expand Down

0 comments on commit 0d26d3a

Please sign in to comment.