Skip to content

Commit

Permalink
Undoing change associated with 7e8644d which was in response to #1306…
Browse files Browse the repository at this point in the history
  • Loading branch information
emorway-usgs committed Aug 21, 2023
1 parent 7e8644d commit df5ea45
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions src/Model/GroundWaterTransport/gwt1.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -967,6 +967,6 @@ subroutine create_packages(this, indis)
!
! -- Return
return
end subroutine create_packages
end subroutine create_gwt_packages

end module GwtModule

0 comments on commit df5ea45

Please sign in to comment.