From aeba3a3f6e8adf67faca6a955b5347d8943ae601 Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Mon, 3 Apr 2023 14:32:54 -0400 Subject: [PATCH] Fixed a bug with how meltdist arrays were read in --- src/io/io_read_regotrack.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/io/io_read_regotrack.f90 b/src/io/io_read_regotrack.f90 index fc517712..95f2c04d 100644 --- 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