diff --git a/src/Makefile.am b/src/Makefile.am
index b3b8df93..6508f5c7 100755
--- a/src/Makefile.am
+++ b/src/Makefile.am
@@ -35,6 +35,7 @@ util/util_push.f90\
 util/util_traverse_pop.f90\
 util/util_destroy_list.f90\
 util/util_init_list.f90\
+util/util_perlin_noise.f90\
 io/io_read_const.f90\
 io/io_get_token.f90\
 io/io_input.f90\
diff --git a/src/crater/crater_form_interior.f90 b/src/crater/crater_form_interior.f90
index 52f73875..c039c773 100644
--- a/src/crater/crater_form_interior.f90
+++ b/src/crater/crater_form_interior.f90
@@ -33,7 +33,7 @@ subroutine crater_form_interior(user,surfi,crater,x_relative, y_relative ,newele
    real(DP),intent(out) :: deltaMi
 
    ! Internal variables
-   real(DP) :: cform,newdem,elchange,pikeD,r,h,circrad,polymodel,f,HH
+   real(DP) :: cform,newdem,elchange,pikeD,r
    integer(I4B) :: layer
 
    ! A list for poped data 
diff --git a/src/util/module_util.f90 b/src/util/module_util.f90
index e3757ce7..bb20e811 100644
--- a/src/util/module_util.f90
+++ b/src/util/module_util.f90
@@ -225,5 +225,15 @@ function util_poisson(mu,poisson_first) result(ival)
    end function util_poisson
 end interface
 
+interface
+   function util_perlin_noise(x,y,z) result (noise)
+   use module_globals
+   implicit none
+   real(DP),intent(in) :: x,y
+   real(DP),intent(in),optional :: z
+   real(DP) :: noise
+   end function util_perlin_noise
+end interface
+
 end module