From 0e0d0604256fa09f17e443e6ad99092bf60baf50 Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Thu, 2 Mar 2023 13:52:27 -0500 Subject: [PATCH] fixed totvol bug --- src/regolith/regolith_streamtube_head.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/regolith/regolith_streamtube_head.f90 b/src/regolith/regolith_streamtube_head.f90 index 730ea1ef..03daf09b 100644 --- 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