diff --git a/src/Model/GroundWaterTransport/gwt1cnc1.f90 b/src/Model/GroundWaterTransport/gwt1cnc1.f90 index aa94d6b1f7b..c295fdf2723 100644 --- a/src/Model/GroundWaterTransport/gwt1cnc1.f90 +++ b/src/Model/GroundWaterTransport/gwt1cnc1.f90 @@ -66,7 +66,6 @@ subroutine cnc_create(packobj, id, ibcnum, inunit, iout, namemodel, pakname, & character(len=*), intent(in) :: mempath ! -- local type(GwtCncType), pointer :: cncobj - character(len=LENPACKAGENAME) :: text ! ! -- allocate the object and assign values to object variables allocate (cncobj)