diff --git a/src/MNH/ice4_compute_pdf.f90 b/src/MNH/ice4_compute_pdf.f90
index 9243fd65e65f5ecf784644620862f2f632cf7d7a..bc465eb65ef522324dea8c19d986f578bdab5518 100644
--- a/src/MNH/ice4_compute_pdf.f90
+++ b/src/MNH/ice4_compute_pdf.f90
@@ -26,10 +26,10 @@ REAL, DIMENSION(KSIZE), INTENT(OUT) :: PHLC_LCF   ! HLCLOUDS : fraction of Low
 REAL, DIMENSION(KSIZE), INTENT(OUT) :: PHLC_HRC   ! HLCLOUDS : LWC that is High LWC in grid
 REAL, DIMENSION(KSIZE), INTENT(OUT) :: PHLC_LRC   ! HLCLOUDS : LWC that is Low  LWC in grid
                                                   !    note that PRC = PHLC_HRC + PHLC_LRC
-REAL, DIMENSION(KSIZE), INTENT(OUT) :: PHLI_HCF   !
-REAL, DIMENSION(KSIZE), INTENT(OUT) :: PHLI_LCF
-REAL, DIMENSION(KSIZE), INTENT(OUT) :: PHLI_HRI   !
-REAL, DIMENSION(KSIZE), INTENT(OUT) :: PHLI_LRI   !
+REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PHLI_HCF   !
+REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PHLI_LCF
+REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PHLI_HRI   !
+REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PHLI_LRI   !
 REAL, DIMENSION(KSIZE), INTENT(OUT) :: PRF        ! Rain fraction
 END SUBROUTINE ICE4_COMPUTE_PDF
 END INTERFACE
@@ -82,10 +82,10 @@ REAL, DIMENSION(KSIZE), INTENT(OUT) :: PHLC_LCF   ! HLCLOUDS : fraction of Low
 REAL, DIMENSION(KSIZE), INTENT(OUT) :: PHLC_HRC   ! HLCLOUDS : LWC that is High LWC in grid
 REAL, DIMENSION(KSIZE), INTENT(OUT) :: PHLC_LRC   ! HLCLOUDS : LWC that is Low  LWC in grid
                                                   !    note that PRC = PHLC_HRC + PHLC_LRC
-REAL, DIMENSION(KSIZE), INTENT(OUT) :: PHLI_HCF
-REAL, DIMENSION(KSIZE), INTENT(OUT) :: PHLI_LCF
-REAL, DIMENSION(KSIZE), INTENT(OUT) :: PHLI_HRI
-REAL, DIMENSION(KSIZE), INTENT(OUT) :: PHLI_LRI  
+REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PHLI_HCF
+REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PHLI_LCF
+REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PHLI_HRI
+REAL, DIMENSION(KSIZE), INTENT(INOUT) :: PHLI_LRI
 REAL, DIMENSION(KSIZE), INTENT(OUT) :: PRF        ! Rain fraction
 !
 !*       0.2  declaration of local variables