From 87674c1fee41d7ab5e490a2edc68c035760d9a86 Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Tue, 21 Feb 2023 15:00:28 -0500 Subject: [PATCH] fixed bug in melt sheet thickness calculation --- src/regolith/regolith_interior.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/regolith/regolith_interior.f90 b/src/regolith/regolith_interior.f90 index 5159086b..a3fd2d60 100644 --- a/src/regolith/regolith_interior.f90 +++ b/src/regolith/regolith_interior.f90 @@ -40,7 +40,7 @@ subroutine regolith_interior(user,surf,crater,domain,incval,nmeltsheet,vmeltshee !Executable code - hmeltsheet = vmeltsheet / (nmeltsheet*user%gridsize*user%gridsize) + hmeltsheet = vmeltsheet / (nmeltsheet*user%pix*user%pix) allocate(newlayer%meltdist(domain%rcnum)) inc = incval