From 957071ffa1561e6e2d9ca210aa463eafb822463d Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Fri, 26 May 2023 14:21:15 -0400 Subject: [PATCH] DEM (and surf image) is now correct in multi-interval runs but melt distribution still isn't --- src/io/io_read_regotrack.f90 | 2 +- src/io/module_io.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/io/io_read_regotrack.f90 b/src/io/io_read_regotrack.f90 index 853dd51a..c880a91c 100644 --- a/src/io/io_read_regotrack.f90 +++ b/src/io/io_read_regotrack.f90 @@ -24,7 +24,7 @@ subroutine io_read_regotrack(user,surf,domain) ! Arguments type(usertype),intent(in) :: user - type(surftype),dimension(:,:),intent(out) :: surf + type(surftype),dimension(:,:),intent(inout) :: surf type(domaintype),intent(in) :: domain ! Internals diff --git a/src/io/module_io.f90 b/src/io/module_io.f90 index 3ea2873a..a6be9cfe 100644 --- a/src/io/module_io.f90 +++ b/src/io/module_io.f90 @@ -63,7 +63,7 @@ subroutine io_read_regotrack(user,surf,domain) use module_globals implicit none type(usertype),intent(in) :: user - type(surftype),dimension(:,:),intent(out) :: surf + type(surftype),dimension(:,:),intent(inout) :: surf type(domaintype),intent(in) :: domain end subroutine io_read_regotrack end interface