diff --git a/src/SURFEX/vegtype_grid_to_patch_grid.F90 b/src/SURFEX/vegtype_grid_to_patch_grid.F90
index 75662c823390ef71f84625a4d5ceafedde050524..002a374915f8844b8ec37299f8cd7ba75d852436 100644
--- a/src/SURFEX/vegtype_grid_to_patch_grid.F90
+++ b/src/SURFEX/vegtype_grid_to_patch_grid.F90
@@ -99,7 +99,7 @@ ENDDO
 DO JP = 1,SIZE(PW,2)
   DO JI = 1,SIZE(PW,1)
     IF (PW(JI,JP)/=XUNDEF) THEN
-      ZINT = AINT(PW(JI,JP),KIND=16)
+      ZINT = AINT(PW(JI,JP))
       IF (PW(JI,JP)/=ZINT) THEN
         PW(JI,JP) = ZINT + NINT((PW(JI,JP)-ZINT)*ZPREC)/ZPREC
       ENDIF