From 9f641643700b3236622fa8c4f80c49d467fc52d1 Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Thu, 2 Mar 2023 14:16:45 -0500 Subject: [PATCH] moved all module variable updates to the end of regolith_Streamtube --- src/regolith/regolith_streamtube.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/regolith/regolith_streamtube.f90 b/src/regolith/regolith_streamtube.f90 index 2149d345..1619cbb7 100644 --- a/src/regolith/regolith_streamtube.f90 +++ b/src/regolith/regolith_streamtube.f90 @@ -270,8 +270,8 @@ subroutine regolith_streamtube(user,surf,crater,domain,ejb,ejtble,xp,yp,xpi,ypi, newlayer%thickness = ebh newlayer%comp = min(totmare/tots, 1.0_DP) newlayer%age(:) = newlayer%age(:) * min( (ebh * user%pix**2) / tots, 1.0_DP) - newlayer%meltvolume = newlayer%meltvolume + meltinejecta - newlayer%meltfrac = newlayer%meltvolume / totvol + !newlayer%meltvolume = newlayer%meltvolume + meltinejecta + !newlayer%meltfrac = newlayer%meltvolume / totvol !distvol(:) = distvol(:) + (newlayer%ejm*newlayer%meltdist(:)) !newlayer%distvol(:) = newlayer%distvol(:) + distvol(:) !newlayer%meltdist(:) = newlayer%distvol(:) / totvol