Define init_porosity_stack

MintonGroup · Dec 29, 2016 · 7407596 · 7407596
1 parent cc75cf4
commit 7407596
Showing 1 changed file with 9 additions and 0 deletions.
diff --git 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