diff --git a/src/Model/Connection/GwtInterfaceModel.f90 b/src/Model/Connection/GwtInterfaceModel.f90 index ff2bb3e4d56..80e5d2c9b25 100644 --- a/src/Model/Connection/GwtInterfaceModel.f90 +++ b/src/Model/Connection/GwtInterfaceModel.f90 @@ -97,7 +97,7 @@ subroutine allocate_scalars(this, modelname) class(GwtInterfaceModelType) :: this !< the GWT interface model character(len=*), intent(in) :: modelname !< the model name - call this%GwtModelType%allocate_gwt_scalars(modelname) + call this%GwtModelType%allocate_scalars(modelname) call mem_allocate(this%iAdvScheme, 'ADVSCHEME', this%memoryPath) call mem_allocate(this%ixt3d, 'IXT3D', this%memoryPath) diff --git a/src/Model/TransportModel/tsp1apt1.f90 b/src/Model/TransportModel/tsp1apt1.f90 index 4af6eae0137..ef7a13a0045 100644 --- a/src/Model/TransportModel/tsp1apt1.f90 +++ b/src/Model/TransportModel/tsp1apt1.f90 @@ -1650,22 +1650,6 @@ subroutine apt_read_cvs(this) ! -- strt this%strt(n) = this%parser%GetDouble() ! - ! -- if GWE model, read additional thermal conductivity terms - if (tsptype == 'GWE') then - ! skip for UZE - if (trim(adjustl(this%text)) /= 'UZE') then - this%ktf(n) = this%parser%GetDouble() - this%rfeatthk(n) = this%parser%GetDouble() - if (this%rfeatthk(n) <= DZERO) then - write (errmsg, '(4x,a)') & - '****ERROR. Specified thickness used for thermal & - &conduction MUST BE > 0 else divide by zero error occurs' - call store_error(errmsg) - cycle - end if - end if - end if - ! ! -- get aux data do iaux = 1, this%naux call this%parser%GetString(caux(iaux))