Skip to content

Commit

Permalink
fix(PrtFmiType): accommodate 0s in nodelist (#2043)
Browse files Browse the repository at this point in the history
Temporary fix for #2042, pending a more complete solution for #2041 where ideally we can standardize treatment of array- and list-based input and avoid the special handling.
  • Loading branch information
wpbonelli authored Nov 3, 2024
1 parent 3be3c39 commit c88c436
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 0 deletions.
1 change: 1 addition & 0 deletions doc/ReleaseNotes/develop.tex
Original file line number Diff line number Diff line change
Expand Up @@ -45,6 +45,7 @@
\item The PRT model's particle release point (PRP) package's FRACTION period-block release time setting has been removed. Period-block release settings can now be used only to release particles at the beginning of specified time steps, as is the case for period-block timing settings in the output control (OC) packages for all models. For fine control over release timing, specify times explicitly using the RELEASETIMES block.
\item The Stress Package Concentration (SPC) utility available with the SSM Package is now the referred to as the Stress Package Component utility in the MF6IO guide. Additionally, some relatively minor refactoring of the code facilitates use of the SPC utility with the GWE model type so that TEMPERATURE arrays may be read by the utility. The SPC acronym was maintained to preserve backward compatibility.
\item The GWF-GWF Exchange has been fixed to support the configuration of the Mover package (MVR) also in cases where the number of exchanges equals zero (NEXG = 0). In earlier versions this has caused MODFLOW to terminate with an error.
\item A PRT bug was fixed in which array-based input read from the RCH (recharge) or EVT (evapotranspiration) packages could fail to be processed correctly by the PRT FMI (flow model interface) package, causing a crash.

\end{itemize}

Expand Down
1 change: 1 addition & 0 deletions src/Model/ParticleTracking/prt-fmi.f90
Original file line number Diff line number Diff line change
Expand Up @@ -191,6 +191,7 @@ subroutine accumulate_flows(this)
end if
do ib = 1, this%gwfpackages(ip)%nbound
i = this%gwfpackages(ip)%nodelist(ib)
if (i <= 0) cycle
if (this%ibound(i) <= 0) cycle
qbnd = this%gwfpackages(ip)%get_flow(ib)
! todo, after initial release: default iflowface values for different packages
Expand Down

0 comments on commit c88c436

Please sign in to comment.