From d3d534100d967ab56307c537041f0ee954d87aca Mon Sep 17 00:00:00 2001 From: mhirabay Date: Thu, 29 Dec 2016 14:14:53 +0000 Subject: [PATCH] Updated the porosity module. --- src/porosity/module_porosity.f90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/porosity/module_porosity.f90 b/src/porosity/module_porosity.f90 index 77c5f628..9f4b3013 100644 --- a/src/porosity/module_porosity.f90 +++ b/src/porosity/module_porosity.f90 @@ -18,13 +18,13 @@ module module_porosity save interface - subroutine porosity_form_interior(user,surfi,crater,elchange,lradsq,newelev) + subroutine porosity_form_interior(user, surfi, crater, lradsq) use module_globals implicit none - type(usertype),intent(in) :: user - type(surftype),intent(inout) :: surfi - type(cratertype),intent(in) :: crater - real(DP),intent(in) :: lradsq,elchange,newelev + type(usertype),intent(in) :: user + type(surftype),intent(inout) :: surfi + type(cratertype),intent(in) :: crater + real(DP),intent(in) :: lradsq end subroutine porosity_form_interior end interface