fixes MODFLOW-USGS#1306 (comment)

emorway-usgs · Aug 17, 2023 · 14515c3 · 14515c3
1 parent bb92222
commit 14515c3
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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)