Addresses: MODFLOW-USGS#1306 (comment)

MODFLOW-USGS#1306 (comment)
MODFLOW-USGS#1306 (comment)

src/Model/TransportModel/tsp1cnc1.f90

@@ -21,8 +21,6 @@ module TspCncModule
   !
   type, extends(BndType) :: TspCncType
 
-    type(GweInputDataType), pointer :: gwecommon => null() !< pointer to shared gwe data used by multiple packages but set in mst
-
     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)
     character(len=LENVARNAME) :: depvartype = '' !< stores string of dependent variable type, depending on model type
@@ -53,7 +51,7 @@ module TspCncModule
   !! Routine points packobj to the newly created package
   !<
   subroutine cnc_create(packobj, id, ibcnum, inunit, iout, namemodel, pakname, &
-                        depvartype, gwecommon)
+                        depvartype)
     ! -- dummy
     class(BndType), pointer :: packobj
     integer(I4B), intent(in) :: id
@@ -63,7 +61,6 @@ subroutine cnc_create(packobj, id, ibcnum, inunit, iout, namemodel, pakname, &
     character(len=*), intent(in) :: namemodel
     character(len=*), intent(in) :: pakname
     character(len=LENVARNAME), intent(in) :: depvartype
-    type(GweInputDataType), intent(in), target, optional :: gwecommon !< shared data container for use by multiple GWE packages
     ! -- local
     type(TspCncType), pointer :: cncobj
 ! ------------------------------------------------------------------------------
@@ -93,11 +90,6 @@ subroutine cnc_create(packobj, id, ibcnum, inunit, iout, namemodel, pakname, &
     ! -- Store the appropriate label based on the dependent variable
     cncobj%depvartype = depvartype
     !
-    ! -- Give package access to the shared heat transport variables assigned in MST
-    if (present(gwecommon)) then
-      cncobj%gwecommon => gwecommon
-    end if
-    !
     ! -- Return
     return
   end subroutine cnc_create
@@ -389,9 +381,6 @@ subroutine cnc_da(this)
     call mem_deallocate(this%ratecncin)
     call mem_deallocate(this%ratecncout)
     !
-    ! -- pointers
-    nullify (this%gwecommon)
-    !
     ! -- Return
     return
   end subroutine cnc_da

src/Model/TransportModel/tsp1ssm1.f90

@@ -36,8 +36,6 @@ module TspSsmModule
   !<
   type, extends(NumericalPackageType) :: TspSsmType
 
-    type(GweInputDataType), pointer :: gwecommon => null() !< pointer to shared gwe data used by multiple packages but set in mst
-
     integer(I4B), pointer :: nbound !< total number of flow boundaries in this time step
     integer(I4B), dimension(:), pointer, contiguous :: isrctype => null() !< source type 0 is unspecified, 1 is aux, 2 is auxmixed, 3 is ssmi, 4 is ssmimixed
     integer(I4B), dimension(:), pointer, contiguous :: iauxpak => null() !< aux col for concentration
@@ -84,7 +82,7 @@ module TspSsmModule
   !!  and initializing the parser.
   !<
   subroutine ssm_cr(ssmobj, name_model, inunit, iout, fmi, eqnsclfac, &
-                    depvartype, gwecommon)
+                    depvartype)
     ! -- dummy
     type(TspSsmType), pointer :: ssmobj !< TspSsmType object
     character(len=*), intent(in) :: name_model !< name of the model
@@ -93,7 +91,6 @@ subroutine ssm_cr(ssmobj, name_model, inunit, iout, fmi, eqnsclfac, &
     type(TspFmiType), intent(in), target :: fmi !< Transport FMI package
     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
     !
     ! -- Create the object
     allocate (ssmobj)
@@ -117,11 +114,6 @@ subroutine ssm_cr(ssmobj, name_model, inunit, iout, fmi, eqnsclfac, &
     !    package has access to the corresponding dependent variable type
     ssmobj%depvartype = depvartype
     !
-    ! -- Give package access to the shared heat transport variables assigned in MST
-    if (present(gwecommon)) then
-      ssmobj%gwecommon => gwecommon
-    end if
-    !
     ! -- Return
     return
   end subroutine ssm_cr
@@ -728,9 +720,6 @@ subroutine ssm_da(this)
     ! -- Scalars
     call mem_deallocate(this%nbound)
     !
-    ! -- Pointers
-    nullify (this%gwecommon)
-    !
     ! -- deallocate parent
     call this%NumericalPackageType%da()
     !