Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
  • Loading branch information
emorway-usgs committed Sep 14, 2023
1 parent 0885d29 commit bf4ccdd
Show file tree
Hide file tree
Showing 2 changed files with 1 addition and 17 deletions.
2 changes: 1 addition & 1 deletion src/Model/Connection/GwtInterfaceModel.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down
16 changes: 0 additions & 16 deletions src/Model/TransportModel/tsp1apt1.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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))
Expand Down

0 comments on commit bf4ccdd

Please sign in to comment.