diff --git a/src/Model/GroundWaterTransport/gwt1.f90 b/src/Model/GroundWaterTransport/gwt1.f90 index 2f795511ad6..89a4ed846a8 100644 --- a/src/Model/GroundWaterTransport/gwt1.f90 +++ b/src/Model/GroundWaterTransport/gwt1.f90 @@ -58,7 +58,7 @@ module GwtModule procedure :: allocate_scalars procedure, private :: package_create procedure :: get_iasym => gwt_get_iasym - procedure, private :: create_packages + procedure, private :: create_gwt_packages procedure, private :: create_bndpkgs end type GwtModelType @@ -108,7 +108,7 @@ subroutine gwt_cr(filename, id, modelname) call this%tsp_cr(filename, id, modelname, 'GWT', indis) ! ! -- Create model packages - call this%create_packages(indis) + call this%create_gwt_packages(indis) ! ! -- Return return @@ -891,7 +891,7 @@ end subroutine create_bndpkgs !> @brief Source package info and begin to process !< - subroutine create_packages(this, indis) + subroutine create_gwt_packages(this, indis) ! -- modules use ConstantsModule, only: LINELENGTH, LENPACKAGENAME use CharacterStringModule, only: CharacterStringType @@ -967,6 +967,6 @@ subroutine create_packages(this, indis) ! ! -- Return return - end subroutine create_packages + end subroutine create_gwt_packages end module GwtModule