Remove gwe-related code from generalized transport code (tsp1.f90 & t…

…sp1ssm1.f90)

src/Model/TransportModel/tsp1.f90

@@ -20,7 +20,6 @@ module TransportModelModule
   use TspOcModule, only: TspOcType
   use TspObsModule, only: TspObsType
   use BudgetModule, only: BudgetType
-  use GweInputDataModule, only: GweInputDataType
   use MatrixBaseModule
 
   implicit none

src/Model/TransportModel/tsp1ssm1.f90

@@ -46,7 +46,6 @@ module TspSsmModule
     type(GwtSpcType), dimension(:), pointer :: ssmivec => null() !< array of stress package concentration objects
     real(DP), pointer :: eqnsclfac => null() !< governing equation scale factor; =1. for solute; =rhow*cpw for energy
     character(len=LENVARNAME) :: depvartype = ''
-    type(GweInputDataType), pointer :: gwecommon => null() !< pointer to shared gwe data used by multiple packages but set in mst
 
   contains
 
@@ -81,7 +80,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
@@ -90,7 +89,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 !< dependent variable type ('concentration' or 'temperature')
-    type(GweInputDataType), intent(in), target, optional :: gwecommon !< shared data container for use by multiple GWE packages
     !
     ! -- Create the object
     allocate (ssmobj)
@@ -114,11 +112,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
@@ -726,9 +719,6 @@ subroutine ssm_da(this)
     ! -- Scalars
     call mem_deallocate(this%nbound)
     !
-    ! -- Pointers
-    nullify (this%gwecommon)
-    !
     ! -- deallocate parent
     call this%NumericalPackageType%da()
     !