addresses: MODFLOW-USGS#1306 (comment)

MODFLOW-USGS#1306 (comment)

src/Model/GroundWaterTransport/gwt1.f90

@@ -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)

src/Model/TransportModel/tsp1apt1.f90

@@ -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')

src/Model/TransportModel/tsp1cnc1.f90

@@ -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
@@ -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
@@ -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
@@ -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