Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
moved all module variable updates to the end of regolith_Streamtube
  • Loading branch information
Austin Blevins committed Mar 2, 2023
1 parent 88acd8e commit 9f64164
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/regolith/regolith_streamtube.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit 9f64164

Please sign in to comment.