Skip to content

Commit

Permalink
rename apt_chk_aux_area() to apt-chk and move function to end of _rp(…
Browse files Browse the repository at this point in the history
…) routine
  • Loading branch information
emorway-usgs committed Dec 3, 2024
1 parent 6c42740 commit ef5fcdc
Show file tree
Hide file tree
Showing 2 changed files with 7 additions and 7 deletions.
2 changes: 1 addition & 1 deletion src/Model/GroundWaterEnergy/gwe-uze.f90
Original file line number Diff line number Diff line change
Expand Up @@ -79,7 +79,7 @@ module GweUzeModule
procedure :: pak_rp_obs => uze_rp_obs
procedure :: pak_bd_obs => uze_bd_obs
procedure :: pak_set_stressperiod => uze_set_stressperiod
procedure :: apt_chk_aux_area => uze_chk_aux_area
procedure :: apt_chk => uze_chk_aux_area
procedure :: bnd_ac => uze_ac
procedure :: bnd_mc => uze_mc
procedure :: get_mvr_depvar
Expand Down
12 changes: 6 additions & 6 deletions src/Model/TransportModel/tsp-apt.f90
Original file line number Diff line number Diff line change
Expand Up @@ -136,7 +136,7 @@ module TspAptModule
procedure :: bnd_reset => apt_reset
procedure :: bnd_fc => apt_fc
procedure, public :: apt_fc_expanded ! Made public for uze
procedure, public :: apt_chk_aux_area ! Made public for uze
procedure, public :: apt_chk ! Made public for uze
procedure :: pak_fc_expanded
procedure, private :: apt_fc_nonexpanded
procedure, public :: apt_cfupdate ! Made public for uze
Expand Down Expand Up @@ -384,9 +384,6 @@ subroutine apt_rp(this)
character(len=*), parameter :: fmtlsp = &
&"(1X,/1X,'REUSING ',A,'S FROM LAST STRESS PERIOD')"
!
! -- run aux area check (for uze)
call this%apt_chk_aux_area()
!
! -- set nbound to maxbound
this%nbound = this%maxbound
!
Expand Down Expand Up @@ -481,13 +478,16 @@ subroutine apt_rp(this)
igwfnode = this%flowbudptr%budterm(this%idxbudgwf)%id2(n)
this%nodelist(n) = igwfnode
end do
!
! -- run package-specific checks
call this%apt_chk()
end subroutine apt_rp

subroutine apt_chk_aux_area(this)
subroutine apt_chk(this)
! -- dummy
class(TspAptType), intent(inout) :: this
! function available for override by packages
end subroutine apt_chk_aux_area
end subroutine apt_chk

!> @brief Advanced package transport set stress period routine.
!!
Expand Down

0 comments on commit ef5fcdc

Please sign in to comment.