diff --git a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
index c3bd1d774d73533d6f45f1fbb2fc1a58dfac9f24..8b7c8c9089385dec3964b49b76939382e54cac69 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
@@ -327,8 +327,8 @@ DO IMI = 1, NMODEL
     END DO
   end if
   !
-  IF (IOUT_NUMB>0) THEN
-    PRINT *,'Field list:'
+  IF ( IOUT_NUMB>0 .AND. SIZE(OUT_MODEL(IMI)%TOUTPUTN(1)%NFIELDLIST)>0 ) THEN
+    PRINT *,'List of fields:'
     DO JOUT = 1,SIZE(OUT_MODEL(IMI)%TOUTPUTN(1)%NFIELDLIST)
       IDX=OUT_MODEL(IMI)%TOUTPUTN(1)%NFIELDLIST(JOUT)
       PRINT *,'  ',TRIM(TFIELDLIST(IDX)%CMNHNAME)