fixed a bug (CTEM shouldn't have even compiled here but somehow it did)

MintonGroup · Feb 22, 2023 · 3c04ce4 · 3c04ce4
1 parent bbdd706
commit 3c04ce4
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
@@ -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.