diff --git a/src/SURFEX/prep_seaflux_grib.F90 b/src/SURFEX/prep_seaflux_grib.F90
index 7462e2317ef50b8d71db14595892e3fb466baa7b..2267fcabe72db7622ff0cea0bb7761198b55e03b 100644
--- a/src/SURFEX/prep_seaflux_grib.F90
+++ b/src/SURFEX/prep_seaflux_grib.F90
@@ -25,13 +25,14 @@ SUBROUTINE PREP_SEAFLUX_GRIB(HPROGRAM,HSURF,HFILE,KLUOUT,PFIELD)
 !!    MODIFICATIONS
 !!    -------------
 !!      Original    01/2004
+!!      Modified    05/2018, S. Faroux/P. Wautelet: bug correction for allocation of PFIELD
 !!------------------------------------------------------------------
 !
 
 !
 USE MODE_READ_GRIB
 !
-USE MODD_GRID_GRIB,  ONLY : CGRIB_FILE, CINMODEL
+USE MODD_GRID_GRIB,  ONLY : CGRIB_FILE, NNI, CINMODEL
 !
 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
 USE PARKIND1  ,ONLY : JPRB
@@ -98,7 +99,7 @@ SELECT CASE(HSURF)
 !      -------------------------------------
 !
   CASE('SSS    ','SIC    ')
-      ALLOCATE(PFIELD(SIZE(ZFIELD),1))
+      ALLOCATE(PFIELD(NNI,1))
       PFIELD = 0.0
 !
 END SELECT