fixed initation bug

MintonGroup · Mar 1, 2023 · 9330d59 · 9330d59
1 parent 7bbafda
commit 9330d59
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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