Philippe 07/10/2024: LFI2CDF / IO: small fixes to allow LFI2CDF runs

src/LIB/SURCOUCHE/src/mode_io_file.f90

@@ -565,7 +565,7 @@ SELECT CASE(TPFILE%CTYPE)
   CASE ('MNH', 'MNHBACKUP', 'MNHDIACHRONIC', 'MNHDIAG', 'MNHOUTPUT', 'PGD')
     !Try to close '.des' file only if it should exist
     IF ( ( TPFILE%CTYPE=='MNH' .OR. TPFILE%CTYPE=='MNHBACKUP' .OR. TPFILE%CTYPE=='MNHDIACHRONIC' ) &
-         .and. .not.associated(tpfile%tmainfile)                                                   ) THEN
+         .and. .not.associated(tpfile%tmainfile) .and. cprogram /= 'LFICDF'                        ) THEN
       IF ( .NOT.ASSOCIATED(TPFILE%TDESFILE) ) THEN
         CALL PRINT_MSG( NVERB_ERROR, 'IO', 'IO_File_close','DES file for '//TRIM(TPFILE%CNAME)//' not associated' )
       ELSE

src/LIB/SURCOUCHE/src/mode_io_file_nc4.f90

@@ -465,6 +465,10 @@ subroutine IO_Subfile_check_nc4( tpfile )
       else if (tpfile%nsubfiles_ioz == 0 .and. iatt == 0 ) then
         ! Nothing to do: no subfiles
         !call Print_msg( NVERB_DEBUG, 'IO', 'IO_Subfile_check_nc4', trim(tpfile%cname)//': no subfiles detected', olocal = .true. )
+      else if (tpfile%nsubfiles_ioz == iatt ) then
+        ! Nothing to do: number of subfiles is as expected
+        !call Print_msg( NVERB_DEBUG, 'IO', 'IO_Subfile_check_nc4', trim(tpfile%cname)//&
+        !                ': number of subfiles is as expected', olocal = .true. )
       else
         ! Unknown error
         call Print_msg( NVERB_ERROR, 'IO', 'IO_Subfile_check_nc4', trim(tpfile%cname)//': unexpected situation', olocal = .true. )