Fixed a bug with how meltdist arrays were read in

MintonGroup · Apr 3, 2023 · aeba3a3 · aeba3a3
1 parent fc85fda
commit aeba3a3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/io/io_read_regotrack.f90 b/src/io/io_read_regotrack.f90
@@ -209,8 +209,8 @@ subroutine io_read_regotrack(user,surf,domain)
                newsurfi%age(q) = agei(MAXAGEBINS*k-(MAXAGEBINS-q))
             end do
             do q=1,domain%rcnum
-               newsurfi%meltdist(q) = dfi(q*k)
-               newsurfi%distvol(q) = mdi(q*k) !these two could be wrong based on the way the file is read; need to check
+               newsurfi%meltdist(q) = meltdist(q,k)
+               newsurfi%distvol(q) = distvol(q,k)
             end do
             call util_push_array(surf(i,j)%regolayer,newsurfi)
          end do