diff --git a/src/MNH/rain_ice_fast_ri.f90 b/src/MNH/rain_ice_fast_ri.f90
index 65d9a1fcefe5a8e5680f47c2b2fdc1f29ebd8dc3..54739bd37967586a76a84e5181f8c6ff15fd7bdb 100644
--- a/src/MNH/rain_ice_fast_ri.f90
+++ b/src/MNH/rain_ice_fast_ri.f90
@@ -141,12 +141,14 @@ CALL MNH_MEM_GET( ZLBEXI, SIZE(PRHODREF) )
 
 !$acc kernels
   GWORK(:) = PRIS(:)>0.0 .AND. PZT(:)>XTT
+ !$mnh_expand_where(JL=1:JLU)
   WHERE( GWORK(:) )
     PRCS(:) = PRCS(:) + PRIS(:)
     PTHS(:) = PTHS(:) - PRIS(:)*(PLSFACT(:)-PLVFACT(:)) ! f(L_f*(-RIMLTC))
     PRIS(:) = 0.0
     PCIT(:) = 0.0
   END WHERE
+ !$mnh_end_expand_where()
 !$acc end kernels
 
   if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'IMLT', Unpack ( pths(:) * prhodj(:), &