Joris 13/12/2023: print list of fields (for output files) only if not empty...

Joris 13/12/2023: print list of fields (for output files) only if not empty (can be empty if use of IO_Field_user_write)

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)