diff --git a/src/LIB/SURCOUCHE/src/mode_fm.f90 b/src/LIB/SURCOUCHE/src/mode_fm.f90
index a8b8bdf61d3a69fa841d6524987f10feb076d8ef..6e5d84c8088283adcc9abc4e266ebd3057e1c7e7 100644
--- a/src/LIB/SURCOUCHE/src/mode_fm.f90
+++ b/src/LIB/SURCOUCHE/src/mode_fm.f90
@@ -28,7 +28,7 @@ INTEGER, PARAMETER :: JPPIPE = 10
 
 PUBLIC SET_FMPACK_ll,FMATTR_ll,FMLOOK_ll,FMOPEN_ll,FMCLOS_ll
 PUBLIC IO_FILE_OPEN_ll, IO_FILE_CLOSE_ll
-PUBLIC IO_WRITE_FIELDLIST
+PUBLIC IO_WRITE_FIELDLIST,IO_WRITE_FIELD_USER
 
 CONTAINS 
 
diff --git a/src/LIB/SURCOUCHE/src/mode_netcdf.f90 b/src/LIB/SURCOUCHE/src/mode_netcdf.f90
index 942889451247d5950278af9e25914d98ee234020..0b77712cb19f3c7aad24c4f3cb5408ccdfe9b965 100644
--- a/src/LIB/SURCOUCHE/src/mode_netcdf.f90
+++ b/src/LIB/SURCOUCHE/src/mode_netcdf.f90
@@ -208,7 +208,7 @@ ENDIF
 !
 ! GRID attribute definition
 IF(TPFIELD%NGRID<0) THEN
-  PRINT *,'WARNING: IO_WRITE_ATTR_NC4: TPFIELD%NGRID not set for variable ',TRIM(TPFIELD%CMNHNAME)
+!  PRINT *,'WARNING: IO_WRITE_ATTR_NC4: TPFIELD%NGRID not set for variable ',TRIM(TPFIELD%CMNHNAME)
 ELSE
   STATUS = NF90_PUT_ATT(KNCID, KVARID, 'GRID', TPFIELD%NGRID)
   IF (STATUS /= NF90_NOERR) CALL HANDLE_ERR(status,__LINE__,'IO_WRITE_ATTR_NC4 [NF90_PUT_ATT]')
@@ -216,7 +216,7 @@ ENDIF
 !
 ! COMMENT attribute definition
 IF(LEN_TRIM(TPFIELD%CCOMMENT)==0) THEN
-  PRINT *,'WARNING: IO_WRITE_ATTR_NC4: TPFIELD%CCOMMENT not set for variable ',TRIM(TPFIELD%CMNHNAME)
+!  PRINT *,'WARNING: IO_WRITE_ATTR_NC4: TPFIELD%CCOMMENT not set for variable ',TRIM(TPFIELD%CMNHNAME)
 ELSE
   STATUS = NF90_PUT_ATT(KNCID, KVARID,'COMMENT', TRIM(TPFIELD%CCOMMENT))
   IF (STATUS /= NF90_NOERR) CALL HANDLE_ERR(status,__LINE__,'IO_WRITE_ATTR_NC4 [NF90_PUT_ATT]')
@@ -224,7 +224,7 @@ ENDIF
 !
 ! Standard_name attribute definition (CF convention)
 IF(LEN_TRIM(TPFIELD%CSTDNAME)==0) THEN
-  PRINT *,'WARNING: IO_WRITE_ATTR_NC4: TPFIELD%CSTDNAME not set for variable ',TRIM(TPFIELD%CMNHNAME)
+!  PRINT *,'WARNING: IO_WRITE_ATTR_NC4: TPFIELD%CSTDNAME not set for variable ',TRIM(TPFIELD%CMNHNAME)
 ELSE
   STATUS = NF90_PUT_ATT(KNCID, KVARID,'standard_name', TRIM(TPFIELD%CSTDNAME))
   IF (STATUS /= NF90_NOERR) CALL HANDLE_ERR(status,__LINE__,'IO_WRITE_ATTR_NC4 [NF90_PUT_ATT]')
@@ -232,7 +232,7 @@ ENDIF
 !
 ! Long_name attribute definition (CF convention)
 IF(LEN_TRIM(TPFIELD%CLONGNAME)==0) THEN
-  PRINT *,'WARNING: IO_WRITE_ATTR_NC4: TPFIELD%CLONGNAME not set for variable ',TRIM(TPFIELD%CMNHNAME)
+!  PRINT *,'WARNING: IO_WRITE_ATTR_NC4: TPFIELD%CLONGNAME not set for variable ',TRIM(TPFIELD%CMNHNAME)
 ELSE
   STATUS = NF90_PUT_ATT(KNCID, KVARID,'long_name', TRIM(TPFIELD%CLONGNAME))
   IF (STATUS /= NF90_NOERR) CALL HANDLE_ERR(status,__LINE__,'IO_WRITE_ATTR_NC4 [NF90_PUT_ATT]')
@@ -240,7 +240,7 @@ ENDIF
 !
 ! Canonical units attribute definition (CF convention)
 IF(LEN_TRIM(TPFIELD%CUNITS)==0) THEN
-  PRINT *,'WARNING: IO_WRITE_ATTR_NC4: TPFIELD%CUNITS not set for variable ',TRIM(TPFIELD%CMNHNAME)
+!  PRINT *,'WARNING: IO_WRITE_ATTR_NC4: TPFIELD%CUNITS not set for variable ',TRIM(TPFIELD%CMNHNAME)
 ELSE
   STATUS = NF90_PUT_ATT(KNCID, KVARID,'units', TRIM(TPFIELD%CUNITS))
   IF (STATUS /= NF90_NOERR) CALL HANDLE_ERR(status,__LINE__,'IO_WRITE_ATTR_NC4 [NF90_PUT_ATT]')
diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90
index b4225aea642024ea067f07912eaaeb4937b672cd..f3a51a75b23257cdbd41a45477d0fa38147aeb31 100644
--- a/src/MNH/modeln.f90
+++ b/src/MNH/modeln.f90
@@ -958,6 +958,7 @@ IF (IOUT < NOUT_NUMB ) THEN
     !
     CALL IO_WRITE_HEADER_NC4(TZOUTFILE,CLUOUT)
     CALL IO_WRITE_FIELDLIST(TOUTPUTN(IOUT),CLUOUT)
+    CALL IO_WRITE_FIELD_USER(TOUTPUTN(IOUT),CLUOUT)
     !
     CALL IO_FILE_CLOSE_ll(TZOUTFILE,CLUOUT,IRESP)
     !