fixed a bug that led to a segfault when loading meltdist array

MintonGroup · Mar 28, 2023 · 5ab999c · 5ab999c
1 parent 144e7df
commit 5ab999c
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/io/io_read_regotrack.f90 b/src/io/io_read_regotrack.f90
@@ -118,6 +118,9 @@ subroutine io_read_regotrack(user,surf,domain)
 
    ! Start pushing regolith thickness and melt fraction of each layer in FILO manner
 
+   allocate(newsurfi%meltdist(domain%rcnum))
+   allocate(newsurfi%distvol(domain%rcnum))
+
    do j=1,user%gridsize
       do i=1,user%gridsize