address errors

geohackweek · Nov 2, 2023 · c78147f · c78147f
1 parent feece58
commit c78147f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/src/Model/GroundWaterTransport/gwt1.f90 b/src/Model/GroundWaterTransport/gwt1.f90
@@ -788,7 +788,7 @@ subroutine package_create(this, filtyp, ipakid, ipaknum, pakname, mempath, &
     select case (filtyp)
     case ('CNC6')
       call cnc_create(packobj, ipakid, ipaknum, inunit, iout, this%name, &
-                      pakname, dvt, filtyp, mempath)
+                      pakname, dvt, mempath)
     case ('SRC6')
       call src_create(packobj, ipakid, ipaknum, inunit, iout, this%name, pakname)
     case ('LKT6')

diff --git a/src/Model/GroundWaterTransport/gwt1cnc1.f90 b/src/Model/GroundWaterTransport/gwt1cnc1.f90
@@ -53,7 +53,7 @@ module GwtCncModule
   !! Routine points packobj to the newly created package
   !<
   subroutine cnc_create(packobj, id, ibcnum, inunit, iout, namemodel, pakname, &
-                        depvartype, ftype, mempath)
+                        depvartype, mempath)
     ! -- dummy
     class(BndType), pointer :: packobj
     integer(I4B), intent(in) :: id
@@ -63,7 +63,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
-    character(len=LENFTYPE), intent(in) :: ftype
     character(len=*), intent(in) :: mempath
     ! -- local
     type(GwtCncType), pointer :: cncobj
@@ -75,7 +74,6 @@ subroutine cnc_create(packobj, id, ibcnum, inunit, iout, namemodel, pakname, &
     !
     ! -- create name and memory path
     call packobj%set_names(ibcnum, namemodel, pakname, ftype, mempath)
-    text = str_pad_left(ftype(1:3), LENPACKAGENAME)
     packobj%text = text
     !
     ! -- allocate scalars