Skip to content

Commit

Permalink
Updated regolith_melt_function.f90.
Browse files Browse the repository at this point in the history
  • Loading branch information
huang474 committed Jan 24, 2017
1 parent 8bd7c3d commit 3ec2d95
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/regolith/regolith_melt_func.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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

0 comments on commit 3ec2d95

Please sign in to comment.