From 5ca8657c81355e2f8df0b8829277af283d33a8d1 Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Wed, 8 Feb 2023 14:31:06 -0500 Subject: [PATCH] Fixed another bug that caused an exception in debug flags --- src/regolith/regolith_streamtube_lineseg.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/regolith/regolith_streamtube_lineseg.f90 b/src/regolith/regolith_streamtube_lineseg.f90 index 70e648aa..d2dbf577 100644 --- a/src/regolith/regolith_streamtube_lineseg.f90 +++ b/src/regolith/regolith_streamtube_lineseg.f90 @@ -169,7 +169,7 @@ subroutine regolith_streamtube_lineseg(user,surfi,thetast,ri,rip1,zmin,zmax,erad vsgly = regolith_streamtube_volume_func(eradi,ri,rip1,deltar) vmare = vmare + (vsgly - totseb) * current(N)%comp totseb = vsgly - linmelt = current(N)%meltfrac * vsgly * recyratio + linmelt = current(N)%meltfrac * vsgly meltinejecta = meltinejecta + linmelt totvol = totvol + vsgly exit