diff --git a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90 b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
index b99165caecf3e82b5f2e4a72cf8b6102221a204f..adcb35682a4ae203b0bca4ed6815e5e2430463af 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_manage_struct.f90
@@ -328,12 +328,14 @@ DO IMI = 1, NMODEL
     END DO
   end if
   !
-  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)
-    END DO
+  IF ( IOUT_NUMB>0 ) THEN
+    IF ( 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)
+      END DO
+    END IF
   END IF
   !
   PRINT *,'-------------------------------'