Added perlin noise subroutine and cleaned up crater_form_interior

MintonGroup · Oct 2, 2019 · b76e372 · b76e372
1 parent 0c1528d
commit b76e372
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 1 deletion.
diff --git 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
@@ -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
@@ -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