diff --git a/src/create_surfaces.f90 b/src/create_surfaces.f90
index fd05c7518bcad914ef75f53877f9fb2f4fb92bb7..b56144da03fc7bdc80ca508128b16828cf0107d3 100644
--- a/src/create_surfaces.f90
+++ b/src/create_surfaces.f90
@@ -616,7 +616,7 @@ select case(surface_type)
            end if
         end do
    case (12)
-        ! rectangular emboss with specified slope, 
+        ! rectangular emboss with specified slope
         ! sp01 is the z level
         ! sp02 and 03 are x1,x2 
         ! sp04 and 05 are y1,y2