Tweaked sine/cosine wave surface geometries

src/create_surfaces.f90

@@ -560,7 +560,7 @@ select case(surface_type)
         ! sp03 is the amplitude
         ! sp04 is the phase
         do i=1,ns
-           z(i)=sp01+sp03*sin(x(i)*2.d0*pi/sp02+sp04)
+           z(i)=sp01+sp03*sin(2.d0*pi*(x(i)/sp02+sp04))
         end do
    case (7)
         ! a noisy surface, 
@@ -587,7 +587,7 @@ select case(surface_type)
         ! sp03 is the amplitude
         ! sp04 is the phase
         do i=1,ns
-           z(i)=sp01+sp03*cos(x(i)*2.d0*pi/sp02+sp04)
+           z(i)=sp01+sp03*cos(2.d0*pi*(x(i)/sp02+sp04))
         end do
    case (10)
         ! a 2D embankment