From 3c04ce4509a835b0520d19f35b93c1062e39ae2a Mon Sep 17 00:00:00 2001
From: Austin Blevins <blevinsaustinm@gmail.com>
Date: Wed, 22 Feb 2023 14:54:05 -0500
Subject: [PATCH] fixed a bug (CTEM shouldn't have even compiled here but
 somehow it did)

---
 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 24137c2f..2c690378 100644
--- a/src/regolith/regolith_streamtube_lineseg.f90
+++ b/src/regolith/regolith_streamtube_lineseg.f90
@@ -66,7 +66,7 @@ subroutine regolith_streamtube_lineseg(user,surfi,thetast,ri,rip1,zmin,zmax,erad
 
    vol = 0.0_DP
 
-   do N=N,2,-1
+   do N=M,2,-1
 
        !if (.not. associated(current%next)) exit !it should exit until it hit the very bottom.