From 52c5bbd7743f1f524d743f44acc2b78a800c89c0 Mon Sep 17 00:00:00 2001 From: Eric Morway Date: Wed, 31 Jul 2024 16:22:47 -0700 Subject: [PATCH] fix(gwf-uzf): write msg to listing file when UZF finishes processing PACKAGEDATA block (#1972) * fix(gwf-uzf): write msg to listing file when UZF finishes processing PACKAGEDATA block * Update doc/ReleaseNotes/develop.tex Co-authored-by: langevin-usgs --------- Co-authored-by: langevin-usgs --- doc/ReleaseNotes/develop.tex | 1 + src/Model/GroundWaterFlow/gwf-uzf.f90 | 2 ++ 2 files changed, 3 insertions(+) diff --git a/doc/ReleaseNotes/develop.tex b/doc/ReleaseNotes/develop.tex index cd9b30ffbbc..141f0f283cb 100644 --- a/doc/ReleaseNotes/develop.tex +++ b/doc/ReleaseNotes/develop.tex @@ -34,6 +34,7 @@ \item Add a warning if saving convergence data for the CSUB package when delay beds are not included in a simulation. Also modified the convergence output data so that it is clear that DVMAX and DSTORAGEMAX data and locations are not calculated in this case (by writing `-\,-' to the output file). \item When using SFT in a model where some of the stream reaches are not connected to an active GWF cell (the cellid parameter is set equal to either 0 or NONE) memory access violations were occurring. The program was fixed by setting the correct number of reaches connected to GWF cells. The program was tested using a new example with a DISU grid type and multiple GWF cells deactivated (idomain equals 0) that host SFR reaches. \item Support for temperature observations was missing in the Observation (OBS) utility for a GWE model and has been added. + \item UZF was not writing a message to the GWF listing file when it had finished reading the PACKAGEDATA block. An appropriate message is now written to the GWF listing file. % \item xxx \end{itemize} diff --git a/src/Model/GroundWaterFlow/gwf-uzf.f90 b/src/Model/GroundWaterFlow/gwf-uzf.f90 index c6149f603c1..38796164a4e 100644 --- a/src/Model/GroundWaterFlow/gwf-uzf.f90 +++ b/src/Model/GroundWaterFlow/gwf-uzf.f90 @@ -2045,6 +2045,8 @@ subroutine read_cell_properties(this) end if ! end do + write (this%iout, '(1x,3a)') & + 'END OF ', trim(adjustl(this%text)), ' PACKAGEDATA' else call store_error('Required packagedata block not found.') end if