diff --git a/src/MNH/ice_adjust.f90 b/src/MNH/ice_adjust.f90
index dfdbb24f2b9fe36807779691340ba370555cab36..dc70a8b50853ed0b1c4cf7ee969df0e517b7a5d4 100644
--- a/src/MNH/ice_adjust.f90
+++ b/src/MNH/ice_adjust.f90
@@ -456,6 +456,7 @@ DO JITER =1,ITERMAX
   !                   and the latent heat of sublimation  Ls(T*) at t+1
   !
 !$acc kernels present_cr(ZLV,ZLS,ZCPH)
+!$mnh_expand_array(JI=1:IIU,JJ=1:IJU,JK=1:IKU)
   ZLV(:,:,:) = XLVTT + ( XCPV - XCL ) * ( ZT(:,:,:) -XTT )
   ZLS(:,:,:) = XLSTT + ( XCPV - XCI ) * ( ZT(:,:,:) -XTT )
   !
@@ -480,6 +481,7 @@ DO JITER =1,ITERMAX
     ZCPH(:,:,:) = XCPD + XCPV * ZRV(:,:,:) &
                        + XCL  * ZRC(:,:,:)
   END IF
+!$mnh_end_expand_array()
 !$acc end kernels
   !
   IF ( OSUBG_COND ) THEN