diff --git a/src/LIB/SURCOUCHE/src/mode_netcdf.f90 b/src/LIB/SURCOUCHE/src/mode_netcdf.f90
index 1459f480645f26fdd60e72e52d3fb22f29f77043..29b23fcd1e3954ba7fb94a9f9b7ca96fb6864825 100644
--- a/src/LIB/SURCOUCHE/src/mode_netcdf.f90
+++ b/src/LIB/SURCOUCHE/src/mode_netcdf.f90
@@ -1599,6 +1599,8 @@ TYPE(IOCDF), POINTER                      :: PZCDF
 CHARACTER(LEN=*),DIMENSION(:),INTENT(IN)  :: HFIELD
 INTEGER,                      INTENT(OUT) :: KRESP
 !
+INTEGER(KIND=IDCDF_KIND),PARAMETER :: IONE = 1
+!
 INTEGER(KIND=IDCDF_KIND)               :: STATUS
 INTEGER(KIND=IDCDF_KIND)               :: INCID
 CHARACTER(LEN=LEN(TPFIELD%CMNHNAME))   :: YVARNAME
@@ -1636,7 +1638,7 @@ ELSE
 END IF
 
 ! Write the data
-STATUS = NF90_PUT_VAR(INCID, IVARID, HFIELD)
+STATUS = NF90_PUT_VAR(INCID, IVARID, HFIELD(1:ISIZE)(1:ILEN), START=(/IONE,IONE/), COUNT=(/ILEN,ISIZE/))
 IF (status /= NF90_NOERR) CALL HANDLE_ERR(status,__LINE__,'IO_WRITE_FIELD_NC4_C1[NF90_PUT_VAR] '//TRIM(TPFIELD%CMNHNAME),IRESP)
 
 KRESP = IRESP