From 5ab999cc8569044c6f99bbef2bb30132eee08a79 Mon Sep 17 00:00:00 2001
From: Austin Michael Blevins <blevins2@bell-b000.rcac.purdue.edu>
Date: Tue, 28 Mar 2023 13:04:44 -0400
Subject: [PATCH] fixed a bug that led to a segfault when loading meltdist
 array

---
 src/io/io_read_regotrack.f90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/io/io_read_regotrack.f90 b/src/io/io_read_regotrack.f90
index 9c358838..6401498b 100644
--- 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