Juan 14/11/2023: rain_ice_fast_ri.f90, Bug/data not present with CCE/16.0.1...

Juan 14/11/2023: rain_ice_fast_ri.f90, Bug/data not present with CCE/16.0.1 around where -> add mnh_expand_where to bypass the bug (other where have already been transformed this way)

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(:), &