Philippe 19/12/2023: IO: bugfix: crash if output filelist is empty

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 *,'-------------------------------'