fixed totvol bug

MintonGroup · Mar 2, 2023 · 0e0d060 · 0e0d060
1 parent 6766f77
commit 0e0d060
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/regolith/regolith_streamtube_head.f90 b/src/regolith/regolith_streamtube_head.f90
@@ -84,7 +84,7 @@ subroutine regolith_streamtube_head(user,surfi,deltar,totmare,tots,age_collector
             headmeltvol = current(N)%meltfrac * tothead! * recyratio
             meltinejecta = meltinejecta + headmeltvol
             distvol(:) = distvol(:) + (current(N)%meltdist(:)*(vhead*vratio))!*recyratio)
-            !totvol = totvol + tothead
+            totvol = totvol + tothead
             !current => current%next
             !N = N - 1
             z = z + current(N-1)%thickness