diff --git a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
index 1554173498d4a9f366cf243e90fdd4157e26b099..01e960ef53d2685cc8b8ca1dafefdfd6c53f2223 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
@@ -274,11 +274,15 @@ DO IMI = 1, NMODEL
   DO JOUT = 1,IOUT_NUMB
     WRITE(*,'( I9 F12.3 )'  ) OUT_MODEL(IMI)%TOUTPUTN(JOUT)%NSTEP,OUT_MODEL(IMI)%TOUTPUTN(JOUT)%XTIME
   END DO
-  PRINT *,'Field list:'
-  DO JOUT = 1,SIZE(OUT_MODEL(IMI)%TOUTPUTN(1)%NFIELDLIST)
-    IDX=OUT_MODEL(IMI)%TOUTPUTN(1)%NFIELDLIST(JOUT)
-    PRINT *,'  ',TRIM(TFIELDLIST(IDX)%CMNHNAME)
-  END DO
+  !
+  IF (IOUT_NUMB>0) THEN
+    PRINT *,'Field list:'
+    DO JOUT = 1,SIZE(OUT_MODEL(IMI)%TOUTPUTN(1)%NFIELDLIST)
+      IDX=OUT_MODEL(IMI)%TOUTPUTN(1)%NFIELDLIST(JOUT)
+      PRINT *,'  ',TRIM(TFIELDLIST(IDX)%CMNHNAME)
+    END DO
+  END IF
+  !
   PRINT *,'-------------------------'
   END IF
   !