From 1b2d5dd57617f78ffbed358ea2c7cc3869f0a3b6 Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Tue, 24 Jan 2023 16:09:36 -0500 Subject: [PATCH] Fixed a bug --- src/regolith/regolith_streamtube.f90 | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/regolith/regolith_streamtube.f90 b/src/regolith/regolith_streamtube.f90 index a3fcb57d..e5e51af0 100644 --- a/src/regolith/regolith_streamtube.f90 +++ b/src/regolith/regolith_streamtube.f90 @@ -115,9 +115,6 @@ subroutine regolith_streamtube(user,surf,crater,domain,ejb,ejtble,xp,yp,xpi,ypi, real(SP),dimension(MAXAGEBINS) :: age_collector integer(I2B) :: n_age - !test - real(DP) :: mf - ! Executalbe code ! ****** Interpolate radial distance, erad, for a given pixel ******* @@ -133,7 +130,6 @@ subroutine regolith_streamtube(user,surf,crater,domain,ejb,ejtble,xp,yp,xpi,ypi, k = max(min(1 + int((log(lrad) - log(inneredge)) / (log(outeredge) - log(inneredge)) * (EJBTABSIZE - 1.0_DP)),ejtble),1) loglrad = log(lrad) logtablerad = ejb(k)%lrad - mf = ejb(k)%meltfrac !from stable-1.4 ! inneredge = crater%rad @@ -312,7 +308,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) - newlayer%meltfrac = mf end if