diff --git a/src/LIB/SURCOUCHE/src/mode_mppdb.f90 b/src/LIB/SURCOUCHE/src/mode_mppdb.f90
index 47073588d50647e110bda3700ea3c3948c663600..5356753d1f0ee3372c4e6ee9e517e71af10267dc 100644
--- a/src/LIB/SURCOUCHE/src/mode_mppdb.f90
+++ b/src/LIB/SURCOUCHE/src/mode_mppdb.f90
@@ -1306,7 +1306,7 @@ MODULE MODE_MPPDB
              END IF
              !flush(unit=OUTPUT_UNIT)
              !
-             DEALLOCATE(TAB_ll,TAB_SON_ll)
+             !DEALLOCATE(TAB_ll,TAB_SON_ll)
              !
           END IF
        ELSE
@@ -1402,6 +1402,7 @@ MODULE MODE_MPPDB
       ELSE
         CALL PRINT_MSG(NVERB_WARNING,'GEN','MPPDB_CHECK3D_REAL','NPAS_ll>2 not (yet) implemented')
       END IF
+     DEALLOCATE(TAB_ll,TAB_SON_ll)
     END IF
 #endif
   END SUBROUTINE MPPDB_CHECK3D_REAL
@@ -1666,7 +1667,7 @@ MODULE MODE_MPPDB
                 OK(IPAS) = .TRUE.
              END IF
              !
-             DEALLOCATE(TAB_ll,TAB_SON_ll)
+             !DEALLOCATE(TAB_ll,TAB_SON_ll)
              !
           END IF
        ELSE
@@ -1774,6 +1775,7 @@ MODULE MODE_MPPDB
       ELSE
         CALL PRINT_MSG(NVERB_WARNING,'GEN','MPPDB_CHECK2D_REAL','NPAS_ll>2 not (yet) implemented')
       END IF
+      DEALLOCATE(TAB_ll,TAB_SON_ll)
     END IF
 #endif
   END SUBROUTINE MPPDB_CHECK2D_REAL