release input context memory from config blocks

Author: mjreno

make/makefile

@@ -415,6 +415,8 @@ $(OBJDIR)/HGeoUtil.o \
 $(OBJDIR)/gwf-vsc.o \
 $(OBJDIR)/GwfNpfOptions.o \
 $(OBJDIR)/GwfConductanceUtils.o \
+$(OBJDIR)/VirtualBase.o \
+$(OBJDIR)/STLVecInt.o \
 $(OBJDIR)/ParticleTracks.o \
 $(OBJDIR)/ParticleReleaseSchedule.o \
 $(OBJDIR)/MethodModel.o \
@@ -450,6 +452,11 @@ $(OBJDIR)/ImsLinearMisc.o \
 $(OBJDIR)/gwf-npf.o \
 $(OBJDIR)/GwfBuyInputData.o \
 $(OBJDIR)/GweCndOptions.o \
+$(OBJDIR)/VirtualDataLists.o \
+$(OBJDIR)/VirtualDataContainer.o \
+$(OBJDIR)/SimStages.o \
+$(OBJDIR)/IndexMap.o \
+$(OBJDIR)/ArrayReaderBase.o \
 $(OBJDIR)/prt-prp.o \
 $(OBJDIR)/prt-oc.o \
 $(OBJDIR)/prt-mip.o \
@@ -486,29 +493,20 @@ $(OBJDIR)/gwe-est.o \
 $(OBJDIR)/gwe-esl.o \
 $(OBJDIR)/gwe-ctp.o \
 $(OBJDIR)/gwe-cnd.o \
-$(OBJDIR)/VirtualBase.o \
-$(OBJDIR)/STLVecInt.o \
-$(OBJDIR)/prt.o \
-$(OBJDIR)/olf.o \
-$(OBJDIR)/gwt.o \
-$(OBJDIR)/gwf.o \
-$(OBJDIR)/gwe.o \
-$(OBJDIR)/chf.o \
-$(OBJDIR)/VirtualDataLists.o \
-$(OBJDIR)/VirtualDataContainer.o \
-$(OBJDIR)/SimStages.o \
-$(OBJDIR)/IndexMap.o \
-$(OBJDIR)/ArrayReaderBase.o \
-$(OBJDIR)/ModelPackageInput.o \
 $(OBJDIR)/VirtualModel.o \
 $(OBJDIR)/BaseExchange.o \
 $(OBJDIR)/InterfaceMap.o \
 $(OBJDIR)/SeqVector.o \
 $(OBJDIR)/ImsLinearSettings.o \
 $(OBJDIR)/ConvergenceSummary.o \
 $(OBJDIR)/Integer2dReader.o \
+$(OBJDIR)/prt.o \
+$(OBJDIR)/olf.o \
+$(OBJDIR)/gwt.o \
+$(OBJDIR)/gwf.o \
+$(OBJDIR)/gwe.o \
+$(OBJDIR)/chf.o \
 $(OBJDIR)/ModflowInput.o \
-$(OBJDIR)/ModelPackageInputs.o \
 $(OBJDIR)/DefinitionSelect.o \
 $(OBJDIR)/CellWithNbrs.o \
 $(OBJDIR)/NumericalExchange.o \
@@ -522,6 +520,7 @@ $(OBJDIR)/NCFileVars.o \
 $(OBJDIR)/Integer1dReader.o \
 $(OBJDIR)/Double2dReader.o \
 $(OBJDIR)/Double1dReader.o \
+$(OBJDIR)/ModelPackageInput.o \
 $(OBJDIR)/LoadContext.o \
 $(OBJDIR)/VirtualExchange.o \
 $(OBJDIR)/GridSorting.o \
@@ -588,6 +587,7 @@ $(OBJDIR)/DistributedSim.o \
 $(OBJDIR)/exg-chfgwf.o \
 $(OBJDIR)/RunControl.o \
 $(OBJDIR)/SourceLoad.o \
+$(OBJDIR)/ModelPackageInputs.o \
 $(OBJDIR)/SimulationCreate.o \
 $(OBJDIR)/RunControlFactory.o \
 $(OBJDIR)/IdmLoad.o \

src/Model/GroundWaterFlow/gwf-maw.f90

@@ -28,7 +28,7 @@ module MawModule
   use SimVariablesModule, only: errmsg, warnmsg
   use MemoryManagerModule, only: mem_allocate, mem_reallocate, mem_setptr, &
                                  mem_deallocate, get_isize
-  use MemoryManagerExtModule, only: mem_set_value
+  use MemoryManagerExtModule, only: mem_set_value, memorystore_release
   use MemoryHelperModule, only: create_mem_path
   use CharacterStringModule, only: CharacterStringType
   use OpenSpecModule, only: access, form
@@ -50,7 +50,7 @@ module MawModule
   !> @brief input context data pointers for MAW.
   !!
   !! Holds persistent pointers to input context arrays used at
-  !! runtime. TS arrays are managed transparently by IDM.
+  !! runtime.
   !<
   type :: MawInputContextType
     ! -- packagedata
@@ -947,6 +947,14 @@ subroutine maw_source_packagedata(this)
       end do
       this%iaconn(n + 1) = idx + 1
     end do
+    !
+    ! -- release input context packagedata memory; PACKAGEDATA_IFNO excluded
+    !    because allocate_featureauxvar retains a pointer to it
+    call memorystore_release('RADIUS', this%input_mempath)
+    call memorystore_release('BOTTOM', this%input_mempath)
+    call memorystore_release('CONDEQN', this%input_mempath)
+    call memorystore_release('NGWFNODES', this%input_mempath)
+    call memorystore_release('BOUNDNAME', this%input_mempath)
   end subroutine maw_source_packagedata
 
   !> @brief Source CONNECTIONDATA block from input context
@@ -1171,6 +1179,15 @@ subroutine maw_source_connectiondata(this)
     if (count_errors() > 0) then
       call store_error_filename(this%input_fname)
     end if
+    !
+    ! -- release input context connectiondata memory
+    call memorystore_release('CONNDATA_IFNO', this%input_mempath)
+    call memorystore_release('ICON', this%input_mempath)
+    call memorystore_release('CELLID', this%input_mempath)
+    call memorystore_release('SCRN_TOP', this%input_mempath)
+    call memorystore_release('SCRN_BOT', this%input_mempath)
+    call memorystore_release('HK_SKIN', this%input_mempath)
+    call memorystore_release('RADIUS_SKIN', this%input_mempath)
   end subroutine maw_source_connectiondata
 
   !> @brief Read the initial parameters for this package