Juan 6/03/2024:advection_metsv.f90, Bug, index not expanded , replace DO...

Juan 6/03/2024:advection_metsv.f90, Bug, index not expanded , replace DO CONCURRENT -> !$mnh_expand_array

src/MNH/advection_metsv.f90

@@ -522,20 +522,20 @@ IF (.NOT. L1D) THEN
 !$mnh_end_expand_array()
 #else
 #if defined(MNH_COMPILER_CCE) && defined(MNH_BITREP_OMP)
-DO CONCURRENT (JK=1:JKU,JJ=IJB:IJE,JI=IIB:IIE)
-#else
-!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:JKU)
+!$mnh_undef(LOOP)
+!$mnh_undef(OPENACC)    
 #endif    
+!$mnh_expand_array(JI=IIB:IIE,JJ=IJB:IJE,JK=1:JKU)
     ZCFLU(IIB:IIE,IJB:IJE,:) = ZCFLU(IIB:IIE,IJB:IJE,:)*(1.-Br_exp(-Br_pow(XIBM_LS(IIB:IIE,IJB:IJE,:,2)/&
                                                         Br_pow(XRHODJ(IIB:IIE,IJB:IJE,:)/XRHODREF(IIB:IIE,IJB:IJE,:),1./3.),2.)))
     ZCFLV(IIB:IIE,IJB:IJE,:) = ZCFLV(IIB:IIE,IJB:IJE,:)*(1.-Br_exp(-Br_pow(XIBM_LS(IIB:IIE,IJB:IJE,:,3)/&
                                                         Br_pow(XRHODJ(IIB:IIE,IJB:IJE,:)/XRHODREF(IIB:IIE,IJB:IJE,:),1./3.),2.)))
     ZCFLW(IIB:IIE,IJB:IJE,:) = ZCFLW(IIB:IIE,IJB:IJE,:)*(1.-Br_exp(-Br_pow(XIBM_LS(IIB:IIE,IJB:IJE,:,4)/&
                                                         Br_pow(XRHODJ(IIB:IIE,IJB:IJE,:)/XRHODREF(IIB:IIE,IJB:IJE,:),1./3.),2.)))
-#if defined(MNH_COMPILER_CCE) && defined(MNH_BITREP_OMP)
-END DO ! CONCURRENT 
-#else
 !$mnh_end_expand_array()
+#if defined(MNH_COMPILER_CCE) && defined(MNH_BITREP_OMP)
+!$mnh_define(LOOP)
+!$mnh_define(OPENACC) 
 #endif
 #endif
     WHERE (XIBM_LS(IIB:IIE,IJB:IJE,:,2).GT.(-ZIBM_EPSI)) ZCFLU(IIB:IIE,IJB:IJE,:)=0.