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