diff --git a/src/MNH/rain_ice.f90 b/src/MNH/rain_ice.f90
index 49f43c577c217bb9efafb779d10491e53c8a6c3b..dc3a5b07b90f4e865523a8a473d7c92f54d1af22 100644
--- a/src/MNH/rain_ice.f90
+++ b/src/MNH/rain_ice.f90
@@ -4499,7 +4499,7 @@ IMPLICIT NONE
 SUBROUTINE RAINFR_VERT(ZPRFR, ZRR)
 
 IMPLICIT NONE
-REAL, DIMENSION(:,:,:),   INTENT(OUT)    :: ZPRFR !Precipitation fraction
+REAL, DIMENSION(:,:,:),   INTENT(INOUT) :: ZPRFR !Precipitation fraction
 REAL, DIMENSION(:,:,:),   INTENT(IN)    :: ZRR !Rain field
 !
 !-------------------------------------------------------------------------------