Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
  • Loading branch information
emorway-usgs committed Aug 15, 2023
1 parent f3395be commit d8796b4
Show file tree
Hide file tree
Showing 3 changed files with 3 additions and 8 deletions.
2 changes: 1 addition & 1 deletion src/Model/GroundWaterTransport/gwt1.f90
Original file line number Diff line number Diff line change
Expand Up @@ -771,7 +771,7 @@ subroutine package_create(this, filtyp, ipakid, ipaknum, pakname, inunit, &
select case (filtyp)
case ('CNC6')
call cnc_create(packobj, ipakid, ipaknum, inunit, iout, this%name, &
pakname, this%eqnsclfac, dvt)
pakname, dvt)
case ('SRC6')
call src_create(packobj, ipakid, ipaknum, inunit, iout, this%name, &
pakname, dvt)
Expand Down
2 changes: 1 addition & 1 deletion src/Model/TransportModel/tsp1apt1.f90
Original file line number Diff line number Diff line change
Expand Up @@ -2864,7 +2864,7 @@ subroutine apt_rp_obs(this)
' must be assigned to a feature with a unique boundname.'
call store_error(errmsg)
end if
case ('LKT', 'SFT', 'MWT', 'UZT', 'UZE', 'LKE', 'SFE')
case ('LKT', 'SFT', 'MWT', 'UZT', 'LKE', 'SFE', 'MWE', 'UZE')
call this%rp_obs_budterm(obsrv, &
this%flowbudptr%budterm(this%idxbudgwf))
case ('FLOW-JA-FACE')
Expand Down
7 changes: 1 addition & 6 deletions src/Model/TransportModel/tsp1cnc1.f90
Original file line number Diff line number Diff line change
Expand Up @@ -25,7 +25,6 @@ module TspCncModule

real(DP), dimension(:), pointer, contiguous :: ratecncin => null() !simulated flows into constant conc (excluding other concs)
real(DP), dimension(:), pointer, contiguous :: ratecncout => null() !simulated flows out of constant conc (excluding to other concs)
real(DP), pointer :: eqnsclfac => null() !< governing equation scale factor; =1. for solute; =rhow*cpw for energy
character(len=LENVARNAME) :: depvartype = '' !< stores string of dependent variable type, depending on model type

contains
Expand Down Expand Up @@ -54,7 +53,7 @@ module TspCncModule
!! Routine points packobj to the newly created package
!<
subroutine cnc_create(packobj, id, ibcnum, inunit, iout, namemodel, pakname, &
eqnsclfac, depvartype, gwecommon)
depvartype, gwecommon)
! -- dummy
class(BndType), pointer :: packobj
integer(I4B), intent(in) :: id
Expand All @@ -63,7 +62,6 @@ subroutine cnc_create(packobj, id, ibcnum, inunit, iout, namemodel, pakname, &
integer(I4B), intent(in) :: iout
character(len=*), intent(in) :: namemodel
character(len=*), intent(in) :: pakname
real(DP), intent(in), pointer :: eqnsclfac !< governing equation scale factor
character(len=LENVARNAME), intent(in) :: depvartype
type(GweInputDataType), intent(in), target, optional :: gwecommon !< shared data container for use by multiple GWE packages
! -- local
Expand Down Expand Up @@ -95,9 +93,6 @@ subroutine cnc_create(packobj, id, ibcnum, inunit, iout, namemodel, pakname, &
! -- Store the appropriate label based on the dependent variable
cncobj%depvartype = depvartype
!
! -- Give access to governing equation scale factor
cncobj%eqnsclfac => eqnsclfac
!
! -- Give package access to the shared heat transport variables assigned in MST
if (present(gwecommon)) then
cncobj%gwecommon => gwecommon
Expand Down

0 comments on commit d8796b4

Please sign in to comment.