diff --git a/src/create_surfaces.f90 b/src/create_surfaces.f90
index b56144da03fc7bdc80ca508128b16828cf0107d3..a1f238e36ae79bd9d02a5c5d04425ca78fe2b391 100644
--- a/src/create_surfaces.f90
+++ b/src/create_surfaces.f90
@@ -658,7 +658,7 @@ select case(surface_type)
         end do
 
    case (13)
-     ! a 2D embankment of finite length and with 2 kinks
+     ! a 3D embankment of finite length and with 2 kinks
      ! sp01 is the z level
      ! sp02 is the thickness (zthick)
      ! sp03 is slope angle (psi)