Juan 26/08/2022:ice_adjust.f90, bypass nvhpc/21.7 bug with mnh_expand macro

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