From 3ec2d95e15fe6a5e16dc51d53ffa8a11fca5da26 Mon Sep 17 00:00:00 2001 From: huang474 Date: Tue, 24 Jan 2017 22:29:19 +0000 Subject: [PATCH] Updated regolith_melt_function.f90. --- src/regolith/regolith_melt_func.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/regolith/regolith_melt_func.f90 b/src/regolith/regolith_melt_func.f90 index 3cc1c430..85cf196e 100755 --- a/src/regolith/regolith_melt_func.f90 +++ b/src/regolith/regolith_melt_func.f90 @@ -75,5 +75,5 @@ function regolith_melt_func(r,depthb,erad) result(vol) else if (yints > ymax) then vol = vol0 + PI/6.0 * erad**3 * (1.0 - 4.0*xints/erad)**1.5 end if - + end function regolith_melt_func