Fixed another bug that caused an exception in debug flags

MintonGroup · Feb 8, 2023 · 5ca8657 · 5ca8657
1 parent 881ce92
commit 5ca8657
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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