Fixed typo

src/create_surfaces.f90

@@ -686,13 +686,10 @@ select case(surface_type)
      y2s=tan((theta1+theta2)/2.d0)
      x0=sp04
 
-     !y0w=sp05
      y0w=sp05+dz1/(2.d0*psis)
-     y0=sp06
-     !y0a=y0+sp02/(2.d0*psis)
-     !y0b=y0-sp02/(2.d0*psis)
-     y0a=y0+dz1/psis
-     y0b=y0
+     y0=sp06+dz1/(2.d0*psis)
+     y0a=y0+dz1/(2.d0*psis)
+     y0b=y0-dz1/(2.d0*psis)
      y1=sp07+(dz1/(2.d0*psis))*y1s
      y2=sp09+(dz1/(2.d0*psis))*y2s