From d0c76e1dc4268799a0f00af1bff10d74b5a91717 Mon Sep 17 00:00:00 2001 From: mhirabay Date: Thu, 29 Dec 2016 14:13:55 +0000 Subject: [PATCH] Added io_read_porotrack and io_write_porotrack. --- src/io/module_io.f90 | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/src/io/module_io.f90 b/src/io/module_io.f90 index 2c08b022..0dfcf6d8 100644 --- a/src/io/module_io.f90 +++ b/src/io/module_io.f90 @@ -66,6 +66,15 @@ subroutine io_read_regotrack(user,surf) end subroutine io_read_regotrack end interface + interface + subroutine io_read_porotrack(user,surf) + use module_globals + implicit none + type(usertype),intent(in) :: user + type(surftype),dimension(:,:),intent(out) :: surf + end subroutine io_read_porotrack + end interface + interface subroutine io_write_surf(user,surf) use module_globals @@ -84,6 +93,15 @@ subroutine io_write_regotrack(user,surf) end subroutine io_write_regotrack end interface + interface + subroutine io_write_porotrack(user,surf) + use module_globals + implicit none + type(usertype),intent(in) :: user + type(surftype),dimension(:,:),intent(in) :: surf + end subroutine io_write_porotrack + end interface + interface subroutine io_crater_profile(user,surf) use module_globals