From fc85fda87bc3a2e79f1ca73f84ed19c29182c87b Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Thu, 30 Mar 2023 13:31:15 -0400 Subject: [PATCH] files load without segfaulting --- src/io/io_read_regotrack.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/io/io_read_regotrack.f90 b/src/io/io_read_regotrack.f90 index 54d786e8..fc517712 100644 --- a/src/io/io_read_regotrack.f90 +++ b/src/io/io_read_regotrack.f90 @@ -179,17 +179,17 @@ subroutine io_read_regotrack(user,surf,domain) ! agei(MAXAGEBINS*k - (MAXAGEBINS-q)) = age(i,j,q) ! end do - regotopi(k) = regotop(k) + regotopi(k) = thickness(k) compi(k) = comp(k) ejmi(k) = ejm(k) ejmfi(k) = ejmf(k) mfi(k) = meltfrac(k) do q=1,domain%rcnum - dfi(q*k) = distfrac(q,k) !or is it (k,q) ? - mdi(q*k) = meltdist(q,k) + dfi(q*k) = meltdist(q,k) + mdi(q*k) = distvol(q,k) end do do q=1,MAXAGEBINS - agei(MAXAGEBINS*k - (MAXAGEBINS-q)) = age(q,k) !again, (k,q)? + agei(MAXAGEBINS*k - (MAXAGEBINS-q)) = age(q,k) end do end do