From 9330d59c37dcc85c3881fc887a7098a57d625108 Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Wed, 1 Mar 2023 11:03:08 -0500 Subject: [PATCH] fixed initation bug --- src/init/init_regolith_stack.f90 | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/init/init_regolith_stack.f90 b/src/init/init_regolith_stack.f90 index 3e2bf460..dec62ad0 100644 --- a/src/init/init_regolith_stack.f90 +++ b/src/init/init_regolith_stack.f90 @@ -49,6 +49,10 @@ subroutine init_regolith_stack(user,surf,domain) allocate(bedrock%distvol(domain%rcnum)) bedrock%meltdist(:) = 0.0_SP bedrock%distvol(:) = 0.0_SP + bedrock%meltvolume = 0.0_DP + bedrock%totvolume = 0.0_DP + bedrock%ejm = 0.0_DP + bedrock%ejmf = 0.0_DP do yp = 1, user%gridsize do xp = 1, user%gridsize