From 14515c33d25ed5728fb5cc9e7c4182c8a4cb9f1b Mon Sep 17 00:00:00 2001 From: Eric Morway Date: Wed, 9 Aug 2023 09:55:25 -0700 Subject: [PATCH] fixes https://github.com/MODFLOW-USGS/modflow6/pull/1306#discussion_r1272200617 --- src/Model/GroundWaterTransport/gwt1.f90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Model/GroundWaterTransport/gwt1.f90 b/src/Model/GroundWaterTransport/gwt1.f90 index 6c568230fb4..0effe3a8e15 100644 --- a/src/Model/GroundWaterTransport/gwt1.f90 +++ b/src/Model/GroundWaterTransport/gwt1.f90 @@ -93,7 +93,6 @@ subroutine gwt_cr(filename, id, modelname) ! -- Set memory path before allocation in memory manager can be done this%memoryPath = create_mem_path(modelname) ! - call this%allocate_tsp_scalars(modelname) call this%allocate_gwt_scalars(modelname) model => this call AddBaseModelToList(basemodellist, model) @@ -719,6 +718,9 @@ subroutine allocate_gwt_scalars(this, modelname) class(GwtModelType) :: this character(len=*), intent(in) :: modelname ! ------------------------------------------------------------------------------ + ! + ! -- allocate parent class scalars + call this%allocate_tsp_scalars(modelname) ! ! -- allocate additional members specific to GWT model type call mem_allocate(this%inmst, 'INMST', this%memoryPath)