From 88acd8e487f4797fa8c6b5d156f4d806645e9494 Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Thu, 2 Mar 2023 14:14:39 -0500 Subject: [PATCH] removed an obsolete if statement --- src/regolith/regolith_streamtube.f90 | 7 ------- 1 file changed, 7 deletions(-) diff --git a/src/regolith/regolith_streamtube.f90 b/src/regolith/regolith_streamtube.f90 index cad62073..2149d345 100644 --- a/src/regolith/regolith_streamtube.f90 +++ b/src/regolith/regolith_streamtube.f90 @@ -323,13 +323,6 @@ subroutine regolith_streamtube(user,surf,crater,domain,ejb,ejtble,xp,yp,xpi,ypi, newlayer%comp = min(totmare/tots, 1.0_DP) newlayer%age(:) = newlayer%age(:) + age_collector(:) newlayer%age(:) = newlayer%age(:) * min( (ebh * user%pix**2) / tots, 1.0_DP) - if (newlayer%ejmf < 1.0_DP) then - 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 - end if ! if (newlayer%meltfrac > 1.0_DP) then ! write(*,*) "Melt fraction >1! (Traverse)", xpi,ypi,crater%timestamp,crater%fcrat,crater%xlpx,crater%ylpx,& ! newlayer%meltvolume, newlayer%totvolume, newlayer%ejm, newlayer%ejmf, totvol