removed an obsolete if statement

MintonGroup · Mar 2, 2023 · 88acd8e · 88acd8e
1 parent 0e0d060
commit 88acd8e
Showing 1 changed file with 0 additions and 7 deletions.
diff --git 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