Fixed typo

src/create_surfaces.f90

@@ -165,7 +165,7 @@ else
 
    select case(surface_type)
 
-      case (1,2,5,6,7,8,9,10,11) 
+      case (1,2,5,6,7,8,9,10,11,12) 
 !           if (surface%rand) then
               indix=1
               ! convex hull
@@ -484,7 +484,7 @@ double precision sp01,sp02,sp03,sp04,sp05,sp06,sp07,sp08,sp09,sp10
 !------------------------------------------------------------------------------|
 
 integer i
-double precision delta,dist,ran,m,pi,x1a,x1b,x2a,x2b,y1a,y1b,y2a,y2b,zx
+double precision delta,dist,ran,m,x1a,x1b,x2a,x2b,y1a,y1b,y2a,y2b,zx
 
 !------------------------------------------------------------------------------|
 !------------------------------------------------------------------------------|
@@ -617,7 +617,6 @@ select case(surface_type)
         ! sp04 and 05 are y1,y2 
         ! sp06 is the thickness
         ! sp07 is the slope
-        pi=atan(1.d0)*4.d0
         m=tan(sp07*pi/180.d0)
         x1a=sp02+(sp06/(2.d0*m))
         x1b=sp02-(sp06/(2.d0*m))