From 740759651e5457cc0027ae185a2866946f7d3321 Mon Sep 17 00:00:00 2001 From: mhirabay Date: Thu, 29 Dec 2016 14:11:58 +0000 Subject: [PATCH] Define init_porosity_stack --- src/init/module_init.f90 | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/init/module_init.f90 b/src/init/module_init.f90 index 3f72e248..e37cb1c7 100644 --- a/src/init/module_init.f90 +++ b/src/init/module_init.f90 @@ -55,4 +55,13 @@ subroutine init_regolith_stack(user,surf) end subroutine init_regolith_stack end interface + interface + subroutine init_porosity_stack(user,surf) + use module_globals + implicit none + type(usertype),intent(in) :: user + type(surftype),dimension(:,:),intent(inout) :: surf + end subroutine init_porosity_stack + end interface + end module module_init