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